From 23c8164c0f9a19337e6296518f2bcacc9b8e8d36 Mon Sep 17 00:00:00 2001
From: yangjixian <yangjixian@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 19 May 2011 09:02:30 +0000
Subject: [PATCH] Regular Polygon works.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1638 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/lazimageeditor/DLBitmap.pas      |   6 +
 applications/lazimageeditor/DLBmpUtils.inc    |  47 +++-
 .../lazimageeditor/lazimageeditor.lpi         | 104 ++++----
 applications/lazimageeditor/main.lfm          |  19 ++
 applications/lazimageeditor/main.lrs          | 228 +++++++++---------
 applications/lazimageeditor/main.pas          |   9 +
 applications/lazimageeditor/picturectrls.pas  |  15 +-
 7 files changed, 244 insertions(+), 184 deletions(-)

diff --git a/applications/lazimageeditor/DLBitmap.pas b/applications/lazimageeditor/DLBitmap.pas
index 8b7a52d3c..afd2ba5c4 100644
--- a/applications/lazimageeditor/DLBitmap.pas
+++ b/applications/lazimageeditor/DLBitmap.pas
@@ -67,6 +67,7 @@ type
     procedure RGBDelta(RedChange, GreenChange, BlueChange: integer);
     procedure Brightness(ValueChange: integer);
     procedure Contrast(ValueChange: integer);
+    procedure RegularPolygon(Center, ThePoint: TPoint; Count: integer);
     procedure ColorReplace(ColorFrom, ColorTo: TColor);
     procedure ReplaceRectColor(ColorFrom, ColorTo: TColor; aRect: TRect; R: integer; Shape: TShapeType);
     property ScanLine[Row: integer]: pRGBATriple read GetScanLine;
@@ -489,6 +490,11 @@ begin
   tmp.Free;
 end;
 
+procedure TDLBitmap.RegularPolygon(Center, ThePoint: TPoint; Count: integer);
+begin
+  DrawRegularPolygon(Canvas, Center, ThePoint, Count);
+end;
+
 procedure TDLBitmap.FloodFill(x, y: integer);
 begin
   Canvas.Brush.Color := FFillColor;
diff --git a/applications/lazimageeditor/DLBmpUtils.inc b/applications/lazimageeditor/DLBmpUtils.inc
index 7acaa1a72..1f49031a5 100644
--- a/applications/lazimageeditor/DLBmpUtils.inc
+++ b/applications/lazimageeditor/DLBmpUtils.inc
@@ -701,7 +701,7 @@ begin
   Dest.Free;
 end;
 
-function RotatePointEx(Center, ThePoint: TPoint; Angle: Double): TPoint;
+function RotatePointEx_0(Center, ThePoint: TPoint; Angle: Double): TPoint;
 var
   cosRadians: Double;
   inX: Integer;
@@ -729,19 +729,44 @@ begin
   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;
+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
-  SetLength(paddr, Count);
+  Radians := -(Angle) * PI / 180;
+  sinRadians := Sin(Radians);
+  cosRadians := Cos(Radians);
+  inX := ThePoint.X;
+  inY := ThePoint.Y;
+  inXPrime := 2 * (inX - Center.x) + 1;
+  inYPrime := 2 * (inY - Center.y) + 1;
+  inYPrimeRotated := Round(inYPrime * CosRadians - inXPrime * sinRadians);
+  inXPrimeRotated := Round(inYPrime * sinRadians + inXPrime * cosRadians);
+  inYOriginal := (inYPrimeRotated - 1) div 2 + Center.y;
+  inXOriginal := (inXPrimeRotated - 1) div 2 + Center.x;
+  Result := Point(inXOriginal, inYOriginal);
+end;
+
+procedure DrawRegularPolygon(aCanvas: TCanvas; Center, ThePoint: TPoint; Count: integer);
+var Angle: Double; ptempaddr: array of TPoint; i: integer;
+begin
+  SetLength(ptempaddr, 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);
+  ptempaddr[0] := ThePoint;
+  for i := 1 to Count - 1 do
+    ptempaddr[i] := RotatePointEx(Center, ptempaddr[i - 1], Angle);
+  aCanvas.Polygon(ptempaddr);
 end;
 
 
