pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Add method AddImageFromFile to TJvImageViewer for loading individual pictures.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7191 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-11-20 18:51:01 +00:00
parent a4445c9f94
commit 3aad6ce7bf
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/jvcllaz/run/JvCustomControls/jvimagesviewer.pas
View File

@ -133,6 +133,7 @@ type
AItemRect, TextRect: TRect); override; AItemRect, TextRect: TRect); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function AddImageFromFile(const AFileName: String): Integer; virtual;
function LoadImages: Boolean;virtual; function LoadImages: Boolean;virtual;
procedure CustomSort(Compare: TListSortCompare); override; procedure CustomSort(Compare: TListSortCompare); override;
@ -364,6 +365,7 @@ begin
FreeAndNil(FPicture); FreeAndNil(FPicture);
end; end;
//=== { TJvImagesViewer } ==================================================== //=== { TJvImagesViewer } ====================================================
constructor TJvImagesViewer.Create(AOwner: TComponent); constructor TJvImagesViewer.Create(AOwner: TComponent);
@ -374,6 +376,21 @@ begin
Color := clWindow; Color := clWindow;
end; end;
function TJvImagesViewer.AddImageFromFile(const AFileName: String): Integer;
var
item: TJvViewerItem;
c: TJvViewerItemClass;
begin
c := GetItemClass;
if (c <> TJvPictureItem) then
raise Exception.Create('TJvImagesViewer can only handle TJvPictureItem objects');
item := c.Create(self);
TJvPictureItem(item).FileName := AFileName;
Result := Add(item);
Invalidate;
end;
function TJvImagesViewer.ScaleRect(ARect, RefRect: TRect): TRect; function TJvImagesViewer.ScaleRect(ARect, RefRect: TRect): TRect;
var var
w, h, cw, ch: Integer; w, h, cw, ch: Integer;