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

Changes the ICONs.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2094 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2011-10-26 12:25:19 +00:00
parent e9b3d86b4a
commit a0ca3d7cf9
5 changed files with 3450 additions and 3198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/lazimageeditor/main.pas
View File

@@ -266,6 +266,7 @@ type
procedure PanelPaperDblClick(Sender: TObject);
procedure PanelPaperDragOver(Sender, Source: TObject; X, Y: integer;
State: TDragState; var Accept: boolean);
procedure PanelZoomClick(Sender: TObject);
procedure PicturePageChange(Sender: TObject);
procedure PictureChange(Sender: TObject);
procedure PicturePageClose(Sender: TObject);
@@ -846,6 +847,11 @@ begin
end;
end;
procedure TMainForm.PanelZoomClick(Sender: TObject);
begin
end;
function TMainForm.GetActivePicture: TPictureBitmap;
begin
Result := Pictures.ActivePicturePage.PictureEdit.Picture;