diff --git a/applications/lazimageeditor/lazimageeditor.lpi b/applications/lazimageeditor/lazimageeditor.lpi
index 8933de507..38463fe83 100644
--- a/applications/lazimageeditor/lazimageeditor.lpi
+++ b/applications/lazimageeditor/lazimageeditor.lpi
@@ -49,7 +49,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="14" Y="4"/>
-        <UsageCount Value="86"/>
+        <UsageCount Value="90"/>
       </Unit0>
       <Unit1>
         <Filename Value="main.pas"/>
@@ -58,23 +58,23 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Main"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="336"/>
-        <CursorPos X="30" Y="463"/>
-        <UsageCount Value="86"/>
+        <TopLine Value="461"/>
+        <CursorPos X="21" Y="473"/>
+        <UsageCount Value="90"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="picturectrls.pas"/>
         <UnitName Value="PictureCtrls"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1090"/>
-        <CursorPos X="27" Y="1095"/>
-        <UsageCount Value="35"/>
+        <TopLine Value="797"/>
+        <CursorPos X="53" Y="814"/>
+        <UsageCount Value="37"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -181,7 +181,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="30"/>
         <CursorPos X="53" Y="46"/>
-        <UsageCount Value="35"/>
+        <UsageCount Value="37"/>
         <Loaded Value="True"/>
       </Unit13>
       <Unit14>
@@ -358,9 +358,9 @@
         <UnitName Value="DLBitmap"/>
         <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="127"/>
-        <CursorPos X="16" Y="127"/>
-        <UsageCount Value="19"/>
+        <TopLine Value="514"/>
+        <CursorPos X="40" Y="492"/>
+        <UsageCount Value="21"/>
         <Loaded Value="True"/>
       </Unit35>
       <Unit36>
@@ -391,9 +391,9 @@
         <Filename Value="DLBmpUtils.inc"/>
         <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="713"/>
-        <CursorPos X="17" Y="730"/>
-        <UsageCount Value="17"/>
+        <TopLine Value="697"/>
+        <CursorPos X="24" Y="704"/>
+        <UsageCount Value="19"/>
         <Loaded Value="True"/>
       </Unit39>
       <Unit40>
@@ -445,123 +445,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="945" Column="36" TopLine="925"/>
+        <Caret Line="722" Column="37" TopLine="696"/>
       </Position1>
       <Position2>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="978" Column="77" TopLine="958"/>
+        <Caret Line="281" Column="88" TopLine="274"/>
       </Position2>
       <Position3>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="1023" Column="36" TopLine="1006"/>
+        <Caret Line="722" Column="37" TopLine="696"/>
       </Position3>
       <Position4>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="1084" Column="37" TopLine="1091"/>
+        <Caret Line="752" Column="49" TopLine="726"/>
       </Position4>
       <Position5>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="25" Column="93" TopLine="22"/>
+        <Caret Line="790" Column="36" TopLine="764"/>
       </Position5>
       <Position6>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="113" Column="65" TopLine="96"/>
+        <Caret Line="791" Column="25" TopLine="765"/>
       </Position6>
       <Position7>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="116" Column="73" TopLine="96"/>
+        <Caret Line="792" Column="25" TopLine="766"/>
       </Position7>
       <Position8>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="123" Column="38" TopLine="109"/>
+        <Caret Line="1115" Column="71" TopLine="1097"/>
       </Position8>
       <Position9>
-        <Filename Value="picturectrls.pas"/>
-        <Caret Line="186" Column="22" TopLine="175"/>
+        <Filename Value="DLBmpUtils.inc"/>
+        <Caret Line="738" Column="8" TopLine="716"/>
       </Position9>
       <Position10>
-        <Filename Value="picturectrls.pas"/>
-        <Caret Line="726" Column="23" TopLine="709"/>
+        <Filename Value="DLBmpUtils.inc"/>
+        <Caret Line="758" Column="16" TopLine="730"/>
       </Position10>
       <Position11>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="755" Column="35" TopLine="741"/>
+        <Caret Line="134" Column="96" TopLine="129"/>
       </Position11>
       <Position12>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="761" Column="39" TopLine="741"/>
+        <Caret Line="188" Column="29" TopLine="162"/>
       </Position12>
       <Position13>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="793" Column="27" TopLine="776"/>
+        <Caret Line="730" Column="18" TopLine="711"/>
       </Position13>
       <Position14>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="794" Column="19" TopLine="776"/>
