Regular Polygon is coming.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1637 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-05-19 04:32:37 +00:00
parent fd2177c6c0
commit 226a71dfb3
7 changed files with 306 additions and 213 deletions
--- a/applications/lazimageeditor/DLBitmap.pas
+++ b/applications/lazimageeditor/DLBitmap.pas
@ -147,6 +147,7 @@ function DWordTrans(SrcRow: TRGBATriple): DWORD;
 function DWordToTriple(SrcRow: DWORD): TRGBATriple;
 procedure StretchLinear(Dest, Src: TDLBitmap);
 procedure StretchDLBMP(ACanvas: TCanvas; Src: TDLBitmap; NewLeft, NewTop, NewWidth, NewHeight: integer);
 procedure DrawRegularPolygon(aCanvas: TCanvas; Center, ThePoint: TPoint; Count: integer);
 implementation
--- a/applications/lazimageeditor/DLBmpUtils.inc
+++ b/applications/lazimageeditor/DLBmpUtils.inc
@ -701,7 +701,48 @@ begin
  Dest.Free;
 end;
-
+function RotatePointEx(Center, ThePoint: TPoint; Angle: Double): TPoint;
 var
  cosRadians: Double;
  inX: Integer;
  inXOriginal: Integer;
  inXPrime: Integer;
  inXPrimeRotated: Integer;
  inY: Integer;
  inYOriginal: Integer;
  inYPrime: Integer;
  inYPrimeRotated: Integer;
  Radians: Double;
  sinRadians: Double;
 begin
  Radians := -(Angle) * PI / 180;
  sinRadians := Sin(Radians);
  cosRadians := Cos(Radians);
  inX := ThePoint.X;
  inY := ThePoint.Y;
  inXPrime := 2 * (inX - Center.y) + 1;
  inYPrime := 2 * (inY - Center.x) + 1;
  inYPrimeRotated := Round(inYPrime * CosRadians - inXPrime * sinRadians);
  inXPrimeRotated := Round(inYPrime * sinRadians + inXPrime * cosRadians);
  inYOriginal := (inYPrimeRotated - 1) div 2 + Center.x;
  inXOriginal := (inXPrimeRotated - 1) div 2 + Center.y;
  Result := Point(inXOriginal, inYOriginal);
 end;
 procedure DrawRegularPolygon(aCanvas: TCanvas; Center, ThePoint: TPoint; Count: integer);
 var Angle: Double; paddr: array of TPoint; TmpPoint: TPoint; i: integer;
 begin
  SetLength(paddr, Count);
  //这是个五角星  Angle := Round(1080 / Count);
  Angle := Round(360 / Count);
  TmpPoint := ThePoint;
  for i := 0 to Count - 1 do
  begin
    paddr[i] := TmpPoint;
    TmpPoint := RotatePointEx(Center, TmpPoint, Angle);
  end;
  aCanvas.Polygon(paddr);
 end;
--- a/applications/lazimageeditor/lazimageeditor.lpi
+++ b/applications/lazimageeditor/lazimageeditor.lpi
@ -58,11 +58,10 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Main"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="0"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="840"/>
+        <TopLine Value="336"/>
-        <CursorPos X="21" Y="866"/>
+        <CursorPos X="30" Y="463"/>
        <UsageCount Value="86"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
@ -70,10 +69,11 @@
      <Unit2>
        <Filename Value="picturectrls.pas"/>
        <UnitName Value="PictureCtrls"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="2"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="136"/>
+        <TopLine Value="1090"/>
-        <CursorPos X="23" Y="167"/>
+        <CursorPos X="27" Y="1095"/>
        <UsageCount Value="35"/>
        <Loaded Value="True"/>
      </Unit2>
@ -243,12 +243,10 @@
      <Unit21>
        <Filename Value="bmprgbtypes.pas"/>
        <UnitName Value="BmpRGBTypes"/>
        <EditorIndex Value="3"/>
        <WindowIndex Value="0"/>
        <TopLine Value="502"/>
        <CursorPos X="39" Y="527"/>
        <UsageCount Value="31"/>
        <Loaded Value="True"/>
      </Unit21>
      <Unit22>
        <Filename Value="T:\fpclaz\laz\lcl\include\winapih.inc"/>
@ -358,10 +356,10 @@
      <Unit35>
        <Filename Value="DLBitmap.pas"/>
        <UnitName Value="DLBitmap"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="3"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="259"/>
+        <TopLine Value="127"/>
-        <CursorPos X="9" Y="270"/>
+        <CursorPos X="16" Y="127"/>
        <UsageCount Value="19"/>
        <Loaded Value="True"/>
      </Unit35>
@ -391,10 +389,10 @@
      </Unit38>
      <Unit39>
        <Filename Value="DLBmpUtils.inc"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="4"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="669"/>
+        <TopLine Value="713"/>
-        <CursorPos X="48" Y="680"/>
+        <CursorPos X="17" Y="730"/>
        <UsageCount Value="17"/>
        <Loaded Value="True"/>
      </Unit39>
@ -444,123 +442,127 @@
        <UsageCount Value="10"/>
      </Unit45>
    </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="702" Column="28" TopLine="679"/>
+        <Caret Line="945" Column="36" TopLine="925"/>
      </Position1>
      <Position2>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1091" Column="16" TopLine="1076"/>
+        <Caret Line="978" Column="77" TopLine="958"/>
      </Position2>
      <Position3>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="630" Column="44" TopLine="620"/>
+        <Caret Line="1023" Column="36" TopLine="1006"/>
      </Position3>
      <Position4>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="735" Column="9" TopLine="709"/>
+        <Caret Line="1084" Column="37" TopLine="1091"/>
      </Position4>
      <Position5>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="186" Column="22" TopLine="167"/>
+        <Caret Line="25" Column="93" TopLine="22"/>
      </Position5>
      <Position6>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="700" Column="22" TopLine="674"/>
+        <Caret Line="113" Column="65" TopLine="96"/>
      </Position6>
      <Position7>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="725" Column="14" TopLine="699"/>
+        <Caret Line="116" Column="73" TopLine="96"/>
      </Position7>
      <Position8>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="735" Column="14" TopLine="709"/>
+        <Caret Line="123" Column="38" TopLine="109"/>
      </Position8>
      <Position9>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="752" Column="35" TopLine="726"/>
+        <Caret Line="186" Column="22" TopLine="175"/>
      </Position9>
      <Position10>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="790" Column="27" TopLine="764"/>
+        <Caret Line="726" Column="23" TopLine="709"/>
      </Position10>
      <Position11>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="778" Column="40" TopLine="764"/>
+        <Caret Line="755" Column="35" TopLine="741"/>
      </Position11>
      <Position12>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="920" Column="49" TopLine="902"/>
+        <Caret Line="761" Column="39" TopLine="741"/>
      </Position12>
      <Position13>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1123" Column="36" TopLine="1106"/>
+        <Caret Line="793" Column="27" TopLine="776"/>
      </Position13>
      <Position14>
        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1121" Column="21" TopLine="1100"/>
+        <Caret Line="794" Column="19" TopLine="776"/>
      </Position14>
      <Position15>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="364" Column="61" TopLine="355"/>
+        <Caret Line="945" Column="36" TopLine="928"/>
      </Position15>
      <Position16>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="495" Column="13" TopLine="469"/>
+        <Caret Line="978" Column="77" TopLine="952"/>
      </Position16>
      <Position17>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="502" Column="13" TopLine="476"/>
+        <Caret Line="1023" Column="36" TopLine="997"/>
      </Position17>
      <Position18>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="510" Column="13" TopLine="484"/>
+        <Caret Line="1084" Column="37" TopLine="1079"/>
      </Position18>
      <Position19>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="569" Column="13" TopLine="543"/>
+        <Caret Line="1095" Column="27" TopLine="1079"/>
      </Position19>
      <Position20>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="576" Column="13" TopLine="550"/>
+        <Caret Line="1118" Column="50" TopLine="1101"/>
      </Position20>
      <Position21>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="597" Column="13" TopLine="571"/>
+        <Caret Line="473" Column="93" TopLine="463"/>
      </Position21>
      <Position22>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="604" Column="13" TopLine="578"/>
+        <Caret Line="726" Column="23" TopLine="712"/>
      </Position22>
      <Position23>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="611" Column="13" TopLine="585"/>
+        <Caret Line="755" Column="35" TopLine="744"/>
      </Position23>
      <Position24>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="646" Column="13" TopLine="620"/>
+        <Caret Line="761" Column="39" TopLine="744"/>
      </Position24>
      <Position25>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="653" Column="13" TopLine="627"/>
+        <Caret Line="793" Column="27" TopLine="767"/>
      </Position25>
      <Position26>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="660" Column="13" TopLine="634"/>
+        <Caret Line="794" Column="19" TopLine="768"/>
      </Position26>
      <Position27>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="674" Column="13" TopLine="648"/>
+        <Caret Line="945" Column="36" TopLine="931"/>
      </Position27>
      <Position28>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="681" Column="13" TopLine="655"/>
+        <Caret Line="978" Column="77" TopLine="952"/>
      </Position28>
      <Position29>
-        <Filename Value="main.pas"/>
+        <Filename Value="picturectrls.pas"/>
-        <Caret Line="851" Column="13" TopLine="825"/>
+        <Caret Line="1023" Column="36" TopLine="997"/>
      </Position29>
      <Position30>
        <Filename Value="picturectrls.pas"/>
        <Caret Line="1084" Column="37" TopLine="1058"/>
      </Position30>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
--- a/applications/lazimageeditor/main.lfm
+++ b/applications/lazimageeditor/main.lfm
@ -1,10 +1,10 @@
 object MainForm: TMainForm
  Left = 150
