Changes the ICONs.

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

View File

@ -2,4 +2,4 @@
Language=0
[UNIX]
MyDirectory=F:\Programas\lazarusccr\applications\lazimageeditor\
MyDirectory=T:\LazImageEditor\

View File

@ -32,6 +32,7 @@
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsAuto"/>
<UseLineInfoUnit Value="False"/>
<StripSymbols Value="True"/>
</Debugging>
@ -64,7 +65,7 @@
<RequiredPackages Count="3">
<Item1>
<PackageName Value="LCLBase"/>
<MinVersion Major="1" Release="1" Valid="True"/>
<MinVersion Major="1" Valid="True" Release="1"/>
</Item1>
<Item2>
<PackageName Value="LazColorPalette"/>
@ -186,7 +187,7 @@
<Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<GenerateDwarf Value="True"/>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options>
<Win32>

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

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;