+        <Caret Line="670" Column="35" TopLine="657"/>
       </Position14>
       <Position15>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="945" Column="36" TopLine="928"/>
+        <Caret Line="722" Column="37" TopLine="716"/>
       </Position15>
       <Position16>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="978" Column="77" TopLine="952"/>
+        <Caret Line="752" Column="49" TopLine="744"/>
       </Position16>
       <Position17>
-        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1023" Column="36" TopLine="997"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="463" Column="30" TopLine="336"/>
       </Position17>
       <Position18>
-        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1084" Column="37" TopLine="1079"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="464" Column="30" TopLine="433"/>
       </Position18>
       <Position19>
-        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1095" Column="27" TopLine="1079"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="463" Column="30" TopLine="432"/>
       </Position19>
       <Position20>
-        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1118" Column="50" TopLine="1101"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="464" Column="30" TopLine="433"/>
       </Position20>
       <Position21>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="473" Column="93" TopLine="463"/>
+        <Caret Line="168" Column="27" TopLine="154"/>
       </Position21>
       <Position22>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="726" Column="23" TopLine="712"/>
+        <Caret Line="188" Column="29" TopLine="162"/>
       </Position22>
       <Position23>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="755" Column="35" TopLine="744"/>
+        <Caret Line="722" Column="37" TopLine="705"/>
       </Position23>
       <Position24>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="761" Column="39" TopLine="744"/>
+        <Caret Line="752" Column="49" TopLine="735"/>
       </Position24>
       <Position25>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="793" Column="27" TopLine="767"/>
+        <Caret Line="791" Column="80" TopLine="776"/>
       </Position25>
       <Position26>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="794" Column="19" TopLine="768"/>
+        <Caret Line="564" Column="83" TopLine="549"/>
       </Position26>
       <Position27>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="945" Column="36" TopLine="931"/>
+        <Caret Line="568" Column="35" TopLine="549"/>
       </Position27>
       <Position28>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="978" Column="77" TopLine="952"/>
+        <Caret Line="574" Column="35" TopLine="549"/>
       </Position28>
       <Position29>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="1023" Column="36" TopLine="997"/>
+        <Caret Line="582" Column="25" TopLine="556"/>
       </Position29>
       <Position30>
-        <Filename Value="picturectrls.pas"/>
-        <Caret Line="1084" Column="37" TopLine="1058"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="465" Column="30" TopLine="434"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>
diff --git a/applications/lazimageeditor/main.lfm b/applications/lazimageeditor/main.lfm
index 29e552f24..1b5aec7bf 100644
--- a/applications/lazimageeditor/main.lfm
+++ b/applications/lazimageeditor/main.lfm
@@ -1159,6 +1159,25 @@
         Caption = 'to'
         ParentColor = False
       end
+      object Label2: TLabel
+        Left = 542
+        Height = 20
+        Top = 7
+        Width = 62
+        Caption = 'Poly num:'
+        ParentColor = False
+      end
+      object PolyNum: TSpinEdit
+        Left = 611
+        Height = 27
+        Top = 4
+        Width = 50
+        MaxValue = 20
+        MinValue = 3
+        OnChange = PolyNumChange
+        TabOrder = 4
+        Value = 5
+      end
     end
     object PanelToolOptions: TPanel
       Left = 0
diff --git a/applications/lazimageeditor/main.lrs b/applications/lazimageeditor/main.lrs
index 90d95cfac..9e23f18ca 100644
--- a/applications/lazimageeditor/main.lrs
+++ b/applications/lazimageeditor/main.lrs
@@ -704,10 +704,14 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#25#3'Top'#2#4#5'Width'#2'+'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#11
   +'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'
-  +#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
+  +#2'to'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#30#2#6'Height'#2
+  ,#20#3'Top'#2#7#5'Width'#2'>'#7'Caption'#6#9'Poly num:'#11'ParentColor'#8#0#0
+  +#9'TSpinEdit'#7'PolyNum'#4'Left'#3'c'#2#6'Height'#2#27#3'Top'#2#4#5'Width'#2
+  +'2'#8'MaxValue'#2#20#8'MinValue'#2#3#8'OnChange'#7#13'PolyNumChange'#8'TabOr'
+  +'der'#2#4#5'Value'#2#5#0#0#0#6'TPanel'#16'PanelToolOptions'#4'Left'#2#0#6'He'
+  +'ight'#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'
   +'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'
