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

2
applications/lazimageeditor/lazimageeditor.ini
View File

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

5
applications/lazimageeditor/lazimageeditor.lpi
View File

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

1150
applications/lazimageeditor/main.lfm
View File

File diff suppressed because it is too large Load Diff

5485
applications/lazimageeditor/main.lrs
View File

File diff suppressed because it is too large Load Diff

6
applications/lazimageeditor/main.pas
View File

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