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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9032 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/lazimageeditor/lazimageeditor.lpi

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

applications/lazimageeditor/lazimageeditor.pas

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

applications/lazimageeditor/main.pas

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

applications/lazimageeditor/picturemanager.pas

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