@@ -765,11 +769,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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'
+  ,'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
@@ -829,11 +833,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#11#247#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#14#14
   +#14#255#14#14#14#255#14#14#14#255#17#17#17#250#0#0#0'&'#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#0#0#0#18#10#10#10#247#255#255#255#255#255
+  ,#255#0#255#255#255#0#255#255#255#0#0#0#0#18#10#10#10#247#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#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
@@ -893,11 +897,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#232#10#7#4#149'SF9'#255#141'wb'#255#150'~g'#255#155#130'j'#255#161#134'm'
   +#255#168#140'r'#255#171#142'u'#255#168#141'r'#255#163#136'n'#255#158#131'j'
   +#255#158#132'k'#255#164#139'q'#255#163#138'p'#255#154#129'i'#255#145'yb'#255
-  +#134'pZ'#255'saN'#255'TH;'#254#9#4#0#165#255#255#255#0#9#9#9#241#180#180#180
+  ,#134'pZ'#255'saN'#255'TH;'#254#9#4#0#165#255#255#255#0#9#9#9#241#180#180#180
   +#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
@@ -957,11 +961,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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'Y'#0
-  +#0#255#10#0#0#191#8#0#0#223'i'#0#0#255#157#137#193#255#128#128#221#255#128
+  ,#0#255#10#0#0#191#8#0#0#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#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
@@ -1021,11 +1025,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +'NNN'#255'LLL'#255'JJJ'#255'SSS'#255#24#25'#'#249#2#3#13#215#0#0#0#4#255#255
   +#255#0#0#0#0#14#2#3#12#221#23#24'!'#250'___'#255'PPP'#255'RRR'#255'TTT'#255
   +'UUU'#255'VVV'#255'VVV'#255'VVV'#255'UUU'#255'SSS'#255'QQQ'#255'WWW'#255#26
-  +#27'$'#249#2#3#12#217#0#0#0#12#255#255#255#0#255#255#255#0#255#255#255#0#0#0
+  ,#27'$'#249#2#3#12#217#0#0#0#12#255#255#255#0#255#255#255#0#255#255#255#0#0#0
   +#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'
@@ -1085,11 +1089,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'333)5'
   +'94'#185'333'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0'5;4'#210'J'#147'@'#255'O'#175'B'#255
-  +'=l6'#254'493'#151#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'3'
+  ,'=l6'#254'493'#151#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'3'
   +'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
@@ -1149,11 +1153,11 @@ 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'333?;E9'#243'v'#198'k'#255'q'#187'g'
   +#255'695'#246'333!'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#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'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
@@ -1213,11 +1217,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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#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#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#255#255#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#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
@@ -1277,11 +1281,11 @@ 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#255#255#255#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#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#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
@@ -1341,11 +1345,11 @@ 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#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#0#255#255#255#0
-  +#4'Hint'#6#4'Copy'#10'ImageIndex'#2#7#8'ShortCut'#3'C@'#7'OnClick'#7#15'Edit'
+  ,#4'Hint'#6#4'Copy'#10'ImageIndex'#2#7#8'ShortCut'#3'C@'#7'OnClick'#7#15'Edit'
   +'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
@@ -1405,11 +1409,11 @@ 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#255#255#0#255#255#255#0#255#255#255#0#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#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
+  ,#255#128#128#128#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#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
@@ -1469,11 +1473,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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#0#0#2'+'#1#2#10#248';;'#139#255'``'#229#255']]'#230#255'dd'#232#255'||'
+  ,#183#0#0#2'+'#1#2#10#248';;'#139#255'``'#229#255']]'#230#255'dd'#232#255'||'
   +#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
@@ -1533,11 +1537,11 @@ 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#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#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
@@ -1597,11 +1601,11 @@ 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#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
@@ -1661,11 +1665,11 @@ 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#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#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#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
@@ -1725,11 +1729,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#186#1'9D'#255#4#154#190#255#2#171#223#255#1'z'#170#255#0#21#31#255#2#15#20
   +#255#18'Ob'#255#26'o'#138#255#26'o'#138#255#26'o'#138#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#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#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
