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:
parent
e9b3d86b4a
commit
a0ca3d7cf9
@ -2,4 +2,4 @@
|
||||
Language=0
|
||||
|
||||
[UNIX]
|
||||
MyDirectory=F:\Programas\lazarusccr\applications\lazimageeditor\
|
||||
MyDirectory=T:\LazImageEditor\
|
||||
|
@ -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
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user