-  Height = 681
+  Height = 718
  Top = 60
  Width = 925
  Caption = 'Lazarus Image Editor'
-  ClientHeight = 659
+  ClientHeight = 696
  ClientWidth = 925
  Font.CharSet = GB2312_CHARSET
  Font.Height = -13
@ -18,18 +18,18 @@
  LCLVersion = '0.9.31'
  object PanelTools: TPanel
    Left = 0
-    Height = 532
+    Height = 569
    Top = 105
    Width = 40
    Align = alLeft
    BevelOuter = bvNone
-    ClientHeight = 532
+    ClientHeight = 569
    ClientWidth = 40
    ParentColor = False
    TabOrder = 0
    object ToolBarTools: TToolBar
      Left = 0
-      Height = 532
+      Height = 569
      Top = 0
      Width = 40
      Align = alLeft
@ -186,12 +186,23 @@
        ShowHint = True
        Style = tbsCheck
      end
      object RegularPolygon: TToolButton
        Left = 0
        Hint = 'Regular Polygon'
        Top = 522
        Grouped = True
        ImageIndex = 5
        OnClick = RegularPolygonClick
        ParentShowHint = False
        ShowHint = True
        Style = tbsCheck
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Height = 22
-    Top = 637
+    Top = 674
    Width = 925
    Panels = <    
      item
@ -218,18 +229,18 @@
  end
  object PanelPallete: TPanel
    Left = 850
-    Height = 532
+    Height = 569
    Top = 105
    Width = 75
    Align = alRight
    AutoSize = True
    BevelOuter = bvNone
-    ClientHeight = 532
+    ClientHeight = 569
    ClientWidth = 75
    TabOrder = 1
    object Palette: TColorPalette
      Left = 0
-      Height = 532
+      Height = 569
      Top = 0
      Width = 75
      Align = alClient
@ -1402,7 +1413,7 @@
  end
  object PanelPictures: TPanel
    Left = 40
-    Height = 532
+    Height = 569
    Top = 105
    Width = 810
    Align = alClient