@@ -1789,11 +1793,11 @@ 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
   +#16#16#16'm'#230#230#230#255#129#129#129#255#0#0#0#255#0#0#0#255#0#0#0#255#0
   +#0#0#255#0#0#0#255#0#0#0#243#0#3#3#157#0#0#0'~'#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#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#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
@@ -1853,11 +1857,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#255#235'nh'#255#230'PE'#255#225'2!'#255#179#18#0#255#16#2#0#224#255#255#255
   +#0#255#255#255#0#255#255#255#0#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'L'#4#19'@'#240'1['#227#255'Nq'
-  +#231#255'a'#127#234#255'^}'#234#255'Hm'#231#255'*U'#224#255#7'2'#182#255#0#10
+  ,#231#255'a'#127#234#255'^}'#234#255'Hm'#231#255'*U'#224#255#7'2'#182#255#0#10
   +')'#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
@@ -1917,11 +1921,11 @@ 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#0#0#0#152#0#0#0#255#6'*O'#255#13'k'#203#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
+  ,#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'['#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
@@ -1981,11 +1985,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#168#204#255#157#168#204#255#157#168#204#255#157#168#204#255#157#168#204#255
   +#148#159#193#255'EJZ'#255#1#1#2#254#0#0#0#255#0#0#0#155#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#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#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
@@ -2045,11 +2049,11 @@ 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#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
@@ -2109,11 +2113,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#201#255#0'd'#201#255#0'6m'#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#0#0#0#29#0#1#2#250#3#11#15#255'f'#190#220#255#130#224#245#255'^'
+  ,#255#255#0#0#0#0#29#0#1#2#250#3#11#15#255'f'#190#220#255#130#224#245#255'^'
   +#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
@@ -2173,11 +2177,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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#146'f'#163#255#0#0#0#255#0#0#0#255#0#2#2#251#0#0#0
   +#31#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#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#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
@@ -2237,11 +2241,11 @@ 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#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
@@ -2301,11 +2305,11 @@ 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#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
+  ,#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#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
@@ -2365,11 +2369,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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#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#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
@@ -2429,11 +2433,11 @@ 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#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
@@ -2493,11 +2497,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#255#16'D'#18#255#12'C'#13#255#7'B'#9#255#6'B'#8#255#6'B'#8#255#6'A'#8#255#6
   +'A'#8#255#5'A'#7#255#1'['#3#255#0'N'#1#255#0#9#0#201#255#255#255#0#255#255
   +#255#0#255#255#255#0#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'@'#6#14#6#247'l'#241'l'#255'w'#242'v'#255
+  ,#255#255#255#0#255#255#255#0#0#0#0'@'#6#14#6#247'l'#241'l'#255'w'#242'v'#255
   +'}'#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
@@ -2557,11 +2561,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#235#255#193'='#234#255#190'5'#233#255#186'+'#232#255#181'!'#230#255#177#21
   +#229#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#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#13#0#247#0#226#4#255#0#226#4
+  ,#255#0#255#255#255#0#255#255#255#0#0#0#0'@'#0#13#0#247#0#226#4#255#0#226#4
   +#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
@@ -2621,11 +2625,11 @@ 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#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
@@ -2685,11 +2689,11 @@ 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#7#1#3#3#246'''p'#146#255'M'#186#237#255'Z'#191
   +#238#255'f'#196#240#255'o'#200#241#255'u'#203#242#255'w'#204#243#255'u'#202
-  +#242#255'n'#200#241#255'd'#196#240#255'X'#191#238#255'K'#185#236#255'>'#179
+  ,#242#255'n'#200#241#255'd'#196#240#255'X'#191#238#255'K'#185#236#255'>'#179
   +#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
@@ -2749,11 +2753,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#154#226#255#0#145#213#255#0#14#20#250#0#2#3#153#255#255#255#0#255#255#255#0
   +#255#255#255#0#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#4#6#184#0#26'%'#250#0#151#222#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
+  ,#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#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
@@ -2813,11 +2817,11 @@ 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#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
@@ -2877,11 +2881,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#235'ql'#255#234'jd'#255#233'c['#255#232'[R'#255#230'SI'#255#229'L?'#255#228
   +'D6'#255#227'<-'#255#225'4#'#255#224','#26#255#223'$'#16#255#221#28#7#255#190
   +#19#0#255'('#4#0#247#7#1#0#225#0#0#0'('#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#0#0#0'%'#0#0#0#255#201'UO'#255#234'ic'#255#235'pj'#255
