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

LazImageEditor: Fixed compilation with current Laz/FPC. Fix incorrect tool hints.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9032 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-11-19 15:34:46 +00:00
parent 9f248983f3
commit f3217a1b7e
7 changed files with 3312 additions and 10873 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/lazimageeditor/lazimageeditor.lpi
View File

@ -9,8 +9,12 @@
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<Title Value="lazimageeditor"/> <Title Value="lazimageeditor"/>
<Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/> <Icon Value="0"/>
</General> </General>
<i18n> <i18n>
@ -170,6 +174,7 @@
<Filename Value="iconsizeselection.pas"/> <Filename Value="iconsizeselection.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="SelectIconSizeForm"/> <ComponentName Value="SelectIconSizeForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit15> </Unit15>
</Units> </Units>

1
applications/lazimageeditor/lazimageeditor.pas
View File

@ -22,6 +22,7 @@ iconsizeselection;
{$R *.res} {$R *.res}
begin begin
Application.Scaled:=True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TTestForm, TestForm); Application.CreateForm(TTestForm, TestForm);

BIN
applications/lazimageeditor/lazimageeditor.res
View File

Binary file not shown.

5902
applications/lazimageeditor/main.lfm
View File

File diff suppressed because it is too large Load Diff

8257
applications/lazimageeditor/main.lrs
View File

File diff suppressed because it is too large Load Diff

18
applications/lazimageeditor/main.pas
View File

@ -246,7 +246,6 @@ type
procedure FlipHorizontallyExecute(Sender: TObject); procedure FlipHorizontallyExecute(Sender: TObject);
procedure FlipVerticallyExecute(Sender: TObject); procedure FlipVerticallyExecute(Sender: TObject);
procedure FontListBoxChange(Sender: TObject); procedure FontListBoxChange(Sender: TObject);
procedure FontListBoxClick(Sender: TObject);
procedure FontSizeChange(Sender: TObject); procedure FontSizeChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -268,7 +267,6 @@ 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);
@ -863,11 +861,6 @@ 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;
@ -1131,9 +1124,9 @@ begin
ToolColorPick.Hint := lieHintToolColorPick; ToolColorPick.Hint := lieHintToolColorPick;
ToolMask.Hint := lieHintToolMask; ToolMask.Hint := lieHintToolMask;
ToolLine.Hint := lieHintToolLine; ToolLine.Hint := lieHintToolLine;
ToolRectangle.Hint := lieHintToolPolygon; ToolRectangle.Hint := lieHintToolRectangle;
ToolPolygon.Hint := lieHintToolEllipse; ToolPolygon.Hint := lieHintToolPolygon;
ToolEllipse.Hint := lieHintToolRectangle; ToolEllipse.Hint := lieHintToolEllipse;
//File Dialogs //File Dialogs
ColorDialog.Title := lieColorDialog; ColorDialog.Title := lieColorDialog;
@ -1288,11 +1281,6 @@ begin
TextEditor.StopEdit; TextEditor.StopEdit;
end; end;
procedure TMainForm.FontListBoxClick(Sender: TObject);
begin
end;
procedure TMainForm.FontSizeChange(Sender: TObject); procedure TMainForm.FontSizeChange(Sender: TObject);
begin begin
ActivePictureEdit.Picture.Canvas.Font.Size := FontSize.Value; ActivePictureEdit.Picture.Canvas.Font.Size := FontSize.Value;

2
applications/lazimageeditor/picturemanager.pas
View File

@ -223,7 +223,7 @@ constructor TPictureManager.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
PageClass := TPicturePage; //PageClass := TPicturePage;
end; end;
destructor TPictureManager.Destroy; destructor TPictureManager.Destroy;