--- a/applications/lazimageeditor/main.lrs
+++ b/applications/lazimageeditor/main.lrs
@ -1,17 +1,17 @@
 { This is an automatically generated lazarus resource file }
 LazarusResources.Add('TMainForm','FORMDATA',[
-  'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#150#0#6'Height'#3#169#2#3'Top'#2'<'
+  'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#150#0#6'Height'#3#206#2#3'Top'#2'<'
  +#5'Width'#3#157#3#7'Caption'#6#20'Lazarus Image Editor'#12'ClientHeight'#3
-  +#147#2#11'ClientWidth'#3#157#3#12'Font.CharSet'#7#14'GB2312_CHARSET'#11'Font'
+  +#184#2#11'ClientWidth'#3#157#3#12'Font.CharSet'#7#14'GB2312_CHARSET'#11'Font'
  +'.Height'#2#243#9'Font.Name'#6#12#229#190#174#232#189#175#233#155#133#233#187
  +#145#10'Font.Pitch'#7#10'fpVariable'#12'Font.Quality'#7#7'fqDraft'#4'Menu'#7
  +#8'MainMenu'#12'OnCloseQuery'#7#14'FormCloseQuery'#8'OnCreate'#7#10'FormCrea'
  +'te'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.31'#0#6'TPanel'#10'Panel'
-  +'Tools'#4'Left'#2#0#6'Height'#3#20#2#3'Top'#2'i'#5'Width'#2'('#5'Align'#7#6
+  +'Tools'#4'Left'#2#0#6'Height'#3'9'#2#3'Top'#2'i'#5'Width'#2'('#5'Align'#7#6
-  +'alLeft'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3#20#2#11'ClientWidth'#2
+  +'alLeft'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'9'#2#11'ClientWidth'#2
  +'('#11'ParentColor'#8#8'TabOrder'#2#0#0#8'TToolBar'#12'ToolBarTools'#4'Left'
-  +#2#0#6'Height'#3#20#2#3'Top'#2#0#5'Width'#2'('#5'Align'#7#6'alLeft'#12'Butto'
+  +#2#0#6'Height'#3'9'#2#3'Top'#2#0#5'Width'#2'('#5'Align'#7#6'alLeft'#12'Butto'
  +'nHeight'#2'('#11'ButtonWidth'#2'('#7'Caption'#6#12'ToolBarTools'#21'Constra'
  +'ints.MinHeight'#3#146#1#6'Images'#7#14'ImageListTools'#6'Indent'#2#0#8'TabO'
  +'rder'#2#0#7'OnClick'#7#17'ToolBarToolsClick'#0#11'TToolButton'#9'ToolSpray'
@ -50,22 +50,25 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'int'#8#8'ShowHint'#9#5'Style'#7#8'tbsCheck'#0#0#11'TToolButton'#17'Toolcolo'
  +'rReplacer'#4'Left'#2#0#4'Hint'#6#15'Institute Color'#3'Top'#3#226#1#7'Group'
  +'ed'#9#10'ImageIndex'#2#5#7'OnClick'#7#22'ToolcolorReplacerClick'#14'ParentS'
-  +'howHint'#8#8'ShowHint'#9#5'Style'#7#8'tbsCheck'#0#0#0#0#10'TStatusBar'#9'St'
+  +'howHint'#8#8'ShowHint'#9#5'Style'#7#8'tbsCheck'#0#0#11'TToolButton'#14'Regu'
-  +'atusBar'#4'Left'#2#0#6'Height'#2#22#3'Top'#3'}'#2#5'Width'#3#157#3#6'Panels'
+  +'larPolygon'#4'Left'#2#0#4'Hint'#6#15'Regular Polygon'#3'Top'#3#10#2#7'Group'
  +'ed'#9#10'ImageIndex'#2#5#7'OnClick'#7#19'RegularPolygonClick'#14'ParentShow'
  +'Hint'#8#8'ShowHint'#9#5'Style'#7#8'tbsCheck'#0#0#0#0#10'TStatusBar'#9'Statu'
  +'sBar'#4'Left'#2#0#6'Height'#2#22#3'Top'#3#162#2#5'Width'#3#157#3#6'Panels'
  +#14#1#5'Width'#3#250#0#0#1#9'Alignment'#7#8'taCenter'#5'Width'#2'P'#0#1#9'Al'
  +'ignment'#7#8'taCenter'#5'Width'#2'P'#0#1#5'Width'#2'P'#0#1#5'Width'#2'P'#0#1
  +#5'Width'#2'2'#0#0#11'SimplePanel'#8#0#0#6'TPanel'#12'PanelPallete'#4'Left'#3
-  +'R'#3#6'Height'#3#20#2#3'Top'#2'i'#5'Width'#2'K'#5'Align'#7#7'alRight'#8'Aut'
+  +'R'#3#6'Height'#3'9'#2#3'Top'#2'i'#5'Width'#2'K'#5'Align'#7#7'alRight'#8'Aut'
-  +'oSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3#20#2#11'ClientWidth'
+  +'oSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'9'#2#11'ClientWidth'
  +#2'K'#8'TabOrder'#2#1#0#13'TColorPalette'#7'Palette'#4'Left'#2#0#6'Height'#3
-  +#20#2#3'Top'#2#0#5'Width'#2'K'#5'Align'#7#8'alClient'#11'ButtonWidth'#2#12#12
+  +'9'#2#3'Top'#2#0#5'Width'#2'K'#5'Align'#7#8'alClient'#11'ButtonWidth'#2#12#12
  +'ButtonHeight'#2#12#8'DragMode'#7#11'dmAutomatic'#16'OnColorMouseMove'#7#21
  +'PaletteColorMouseMove'#11'OnColorPick'#7#16'PaletteColorPick'#0#0#0#6'TPane'
  +'l'#12'PanelToolBar'#4'Left'#2#0#6'Height'#2'i'#3'Top'#2#0#5'Width'#3#157#3#5
-  +'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'i'#11'Clien'
+  ,'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'i'#11'Clien'
  +'tWidth'#3#157#3#8'TabOrder'#2#2#0#6'TBevel'#6'Bevel1'#4'Left'#2#0#6'Height'
  +#2#2#3'Top'#2'E'#5'Width'#3#157#3#5'Align'#7#5'alTop'#5'Shape'#7#12'bsBottom'
-  ,'Line'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#0#6'Height'#2#2#3'Top'#2'!'#5'Width'
+  +'Line'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#0#6'Height'#2#2#3'Top'#2'!'#5'Width'
  +#3#157#3#5'Align'#7#5'alTop'#5'Shape'#7#12'bsBottomLine'#0#0#8'TToolBar'#7'T'
  +'oolBar'#4'Left'#2#0#6'Height'#2'!'#3'Top'#2#0#5'Width'#3#157#3#12'ButtonHei'
  +'ght'#2' '#11'ButtonWidth'#2'$'#5'Color'#7#9'clBtnFace'#11'EdgeBorders'#11#0
@ -126,10 +129,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'ght'#2'"'#11'ClientWidth'#3#157#3#8'TabOrder'#2#1#0#6'TLabel'#16'LabelFillO'
  +'utline'#4'Left'#2'g'#6'Height'#2'"'#3'Top'#2#0#5'Width'#2'H'#5'Align'#7#6'a'
  +'lLeft'#7'Caption'#6#14'Fill, Outline:'#21'Constraints.MinHeight'#2' '#6'Lay'
-  +'out'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#10'LabelShape'#4'Left'#2
+  ,'out'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#10'LabelShape'#4'Left'#2
  +#0#6'Height'#2'"'#3'Top'#2#0#5'Width'#2'*'#5'Align'#7#6'alLeft'#7'Caption'#6
  +#6'Shape:'#21'Constraints.MinHeight'#2' '#6'Layout'#7#8'tlCenter'#11'ParentC'
-  ,'olor'#8#0#0#6'TLabel'#13'LabelMaskTool'#4'Left'#3#2#1#6'Height'#2'"'#3'Top'
+  +'olor'#8#0#0#6'TLabel'#13'LabelMaskTool'#4'Left'#3#2#1#6'Height'#2'"'#3'Top'
  +#2#0#5'Width'#2'C'#5'Align'#7#6'alLeft'#7'Caption'#6#10'Mask Tool:'#21'Const'
  +'raints.MinHeight'#2' '#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TPan'
  +'el'#11'PanelColors'#4'Left'#3#201#2#6'Height'#2'"'#3'Top'#2#0#5'Width'#3#212
@ -190,10 +193,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#128#128#128#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
-  +#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128
+  ,#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
-  ,#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#0#0
  +#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128#128#128#128#128#128#128
@ -254,10 +257,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0
+  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0
  +#0#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
@ -318,10 +321,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#255#255#255#255#255#255#255#255#255#255#255#255#128
-  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  ,#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#255#255#255#255#255#255#255#255#255#255
-  ,#255#255#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#255#255#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#255#255#255#255#255#255#255
  +#255#255#255#255#255#128#128#128#128#128#128#128#128#128#128#128#128#128#128
@ -382,10 +385,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#128#128#128#128#128#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
-  +#128#128#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128
+  ,#128#128#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
-  ,#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128#128#128#128#128
@ -446,10 +449,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'CCC'#255'((('#255#0#0#0#255'jjj'#255#127#127#127#255#127#127#127#255#127#127
  +#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127
  +#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255
-  +#127#127#127#255#127#127#127#255'jjj'#255#0#0#0#255'((('#255'   '#255#0#0#0
+  ,#127#127#127#255#127#127#127#255'jjj'#255#0#0#0#255'((('#255'   '#255#0#0#0
  +#255'ooo'#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255
  +#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127
-  ,#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127
+  +#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127
  +#127#255'ooo'#255#0#0#0#255'   '#255'   '#255#0#0#0#255'ooo'#255#127#127#127
  +#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127
  +#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127
@ -510,10 +513,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#0#0#0#0#0#0#0#0#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0
-  +#0#0#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  ,#0#0#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128
-  ,#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#128#128
  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
@ -574,10 +577,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127
  +#255'}}}'#255'+++'#255#1#1#1#255#132#132#132#0'CCC'#255#0#0#0#255'WWW'#255
  +#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127
-  +#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127
+  ,#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127
  +#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255'WWW'
  +#255#0#0#0#255'CCC'#255'((('#255#0#0#0#255'jjj'#255#127#127#127#255#127#127
-  ,#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127
+  +#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127
  +#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255#127#127#127#255
  +#127#127#127#255#127#127#127#255#127#127#127#255'jjj'#255#0#0#0#255'((('#255
  +'   '#255#0#0#0#255'ooo'#255#127#127#127#255#127#127#127#255#127#127#127#255
@ -638,10 +641,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#193#255#222#222#222#255'f__'#243#12#9#9#212#0#0#0#15#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#0#0#0#31'&$$'#233#230#230#230#255#186#187#187#255'~~~'#255#129
-  +#129#129#255#166#166#166#255#229#229#229#255#134#134#134#255#10#10#10#220#0#0
+  ,#129#129#255#166#166#166#255#229#229#229#255#134#134#134#255#10#10#10#220#0#0
  +#0'/'#0#0#0#10#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#15#11#11#170#210#210#210
-  ,#255#175#175#175#255'}}}'#255#130#130#130#255'}}}'#255#225#225#225#255#194
+  +#255#175#175#175#255'}}}'#255#130#130#130#255'}}}'#255#225#225#225#255#194
  +#194#194#255#140#140#140#255#21#21#21#253'222'#236#14#14#14#239#9#9#9#237#13
  +#13#13#211#11#11#11#163#0#0#0'/'#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#17#15#15#211#224#224#224#255'ttt'#255#155#155#155#255#130#130
@ -702,10 +705,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'ButtonColor'#7#7'clBlack'#7'OnClick'#7#15'BtnToColorClick'#0#0#6'TLabel'#6
  +'Label1'#4'Left'#3#213#1#6'Height'#2#20#3'Top'#2#5#5'Width'#2#14#7'Caption'#6
  +#2'to'#11'ParentColor'#8#0#0#0#6'TPanel'#16'PanelToolOptions'#4'Left'#2#0#6
-  +'Height'#2'"'#3'Top'#2'G'#5'Width'#3#157#3#5'Align'#7#5'alTop'#10'BevelOuter'
+  ,'Height'#2'"'#3'Top'#2'G'#5'Width'#3#157#3#5'Align'#7#5'alTop'#10'BevelOuter'
  +#7#6'bvNone'#12'ClientHeight'#2'"'#11'ClientWidth'#3#157#3#8'TabOrder'#2#2#0
  +#6'TLabel'#9'LabelSize'#4'Left'#2#0#6'Height'#2'"'#3'Top'#2#0#5'Width'#2#28#5
-  ,'Align'#7#6'alLeft'#7'Caption'#6#5'Size:'#21'Constraints.MinHeight'#2' '#6'L'
+  +'Align'#7#6'alLeft'#7'Caption'#6#5'Size:'#21'Constraints.MinHeight'#2' '#6'L'
  +'ayout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#12'LabelDensity'#4'Lef'
  +'t'#3#234#0#6'Height'#2'"'#3'Top'#2#0#5'Width'#2'2'#5'Align'#7#6'alLeft'#7'C'
  +'aption'#6#8'Density:'#21'Constraints.MinHeight'#2' '#6'Layout'#7#8'tlCenter'
@ -759,17 +762,17 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'"'#11'ClientWidth'#2#30#8'Tab'
  +'Order'#2#5#0#9'TCheckBox'#10'checkFuzzy'#4'Left'#2#4#6'Height'#2#23#3'Top'#2
  +#5#5'Width'#2#24#8'OnChange'#7#16'checkFuzzyChange'#8'TabOrder'#2#0#0#0#0#0#0
-  +#6'TPanel'#13'PanelPictures'#4'Left'#2'('#6'Height'#3#20#2#3'Top'#2'i'#5'Wid'
+  +#6'TPanel'#13'PanelPictures'#4'Left'#2'('#6'Height'#3'9'#2#3'Top'#2'i'#5'Wid'
  +'th'#3'*'#3#5'Align'#7#8'alClient'#10'BevelOuter'#7#9'bvLowered'#8'TabOrder'
  +#2#3#0#0#9'TMainMenu'#8'MainMenu'#6'Images'#7#16'ImageListActions'#4'left'#2
  +'r'#3'top'#2'~'#0#9'TMenuItem'#12'MenuItemFile'#7'Caption'#6#5'&File'#0#9'TM'
  +'enuItem'#11'MenuItemNew'#7'Caption'#6#7'&New...'#11'Bitmap.Data'#10'z'#6#0#0
  +'v'#6#0#0'BMv'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#20#0#0#0#20#0#0#0#1#0' '#0#0#0
  +#0#0'@'#6#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#0
-  +#0#0#31#0#0#0#254#4#4#4#251#6#6#6#249#7#7#7#249#9#9#9#247#15#15#13#246#25#25
+  ,#0#0#31#0#0#0#254#4#4#4#251#6#6#6#249#7#7#7#249#9#9#9#247#15#15#13#246#25#25
  +#20#246#26#26#21#245#26#26#22#244#25#25#22#243#25#25#23#242#25#25#24#242#25
  +#25#25#241#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  ,#255#255#255#0#0#0#0#31#20#20#20#243#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#0#0#0#0#31#20#20#20#243#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#253#255#255#255#247#255#255
  +#255#240#255#255#255#228#255#255#255#228#255#255#255#228#255#255#255#231#255
  +#0#0#0#255#0#0#0#2#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0
@ -830,10 +833,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#3#3#3#255#209#209#209#255#167#167#167#255#11
  +#11#11#255#8#8#8#221#0#0#0#12#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#0#0#0#17#9#9#9#248#255#255#255#255#255#255#255#255#255#255#255#255
+  ,#255#255#0#0#0#0#17#9#9#9#248#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#7#7#7#255#163#163#163#255#14#14#14#255#8#8#8#206#0#0#0#9#255#255#255#0
-  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#16#8#8#8#248
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#16#8#8#8#248
  +#240#240#240#255#241#241#241#255#242#242#242#255#243#243#243#255#244#244#244
  +#255#245#245#245#255#246#246#246#255#247#247#247#255#10#10#10#255#9#9#9#254#7
  +#7#7#180#0#0#0#2#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
@ -894,10 +897,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#166#166#166#255#157#157#157#255#147#147#147#255#141#141#141#255#142#142
  +#142#255#144#144#144#255#145#145#145#255#147#147#147#255#148#148#148#255#150
  +#150#150#255#154#154#154#255#162#162#162#255#172#172#172#255#181#181#181#255
-  +#136#136#136#255#6#6#6#199#255#255#255#0#255#255#255#0#11#11#11#242#232#232
+  ,#136#136#136#255#6#6#6#199#255#255#255#0#255#255#255#0#11#11#11#242#232#232
  +#232#255#244#244#244#255#244#244#244#255#244#244#244#255#244#244#244#255#244
  +#244#244#255#244#244#244#255#244#244#244#255#244#244#244#255#244#244#244#255
-  ,#244#244#244#255#244#244#244#255#244#244#244#255#244#244#244#255#244#244#244
+  +#244#244#244#255#244#244#244#255#244#244#244#255#244#244#244#255#244#244#244
  +#255#157#157#157#249#3#3#3#175#255#255#255#0#255#255#255#0#11#11#11#227#215
  +#215#215#255#244#244#244#255#244#244#244#255#244#244#244#255#244#244#244#255
  +#243#243#243#255#236#236#236#255#202#202#202#219#129#129#129#186'|||'#187'{{'
@ -958,10 +961,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#128#221#255#128#128#221#255#128#128#221#255#128#128#221#255#128#128#221#255
  +#128#128#221#255#128#128#221#255#128#128#221#255#128#128#221#255#128#128#221
  +#255#128#128#221#255#128#128#221#255#128#128#221#255#152#143#210#255'Z'#0#0
-  +#255#10#0#0#192#8#0#0#223'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
+  ,#255#10#0#0#192#8#0#0#223'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'['#0#0#255#10#0#0
-  ,#193#8#0#0#224'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
+  +#193#8#0#0#224'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'\'#0#0#255#10#0#0#195#8#0#0
  +#225'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
@ -1022,10 +1025,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#0#13#2#3#12#219#24#25'"'#249'ZZZ'#255'WWW'#255'YYY'#255'ZZZ'#255'[[['#255'['
  +'[['#255'[[['#255'YYY'#255'XXX'#255'WWW'#255#24#25'#'#249#2#3#12#217#0#0#0#12
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0
-  +#13#2#4#13#218#23#24'"'#250'YYY'#255']]]'#255'___'#255'```'#255'```'#255'```'
+  ,#13#2#4#13#218#23#24'"'#250'YYY'#255']]]'#255'___'#255'```'#255'```'#255'```'
  +#255'^^^'#255'ZZZ'#255#22#23' '#250#2#3#12#217#0#0#0#12#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#24#2#3
-  ,#10#234'!"*'#251'```'#255'bbb'#255'ddd'#255'eee'#255'eee'#255'eee'#255'ccc'
+  +#10#234'!"*'#251'```'#255'bbb'#255'ddd'#255'eee'#255'eee'#255'eee'#255'ccc'
  +#255'```'#255#31#31'('#249#2#3#9#233#0#0#0#23#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#0#0#0#24#2#3#10#233#30#31''''#250'YYY'
  +#255'ddd'#255'ggg'#255'iii'#255'jjj'#255'jjj'#255'iii'#255'hhh'#255'eee'#255
@ -1086,10 +1089,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'33'#19'595'#230'333'#255'333'#16#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'4:4'#229'M'#161'B'
  +#255'S'#184'F'#255'@}8'#255'5=4'#186#255#255#255#0#255#255#255#0#255#255#255
-  +#0'333'#5'6:6'#202'RtM'#249'585'#248'333'#16#255#255#255#0#255#255#255#0#255
+  ,#0'333'#5'6:6'#202'RtM'#249'585'#248'333'#16#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'3337473'#249'Q'#177'E'
  +#255'S'#184'F'#255'I'#149'@'#255'5<4'#208#255#255#255#0#255#255#255#0#255#255
-  ,#255#0'6:6'#163'G[E'#245#129#201'w'#255'585'#248'333'#16#255#255#255#0#255
+  +#255#0'6:6'#163'G[E'#245#129#201'w'#255'585'#248'333'#16#255#255#255#0#255
  +#255#255#0#255#255#255#0'333'#8'3331343r594'#244'P'#149'G'#255'V'#185'I'#255
  +'S'#184'F'#255'D|='#255'4:4'#158#255#255#255#0#255#255#255#0'564t>G='#245#133
  +#197'{'#255#137#206#128#255'696'#248'7;7'#174'7<7'#163'8>7'#185'6;6'#229'464'
@ -1150,10 +1153,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'6;6'#161
  +'['#134'U'#254'}'#201's'#255'g'#155'`'#255'8=7'#202#255#255#255#0#255#255#255
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'333'
-  +#12'594'#185'333$'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#12'594'#185'333$'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0'8>7'#195'j'#159'c'#255#132#204'z'#255'u'#174'm'#255'8<7'#222
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0'333'#24'333'#255'594'#225'333'#15#255#255#255#0#255
+  +#255#255#0#255#255#255#0'333'#24'333'#255'594'#225'333'#15#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0'8=7'#215'v'#172'n'#255#138#207#129#255
  +#135#197'~'#255'575'#248'3333'#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0'333'#24'6:5'#246'GlC'#248'5:4'#195'33'
@ -1214,10 +1217,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0
  +#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255
-  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255#255
  +#0#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255
-  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
  +#0#0#255#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
  +#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -1278,10 +1281,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#21#21#21#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#254#254#254#255#255#255#255#255#0#0#0
-  +#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#21#21#21#255#255#255#255#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
  +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#255#0
-  ,#0#0#255#255#255#255#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0
+  +#0#0#255#255#255#255#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#21#21#21#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#0
@ -1342,10 +1345,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'CopyExecute'#0#0#9'TMenuItem'#13'MenuItemPaste'#7'Caption'#6#6'&Paste'#11'B'
  +'itmap.Data'#10'z'#6#0#0'v'#6#0#0'BMv'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#20#0#0
  +#0#20#0#0#0#1#0' '#0#0#0#0#0'@'#6#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#0#0#0#255'--.'#255'99:'#255'334'#255'889'#255'111'#255#22#22#22#255#0
  +#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
-  ,#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#27#27#27#255#128#128#128#255#128#128#128#255#128#128
  +#128#255#128#128#128#255#128#128#128#255#128#128#128#255#128#128#128#255#0#0
  +#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@ -1406,10 +1409,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#0#0#0#255#128#128#128#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#0#0#0#255#128#128#128#255#128#128#128#255#128
-  +#128#128#255#128#128#128#255#128#128#128#255#128#128#128#255#128#128#128#255
+  ,#128#128#255#128#128#128#255#128#128#128#255#128#128#128#255#128#128#128#255
  +#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  ,#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255';;;'#255
+  +#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255';;;'#255
  +'777'#255'%%%'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#4'Hint'#6#5'Paste'#10'ImageIndex'
  +#2#8#8'ShortCut'#3'V@'#7'OnClick'#7#16'EditPasteExecute'#0#0#9'TMenuItem'#14
@ -1470,10 +1473,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#232#255' !D'#248#3#4#17#216#0#0#0#12#0#0#0#13#4#5#17#219'"#F'#249'~~'#234
  +#255'gg'#233#255'``'#230#255'cc'#229#255'=>'#142#254#2#3#13#241#0#0#0#28#255
  +#255#255#0#0#0#2'1'#1#1#7#250'>?'#139#255'aa'#230#255'pp'#230#255#29#30'D'
-  +#248#3#4#16#218#0#0#0#12#255#255#255#0#255#255#255#0#0#0#0#13#3#4#16#220'!"J'
+  ,#248#3#4#16#218#0#0#0#12#255#255#255#0#255#255#255#0#0#0#0#13#3#4#16#220'!"J'
  +#249'ss'#232#255'dd'#230#255'AA'#141#255#1#2#9#248#0#0#0'*'#255#255#255#0#255
  +#255#255#0#255#255#255#0#0#0#5'B'#0#1#4#251'#$_'#254#17#18'2'#247#2#2#13#225
-  ,#0#0#0#16#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#14#3
+  +#0#0#0#16#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#14#3
  +#4#16#217#19#20'6'#250'"#\'#252#2#2#10#246#0#0#0'0'#255#255#255#0#255#255#255
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#29#1#2#19#171#3#4#19'x'#0
  +#0#0#5#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@ -1534,10 +1537,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#0#255#255#255#255#0#255#255#255#0#128#0#0#255#128#0#0#255#128#0#0#255#128#0
  +#0#255#255#255#255#0#255#255#255#0#128#0#0#255#128#0#0#255#128#0#0#255#128#0
  +#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#128#0#0#255
  +#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#128#0#0#255
  +#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#128#0#0#255
  +#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#128#0#0#255
  ,#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#128#0#0#255
  +#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#128#0#0#255
  +#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#128#0#0#255
  +#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#128#0#0#255
  +#128#0#0#255#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#255#255#255
  +#0#255#255#255#0#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@ -1598,10 +1601,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#128#0#0#255#128#0#0#255#255#255#255#0#255#255
+  ,#255#255#255#0#255#255#255#0#128#0#0#255#128#0#0#255#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#128#0#0#255#128#0#0#255#255#255#255#0#255#255#255#0#255
@ -1662,10 +1665,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@ -1726,10 +1729,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#0#0#0#5#0#4#5#219#0#13#15#255#0#0#0
  +#255#0#2#3#255#0'#3'#255#0'f'#146#255#1'Us'#255#0#4#5#255#12'8F'#255#26'o'
-  +#138#255#22'^t'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#138#255#22'^t'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#0#2#2#131#1#16#19#249#5#172#217#255#2#162#218#255#0'|'#177#255#0'Ik'#255#0#8
  +#11#255#1'Ka'#255#3#140#173#255#0#3#4#255#14'AQ'#255#0#4#5#250#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
@ -1790,10 +1793,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0'~~~'#197#254#254#254#255#30#30#30#255
-  +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#145#255#255#255#0
+  ,#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#145#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#155#155#155#235#192#192#192#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
  +#0#255#0#0#0#247#0#0#0#143#0#0#0#14#255#255#255#0#255#255#255#0#255#255#255#0
@ -1854,10 +1857,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +')'#239#0#0#0'1'#255#255#255#0#255#255#255#0#17#2#0#168#139#21#8#253#227'<-'
  +#255#230'SH'#255#233'aX'#255#232'^U'#255#229'MA'#255#206'0!'#255#155#18#2#255
  +#24#2#0#240#0#0#0#23#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#3#15#149#0#16'='
+  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#3#15#149#0#16'='
  +#245#8'6'#196#255'"P'#225#255'4]'#228#255':b'#229#255'2Y'#222#255#23':'#169
  +#255#3'%'#138#255#0#7#28#242#0#0#0'Q'#255#255#255#0#255#255#255#0#18#2#0#166
-  ,'+'#4#0#240#148#16#2#255#179'$'#22#255#207'6'''#255#208':,'#255#171'+'#31#255
+  +'+'#4#0#240#148#16#2#255#179'$'#22#255#207'6'''#255#208':,'#255#171'+'#31#255
  +'}'#23#13#255'O'#8#0#242#12#1#0#231#0#0#0#24#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#0#0#0#4#0#2#7'q'#0#3#15#227#0#2#9#243#1#5#19#240#2#9#27#237#1#3#12#243
@ -1918,10 +1921,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#0'd'#201#255#0'd'#201#255#0'd'#201#255#0'd'#201#255#0'['#184#255#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#0#0#0'm'#0#0#0#255#0#23'/'#255#4'c'
+  ,#255#255#0#255#255#255#0#255#255#255#0#0#0#0'm'#0#0#0#255#0#23'/'#255#4'c'
  +#196#255#0'd'#201#255#0'd'#201#255#0'd'#201#255#0'd'#201#255#0'd'#201#255#0
  +'d'#201#255#0'd'#201#255#0'd'#201#255#0'd'#201#255#0'd'#201#255#0'd'#201#255
-  ,#0'd'#201#255#0'b'#197#255#0#25'2'#255#255#255#255#0#255#255#255#0#255#255
+  +#0'd'#201#255#0'b'#197#255#0#25'2'#255#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0
  +'F'#0#0#0#253#0#12#24#254#0'['#184#255#0'd'#201#255#0'd'#201#255#0'd'#201#255
@ -1982,10 +1985,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#0#255#255#255#0#255#255#255#0#0#0#0'j'#0#0#0#255'z'#128#147#255#185
  +#193#218#255#157#168#204#255#157#168#204#255#157#168#204#255#157#168#204#255
  +#157#168#204#255#157#168#204#255#156#167#203#255'cj'#129#255#13#14#17#253#0#0
-  +#0#255#0#0#0#203#0#0#0'6'#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#0#255#0#0#0#203#0#0#0'6'#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0#0#0#0#195#4#4#5#254#174#181#207#255#158#169#205#255
+  +#255#255#0#255#255#255#0#0#0#0#195#4#4#5#254#174#181#207#255#158#169#205#255
  +#157#168#204#255#157#168#204#255#157#168#204#255#157#168#204#255#157#168#204
  +#255#128#137#166#255'$''/'#255#0#0#0#255#1#1#1#238#0#0#0'e'#0#0#0#2#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@ -2046,10 +2049,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -2110,10 +2113,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#228#246#255#12#238#249#255#14#249#253#255#10#213#231#255#4'l'#127#255#0#5#7
  +#255#0#4#8#255#0'T'#169#255#0'd'#201#255#0'd'#201#255#0'H'#145#255#0#0#1#254
  +#0#0#0#196#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#3#0#0#0#243#0#0#0#255'Dm|'
  +#255#128#183#196#255'q'#194#205#255#18#203#215#255#14#252#254#255#11#230#247
-  ,#255#8#208#240#255#5#185#233#255#2#132#183#255#0#3#5#255#0#19'&'#255#0'a'#196
+  +#255#8#208#240#255#5#185#233#255#2#132#183#255#0#3#5#255#0#19'&'#255#0'a'#196
  +#255#0'U'#171#255#0#5#11#253#0#0#1#228#0#0#0#22#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -2174,10 +2177,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#1#1#2#216'3#8'
  +#255#227#159#252#255#227#159#252#255#227#159#252#255#227#159#252#255#227#159
  +#252#255#227#159#252#255#227#159#252#255#227#159#252#255#227#159#252#255#227
-  +#159#252#255#211#147#234#255#3#4#6#255#0#2#2#255#0#0#0'P'#255#255#255#0#255
+  ,#159#252#255#211#147#234#255#3#4#6#255#0#2#2#255#0#0#0'P'#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  ,#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#2#1#1#1#251'V<`'#255#227#159
+  +#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#2#1#1#1#251'V<`'#255#227#159
  +#252#255#227#159#252#255#227#159#252#255#227#159#252#255#227#159#252#255#227
  +#159#252#255#227#159#252#255#227#159#252#255#227#159#252#255#226#158#251#255
  +'D0L'#255#0#0#0#255#0#0#0'q'#255#255#255#0#255#255#255#0#255#255#255#0#255
@ -2238,10 +2241,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@ -2302,10 +2305,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0
@ -2366,10 +2369,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255#0#0
  +#0#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -2430,10 +2433,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
@ -2494,10 +2497,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'}'#243'|'#255'}'#243'|'#255'w'#242'w'#255'k'#237'k'#255'1y2'#255#3#4#4#255
  +'&'#29'+'#255'U0`'#255'r='#128#255'q:'#128#255'o6'#127#255'm1'#127#255'k+}'
  +#255'h%}'#255'f'#30'|'#255'b'#23'{'#255'E'#15'X'#255#28#8'$'#255#2#0#3#254#2
-  +#0#2'x'#0#0#0#3#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#0#2'x'#0#0#0#3#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#0#0#0'@'#5#14#5#247'^'#239'^'#255'f'
  +#240'f'#255'k'#241'k'#255'k'#241'k'#255'g'#240'f'#255' E!'#255#26#19#30#255
-  ,#165'\'#183#255#221#129#244#255#223#132#244#255#222#129#244#255#219'{'#243
+  +#165'\'#183#255#221#129#244#255#223#132#244#255#222#129#244#255#219'{'#243
  +#255#215'q'#242#255#210'f'#240#255#205'Y'#238#255#200'L'#236#255#194'?'#235
  +#255#188'1'#233#255#182'#'#231#255#176#21#229#255'}'#4#166#255#16#0#23#248#7
  +#0#9#176#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
@ -2558,10 +2561,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#0#226#4#255#0#141#2#255#27#16'"'#255#190'6'#233#255#192';'#234#255#193
  +'='#234#255#194'>'#234#255#193'='#234#255#192':'#234#255#190'5'#233#255#187
  +'/'#232#255#184''''#231#255#180#30#230#255#176#20#228#255#172#10#227#255#168
-  +#0#226#255#168#0#226#255#168#0#226#255#168#0#226#255#168#0#226#255#168#0#226
+  ,#0#226#255#168#0#226#255#168#0#226#255#168#0#226#255#168#0#226#255#168#0#226
  +#255#24#0'!'#243#0#0#0'X'#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#0#0#0'@'#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
-  ,#255#24#5#31#255#184'('#231#255#186','#232#255#187'.'#232#255#187'/'#232#255
+  +#255#24#5#31#255#184'('#231#255#186','#232#255#187'.'#232#255#187'/'#232#255
  +#187'-'#232#255#185'*'#232#255#184'&'#231#255#181' '#230#255#178#25#229#255
  +#175#17#228#255#171#8#227#255#168#0#226#255#168#0#226#255#168#0#226#255#168#0
  +#226#255#168#0#226#255#168#0#226#255#168#0#226#255#21#0#28#244#0#0#0'S'#255
@ -2622,10 +2625,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -2686,10 +2689,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#234#255'/'#173#232#255' '#167#230#255#17#161#228#255#2#154#226#255#0#154#226
  +#255#0#154#226#255#0#154#226#255#0#154#226#255#0'}'#183#255#0#0#0#255#0#0#0
  +'/'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#0#0#0'I'#1#2#3#253'7'#168#220#255'F'#183#236#255'R'#188#237#255'\'
+  ,#255#255#0#0#0#0'I'#1#2#3#253'7'#168#220#255'F'#183#236#255'R'#188#237#255'\'
  +#192#239#255'd'#195#240#255'h'#197#240#255'j'#198#241#255'g'#197#240#255'a'
  +#194#239#255'X'#191#238#255'N'#186#237#255'B'#181#235#255'5'#176#233#255''''
-  ,#170#231#255#25#164#229#255#10#158#227#255#0#154#226#255#0#154#226#255#0#154
+  +#170#231#255#25#164#229#255#10#158#227#255#0#154#226#255#0#154#226#255#0#154
  +#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#17#27#249#0#0#0'{'#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#0#0#0#138#8'$2'#247'2'#175#233#255'>'#180#234#255'H'#184#236#255'Q'
@ -2750,10 +2753,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226
  +#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0
  +'9U'#253#0#4#6#230#0#0#0#13#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#0#0#0#27#0#3#4#244#0'Ko'#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154
  +#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226
-  ,#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0
+  +#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0#154#226#255#0
  +#154#226#255#0#154#226#255#0'm'#160#255#0#0#0#254#0#0#0'C'#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0'_'#0#1#2
@ -2814,10 +2817,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -2878,10 +2881,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#236'uq'#255#237'zv'#255#237'|y'#255#237'}y'#255#237'{w'#255#236'ws'#255#235
  +'rm'#255#234'le'#255#233'e^'#255#232'^U'#255#231'WM'#255#230'OD'#255#229'H;'
  +#255#227'@2'#255#226'8)'#255#225'0'#31#255#224')'#22#255#222'!'#13#255#221#25
-  +#3#255#221#22#0#255#205#20#0#255#1#0#0#255#0#0#0'5'#255#255#255#0#255#255#255
+  ,#3#255#221#22#0#255#205#20#0#255#1#0#0#255#0#0#0'5'#255#255#255#0#255#255#255
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#9#4#4#217#136'82'#255#233'e^'
  +#255#234'kd'#255#235'oj'#255#235'rn'#255#236'tp'#255#236'tp'#255#235'sn'#255
-  ,#235'oj'#255#234'kd'#255#233'e^'#255#232'_W'#255#231'YO'#255#230'RG'#255#229
+  +#235'oj'#255#234'kd'#255#233'e^'#255#232'_W'#255#231'YO'#255#230'RG'#255#229
  +'K>'#255#228'C6'#255#227'<-'#255#225'4$'#255#224'-'#27#255#223'%'#18#255#222
  +#29#9#255#221#22#0#255#221#22#0#255#142#14#0#255#8#1#0#232#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0'|3'
@ -2942,10 +2945,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0'9'#4#0#0#252#210#26#6#255
  +#221#26#5#255#221#25#4#255#221#24#2#255#221#22#0#255#221#22#0#255#221#22#0
  +#255#221#22#0#255#221#22#0#255#221#22#0#255#221#22#0#255#221#22#0#255#221#22
-  +#0#255#221#22#0#255#221#22#0#255#218#22#0#255#13#1#0#249#0#0#0'P'#255#255#255
+  ,#0#255#221#22#0#255#221#22#0#255#218#22#0#255#13#1#0#249#0#0#0'P'#255#255#255
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#0#0#0#1#6#1#0#237#146#14#0#255#221#22#0#255#221#22#0#255#221#22#0#255
+  +#255#0#0#0#0#1#6#1#0#237#146#14#0#255#221#22#0#255#221#22#0#255#221#22#0#255
  +#221#22#0#255#221#22#0#255#221#22#0#255#221#22#0#255#221#22#0#255#221#22#0
  +#255#221#22#0#255#221#22#0#255#221#22#0#255#221#22#0#255#221#22#0#255#166#17
  +#0#255#4#0#0#248#0#0#0#9#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -3006,10 +3009,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#130#179#183#255't'#161#164#255'Wy|'#255';RT'#255'0CD'#255'3GI'#255'''67'
  +#255#0#0#0#255#0#0#0#250#0#0#0#10#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#0#0#0'3'#0#0#0#158#0#1#1#248#0#0#0#255
+  ,#255#255#0#255#255#255#0#255#255#255#0#0#0#0'3'#0#0#0#158#0#1#1#248#0#0#0#255
  +#2#3#3#255'.AB'#255'^'#132#135#255#133#185#189#255'j'#147#150#255';RT'#255'-'
  +'?@'#255'B[]'#255'^'#131#134#255'{'#171#174#255#152#211#215#255#165#229#234
-  ,#255#132#182#187#255#13#18#18#255#0#0#0#255#0#0#0#255#0#0#0'f'#255#255#255#0
+  +#255#132#182#187#255#13#18#18#255#0#0#0#255#0#0#0#255#0#0#0'f'#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#0#0#0'+'#0#0#0#186#0#0#0#255#0#0#0#255
  +#13#19#19#255'Gfg'#255'y'#173#174#255'Rtv'#255'+=>'#255'4IJ'#255'c'#138#140
@ -3070,10 +3073,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#19#8#8#255'210'#255#131#127'y'#255'zvk'#255'vnZ'#255#171#153'p'#255#215
  +#192#139#255#213#190#137#255#211#188#135#255#209#186#133#255#207#184#131#255
  +#205#182#129#255'vkR'#255#170#170#170#255#181#181#181#255#177#177#177#255#172
-  +#172#172#255#168#168#168#255#228#164#165#255#240#207#207#255#240#207#207#255
+  ,#172#172#255#168#168#168#255#228#164#165#255#240#207#207#255#240#207#207#255
  +#214'xy'#255#200'GI'#255#200'GI'#255#200'GI'#255#200'GI'#255#200'GI'#255#200
  +'GI'#255#192'DF'#255'w*+'#255'w*+'#255'[ !'#255#1#0#0#255#158#142'i'#255#219
-  ,#197#144#255#221#198#145#255#219#196#143#255#217#194#141#255#215#192#139#255
+  +#197#144#255#221#198#145#255#219#196#143#255#217#194#141#255#215#192#139#255
  +#213#190#137#255#210#187#134#255#209#186#133#255#207#184#131#255#204#181#128
  +#255#187#166'u'#255'olg'#255#180#180#180#255#176#176#176#255#172#172#172#255
  +#167#167#167#255#210'jk'#255#226#158#159#255#212'op'#255#200'GI'#255#200'GI'
@ -3134,10 +3137,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#219#255#215#215#215#255#211#211#211#255#206#206#206#255#173#173#173#255#128
  +#128#128#255'SSS'#255'((('#255#0#0#0#255#0#0#0#255#0#0#0#212#0#0#0'X'#0#0#0#2
  +#255#255#255#0#210'ik'#255#200'GI'#255#200'GI'#255#200'GI'#255#200'GI'#255
-  +#200'GI'#255#200'GI'#255#210'hj'#255#240#207#207#255#240#207#207#255#240#207
+  ,#200'GI'#255#200'GI'#255#210'hj'#255#240#207#207#255#240#207#207#255#240#207
  +#207#255#210'kl'#255#200'GI'#255#200'GI'#255#176'>@'#255#1#0#0#255'FFF'#255
  +'ooo'#255'[[['#255'III'#255'555'#255#14#14#14#255#0#0#0#255#0#0#0#255#0#0#0
-  ,#255#0#0#0#255#0#0#0#205#0#0#0'S'#0#0#0#1#255#255#255#0#255#255#255#0#255#255
+  +#255#0#0#0#255#0#0#0#205#0#0#0'S'#0#0#0#1#255#255#255#0#255#255#255#0#255#255
  +#255#0#236#192#192#255#203'SU'#255#200'GI'#255#200'GI'#255#200'GI'#255#200'G'
  +'I'#255#200'GI'#255#200'GI'#255#230#173#174#255#240#207#207#255#240#207#207
  +#255#217#130#131#255#200'GI'#255#200'GI'#255'w*+'#255#0#0#0#255#0#0#0#255#0#0
@ -3198,10 +3201,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0'D'#6#6#6#203#4
-  +#4#4#252'^^^'#251#206#206#206#255#234#234#234#255#235#235#235#255#176#176#176
+  ,#4#4#252'^^^'#251#206#206#206#255#234#234#234#255#235#235#235#255#176#176#176
  +#255#10#10#10#255'<<<'#255#0#0#0#254#0#0#0';'#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#2#2#2'|'#3#3#3#252'ddd'#252#213#213#213#255#240#240#240#255#241
  +#241#241#255#242#242#242#255#160#160#160#255#6#6#6#255'eee'#255#195#195#195
@ -3262,10 +3265,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#230#144#255#234#230#144#255#234#230#144#255#192#189'v'#255#1#1#0#254#0#0#0
  +'H'#0#0#0#147#16#16#16#250#211#211#211#255#218#218#218#255#213#213#213#255
  +#208#208#208#255#189#189#189#255'bbb'#255#9#12#12#255#10#21#21#255'+wy'#255
-  +'G'#203#207#255'E'#210#213#255'@'#207#210#255';'#204#206#255'5'#200#203#255
+  ,'G'#203#207#255'E'#210#213#255'@'#207#210#255';'#204#206#255'5'#200#203#255
  +'0'#197#199#255'('#185#186#255#23'z{'#255#234#230#144#255#234#230#144#255#234
  +#230#144#255#234#230#144#255#234#230#144#255#234#230#144#255#234#230#144#255
-  ,#234#230#144#255#234#230#144#255#234#230#144#255'@?'''#250#5#5#3#194#255#255
+  +#234#230#144#255#234#230#144#255#234#230#144#255'@?'''#250#5#5#3#194#255#255
  +#255#0#0#0#0#13#2#2#2#251'uuu'#255#145#145#145#255'jjj'#255'BDD'#255#8#11#11
  +#255#12#24#24#255'5'#128#131#255'V'#214#218#255'U'#219#223#255'P'#216#220#255
  +'K'#213#216#255'E'#210#213#255'@'#206#209#255':'#203#205#255'4'#200#202#255
@ -3326,10 +3329,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255'?'#206#209#255':'#203#205#255'4'#200#201#255'.'#196#198#255#234#230#144
  +#255#234#230#144#255#234#230#144#255#234#230#144#255#200#196'{'#255#2#2#1#253
  +#0#0#0'R'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
-  +#0#255#255#255#0#255#255#255#0#2#6#6#226#15')*'#255#27'FH'#255#23':<'#255#11
+  ,#0#255#255#255#0#255#255#255#0#2#6#6#226#15')*'#255#27'FH'#255#23':<'#255#11
  +#27#28#255#0#0#0#255#0#0#0#255#19'12'#255'/y|'#255'I'#191#195#255'O'#215#219
  +#255'K'#213#216#255'F'#210#213#255'A'#207#210#255'<'#204#207#255'6'#201#203
-  ,#255'1'#198#200#255'+'#195#196#255#234#230#144#255#234#230#144#255#234#230
+  +#255'1'#198#200#255'+'#195#196#255#234#230#144#255#234#230#144#255#234#230
  +#144#255#234#230#144#255'KJ.'#251#6#5#3#204#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#0#0#0#157#1#3#3#254#26'IJ'#255'#^`'#255'/~'#129#255'?'#165#168#255'L'
@ -3390,10 +3393,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#255#248#255#13#13#13#247#0#0#0#20#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#0#0#0#26#16#16#16#245#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  ,#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#245#255#11#11#11#248#0#0#0#18#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#0#0#0#26#17#17#17#244#255#255#255#255#255#255#255#255
-  ,#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#241#255#8#8#8#248#0#0#0#15#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#0#0#0#27#17#17#17#244#255#255#255#255#255#255#255#255#255#255#255#255
@ -3454,10 +3457,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#230#190#154#255#248#180#131#255#250#181#131#255#248#178#128#255#243#173'y'
  +#255#238#167'r'#255#234#161'k'#255#229#155'c'#255#224#149'\'#255#219#143'T'
  +#255#214#137'M'#255#209#131'E'#255#204'}='#255#199'v6'#255#194'p.'#255#189'j'
-  +'&'#255#184'd'#31#255#151'T'#27#255#10#5#0#224#11#8#5#225#170#127'^'#255#250
+  ,'&'#255#184'd'#31#255#151'T'#27#255#10#5#0#224#11#8#5#225#170#127'^'#255#250
  +#181#131#255#254#186#137#255#249#180#130#255#244#174'{'#255#239#168's'#255
  +#234#162'k'#255#229#156'd'#255#224#149'\'#255#219#143'U'#255#214#137'M'#255
-  ,#209#131'E'#255#204'}>'#255#199'w6'#255#194'q.'#255#189'j'''#255#184'd'#31
+  +#209#131'E'#255#204'}>'#255#199'w6'#255#194'q.'#255#189'j'''#255#184'd'#31
  +#255'k8'#13#255#8#4#0#185#12#8#5#190'yV<'#255#247#177#127#255#248#179#129#255
  +#246#177'~'#255#243#172'x'#255#238#166'q'#255#233#161'j'#255#228#155'c'#255
  +#223#149'['#255#218#143'T'#255#214#137'L'#255#208#131'E'#255#203'|='#255#199
@ -3518,10 +3521,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#10#0#0#196#8#0#0#224'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'\'#0#0#255#10#0#0
-  +#195#8#0#0#223'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
+  ,#195#8#0#0#223'j'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0
  +#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'{'#0#0#255'['#0#0#255#10#0#0#193#8#0#0
-  ,#223'i'#0#0#255#157#137#193#255#128#128#221#255#128#128#221#255#128#128#221
+  +#223'i'#0#0#255#157#137#193#255#128#128#221#255#128#128#221#255#128#128#221
  +#255#128#128#221#255#128#128#221#255#128#128#221#255#128#128#221#255#128#128
  +#221#255#128#128#221#255#128#128#221#255#128#128#221#255#128#128#221#255#128
  +#128#221#255#128#128#221#255#152#143#210#255'Z'#0#0#255#10#0#0#192#8#0#0#222
@ -3582,10 +3585,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#250'VVV'#255'ccc'#255'ggg'#255'kkk'#255'mmm'#255'ooo'#255'ooo'#255'nnn'#255
  +'lll'#255'iii'#255'eee'#255'\\\'#255#24#25'"'#251#2#3#10#231#0#0#0#21#255#255
  +#255#0#255#255#255#0#255#255#255#0#0#0#0#24#2#3#10#233#30#31''''#250'YYY'#255
-  +'ddd'#255'ggg'#255'iii'#255'jjj'#255'jjj'#255'iii'#255'hhh'#255'eee'#255']]]'
+  ,'ddd'#255'ggg'#255'iii'#255'jjj'#255'jjj'#255'iii'#255'hhh'#255'eee'#255']]]'
  +#255#26#27'$'#250#2#3#10#232#0#0#0#22#255#255#255#0#255#255#255#0#255#255#255
  +#0#255#255#255#0#255#255#255#0#0#0#0#24#2#3#10#234'!"*'#251'```'#255'bbb'#255
-  ,'ddd'#255'eee'#255'eee'#255'eee'#255'ccc'#255'```'#255#31#31'('#249#2#3#9#233
+  +'ddd'#255'eee'#255'eee'#255'eee'#255'ccc'#255'```'#255#31#31'('#249#2#3#9#233
  +#0#0#0#23#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
  +#0#255#255#255#0#0#0#0#13#2#4#13#218#23#24'"'#250'YYY'#255']]]'#255'___'#255
  +'```'#255'```'#255'```'#255'^^^'#255'ZZZ'#255#22#23' '#250#2#3#12#217#0#0#0
@ -3646,10 +3649,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'g'#255'u'#196'j'#255'p'#196'e'#255'k'#194'`'#255'f'#191'Z'#255'`'#189'T'#255
  +'['#187'N'#255'K'#146'A'#255'483'#234'333'#13#255#255#255#0#255#255#255#0'56'
  +'4t>G='#245#133#197'{'#255#137#206#128#255'696'#248'7;7'#174'7<7'#163'8>7'
-  +#185'6;6'#229'464'#250';G9'#240'EdA'#243'['#168'Q'#255'^'#188'R'#255'Y'#186
+  ,#185'6;6'#229'464'#250';G9'#240'EdA'#243'['#168'Q'#255'^'#188'R'#255'Y'#186
  +'L'#255'S'#184'F'#255';T7'#243'333T'#255#255#255#0#255#255#255#0#255#255#255
  +#0'6:6'#163'G[E'#245#129#201'w'#255'585'#248'333'#16#255#255#255#0#255#255
-  ,#255#0#255#255#255#0'333'#8'3331343r594'#244'P'#149'G'#255'V'#185'I'#255'S'
+  +#255#0#255#255#255#0'333'#8'3331343r594'#244'P'#149'G'#255'V'#185'I'#255'S'
  +#184'F'#255'D|='#255'4:4'#158#255#255#255#0#255#255#255#0#255#255#255#0'333'
  +#5'6:6'#202'RtM'#249'585'#248'333'#16#255#255#255#0#255#255#255#0#255#255#255
  +#0#255#255#255#0#255#255#255#0#255#255#255#0'3337473'#249'Q'#177'E'#255'S'
@ -3710,10 +3713,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#213#144#255#148#211#139#255#143#209#134#255#136#203'~'#255'v'#178'o'#255'e'
  +#150'^'#255']'#140'W'#255'['#140'T'#255'`'#162'X'#255'i'#193']'#255'c'#190'W'
  +#255'W'#167'L'#255'494'#247'333D'#255#255#255#0'333\SeQ'#244#172#220#165#255
-  +#152#212#144#255#157#215#149#255#136#185#130#255'TiQ'#243'@I>'#240'464'#250
+  ,#152#212#144#255#157#215#149#255#136#185#130#255'TiQ'#243'@I>'#240'464'#250
  +'8<7'#228'8>8'#184'7<6'#164'6;6'#177'6<6'#246'i'#193']'#255'_'#180'T'#255'7B'
  +'6'#245'353k'#255#255#255#0#255#255#255#0'8=7'#168'u'#153'q'#255#147#210#138
-  ,#255#148#211#139#255'x'#164'r'#255'7:7'#244'333n3330333'#7#255#255#255#0#255
+  +#255#148#211#139#255'x'#164'r'#255'7:7'#244'333n3330333'#7#255#255#255#0#255
  +#255#255#0#255#255#255#0'333'#24'6;5'#246'g'#189'\'#255'>S;'#245'494'#154#255
  +#255#255#0#255#255#255#0#255#255#255#0'8=7'#215'v'#172'n'#255#138#207#129#255
  +#135#197'~'#255'575'#248'3333'#255#255#255#0#255#255#255#0#255#255#255#0#255
@ -3774,10 +3777,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
  +#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
-  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255#0#0#0#255#0#0
  +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255
-  ,#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255
  +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
@ -3838,10 +3841,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#21#21#21#255#255#255#255#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
  +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#255#0
-  +#0#0#255#255#255#255#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0
+  ,#0#0#255#255#255#255#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#21#21#21#255#255#255#255#255#255#255#255#255#255#255#255#255
  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  ,#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#0
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#0
  +#255#255#255#255#255#0#0#0#255#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#21#21#21#255#255#255#255#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
  +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255
@ -3902,10 +3905,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255#128#128
  +#128#255#0#0#0#255',,,'#255#128#128#128#255#128#128#128#255#128#128#128#255#0
  +#0#0#255#0#0#0#255#128#128#128#255#0#0#0#255#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#0#0#0#255#128#128#128#255#0#0#0#255#128#128#128#255#0#0
  +#0#255#0#0#0#255#0#0#0#255#128#128#128#255#0#0#0#255#128#128#128#255#0#0#0
-  ,#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#255#128#128
  +#128#255#0#0#0#255#128#128#128#255#0#0#0#255#255#255#255#0#0#0#0#255#128#128
  +#128#255#0#0#0#255#128#128#128#255#0#0#0#255#255#255#255#0#255#255#255#0#255
@ -3966,10 +3969,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255'cc'#229#255'=>'#142#254#2#3#13#241#0#0#0#28#1#3#23#197'!"f'#254'WW'#227
  +#255'VV'#228#255']]'#230#255'dd'#232#255'll'#234#255'~~'#234#255' !D'#248#3#4
  +#17#216#4#5#18#218'#$H'#250#128#128#234#255'oo'#235#255'gg'#233#255'``'#231
-  +#255'XX'#228#255'YY'#227#255#30#31'\'#253#1#3#22#183#2#3#23#177#17#18'C'#248
+  ,#255'XX'#228#255'YY'#227#255#30#31'\'#253#1#3#22#183#2#3#23#177#17#18'C'#248
  +'GG'#208#255'UU'#227#255'\\'#229#255'cc'#231#255'jj'#233#255'qq'#235#255'{{'
  +#233#255#30#31'D'#249'#$K'#249'}}'#235#255'tt'#236#255'mm'#234#255'ff'#232
-  ,#255'__'#230#255'WW'#228#255'LL'#217#255#14#14'5'#247#1#3#20#156#0#0#0#21#1#2
+  +#255'__'#230#255'WW'#228#255'LL'#217#255#14#14'5'#247#1#3#20#156#0#0#0#21#1#2
  +#13#229#24#25'R'#250'JJ'#203#255'ZZ'#229#255'``'#231#255'gg'#232#255'mm'#234
  +#255'rr'#236#255'ss'#232#255'uu'#235#255'ss'#236#255'oo'#235#255'ii'#233#255
  +'cc'#231#255'\\'#230#255'PP'#216#255#20#21'E'#251#1#2#14#228#0#0#0#14#255#255
@ -4030,10 +4033,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#255#234#233#230#255#236#238#238#255#199#151'l'#253#197#149'i'#246#205#164'}'
  +#166#200#196#190#170'UXU'#189#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'SWU'#235#233#227#221#168#207#161
-  +'v'#249#230#223#215#255#235#235#234#255#236#238#238#255#236#238#238#255#231
+  ,'v'#249#230#223#215#255#235#235#234#255#236#238#238#255#236#238#238#255#231
  +#226#221#255#225#215#205#255#185#131'V'#248#233#227#221#167'TWU'#236#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  ,#0#0'SWU'#235#233#228#223#165#203#155'n'#250#231#226#220#255#236#238#238#255
+  +#0#0'SWU'#235#233#228#223#165#203#155'n'#250#231#226#220#255#236#238#238#255
  +#236#238#238#255#236#238#238#255#236#238#238#255#231#227#223#255#177'yK'#250
  +#233#227#221#168'TWU'#236#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'SWU'#185#199#198#196#158#206#163'{'
@ -4094,10 +4097,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +#231#228#223#255#225#215#205#255#185#131'V'#248#233#227#221#167'TWU'#236#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0
  +#0#0#0#0'SWU'#235#233#228#223#165#203#155'n'#250#231#226#220#255#236#238#238
-  +#255#236#238#238#255#236#238#238#255#236#238#238#255#231#227#223#255#177'yK'
+  ,#255#236#238#238#255#236#238#238#255#236#238#238#255#231#227#223#255#177'yK'
  +#250#233#227#221#168'TWU'#236#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'SWU'#185#199#198#196#158#206#163
-  ,'{'#205#192#139'^'#253#189#137'\'#252#185#131'U'#252#182'~O'#252#177'xI'#252
+  +'{'#205#192#139'^'#253#189#137'\'#252#185#131'U'#252#182'~O'#252#177'xI'#252
  +#173'rC'#254#186#135'_'#187#199#195#189#173'UXU'#188#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'SWUbpsr'
  +#208#244#234#224#161#207#164'y'#128#204#156'ls'#204#155'lh'#203#153'n^'#202
@ -4158,10 +4161,10 @@ LazarusResources.Add('TMainForm','FORMDATA',[
  +'ritePrompt'#14'ofEnableSizing'#12'ofViewDetail'#0#4'left'#3#186#0#3'top'#2
  +'~'#0#0#11'TActionList'#10'ActionList'#6'Images'#7#16'ImageListActions'#4'le'
  +'ft'#2'p'#3'top'#2'X'#0#7'TAction'#7'FileNew'#8'Category'#6#4'File'#7'Captio'
-  +'n'#6#7'&New...'#4'Hint'#6#3'New'#10'ImageIndex'#2#0#9'OnExecute'#7#14'FileN'
+  ,'n'#6#7'&New...'#4'Hint'#6#3'New'#10'ImageIndex'#2#0#9'OnExecute'#7#14'FileN'
  +'ewExecute'#8'ShortCut'#3'N@'#0#0#7'TAction'#8'FileOpen'#8'Category'#6#4'Fil'
  +'e'#7'Caption'#6#8'&Open...'#4'Hint'#6#4'Open'#10'ImageIndex'#2#1#9'OnExecut'
-  ,'e'#7#15'FileOpenExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#8'FileSave'#8'Cat'
+  +'e'#7#15'FileOpenExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#8'FileSave'#8'Cat'
  +'egory'#6#4'File'#7'Caption'#6#5'&Save'#4'Hint'#6#4'Save'#10'ImageIndex'#2#2
  +#9'OnExecute'#7#15'FileSaveExecute'#8'ShortCut'#3'S@'#0#0#7'TAction'#10'File'
  +'SaveAs'#8'Category'#6#4'File'#7'Caption'#6#11'Save &As...'#4'Hint'#6#7'Save'
--- a/applications/lazimageeditor/main.pas
+++ b/applications/lazimageeditor/main.pas
@ -172,6 +172,7 @@ type
    SavePictureDialog: TSavePictureDialog;
    ToolBrush: TToolButton;
    ToolButton1: TToolButton;
    RegularPolygon: TToolButton;
    ToolText: TToolButton;
    ToolcolorReplacer: TToolButton;
    ZoomInBtn: TToolButton;
@ -269,6 +270,7 @@ type
    procedure PictureChange(Sender: TObject);
    procedure PicturePageClose(Sender: TObject);
    procedure PicturePageCloseQuery(Sender: TObject; var CanClose: boolean);
    procedure RegularPolygonClick(Sender: TObject);
    procedure Rotate180Execute(Sender: TObject);
    procedure Rotate270Execute(Sender: TObject);
    procedure Rotate90Execute(Sender: TObject);
@ -454,6 +456,14 @@ begin
  end;
 end;
 procedure TMainForm.RegularPolygonClick(Sender: TObject);
 begin
  if not Pictures.CanEdit then
    Exit;
  ChangeTool(ptRegularPolygon);
  ActivePictureEdit.ChangeColor(BtnFromColor.ButtonColor, BtnToColor.ButtonColor);
 end;
 procedure TMainForm.Rotate180Execute(Sender: TObject);
 begin
  if not Pictures.CanEdit then
--- a/applications/lazimageeditor/picturectrls.pas
+++ b/applications/lazimageeditor/picturectrls.pas
@ -111,10 +111,11 @@ type
  TPictureEditShape = (psRect, psCircle);
  TPictureEditToolDrag = (tdNone, tdLine, tdRectangle, tdEllipse,
-    tdRoundRectangle, tdPolygon);
+    tdRoundRectangle, tdPolygon, tdRegularPolygon);
  TPictureEditTool = (ptLine, ptPen, ptRectangle, ptFloodFill, ptEllipse,
-    ptMask, ptColorPick, ptEraser, ptSpray, ptPolygon, ptBrush, ptText, ptColorReplacer);
+    ptMask, ptColorPick, ptEraser, ptSpray, ptPolygon, ptBrush, ptText,
    ptColorReplacer, ptRegularPolygon);
  TPicturePos = (ppTopLeft, ppTopCenter, ppTopRight, ppCenterLeft, ppCentered,
    ppCenterRight, ppBottomLeft, ppBottomCenter, ppBottomRight);
@ -184,6 +185,7 @@ type
    procedure Rectangle(X1, Y1, X2, Y2: integer; Shift: TShiftState = [ssLeft]);
    procedure Ellipse(X1, Y1, X2, Y2: integer; Shift: TShiftState = [ssLeft]);
    procedure Polygon(polyaddr: array of TPoint);
    procedure RegularPolygon(X1, Y1, X2, Y2: integer; Shift: TShiftState = [ssLeft]);
    procedure ProcessEditorText(X1, Y1, X2, Y2: integer);
    procedure ProcessPointAddr;
    procedure Mask(X1, Y1, X2, Y2: integer; Shift: TShiftState = [ssLeft]);
@ -722,6 +724,7 @@ begin
    ptLine: Line(StartPos.X, StartPos.Y, X, Y, Shift);
    ptRectangle: Rectangle(StartPos.X, StartPos.Y, X, Y, Shift);
    ptEllipse: Ellipse(StartPos.X, StartPos.Y, X, Y, Shift);
    ptRegularPolygon: RegularPolygon(StartPos.X, StartPos.Y, X, Y, Shift);
    ptPolygon:
    begin
      pcount := pcount + 1;
@ -751,6 +754,7 @@ begin
    ptRectangle: Result := tdRoundRectangle;
    ptEllipse: Result := tdEllipse;
    ptPolygon: Result := tdPolygon;
    ptRegularPolygon: Result := tdRegularPolygon;
    ptMask:
    begin
      case MaskTool of
@ -788,6 +792,8 @@ begin
    Canvas.RoundRect(S.X, S.Y, E.X, E.Y, R, R);
  if FToolDrag = tdEllipse then
    Canvas.Ellipse(S.X, S.Y, E.X, E.Y);
  if FToolDrag = tdRegularPolygon then
    DrawRegularPolygon(Canvas, Point(S.X, S.Y), Point(E.X, E.Y), 5);
  if FToolDrag = tdPolygon then
  begin
    Canvas.Pen.Color := OutLineColor;
@ -1094,6 +1100,25 @@ begin
  InvalidatePictureRect(Rect(X1, Y1, X2, Y2));
 end;
 procedure TCustomPictureEdit.RegularPolygon(X1, Y1, X2, Y2: integer; Shift: TShiftState = [ssLeft]);
 begin
  if Picture = nil then
    Exit;
  BeginDraw;
  if not (ssLeft in Shift) then
    Picture.EraseMode := ermErase;
  try
    Picture.Canvas.Brush.Color := FFillColor;
    Picture.Canvas.Pen.Color := FOutlineColor;
    DrawRegularPolygon(Picture.Canvas, Point(X1, Y1), Point(X2, Y2), 5);
  finally
    Picture.EraseMode := ermNone;
    EndDraw;
  end;
  InvalidatePictureRect(Rect(X1, Y1, X2, Y2));
 end;
 procedure TCustomPictureEdit.ProcessPointAddr;
 var i: integer; E, F: TPoint;
 begin