+  ,#255#0#255#255#255#0#0#0#0'%'#0#0#0#255#201'UO'#255#234'ic'#255#235'pj'#255
   +#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
@@ -2941,11 +2945,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#30#10#255#221#28#7#255#221#25#3#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'V'#8#0#252#6#0#0#168#255#255#255#0#255#255#255#0#255#255#255#0#255#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'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
@@ -3005,11 +3009,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#0#0#0#255#0#0#0#220#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#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#18#0
-  +#0#0'u'#0#0#0#222#0#0#0#255#0#0#0#255#0#0#0#255' ,-'#255'Rqt'#255'z'#169#173
+  ,#0#0'u'#0#0#0#222#0#0#0#255#0#0#0#255#0#0#0#255' ,-'#255'Rqt'#255'z'#169#173
   +#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
@@ -3069,11 +3073,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#133#255#207#184#131#255#205#182#129#255'b]R'#255#186#186#186#255#181#181#181
   +#255#177#177#177#255#173#173#173#255#168#168#168#255#215#138#139#255#240#207
   +#207#255#240#207#207#255#239#203#204#255#207'ac'#255#200'GI'#255#200'GI'#255
-  +#200'GI'#255#200'GI'#255#200'GI'#255#200'GI'#255#149'46'#255'w*+'#255#137'01'
+  ,#200'GI'#255#200'GI'#255#200'GI'#255#200'GI'#255#149'46'#255'w*+'#255#137'01'
   +#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
@@ -3133,11 +3137,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#148#255'888'#255#0#0#0#255#0#0#0#255#0#0#0#216#0#0#0'^'#200'GI'#255#200'GI'
   +#255#200'GI'#255#200'GI'#255#200'GI'#255#200'GI'#255#200'GI'#255#224#152#153
   +#255#240#207#207#255#240#207#207#255#240#206#207#255#205'XZ'#255#200'GI'#255
-  +#200'GI'#255#200'GI'#255'B'#24#24#255#20#18#18#255#216#216#216#255#219#219
+  ,#200'GI'#255#200'GI'#255'B'#24#24#255#20#18#18#255#216#216#216#255#219#219
   +#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
@@ -3197,11 +3201,11 @@ 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#0#0#0'D'#6#6#6#200#3#3#3#252'KKK'
   +#251'yyy'#255#160#160#160#255#142#142#142#255#0#0#0#255#2#2#2#171#255#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#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
@@ -3261,11 +3265,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#255#206#206#206#255#200#200#200#255#184#184#184#255'eee'#255#11#14#14#255#11
   +#27#28#255'6'#175#177#255';'#204#206#255'6'#201#203#255'0'#198#199#255'+'#195
   +#196#255#27#142#143#255#20'vv'#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
+  ,#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#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
@@ -3325,11 +3329,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#144#255'`^;'#253#5#5#3#223#0#0#0#4#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#3#8#8#222'3'#127#130#255'i'#226
   +#230#255'`'#225#230#255'b'#226#231#255'^'#217#222#255'I'#171#174#255'(ac'#255
-  +#9#23#24#255#0#0#0#255#26'CE'#255'>'#167#170#255'J'#213#216#255'E'#209#213
+  ,#9#23#24#255#0#0#0#255#26'CE'#255'>'#167#170#255'J'#213#216#255'E'#209#213
   +#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
@@ -3389,11 +3393,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#255#255#255#255#255#255#255#250#255#15#15#15#246#0#0#0#23#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#0#0#0#25#15#15#15#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#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
@@ -3453,11 +3457,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#239#242#206#170#255#248#208#171#255#247#194#152#255#244#182#133#255#240#171
   +'x'#255#236#165'q'#255#232#160'h'#255#227#153'a'#255#222#148'Z'#255#218#142
   +'R'#255#213#136'K'#255#208#130'D'#255#205#128'A'#255#203#129'C'#255#209#143
-  +'V'#255#218#161'm'#255#232#184#140#255#240#204#168#255#8#3#0#232#10#7#4#239
+  ,'V'#255#218#161'm'#255#232#184#140#255#240#204#168#255#8#3#0#232#10#7#4#239
   +#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
@@ -3517,11 +3521,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#135'nl'#255#132'ki'#255#131'jh'#255#135'kj'#255'v10'#255'{'#0#0#255'{'#0#0
   +#255']'#0#0#255#10#0#0#197#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#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'\'#0#0
   +#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
@@ -3581,11 +3585,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +'nnn'#255'jjj'#255'eee'#255'```'#255'VVV'#255#16#17#26#247#1#3#16#156#0#0#0
   +#21#2#3#9#229#28#29'$'#250'SSS'#255'aaa'#255'fff'#255'jjj'#255'nnn'#255'rrr'
   +#255'rrr'#255'sss'#255'sss'#255'ppp'#255'lll'#255'hhh'#255'ccc'#255'XXX'#255
-  +#23#24'!'#251#2#3#10#228#0#0#0#14#255#255#255#0#0#0#0#23#2#3#10#232#28#29'%'
+  ,#23#24'!'#251#2#3#10#228#0#0#0#14#255#255#255#0#0#0#0#23#2#3#10#232#28#29'%'
   +#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
@@ -3645,11 +3649,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#132#255#136#206'~'#255#131#203'y'#255'}'#201's'#255'x'#199'm'#255'r'#197'g'
   +#255'm'#194'a'#255'g'#192'['#255'a'#190'U'#255'R'#154'H'#255'5:4'#245'333='
   +#255#255#255#0#255#255#255#0'333J8;7'#247#131#187'{'#255#145#210#136#255#144
-  +#209#135#255'w'#171'p'#255'g'#145'b'#255'd'#142'^'#255'f'#151'_'#255'o'#176
+  ,#209#135#255'w'#171'p'#255'g'#145'b'#255'd'#142'^'#255'f'#151'_'#255'o'#176
   +'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'
@@ -3709,11 +3713,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#152#191#146#255#168#219#161#255#148#210#139#255#143#209#134#255#139#207#130
   +#255#135#205'}'#255#130#203'x'#255'}'#201'r'#255'x'#199'm'#255'r'#197'g'#255
   +'m'#194'a'#255'g'#192'\'#255'b'#190'V'#255'\'#188'P'#255'M'#148'C'#255'473'
-  +#243'333&333'#16'696'#237#147#185#141#255#164#217#156#255#154#213#145#255#153
+  ,#243'333&333'#16'696'#237#147#185#141#255#164#217#156#255#154#213#145#255#153
   +#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
@@ -3773,11 +3777,11 @@ 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#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#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#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
@@ -3837,11 +3841,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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#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
@@ -3901,11 +3905,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#0#255#255#255#0#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#255#255#255#0#0
   +#0#0#255#0#0#0#255#0#0#0#255#255#255#255#0#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',,,'#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
@@ -3965,11 +3969,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +#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#0#0#2'+'#1#2#10
   +#248';;'#139#255'``'#229#255']]'#230#255'dd'#232#255'||'#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
+  ,#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#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
@@ -4029,11 +4033,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +'SWUdptr'#204#241#229#218#171#210#167'|q'#207#160'v'#249#230#221#212#255#231
   +#225#217#255#206#158'r'#253#217#186#157'b'#245#237#228#155'tur'#212'SWUe'#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'#186#199#198#195#160#214#174#137#193#207#160's'#251#206#158'q'
+  ,#0#0#0#0'SWU'#186#199#198#195#160#214#174#137#193#207#160's'#251#206#158'q'
   +#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
@@ -4093,11 +4097,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +'u'#252#207#160'u'#251#203#156'q'#251#201#153'o'#249#198#149'j'#245#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#234#234#232#255#233#232#229#255#232#230#226#255
+  ,#161'v'#249#230#223#215#255#234#234#232#255#233#232#229#255#232#230#226#255
   +#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
@@ -4157,11 +4161,11 @@ LazarusResources.Add('TMainForm','FORMDATA',[
   +'nableSizing'#12'ofViewDetail'#13'ofAutoPreview'#0#4'left'#3#150#0#3'top'#2
   +'~'#0#0#11'TSaveDialog'#20'ExportResourceDialog'#5'Title'#6#26'Export as laz'
   +'arus resource'#10'DefaultExt'#6#4'.lrs'#6'Filter'#6'3Lazarus resource (*.lr'
-  +'s)|*.lrs|Alll files (*.*)|*.*'#11'FilterIndex'#2#0#7'Options'#11#17'ofOverw'
+  ,'s)|*.lrs|Alll files (*.*)|*.*'#11'FilterIndex'#2#0#7'Options'#11#17'ofOverw'
   +'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'
diff --git a/applications/lazimageeditor/main.pas b/applications/lazimageeditor/main.pas
index d9622b41d..ab2d52a44 100644
--- a/applications/lazimageeditor/main.pas
+++ b/applications/lazimageeditor/main.pas
@@ -63,7 +63,9 @@ type
     FileSaveAs: TAction;
     FlipHorizontally: TAction;
     FlipVertically: TAction;
+    PolyNum: TSpinEdit;
     Label1: TLabel;
+    Label2: TLabel;
     LabelTolerance1: TLabel;
     LabelTolerance2: TLabel;
     MaskInvert: TAction;
@@ -270,6 +272,7 @@ type
     procedure PictureChange(Sender: TObject);
     procedure PicturePageClose(Sender: TObject);
     procedure PicturePageCloseQuery(Sender: TObject; var CanClose: boolean);
+    procedure PolyNumChange(Sender: TObject);
     procedure RegularPolygonClick(Sender: TObject);
     procedure Rotate180Execute(Sender: TObject);
     procedure Rotate270Execute(Sender: TObject);
@@ -456,6 +459,11 @@ begin
   end;
 end;
 
+procedure TMainForm.PolyNumChange(Sender: TObject);
+begin
+  ActivePictureEdit.RegularPolyNum := PolyNum.Value;
+end;
+
 procedure TMainForm.RegularPolygonClick(Sender: TObject);
 begin
   if not Pictures.CanEdit then
@@ -468,6 +476,7 @@ procedure TMainForm.Rotate180Execute(Sender: TObject);
 begin
   if not Pictures.CanEdit then
     Exit;
+  ActivePictureEdit.RegularPolyNum := PolyNum.Value;
   ActivePictureEdit.Rotate180Clockwise;
 end;
 
diff --git a/applications/lazimageeditor/picturectrls.pas b/applications/lazimageeditor/picturectrls.pas
index 6c8b94787..ef9d579f9 100644
--- a/applications/lazimageeditor/picturectrls.pas
+++ b/applications/lazimageeditor/picturectrls.pas
@@ -165,7 +165,7 @@ type
     function GetToolDrag: TPictureEditToolDrag; virtual;
     procedure DrawToolDrag(X1, Y1, X2, Y2: integer); virtual;
   public
-    pcount: integer;
+    pcount, RegularPolyNum: integer;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
 
@@ -699,11 +699,6 @@ begin
     end;
   end;
 
-  if Tool = ptPolygon then
-        if pcount > 0 then  begin
-          //ProcessPointAddr;
-        end;
-
   DrawToolDrag(StartPos.X, StartPos.Y, FTempPos.X, FTempPos.Y);
   FTempPos := Point(X, Y);
 
@@ -793,7 +788,7 @@ begin
   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);
+    DrawRegularPolygon(Canvas, Point(S.X, S.Y), Point(E.X, E.Y), RegularPolyNum);
   if FToolDrag = tdPolygon then
   begin
     Canvas.Pen.Color := OutLineColor;
@@ -822,6 +817,7 @@ begin
   Cursor := crCross;
 
   SelectedDLBMP := TDLBitmap.Create;
+  RegularPolyNum := 5;
 end;
 
 destructor TCustomPictureEdit.Destroy;
@@ -1111,12 +1107,13 @@ begin
   try
     Picture.Canvas.Brush.Color := FFillColor;
     Picture.Canvas.Pen.Color := FOutlineColor;
-    DrawRegularPolygon(Picture.Canvas, Point(X1, Y1), Point(X2, Y2), 5);
+    Picture.RegularPolygon(Point(X1, Y1), Point(X2, Y2), RegularPolyNum);
   finally
     Picture.EraseMode := ermNone;
     EndDraw;
   end;
-  InvalidatePictureRect(Rect(X1, Y1, X2, Y2));
+  //InvalidatePictureRect(Rect(X1, Y1, X2, Y2));
+  InvalidatePictureRect(Rect(0, 0, Width, Height));
 end;
 
 procedure TCustomPictureEdit.ProcessPointAddr;