diff --git a/ide/main.pp b/ide/main.pp
index 866a5cee60..f63fc677fb 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -771,8 +771,8 @@ procedure TMainIDE.SetupSpeedButtons;
       NumGlyphs := ANumGlyphs;
       Flat := True;
       //Transparent:=True;
-      if mfTop in AMoveFlags then Inc(ATop, Height + 1);
-      if mfLeft in AMoveFlags then Inc(ALeft, Width + 1);
+      if mfTop in AMoveFlags then Inc(ATop, Height);
+      if mfLeft in AMoveFlags then Inc(ALeft, Width);
       Hint := AHint;
       OnMouseMove := @MainMouseMoved;
       Visible := True;
@@ -6404,6 +6404,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.305  2002/06/01 08:41:27  lazarus
+  MG: DrawFramControl now uses gtk style, transparent STrechBlt
+
   Revision 1.304  2002/05/30 22:08:09  lazarus
   MG: TMenuItems now all owned by mainbar
 
diff --git a/images/btn_pause.xpm b/images/btn_pause.xpm
index d3286534c3..ea26cd67de 100644
--- a/images/btn_pause.xpm
+++ b/images/btn_pause.xpm
@@ -1,24 +1,25 @@
 /* XPM */
 static char * btn_pause_xpm[] = {
-"20 14 7 1",
+"20 14 8 1",
 " 	c None",
 ".	c #0005A0",
-"+	c #494949",
-"@	c #0017EA",
-"#	c #0300EF",
-"$	c #000000",
-"%	c #777777",
-"....  ....++++  ++++",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-".@#$  .@#$+%%+  +%%+",
-"$$$$  $$$$++++  ++++"};
+"+	c #828282",
+"@	c #7C7C7C",
+"#	c #0017EA",
+"$	c #0300EF",
+"%	c #000000",
+"&	c #C6C7CC",
+"....  ....++++  @@@@",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%@&&+  @&&+",
+".#$%  .#$%@&&+  @&&+",
+".#$%  .#$%@&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+".#$%  .#$%+&&+  @&&+",
+"%%%%  %%%%++++  @+++"};
diff --git a/images/laz_images.lrs b/images/laz_images.lrs
index 305e520325..5fb2359fb0 100644
--- a/images/laz_images.lrs
+++ b/images/laz_images.lrs
@@ -1,420 +1,403 @@
-  LazarusResources.Add('btn_downarrow','XPM',
-    '/* XPM */'#10'static char * btn_downarrow_xpm[] = {'#10'"5 3 2 1",'#10'" '
-    +#9'c None",'#10'".'#9'c #000000",'#10'".....",'#10'" ... ",'#10'"  .  "};'
-    +#10
-  );
-  LazarusResources.Add('btn_newform','XPM',
-    '/* XPM */'#10'static char * btn_newform_xpm[] = {'#10'"15 13 147 2",'#10
-    +'"  '#9'c None",'#10'". '#9'c #8D8E93",'#10'"+ '#9'c #7D8391",'#10'"@ '#9
-    +'c #798194",'#10'"# '#9'c #80889D",'#10'"$ '#9'c #7C849B",'#10'"% '#9'c #'
-    +'747A94",'#10'"& '#9'c #8085A2",'#10'"* '#9'c #7B80A0",'#10'"= '#9'c #7F8'
-    +'4A2",'#10'"- '#9'c #7E81A0",'#10'"; '#9'c #7D819C",'#10'"> '#9'c #7A7C93'
-    +'",'#10'", '#9'c #818495",'#10'"'' '#9'c #797B88",'#10'") '#9'c #868992",'
-    +#10'"! '#9'c #7C7B8D",'#10'"~ '#9'c #F9F9FF",'#10'"{ '#9'c #870013",'#10
-    +'"] '#9'c #AE0013",'#10'"^ '#9'c #D30013",'#10'"/ '#9'c #FCF4FF",'#10'"( '
-    +#9'c #FEFAFF",'#10'"_ '#9'c #00000E",'#10'": '#9'c #858496",'#10'"< '#9'c'
-    +' #0A0627",'#10'"[ '#9'c #86868E",'#10'"} '#9'c #F7F9FF",'#10'"| '#9'c #F'
-    +'9FCFF",'#10'"1 '#9'c #FBFBFF",'#10'"2 '#9'c #FBFAFF",'#10'"3 '#9'c #EEED'
-    +'FF",'#10'"4 '#9'c #F8F5FF",'#10'"5 '#9'c #FAF8FF",'#10'"6 '#9'c #FBF7FF"'
-    +','#10'"7 '#9'c #FEFBFF",'#10'"8 '#9'c #FEFCFF",'#10'"9 '#9'c #05040C",'
-    +#10'"0 '#9'c #838486",'#10'"a '#9'c #FCFFFF",'#10'"b '#9'c #F2F7FA",'#10
-    +'"c '#9'c #C6CBCE",'#10'"d '#9'c #F3F9F9",'#10'"e '#9'c #C3C7C6",'#10'"f '
-    +#9'c #C0C5C1",'#10'"g '#9'c #FCFFFD",'#10'"h '#9'c #C3C5C4",'#10'"i '#9'c'
-    +' #FEFFFF",'#10'"j '#9'c #CACBCD",'#10'"k '#9'c #F6F7FB",'#10'"l '#9'c #C'
-    +'CCBD1",'#10'"m '#9'c #010008",'#10'"n '#9'c #848685",'#10'"o '#9'c #F8FC'
-    +'FB",'#10'"p '#9'c #C5CAC6",'#10'"q '#9'c #FCFFFB",'#10'"r '#9'c #D0D6CC"'
-    +','#10'"s '#9'c #EFF3E5",'#10'"t '#9'c #C6CABB",'#10'"u '#9'c #F8FCEB",'
-    +#10'"v '#9'c #C8CCBB",'#10'"w '#9'c #FAFCEE",'#10'"x '#9'c #D0D2C7",'#10
-    +'"y '#9'c #FAFBF6",'#10'"z '#9'c #C1C1C3",'#10'"A '#9'c #FBF8FF",'#10'"B '
-    +#9'c #02000D",'#10'"C '#9'c #868686",'#10'"D '#9'c #FBFDFA",'#10'"E '#9'c'
-    +' #FEFFFB",'#10'"F '#9'c #C6C9C2",'#10'"G '#9'c #FCFFF4",'#10'"H '#9'c #C'
-    +'9CDBF",'#10'"I '#9'c #FEFFF1",'#10'"J '#9'c #BEC3AF",'#10'"K '#9'c #FEFF'
-    +'EF",'#10'"L '#9'c #CBCEBD",'#10'"M '#9'c #F6F8EB",'#10'"N '#9'c #CACBC3"'
-    +','#10'"O '#9'c #FFFFFD",'#10'"P '#9'c #C6C4C9",'#10'"Q '#9'c #010009",'
-    +#10'"R '#9'c #FFFFFF",'#10'"S '#9'c #C2C2C0",'#10'"T '#9'c #C7C7C5",'#10
-    +'"U '#9'c #FDFEF9",'#10'"V '#9'c #C4C5C0",'#10'"W '#9'c #FBFCF6",'#10'"X '
-    +#9'c #C9CAC4",'#10'"Y '#9'c #FFFFFA",'#10'"Z '#9'c #C1C2BC",'#10'"` '#9'c'
-    +' #C6C5C0",'#10'" .'#9'c #010000",'#10'"..'#9'c #828282",'#10'"+.'#9'c #F'
-    +'CFCFC",'#10'"@.'#9'c #C2C2C2",'#10'"#.'#9'c #F8F8F8",'#10'"$.'#9'c #C3C3'
-    +'C3",'#10'"%.'#9'c #CECECE",'#10'"&.'#9'c #F9F9F9",'#10'"*.'#9'c #BEBEBC"'
-    +','#10'"=.'#9'c #BEBDB9",'#10'"-.'#9'c #C4C4BC",'#10'";.'#9'c #060600",'
-    +#10'">.'#9'c #858585",'#10'",.'#9'c #B3B3B5",'#10'"''.'#9'c #D3D3D3",'#10
-    +'").'#9'c #C0C0BE",'#10'"!.'#9'c #FAFAF8",'#10'"~.'#9'c #CACAC8",'#10'"{.'
-    +#9'c #C4C4C2",'#10'"].'#9'c #000000",'#10'"^.'#9'c #848484",'#10'"/.'#9'c'
-    +' #C4C4C6",'#10'"(.'#9'c #F5F5F7",'#10'"_.'#9'c #CBCBCD",'#10'":.'#9'c #F'
-    +'7F7F9",'#10'"<.'#9'c #CDCDCF",'#10'"[.'#9'c #F8F8FA",'#10'"}.'#9'c #C8C8'
-    +'CA",'#10'"|.'#9'c #D4D4D4",'#10'"1.'#9'c #808080",'#10'"2.'#9'c #F9F9FB"'
-    +','#10'"3.'#9'c #CAC9CE",'#10'"4.'#9'c #FFFEFF",'#10'"5.'#9'c #C6C5CD",'
-    +#10'"6.'#9'c #FFFDFF",'#10'"7.'#9'c #C9C7D4",'#10'"8.'#9'c #F7F5FF",'#10
-    +'"9.'#9'c #CDCBD8",'#10'"0.'#9'c #C9C8D0",'#10'"a.'#9'c #F7F6FC",'#10'"b.'
-    +#9'c #C5C5C7",'#10'"c.'#9'c #F4F6F3",'#10'"d.'#9'c #000200",'#10'"e.'#9'c'
-    +' #949494",'#10'"f.'#9'c #060606",'#10'"g.'#9'c #000002",'#10'"h.'#9'c #0'
-    +'40308",'#10'"i.'#9'c #000005",'#10'"j.'#9'c #000007",'#10'"k.'#9'c #0000'
-    +'09",'#10'"l.'#9'c #04020F",'#10'"m.'#9'c #08070F",'#10'"n.'#9'c #020204"'
-    +','#10'"o.'#9'c #0D0F0C",'#10'"p.'#9'c #000100",'#10'". + @ # $ % & * = -'
-    +' ; > , '' ) ",'#10'"! ~ { { { { { ] ] ^ ^ / ^ ( _ ",'#10'": { { { { ] ] '
-    +'] ^ ^ ^ ^ ^ < _ ",'#10'"[ } | 1 1 2 3 2 4 5 6 7 8 8 9 ",'#10'"0 a b c d '
-    +'e a f g h i j k l m ",'#10'"n o p q r s t u v w x y z A B ",'#10'"C D E '
-    +'F G H I J K L M N O P Q ",'#10'"C R S O T U V W X Y Z Y ` Y  .",'#10'"..'
-    +'+.R @.#.$.R %.&.*.O =.Y -.;.",'#10'">.R ,.R ''.R ).O T !.~.O {.!.].",'#10
-    +'"^.R R /.(./.R _.:.<.[.}.R |.].",'#10'"1.2.3.4.5.6.7.8.9.6.0.a.b.c.d.",'
-    +#10'"e.f.g.h.i.j.k.l.k.k.m.i.n.o.p."};'#10
-  );
-  LazarusResources.Add('btn_newunit','XPM',
-    '/* XPM */'#10'static char * btn_newunit_xpm[] = {'#10'"11 13 21 1",'#10'"'
-    +' '#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #0C0C0C",'#10'"@'#9'c #F'
-    +'EFEFE",'#10'"#'#9'c #FFFFFF",'#10'"$'#9'c #FAFAFA",'#10'"%'#9'c #070707"'
-    +','#10'"&'#9'c #F3F3F3",'#10'"*'#9'c #FCFCFC",'#10'"='#9'c #020202",'#10
-    +'"-'#9'c #090909",'#10'";'#9'c #F8F8F8",'#10'">'#9'c #010101",'#10'",'#9
-    +'c #FBFBFB",'#10'"'''#9'c #F0F0F0",'#10'")'#9'c #FDFDFD",'#10'"!'#9'c #F7'
-    +'F7F7",'#10'"~'#9'c #030303",'#10'"{'#9'c #0A0A0A",'#10'"]'#9'c #050505",'
-    +#10'"^'#9'c #040404",'#10'"..+..+..   ",'#10'".@###$#%.  ",'#10'".@##@#&.'
-    +'#. ",'#10'".@###*@=..-",'#10'".@##;###$#.",'#10'".@###;$###>",'#10'".@##'
-    +',@#''),.",'#10'".@####!###=",'#10'".@###$)#,).",'#10'"~!###,##);%",'#10
-    +'">#!#)#)###.",'#10'">,#,##!$),+",'#10'"{..=~..+].^"};'#10
-  );
-  LazarusResources.Add('btn_openfile','XPM',
-    '/* XPM */'#10'static char * btn_openfile_xpm[] = {'#10'"16 13 111 2",'#10
-    +'"  '#9'c None",'#10'". '#9'c #020703",'#10'"+ '#9'c #000100",'#10'"@ '#9
-    +'c #000004",'#10'"# '#9'c #000005",'#10'"$ '#9'c #040507",'#10'"% '#9'c #'
-    +'000000",'#10'"& '#9'c #010200",'#10'"* '#9'c #030400",'#10'"= '#9'c #090'
-    +'900",'#10'"- '#9'c #040400",'#10'"; '#9'c #010100",'#10'"> '#9'c #040300'
-    +'",'#10'", '#9'c #EDF0B9",'#10'"'' '#9'c #FFFFBD",'#10'") '#9'c #EBEDA4",'
-    +#10'"! '#9'c #0A0B00",'#10'"~ '#9'c #070600",'#10'"{ '#9'c #060400",'#10
-    +'"] '#9'c #141300",'#10'"^ '#9'c #030200",'#10'"/ '#9'c #060500",'#10'"( '
-    +#9'c #FFFFB8",'#10'"_ '#9'c #EEF58E",'#10'": '#9'c #FCFF94",'#10'"< '#9'c'
-    +' #E9EF85",'#10'"[ '#9'c #FFFFB1",'#10'"} '#9'c #E7E89C",'#10'"| '#9'c #E'
-    +'1E3A4",'#10'"1 '#9'c #FFFFD1",'#10'"2 '#9'c #090A00",'#10'"3 '#9'c #0D0B'
-    +'00",'#10'"4 '#9'c #E7EA8F",'#10'"5 '#9'c #FFFF98",'#10'"6 '#9'c #F0F776"'
-    +','#10'"7 '#9'c #FFFF92",'#10'"8 '#9'c #F0EE89",'#10'"9 '#9'c #FFFFAF",'
-    +#10'"0 '#9'c #F8FBA2",'#10'"a '#9'c #FEFFAE",'#10'"b '#9'c #EFF0AA",'#10
-    +'"c '#9'c #060600",'#10'"d '#9'c #070300",'#10'"e '#9'c #FEFEA8",'#10'"f '
-    +#9'c #F2F582",'#10'"g '#9'c #FFFF8F",'#10'"h '#9'c #F2F37C",'#10'"i '#9'c'
-    +' #0E0900",'#10'"j '#9'c #0D0800",'#10'"k '#9'c #0A0900",'#10'"l '#9'c #0'
-    +'80A00",'#10'"m '#9'c #0A0A00",'#10'"n '#9'c #070500",'#10'"o '#9'c #0300'
-    +'00",'#10'"p '#9'c #F6F4A7",'#10'"q '#9'c #FFFF9D",'#10'"r '#9'c #EFF07B"'
-    +','#10'"s '#9'c #111100",'#10'"t '#9'c #7B7716",'#10'"u '#9'c #89852A",'
-    +#10'"v '#9'c #818121",'#10'"w '#9'c #7F8022",'#10'"x '#9'c #82822C",'#10
-    +'"y '#9'c #7A7B2D",'#10'"z '#9'c #7B7C3A",'#10'"A '#9'c #84844E",'#10'"B '
-    +#9'c #75764E",'#10'"C '#9'c #0A0800",'#10'"D '#9'c #FFFFC5",'#10'"E '#9'c'
-    +' #E7EA91",'#10'"F '#9'c #0E1100",'#10'"G '#9'c #7E8211",'#10'"H '#9'c #8'
-    +'08310",'#10'"I '#9'c #878B13",'#10'"J '#9'c #7F8308",'#10'"K '#9'c #8387'
-    +'0E",'#10'"L '#9'c #7B7F11",'#10'"M '#9'c #818526",'#10'"N '#9'c #797C2F"'
-    +','#10'"O '#9'c #7C7D43",'#10'"P '#9'c #040500",'#10'"Q '#9'c #E3E3AD",'
-    +#10'"R '#9'c #7F842A",'#10'"S '#9'c #767B15",'#10'"T '#9'c #848B1B",'#10
-    +'"U '#9'c #747903",'#10'"V '#9'c #7D8108",'#10'"W '#9'c #7F820F",'#10'"X '
-    +#9'c #858821",'#10'"Y '#9'c #797C23",'#10'"Z '#9'c #7F823B",'#10'"` '#9'c'
-    +' #0A0D00",'#10'" .'#9'c #050300",'#10'"..'#9'c #070800",'#10'"+.'#9'c #7'
-    +'B7B45",'#10'"@.'#9'c #737631",'#10'"#.'#9'c #878A3B",'#10'"$.'#9'c #7B7F'
-    +'28",'#10'"%.'#9'c #82852A",'#10'"&.'#9'c #7C7F28",'#10'"*.'#9'c #858636"'
-    +','#10'"=.'#9'c #7B7B33",'#10'"-.'#9'c #7A7A3E",'#10'";.'#9'c #030100",'
-    +#10'">.'#9'c #101000",'#10'",.'#9'c #040600",'#10'"''.'#9'c #040700",'#10
-    +'").'#9'c #060700",'#10'"!.'#9'c #090800",'#10'"~.'#9'c #0E0B00",'#10'"{.'
-    +#9'c #070400",'#10'"                  . + @         ",'#10'"             '
-    +'   #       $   %   ",'#10'"                          & +   ",'#10'"  * ='
-    +' -                 ; = ;   ",'#10'"> , '' ) ! ~ { > ] ^ ^           ",'
-    +#10'"/ ( _ : < [ } '' | 1 2           ",'#10'"3 4 5 6 7 8 9 0 a b c      '
-    +'     ",'#10'"d e f g h i j k l m m n { > ^ o ",'#10'"d p q r s t u v w x'
-    +' y z A B c   ",'#10'"C D E F G H I J K L M N O P     ",'#10'"- Q ! R S T'
-    +' U V W X Y Z `       ",'#10'" ...+.@.#.$.%.&.*.=.-./         ",'#10'";.>'
-    +'.- ,.''...).!.n ~.{.          "};'#10
-  );
-  LazarusResources.Add('btn_pause','XPM',
-    '/* XPM */'#10'static char * btn_pause_xpm[] = {'#10'"20 14 7 1",'#10'" '#9
-    +'c None",'#10'".'#9'c #0005A0",'#10'"+'#9'c #494949",'#10'"@'#9'c #0017EA'
-    +'",'#10'"#'#9'c #0300EF",'#10'"$'#9'c #000000",'#10'"%'#9'c #777777",'#10
-    +'"....  ....++++  ++++",'#10'".@#$  .@#$+%%+  +%%+",'#10'".@#$  .@#$+%%+ '
-    +' +%%+",'#10'".@#$  .@#$+%%+  +%%+",'#10'".@#$  .@#$+%%+  +%%+",'#10'".@#'
-    +'$  .@#$+%%+  +%%+",'#10'".@#$  .@#$+%%+  +%%+",'#10'".@#$  .@#$+%%+  +%%'
-    +'+",'#10'".@#$  .@#$+%%+  +%%+",'#10'".@#$  .@#$+%%+  +%%+",'#10'".@#$  .'
-    +'@#$+%%+  +%%+",'#10'".@#$  .@#$+%%+  +%%+",'#10'".@#$  .@#$+%%+  +%%+",'
-    +#10'"$$$$  $$$$++++  ++++"};'#10
-  );
-  LazarusResources.Add('btn_run','XPM',
-    '/* XPM */'#10'static char * btn_run_xpm[] = {'#10'"16 14 7 1",'#10'" '#9
-    +'c None",'#10'".'#9'c #146600",'#10'"+'#9'c #444444",'#10'"@'#9'c #26B200'
-    +'",'#10'"#'#9'c #898989",'#10'"$'#9'c #275919",'#10'"%'#9'c #000000",'#10
-    +'"..      +       ",'#10'".@.     ++      ",'#10'".@@.    +#+     ",'#10
-    +'".@@@.   +##+    ",'#10'".@@@@.  +###+   ",'#10'".@@@@@. +####+  ",'#10
-    +'".@@@@@@.+#####+ ",'#10'".@@@@@$%+#####+%",'#10'".@@@@$% +####+% ",'#10
-    +'".@@@$%  +###+%  ",'#10'".@@$%   +##+%   ",'#10'".@$%    +#+%    ",'#10
-    +'".$%     ++%     ",'#10'"%%      %%      "};'#10
-  );
-  LazarusResources.Add('btn_saveall','XPM',
-    '/* XPM */'#10'static char * btn_saveall_xpm[] = {'#10'"15 15 156 2",'#10
-    +'"  '#9'c None",'#10'". '#9'c #080A00",'#10'"+ '#9'c #000200",'#10'"@ '#9
-    +'c #010000",'#10'"# '#9'c #0B090A",'#10'"$ '#9'c #010007",'#10'"% '#9'c #'
-    +'010009",'#10'"& '#9'c #040108",'#10'"* '#9'c #080800",'#10'"= '#9'c #080'
-    +'900",'#10'"- '#9'c #020400",'#10'"; '#9'c #7A7C6F",'#10'"> '#9'c #010100'
-    +'",'#10'", '#9'c #C4C3C1",'#10'"'' '#9'c #CAC7CE",'#10'") '#9'c #C5C2CB",'
-    +#10'"! '#9'c #C6C4C7",'#10'"~ '#9'c #CAC9C5",'#10'"{ '#9'c #010200",'#10
-    +'"] '#9'c #BEC0AB",'#10'"^ '#9'c #0B0E00",'#10'"/ '#9'c #000100",'#10'"( '
-    +#9'c #030500",'#10'"_ '#9'c #040400",'#10'": '#9'c #060105",'#10'"< '#9'c'
-    +' #030002",'#10'"[ '#9'c #040000",'#10'"} '#9'c #030100",'#10'"| '#9'c #0'
-    +'10300",'#10'"1 '#9'c #050800",'#10'"2 '#9'c #797C73",'#10'"3 '#9'c #BBBD'
-    +'B0",'#10'"4 '#9'c #C7C7BD",'#10'"5 '#9'c #C4C4BC",'#10'"6 '#9'c #CAC6C3"'
-    +','#10'"7 '#9'c #D0CDC8",'#10'"8 '#9'c #C6C5B1",'#10'"9 '#9'c #0E0E00",'
-    +#10'"0 '#9'c #6B6E4F",'#10'"a '#9'c #040800",'#10'"b '#9'c #030200",'#10
-    +'"c '#9'c #090B00",'#10'"d '#9'c #090600",'#10'"e '#9'c #040100",'#10'"f '
-    +#9'c #040200",'#10'"g '#9'c #030400",'#10'"h '#9'c #040600",'#10'"i '#9'c'
-    +' #717552",'#10'"j '#9'c #000400",'#10'"k '#9'c #101000",'#10'"l '#9'c #7'
-    +'77A5F",'#10'"m '#9'c #050700",'#10'"n '#9'c #C5C8BF",'#10'"o '#9'c #C6C7'
-    +'BF",'#10'"p '#9'c #BFC0B8",'#10'"q '#9'c #CDCAC1",'#10'"r '#9'c #CBC9BC"'
-    +','#10'"s '#9'c #080500",'#10'"t '#9'c #CECDB1",'#10'"u '#9'c #090900",'
-    +#10'"v '#9'c #747549",'#10'"w '#9'c #040700",'#10'"x '#9'c #7B8058",'#10
-    +'"y '#9'c #727653",'#10'"z '#9'c #000300",'#10'"A '#9'c #C2C5BA",'#10'"B '
-    +#9'c #CACBC5",'#10'"C '#9'c #BFBCB5",'#10'"D '#9'c #C6C4B5",'#10'"E '#9'c'
-    +' #040300",'#10'"F '#9'c #060400",'#10'"G '#9'c #070700",'#10'"H '#9'c #7'
-    +'97C45",'#10'"I '#9'c #030700",'#10'"J '#9'c #71764D",'#10'"K '#9'c #0104'
-    +'00",'#10'"L '#9'c #070A00",'#10'"M '#9'c #767B52",'#10'"N '#9'c #C6C9BE"'
-    +','#10'"O '#9'c #C4C5C0",'#10'"P '#9'c #C1C0BE",'#10'"Q '#9'c #C7C4BF",'
-    +#10'"R '#9'c #DBD8C7",'#10'"S '#9'c #0D0A00",'#10'"T '#9'c #7D7D4B",'#10
-    +'"U '#9'c #060800",'#10'"V '#9'c #7B7D3C",'#10'"W '#9'c #797C4F",'#10'"X '
-    +#9'c #060900",'#10'"Y '#9'c #050900",'#10'"Z '#9'c #727848",'#10'"` '#9'c'
-    +' #C3C3C1",'#10'" .'#9'c #D6D4D5",'#10'"..'#9'c #C6C3BE",'#10'"+.'#9'c #B'
-    +'5B29F",'#10'"@.'#9'c #0B0900",'#10'"#.'#9'c #76773D",'#10'"$.'#9'c #080C'
-    +'00",'#10'"%.'#9'c #82863C",'#10'"&.'#9'c #7B7E4F",'#10'"*.'#9'c #767D47"'
-    +','#10'"=.'#9'c #777D4F",'#10'"-.'#9'c #010500",'#10'";.'#9'c #060300",'
-    +#10'">.'#9'c #090500",'#10'",.'#9'c #7C7C46",'#10'"''.'#9'c #7C7F38",'#10
-    +'").'#9'c #060A00",'#10'"!.'#9'c #6F752B",'#10'"~.'#9'c #0E1100",'#10'"{.'
-    +#9'c #777856",'#10'"].'#9'c #040A00",'#10'"^.'#9'c #757B3B",'#10'"/.'#9'c'
-    +' #7E832F",'#10'"(.'#9'c #7C7F30",'#10'"_.'#9'c #686731",'#10'":.'#9'c #8'
-    +'8865D",'#10'"<.'#9'c #76724C",'#10'"[.'#9'c #727240",'#10'"}.'#9'c #888C'
-    +'40",'#10'"|.'#9'c #767E29",'#10'"1.'#9'c #040C00",'#10'"2.'#9'c #7E8444"'
-    +','#10'"3.'#9'c #000002",'#10'"4.'#9'c #000700",'#10'"5.'#9'c #777D3D",'
-    +#10'"6.'#9'c #7D8228",'#10'"7.'#9'c #080B00",'#10'"8.'#9'c #201E00",'#10
-    +'"9.'#9'c #070400",'#10'"0.'#9'c #0B0800",'#10'"a.'#9'c #0C0C00",'#10'"b.'
-    +#9'c #77802F",'#10'"c.'#9'c #030B00",'#10'"d.'#9'c #717844",'#10'"e.'#9'c'
-    +' #020900",'#10'"f.'#9'c #7C834D",'#10'"g.'#9'c #787A39",'#10'"h.'#9'c #0'
-    +'B0B00",'#10'"i.'#9'c #070300",'#10'"j.'#9'c #060100",'#10'"k.'#9'c #CDCC'
-    +'AD",'#10'"l.'#9'c #767B41",'#10'"m.'#9'c #090D00",'#10'"n.'#9'c #737850"'
-    +','#10'"o.'#9'c #7B7C52",'#10'"p.'#9'c #060000",'#10'"q.'#9'c #080300",'
-    +#10'"r.'#9'c #0A0501",'#10'"s.'#9'c #C4C2B5",'#10'"t.'#9'c #767A55",'#10
-    +'"u.'#9'c #0A0800",'#10'"v.'#9'c #040003",'#10'"w.'#9'c #030005",'#10'"x.'
-    +#9'c #040006",'#10'"y.'#9'c #060700",'#10'"        . + @ # $ % & @ * = + '
-    +'",'#10'"        - ; > , '' ) ! ~ { ] ^ ",'#10'"    / + ( + _ @ : < [ } |'
-    +' - 1 ",'#10'"    / 2 + 3 4 5 6 7 } 8 9 0 a ",'#10'"b { + + + c > d [ e f'
-    +' g h i j ",'#10'"k l m n o p q r s t u v w x | ",'#10'"( y z A B B C D E'
-    +' F G H I J K ",'#10'"L M j N O P Q R S T U V w W X ",'#10'"Y Z I A `  ..'
-    +'.+.@.#.$.%.a &.K ",'#10'"a *.=.-.{ } ;.>.,.''.).!.~.{.z ",'#10'"].^./.(.'
-    +'_.:.<.[.}.|.1.2.K + 3.",'#10'"4.5.6.7.8.9.0.a.].b.c.d.X     ",'#10'"e.f.'
-    +'g.h.i.j.j.k.. l.a m./     ",'#10'"].n.o.;.p.q.r.s.g t.-.        ",'#10'"'
-    +'  K b u.v.w.x.@ y.{ y.        "};'#10
-  );
-  LazarusResources.Add('btn_save','XPM',
-    '/* XPM */'#10'static char *btn_save[]={'#10'"28 14 169 2",'#10'"aD c None'
-    +'",'#10'".e c #000000",'#10'".a c #000002",'#10'".b c #000005",'#10'".d c'
-    +' #000007",'#10'".c c #00000c",'#10'"Qt c #000100",'#10'".g c #000200",'
-    +#10'".# c #000400",'#10'".I c #000600",'#10'".8 c #010000",'#10'"aK c #01'
-    +'000c",'#10'"az c #01000e",'#10'"aj c #010100",'#10'".w c #010200",'#10'"'
-    +'#j c #010300",'#10'".f c #010400",'#10'"#J c #010500",'#10'".U c #010600'
-    +'",'#10'".6 c #010700",'#10'"ah c #010a00",'#10'".J c #020300",'#10'"#8 c'
-    +' #020500",'#10'".k c #020600",'#10'"aG c #030000",'#10'"aJ c #03000b",'
-    +#10'"ap c #030010",'#10'"aE c #030500",'#10'".y c #030600",'#10'"#6 c #03'
-    +'0c00",'#10'"ac c #040000",'#10'"ad c #04000e",'#10'".L c #040600",'#10'"'
-    +'aB c #040900",'#10'"#3 c #050000",'#10'"ay c #05000e",'#10'"aI c #050102'
-    +'",'#10'"#4 c #050200",'#10'"aL c #050209",'#10'".h c #050704",'#10'"#2 c'
-    +' #060000",'#10'"ab c #060100",'#10'"am c #060200",'#10'"#E c #060600",'
-    +#10'"#I c #060800",'#10'"#Z c #070100",'#10'"a# c #070300",'#10'"aH c #07'
-    +'0400",'#10'"#C c #070500",'#10'"#l c #070700",'#10'"aM c #070800",'#10'"'
-    +'.X c #070900",'#10'"ao c #080300",'#10'"#i c #08050c",'#10'"#z c #080700'
-    +'",'#10'"au c #080901",'#10'"#5 c #080b00",'#10'"#F c #080e00",'#10'"aa c'
-    +' #090300",'#10'"#0 c #090400",'#10'"#Y c #090700",'#10'"ae c #0a0219",'
-    +#10'"ax c #0a0500",'#10'"#D c #0a0a00",'#10'"aF c #0a0c00",'#10'"#. c #0b'
-    +'0a00",'#10'"#w c #0c0904",'#10'".H c #0c1200",'#10'"as c #0c1300",'#10'"'
-    +'an c #0d0600",'#10'"#1 c #0d0900",'#10'"#A c #0e0c00",'#10'"#u c #0f1400'
-    +'",'#10'"#B c #141200",'#10'".i c #585858",'#10'"at c #666c3c",'#10'"#v c'
-    +' #6d723a",'#10'"#h c #6f744c",'#10'".V c #707650",'#10'"#G c #727d17",'
-    +#10'"aw c #74783d",'#10'"#7 c #747f33",'#10'"#V c #74801e",'#10'"aC c #75'
-    +'7b57",'#10'".9 c #767849",'#10'"#T c #777d35",'#10'"#M c #78782e",'#10'"'
-    +'.K c #787b4e",'#10'".j c #787c5b",'#10'"#x c #787e28",'#10'"ak c #787f32'
-    +'",'#10'"#P c #797744",'#10'".W c #797b4c",'#10'"#K c #79811e",'#10'"#N c'
-    +' #7a7941",'#10'".x c #7a7c54",'#10'"#X c #7a8119",'#10'"#O c #7b7a42",'
-    +#10'"#R c #7b7a4c",'#10'"#9 c #7b8127",'#10'"#y c #7c801f",'#10'"#W c #7c'
-    +'8323",'#10'"#Q c #7e7b4e",'#10'"al c #7e8235",'#10'"av c #7f8348",'#10'"'
-    +'#H c #7f8a2e",'#10'"#U c #7f8b1f",'#10'"#S c #80804e",'#10'".u c #808080'
-    +'",'#10'"#k c #808147",'#10'".7 c #81865e",'#10'"ai c #828a4f",'#10'"a. c'
-    +' #83882c",'#10'"#L c #8a9121",'#10'"aA c #bebfb1",'#10'".G c #bec0b2",'
-    +#10'".o c #c0bebf",'#10'".Y c #c1bca8",'#10'".2 c #c3bdbd",'#10'".v c #c3'
-    +'c3c3",'#10'".s c #c3c4bc",'#10'"#n c #c4bdab",'#10'"#o c #c4bdad",'#10'"'
-    +'#f c #c4bebe",'#10'".P c #c4c1bc",'#10'".E c #c4c2c7",'#10'".0 c #c5c0bc'
-    +'",'#10'".l c #c5c6b6",'#10'".t c #c5c9b2",'#10'"#c c #c6bdbe",'#10'".D c'
-    +' #c6c4c7",'#10'".z c #c6c5b0",'#10'".n c #c6c5c1",'#10'"aq c #c7c2c6",'
-    +#10'".Q c #c7c3c4",'#10'".N c #c7c4bb",'#10'".B c #c7c4bd",'#10'".p c #c7'
-    +'c4cd",'#10'".S c #c7c6c2",'#10'".F c #c7c6c4",'#10'".A c #c7c7bd",'#10'"'
-    +'.5 c #c7c9b4",'#10'"#a c #c8c0bd",'#10'"#r c #c8c2b4",'#10'".R c #c8c6c7'
-    +'",'#10'".T c #c8c9b7",'#10'"#d c #c9c0c3",'#10'"#s c #c9c3b3",'#10'".r c'
-    +' #c9c9cb",'#10'"af c #cac6c7",'#10'".m c #cac9c4",'#10'"#t c #cacaa8",'
-    +#10'"#g c #cbcab8",'#10'"#e c #ccc6c8",'#10'".O c #ccc7c1",'#10'".3 c #cc'
-    +'c8c7",'#10'".q c #ccc9d2",'#10'"ag c #ccccb2",'#10'".4 c #cdc9c6",'#10'"'
-    +'.Z c #cecac1",'#10'"## c #cfc8b6",'#10'"ar c #cfd1bc",'#10'"#q c #d0cabc'
-    +'",'#10'"#m c #d0cbab",'#10'".C c #d0cfcb",'#10'"#p c #d2ccbe",'#10'".M c'
-    +' #d3d1ba",'#10'"#b c #d5cccd",'#10'".1 c #d6d1ce",'#10'"Qt.#.#Qt.a.a.b.c'
-    +'.c.d.e.f.g.h.i.i.i.i.i.i.i.i.i.i.i.i.i.i",'#10'".g.j.k.l.m.n.o.p.q.r.s.#'
-    +'.t.g.i.u.i.v.v.v.v.v.v.v.v.i.v.i",'#10'".w.x.y.z.A.B.C.D.E.F.G.H.I.J.i.u'
-    +'.i.v.v.v.v.v.E.F.v.i.i.i",'#10'".w.K.L.M.N.O.P.Q.R.S.T.U.VQt.i.u.i.v.v.v'
-    +'.v.Q.v.v.v.i.u.i",'#10'".w.W.X.Y.Z.0.1.2.3.4.5.6.7.8.i.u.i.v.v.v.v.2.v.v'
-    +'.v.i.u.i",'#10'".w.9#.###a#b#c#d#e#f#g.y#h#i.i.u.i.v.v.v#c#d#e#f.v.i.u.i'
-    +'",'#10'"#j#k#l#m#n#o#p#q#r#s#t#u#v#w.i.u.i.v.v.v.v.v.v.v.v.i.u.i",'#10'"'
-    +'.f#x#y#z#A#B#C#C#D#E#F#G#H#I.i.u.u.i.i.i.i.i.i.i.i.u.u.i",'#10'"#J#K#L#M'
-    +'#N#O#P#Q#R#S#T#U#V.y.i.u.u.u.u.u.u.u.u.u.u.u.u.i",'#10'"#J#W#X#Y#Z#0#1#2'
-    +'#3#4#5#6#7.X.i.u.u.i.i.i.i.i.i.i.i.i.u.i",'#10'"#8#9a.a#aaabacadaeafagah'
-    +'aiaj.i.u.u.i.i.i.i.i.i.v.v.i.u.i",'#10'".Lakalaman#2aoadapaqarasatau.i.u'
-    +'.u.i.i.i.i.i.i.v.v.i.u.i",'#10'"#javawaxabacacayaz.EaAaBaCQt.i.u.u.i.i.i'
-    +'.i.i.i.v.v.i.u.i",'#10'"aDaEaFacaGaHaIaJaKaLaM.#.#.e.v.i.i.i.i.i.i.i.i.i'
-    +'.i.i.i.i"};'#10
-  );
-  LazarusResources.Add('btn_stepinto','XPM',
-    '/* XPM */'#10'static char * btn_stepinto_xpm[] = {'#10'"13 16 5 1",'#10'"'
-    +' '#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #000083",'#10'"@'#9'c #F'
-    +'FFFFF",'#10'"#'#9'c #838583",'#10'".  .         ",'#10'"      .      ",'
-    +#10'"             ",'#10'"       .     ",'#10'"             ",'#10'"     '
-    +' .....  ",'#10'"       ...   ",'#10'"        .    ",'#10'"     +++++++ "'
-    +','#10'"     +@@@@@+#",'#10'"     +@@@@@+#",'#10'"     +@@@@@+#",'#10'"  '
-    +'   +@@@@@+#",'#10'"     +@@@@@+#",'#10'"     +++++++#",'#10'"      #####'
-    +'##"};'#10
-  );
-  LazarusResources.Add('btn_stepover','XPM',
-    '/* XPM */'#10'static char * btn_stepover_xpm[] = {'#10'"16 16 5 1",'#10'"'
-    +' '#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #000083",'#10'"@'#9'c #F'
-    +'FFFFF",'#10'"#'#9'c #838583",'#10'"     .  .       ",'#10'"  .        . '
-    +'   ",'#10'"                ",'#10'".            .  ",'#10'"             '
-    +'   ",'#10'"           .....",'#10'"            ... ",'#10'"             '
-    +'.  ",'#10'"    +++++++     ",'#10'"    +@@@@@+#    ",'#10'"    +@@@@@+# '
-    +'   ",'#10'"    +@@@@@+#    ",'#10'"    +@@@@@+#    ",'#10'"    +@@@@@+# '
-    +'   ",'#10'"    +++++++#    ",'#10'"     #######    "};'#10
-  );
-  LazarusResources.Add('btn_toggleform','XPM',
-    '/* XPM */'#10'static char * btn_toggleform_xpm[] = {'#10'"32 16 171 2",'
-    +#10'"  '#9'c None",'#10'". '#9'c #777A71",'#10'"+ '#9'c #000013",'#10'"@ '
-    +#9'c #000104",'#10'"# '#9'c #81817F",'#10'"$ '#9'c #870013",'#10'"% '#9'c'
-    +' #000015",'#10'"& '#9'c #00040A",'#10'"* '#9'c #000606",'#10'"= '#9'c #0'
-    +'00300",'#10'"- '#9'c #C6C7CC",'#10'"; '#9'c #000012",'#10'"> '#9'c #0C0C'
-    +'24",'#10'", '#9'c #000017",'#10'"'' '#9'c #04041E",'#10'") '#9'c #0D0F1E'
-    +'",'#10'"! '#9'c #00000B",'#10'"~ '#9'c #000500",'#10'"{ '#9'c #8F9094",'
-    +#10'"] '#9'c #F9FDFF",'#10'"^ '#9'c #FCFFFF",'#10'"/ '#9'c #F1F4F9",'#10
-    +'"( '#9'c #F4F7FF",'#10'"_ '#9'c #F9FCFF",'#10'": '#9'c #F7FAFF",'#10'"< '
-    +#9'c #F8FBFF",'#10'"[ '#9'c #000102",'#10'"} '#9'c #000200",'#10'"| '#9'c'
-    +' #CACCD0",'#10'"1 '#9'c #C8C9CE",'#10'"2 '#9'c #FEFFF6",'#10'"3 '#9'c #C'
-    +'6C9C0",'#10'"4 '#9'c #C6C9C2",'#10'"5 '#9'c #C7CAC3",'#10'"6 '#9'c #BEC0'
-    +'BB",'#10'"7 '#9'c #888A85",'#10'"8 '#9'c #878984",'#10'"9 '#9'c #80827D"'
-    +','#10'"0 '#9'c #8F918C",'#10'"a '#9'c #8C8E89",'#10'"b '#9'c #868982",'
-    +#10'"c '#9'c #797C73",'#10'"d '#9'c #CACBCF",'#10'"e '#9'c #C6C7CB",'#10
-    +'"f '#9'c #C0C2C0",'#10'"g '#9'c #84867B",'#10'"h '#9'c #FEFFF4",'#10'"i '
-    +#9'c #BCC0B2",'#10'"j '#9'c #C7CABF",'#10'"k '#9'c #CBCEC3",'#10'"l '#9'c'
-    +' #BDC0B5",'#10'"m '#9'c #82857C",'#10'"n '#9'c #FEFFF8",'#10'"o '#9'c #F'
-    +'DFFF9",'#10'"p '#9'c #F9FCF5",'#10'"q '#9'c #FEFFFB",'#10'"r '#9'c #8486'
-    +'81",'#10'"s '#9'c #000100",'#10'"t '#9'c #CACBCE",'#10'"u '#9'c #C5C6CB"'
-    +','#10'"v '#9'c #C9CCC4",'#10'"w '#9'c #D8D9DA",'#10'"x '#9'c #D7D8D9",'
-    +#10'"y '#9'c #80817C",'#10'"z '#9'c #FCFDF7",'#10'"A '#9'c #CECFC9",'#10
-    +'"B '#9'c #CACBC5",'#10'"C '#9'c #B9BAB4",'#10'"D '#9'c #CBCCC6",'#10'"E '
-    +#9'c #8D8E88",'#10'"F '#9'c #F6F7F2",'#10'"G '#9'c #FFFFFD",'#10'"H '#9'c'
-    +' #FAFAFA",'#10'"I '#9'c #F5F5F7",'#10'"J '#9'c #8D8C91",'#10'"K '#9'c #F'
-    +'BFAFF",'#10'"L '#9'c #000007",'#10'"M '#9'c #C1C2C3",'#10'"N '#9'c #C4C5'
-    +'CA",'#10'"O '#9'c #C9CACF",'#10'"P '#9'c #86858A",'#10'"Q '#9'c #FFFFFF"'
-    +','#10'"R '#9'c #C4C4C6",'#10'"S '#9'c #C7C7C7",'#10'"T '#9'c #CBCBCB",'
-    +#10'"U '#9'c #C3C3C1",'#10'"V '#9'c #FEFEFE",'#10'"W '#9'c #F6F6F8",'#10
-    +'"X '#9'c #FFFEFF",'#10'"Y '#9'c #000009",'#10'"Z '#9'c #04020F",'#10'"` '
-    +#9'c #00000C",'#10'" .'#9'c #C8C8CD",'#10'"..'#9'c #C6C7CA",'#10'"+.'#9'c'
-    +' #C9CACB",'#10'"@.'#9'c #D8D8DC",'#10'"#.'#9'c #827F8A",'#10'"$.'#9'c #F'
-    +'FFDFF",'#10'"%.'#9'c #C5C2CD",'#10'"&.'#9'c #C3C0C9",'#10'"*.'#9'c #CBC8'
-    +'CF",'#10'"=.'#9'c #CCCACF",'#10'"-.'#9'c #858386",'#10'";.'#9'c #FEFCFF"'
-    +','#10'">.'#9'c #FDFBFE",'#10'",.'#9'c #FCF9FF",'#10'"''.'#9'c #FFFCFF",'
-    +#10'").'#9'c #C8C4D3",'#10'"!.'#9'c #01000B",'#10'"~.'#9'c #C5C4CC",'#10
-    +'"{.'#9'c #D9D8DE",'#10'"].'#9'c #D7D7DB",'#10'"^.'#9'c #898593",'#10'"/.'
-    +#9'c #090513",'#10'"(.'#9'c #05010F",'#10'"_.'#9'c #010009",'#10'":.'#9'c'
-    +' #010007",'#10'"<.'#9'c #010005",'#10'"[.'#9'c #807E83",'#10'"}.'#9'c #F'
-    +'DFBFF",'#10'"|.'#9'c #FDFAFF",'#10'"1.'#9'c #BEBBC6",'#10'"2.'#9'c #0805'
-    +'0E",'#10'"3.'#9'c #CACBD0",'#10'"4.'#9'c #06050D",'#10'"5.'#9'c #828282"'
-    +','#10'"6.'#9'c #FDFDFB",'#10'"7.'#9'c #FEFEFC",'#10'"8.'#9'c #FCFCFC",'
-    +#10'"9.'#9'c #C6C6C8",'#10'"0.'#9'c #000002",'#10'"a.'#9'c #0D0C11",'#10
-    +'"b.'#9'c #8D8D8B",'#10'"c.'#9'c #F8F8F6",'#10'"d.'#9'c #FCFDF8",'#10'"e.'
-    +#9'c #FFFFFB",'#10'"f.'#9'c #FEFFFA",'#10'"g.'#9'c #FBFCF7",'#10'"h.'#9'c'
-    +' #C7C8C3",'#10'"i.'#9'c #010100",'#10'"j.'#9'c #040500",'#10'"k.'#9'c #8'
-    +'0807E",'#10'"l.'#9'c #F9FAF5",'#10'"m.'#9'c #FAFBF6",'#10'"n.'#9'c #FFFF'
-    +'FA",'#10'"o.'#9'c #FBFCF6",'#10'"p.'#9'c #BABBB5",'#10'"q.'#9'c #090A05"'
-    +','#10'"r.'#9'c #C7C8CC",'#10'"s.'#9'c #C7C8CD",'#10'"t.'#9'c #010200",'
-    +#10'"u.'#9'c #808080",'#10'"v.'#9'c #FDFDFD",'#10'"w.'#9'c #D0D1CC",'#10
-    +'"x.'#9'c #CFCFD4",'#10'"y.'#9'c #C9CACE",'#10'"z.'#9'c #DDDEE1",'#10'"A.'
-    +#9'c #CDCED1",'#10'"B.'#9'c #898A8E",'#10'"C.'#9'c #BDBEC3",'#10'"D.'#9'c'
-    +' #CBCCD0",'#10'"E.'#9'c #BABBBF",'#10'"F.'#9'c #CECFD1",'#10'"G.'#9'c #B'
-    +'BBDBC",'#10'"H.'#9'c #0C0E0D",'#10'"I.'#9'c #86878B",'#10'"J.'#9'c #0000'
-    +'05",'#10'"K.'#9'c #0D0D15",'#10'"L.'#9'c #0B0C10",'#10'"M.'#9'c #000004"'
-    +','#10'"N.'#9'c #07080A",'#10'". . . . . . . . . . +     @     . . . . . '
-    +'. . . . . #     #     ",'#10'". $ $ $ $ $ $ $ $ $ %   & * =   . - - - - '
-    +'- - - - - #   # # #   ",'#10'". ; % > , , '' , + ) !     =   ~ . # # # #'
-    +' # # # # # #     #   # ",'#10'"{ ] ^ / ^ ^ ( _ : < [         } { - | 1 -'
-    +' - - - - - #         # ",'#10'". 2 3 4 5 6 7 8 9 0 a b c       . d e e -'
-    +' f 7 8 9 0 a b c       ",'#10'"g h i j k l m n o p p q r s     g t u e v'
-    +' l m w d x d - r #     ",'#10'"y z A B C D E F G G H I J K L   y d - e M'
-    +' D E N - - - O J - #   ",'#10'"P Q R S T U # G V W X X Y Z ` Y P  .- ..+'
-    +'.U # N - u - @.# # # # ",'#10'"#.$.%.&.*.=.-.;.>.$.$.$.,.''.).!.#.- ~.&.'
-    +'*.=.-.u - u - - {.].- # ",'#10'"^./.(._.:.<.[.X X X }.$.$.|.1.2.^.# # # '
-    +'# # [.3.- - - - - - 1.# ",'#10'"    4.      5.Q G 6.7.Q 8.Q 9.0.    #   '
-    +'    5.- - - - - - - 9.# ",'#10'"  a.0.0.    b.c.d.e.e.f.g.e.h.i.  # # # '
-    +'    b.- - - - - - - h.# ",'#10'"    j.      k.G l.e.f.m.n.o.p.q.    #   '
-    +'    k.r.- - s.- - - p.# ",'#10'"    t.      u.v.Q 8.Q G c.e.w.s     #   '
-    +'    u.x.y.- z.- - A.w.# ",'#10'"      s     B.1 1 C.- D.E.F.G.H.      # '
-    +'    B.1 1 C.- D.E.F.G.# ",'#10'"            I.J.L K.J.J.L.M.N.0.        '
-    +'    I.# # # # # # # # # "};'#10
-  );
-  LazarusResources.Add('btn_viewforms','XPM',
-    '/* XPM */'#10'static char * btn_viewforms_xpm[] = {'#10'"16 16 126 2",'#10
-    +'"  '#9'c None",'#10'". '#9'c #807D90",'#10'"+ '#9'c #85829F",'#10'"@ '#9
-    +'c #848894",'#10'"# '#9'c #000017",'#10'"$ '#9'c #888799",'#10'"% '#9'c #'
-    +'870013",'#10'"& '#9'c #CC0013",'#10'"* '#9'c #FF0013",'#10'"= '#9'c #000'
-    +'015",'#10'"- '#9'c #87878F",'#10'"; '#9'c #F9FBFF",'#10'"> '#9'c #FAFDFF'
-    +'",'#10'", '#9'c #FBFEFF",'#10'"'' '#9'c #F2F6FF",'#10'") '#9'c #FBFFFF",'
-    +#10'"! '#9'c #F5FAFF",'#10'"~ '#9'c #FCFFFF",'#10'"{ '#9'c #000102",'#10
-    +'"] '#9'c #797A7F",'#10'"^ '#9'c #7F7F89",'#10'"/ '#9'c #868595",'#10'"( '
-    +#9'c #828395",'#10'"_ '#9'c #808490",'#10'": '#9'c #838790",'#10'"< '#9'c'
-    +' #787D83",'#10'"[ '#9'c #000104",'#10'"} '#9'c #D1D5D6",'#10'"| '#9'c #0'
-    +'00300",'#10'"1 '#9'c #8F8CA7",'#10'"2 '#9'c #C0BFD1",'#10'"3 '#9'c #0000'
-    +'0B",'#10'"4 '#9'c #827DA5",'#10'"5 '#9'c #FBF5FF",'#10'"6 '#9'c #F8F0FF"'
-    +','#10'"7 '#9'c #FEF6FF",'#10'"8 '#9'c #FAF4FF",'#10'"9 '#9'c #FBF6FF",'
-    +#10'"0 '#9'c #FBF8FF",'#10'"a '#9'c #FBF9FF",'#10'"b '#9'c #F2F0FF",'#10
-    +'"c '#9'c #00001F",'#10'"d '#9'c #C2C0D6",'#10'"e '#9'c #01000E",'#10'"f '
-    +#9'c #817E9B",'#10'"g '#9'c #000022",'#10'"h '#9'c #D0CDEC",'#10'"i '#9'c'
-    +' #000013",'#10'"j '#9'c #C7C7D3",'#10'"k '#9'c #000106",'#10'"l '#9'c #8'
-    +'48297",'#10'"m '#9'c #05061A",'#10'"n '#9'c #C6C5D3",'#10'"o '#9'c #0000'
-    +'05",'#10'"p '#9'c #C5C7C6",'#10'"q '#9'c #000100",'#10'"r '#9'c #858786"'
-    +','#10'"s '#9'c #FAFBFF",'#10'"t '#9'c #FEFEFF",'#10'"u '#9'c #FDFDFF",'
-    +#10'"v '#9'c #FBFAFF",'#10'"w '#9'c #FEFDFF",'#10'"x '#9'c #F7F7FF",'#10
-    +'"y '#9'c #FEFFFF",'#10'"z '#9'c #F8F9FB",'#10'"A '#9'c #000200",'#10'"B '
-    +#9'c #C9CCC3",'#10'"C '#9'c #82857A",'#10'"D '#9'c #FEFFF8",'#10'"E '#9'c'
-    +' #C1C4BD",'#10'"F '#9'c #CBCDC8",'#10'"G '#9'c #C9CBCA",'#10'"H '#9'c #C'
-    +'2C3C5",'#10'"I '#9'c #C8C9CB",'#10'"J '#9'c #BEC0BF",'#10'"K '#9'c #C5C7'
-    +'C4",'#10'"L '#9'c #B9BCB1",'#10'"M '#9'c #010500",'#10'"N '#9'c #888B80"'
-    +','#10'"O '#9'c #C0C3BC",'#10'"P '#9'c #C9CBC6",'#10'"Q '#9'c #C7C8CD",'
-    +#10'"R '#9'c #C0BECC",'#10'"S '#9'c #CCC9DC",'#10'"T '#9'c #C1BECF",'#10
-    +'"U '#9'c #D8D7DF",'#10'"V '#9'c #000004",'#10'"W '#9'c #797B76",'#10'"X '
-    +#9'c #FEFFFB",'#10'"Y '#9'c #CBCDCC",'#10'"Z '#9'c #C9CACC",'#10'"` '#9'c'
-    +' #B9BABF",'#10'" .'#9'c #CCCCD6",'#10'"..'#9'c #C7C4D7",'#10'"+.'#9'c #C'
-    +'ECBE0",'#10'"@.'#9'c #BFBCCF",'#10'"#.'#9'c #00000E",'#10'"$.'#9'c #100E'
-    +'19",'#10'"%.'#9'c #898A8F",'#10'"&.'#9'c #FAFAFF",'#10'"*.'#9'c #C4C4D0"'
-    +','#10'"=.'#9'c #CCCBDB",'#10'"-.'#9'c #CCCADF",'#10'";.'#9'c #BFBED0",'
-    +#10'">.'#9'c #C4C2CD",'#10'",.'#9'c #C6C5CB",'#10'"''.'#9'c #D0CFD5",'#10
-    +'").'#9'c #040309",'#10'"!.'#9'c #86878C",'#10'"~.'#9'c #FCFCFF",'#10'"{.'
-    +#9'c #BEBEC8",'#10'"].'#9'c #CBCAD8",'#10'"^.'#9'c #B2B1C3",'#10'"/.'#9'c'
-    +' #D1D0DE",'#10'"(.'#9'c #C5C5C7",'#10'"_.'#9'c #BFC0BB",'#10'":.'#9'c #C'
-    +'3C3C1",'#10'"<.'#9'c #000000",'#10'"[.'#9'c #81847D",'#10'"}.'#9'c #070A'
-    +'03",'#10'"|.'#9'c #070904",'#10'"1.'#9'c #0E0F11",'#10'"2.'#9'c #040500"'
-    +','#10'"3.'#9'c #010100",'#10'"4.'#9'c #040400",'#10'"5.'#9'c #040300",'
-    +#10'"                                ",'#10'"          . + @ @ @ @ @ @ @ '
-    +'#   ",'#10'"          $ % % & & * * * * =   ",'#10'"          - ; > , '''
-    +' ) ) ! ~ {   ",'#10'"      ] ^ / ( @ @ _ : < [ } |   ",'#10'"      1 % %'
-    +' & & * * * * # 2 3   ",'#10'"      4 5 6 7 8 9 0 a b c d e   ",'#10'"  f'
-    +' @ @ @ @ @ @ @ @ g h i j k   ",'#10'"  l % % & & * * * * m n o p q   ",'
-    +#10'"  r s t u v w x y z A B | | |   ",'#10'"  C D E F G H I J K | L M   '
-    +'    ",'#10'"  N D O P p Q R S T 3 U V       ",'#10'"  W X Y Z `  ...+.@.'
-    +'#.3 $.      ",'#10'"  %.&.*.=.-.;.>.,.''.).          ",'#10'"  !.~.{.].^'
-    +'./.(._.:.<.          ",'#10'"  [.}.|.q 1.q 2.3.4.5.          "};'#10
-  );
-  LazarusResources.Add('btn_viewunits','XPM',
-    '/* XPM */'#10'static char * btn_viewunits_xpm[] = {'#10'"11 14 3 1",'#10
-    +'" '#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #FFFFFF",'#10'"     ...'
-    +'.  ",'#10'"    .++++..",'#10'"    .+++++.",'#10'"   ....+++.",'#10'"  .+'
-    +'+++..+.",'#10'"  .+++++.+.",'#10'" ....+++.+.",'#10'".++++..+...",'#10'"'
-    +'.+++++.+.  ",'#10'".+++++.+.  ",'#10'".+++++...  ",'#10'".+++++.    ",'
-    +#10'".+++++.    ",'#10'".......    "};'#10
-  );
+LazarusResources.Add('btn_downarrow','XPM',[
+  '/* XPM */'#10'static char * btn_downarrow_xpm[] = {'#10'"5 3 2 1",'#10'" '#9
+  +'c None",'#10'".'#9'c #000000",'#10'".....",'#10'" ... ",'#10'"  .  "};'#10
+]);
+LazarusResources.Add('btn_newform','XPM',[
+  '/* XPM */'#10'static char * btn_newform_xpm[] = {'#10'"15 13 147 2",'#10'"  '
+  +#9'c None",'#10'". '#9'c #8D8E93",'#10'"+ '#9'c #7D8391",'#10'"@ '#9'c #7981'
+  +'94",'#10'"# '#9'c #80889D",'#10'"$ '#9'c #7C849B",'#10'"% '#9'c #747A94",'
+  +#10'"& '#9'c #8085A2",'#10'"* '#9'c #7B80A0",'#10'"= '#9'c #7F84A2",'#10'"- '
+  +#9'c #7E81A0",'#10'"; '#9'c #7D819C",'#10'"> '#9'c #7A7C93",'#10'", '#9'c #8'
+  +'18495",'#10'"'' '#9'c #797B88",'#10'") '#9'c #868992",'#10'"! '#9'c #7C7B8D'
+  +'",'#10'"~ '#9'c #F9F9FF",'#10'"{ '#9'c #870013",'#10'"] '#9'c #AE0013",'#10
+  +'"^ '#9'c #D30013",'#10'"/ '#9'c #FCF4FF",'#10'"( '#9'c #FEFAFF",'#10'"_ '#9
+  +'c #00000E",'#10'": '#9'c #858496",'#10'"< '#9'c #0A0627",'#10'"[ '#9'c #868'
+  +'68E",'#10'"} '#9'c #F7F9FF",'#10'"| '#9'c #F9FCFF",'#10'"1 '#9'c #FBFBFF",'
+  +#10'"2 '#9'c #FBFAFF",'#10'"3 '#9'c #EEEDFF",'#10'"4 '#9'c #F8F5FF",'#10'"5 '
+  +#9'c #FAF8FF",'#10'"6 '#9'c #FBF7FF",'#10'"7 '#9'c #FEFBFF",'#10'"8 '#9'c #F'
+  +'EFCFF",'#10'"9 '#9'c #05040C",'#10'"0 '#9'c #838486",'#10'"a '#9'c #FCFFFF"'
+  +','#10'"b '#9'c #F2F7FA",'#10'"c '#9'c #C6CBCE",'#10'"d '#9'c #F3F9F9",'#10
+  +'"e '#9'c #C3C7C6",'#10'"f '#9'c #C0C5C1",'#10'"g '#9'c #FCFFFD",'#10'"h '#9
+  +'c #C3C5C4",'#10'"i '#9'c #FEFFFF",'#10'"j '#9'c #CACBCD",'#10'"k '#9'c #F6F'
+  +'7FB",'#10'"l '#9'c #CCCBD1",'#10'"m '#9'c #010008",'#10'"n '#9'c #848685",'
+  +#10'"o '#9'c #F8FCFB",'#10'"p '#9'c #C5CAC6",'#10'"q '#9'c #FCFFFB",'#10'"r '
+  +#9'c #D0D6CC",'#10'"s '#9'c #EFF3E5",'#10'"t '#9'c #C6CABB",'#10'"u '#9'c #F'
+  +'8FCEB",'#10'"v '#9'c #C8CCBB",'#10'"w '#9'c #FAFCEE",'#10'"x '#9'c #D0D2C7"'
+  +','#10'"y '#9'c #FAFBF6",'#10'"z '#9'c #C1C1C3",'#10'"A '#9'c #FBF8FF",'#10
+  +'"B '#9'c #02000D",'#10'"C '#9'c #868686",'#10'"D '#9'c #FBFDFA",'#10'"E '#9
+  +'c #FEFFFB",'#10'"F '#9'c #C6C9C2",'#10'"G '#9'c #FCFFF4",'#10'"H '#9'c #C9C'
+  +'DBF",'#10'"I '#9'c #FEFFF1",'#10'"J '#9'c #BEC3AF",'#10'"K '#9'c #FEFFEF",'
+  +#10'"L '#9'c #CBCEBD",'#10'"M '#9'c #F6F8EB",'#10'"N '#9'c #CACBC3",'#10'"O '
+  +#9'c #FFFFFD",'#10'"P '#9'c #C6C4C9",'#10'"Q '#9'c #010009",'#10'"R '#9'c #F'
+  +'FFFFF",'#10'"S '#9'c #C2C2C0",'#10'"T '#9'c #C7C7C5",'#10'"U '#9'c #FDFEF9"'
+  +','#10'"V '#9'c #C4C5C0",'#10'"W '#9'c #FBFCF6",'#10'"X '#9'c #C9CAC4",'#10
+  +'"Y '#9'c #FFFFFA",'#10'"Z '#9'c #C1C2BC",'#10'"` '#9'c #C6C5C0",'#10'" .'#9
+  +'c #010000",'#10'"..'#9'c #828282",'#10'"+.'#9'c #FCFCFC",'#10'"@.'#9'c #C2C'
+  +'2C2",'#10'"#.'#9'c #F8F8F8",'#10'"$.'#9'c #C3C3C3",'#10'"%.'#9'c #CECECE",'
+  +#10'"&.'#9'c #F9F9F9",'#10'"*.'#9'c #BEBEBC",'#10'"=.'#9'c #BEBDB9",'#10'"-.'
+  +#9'c #C4C4BC",'#10'";.'#9'c #060600",'#10'">.'#9'c #858585",'#10'",.'#9'c #B'
+  +'3B3B5",'#10'"''.'#9'c #D3D3D3",'#10'").'#9'c #C0C0BE",'#10'"!.'#9'c #FAFAF8'
+  +'",'#10'"~.'#9'c #CACAC8",'#10'"{.'#9'c #C4C4C2",'#10'"].'#9'c #000000",'#10
+  +'"^.'#9'c #848484",'#10'"/.'#9'c #C4C4C6",'#10'"(.'#9'c #F5F5F7",'#10'"_.'#9
+  +'c #CBCBCD",'#10'":.'#9'c #F7F7F9",'#10'"<.'#9'c #CDCDCF",'#10'"[.'#9'c #F8F'
+  +'8FA",'#10'"}.'#9'c #C8C8CA",'#10'"|.'#9'c #D4D4D4",'#10'"1.'#9'c #808080",'
+  +#10'"2.'#9'c #F9F9FB",'#10'"3.'#9'c #CAC9CE",'#10'"4.'#9'c #FFFEFF",'#10'"5.'
+  +#9'c #C6C5CD",'#10'"6.'#9'c #FFFDFF",'#10'"7.'#9'c #C9C7D4",'#10'"8.'#9'c #F'
+  +'7F5FF",'#10'"9.'#9'c #CDCBD8",'#10'"0.'#9'c #C9C8D0",'#10'"a.'#9'c #F7F6FC"'
+  +','#10'"b.'#9'c #C5C5C7",'#10'"c.'#9'c #F4F6F3",'#10'"d.'#9'c #000200",'#10
+  +'"e.'#9'c #949494",'#10'"f.'#9'c #060606",'#10'"g.'#9'c #000002",'#10'"h.'#9
+  +'c #040308",'#10'"i.'#9'c #000005",'#10'"j.'#9'c #000007",'#10'"k.'#9'c #000'
+  +'009",'#10'"l.'#9'c #04020F",'#10'"m.'#9'c #08070F",'#10'"n.'#9'c #020204",'
+  +#10'"o.'#9'c #0D0F0C",'#10'"p.'#9'c #000100",'#10'". + @ # $ % & * = - ; > ,'
+  +' '' ) ",'#10'"! ~ { { { { { ] ] ^ ^ / ^ ( _ ",'#10'": { { { { ] ] ] ^ ^ ^ ^'
+  +' ^ < _ ",'#10'"[ } | 1 1 2 3 2 4 5 6 7 8 8 9 ",'#10'"0 a b c d e a f g h i '
+  +'j k l m ",'#10'"n o p q r s t u v w x y z A B ",'#10'"C D E F G H I J K L M'
+  +' N O P Q ",'#10'"C R S O T U V W X Y Z Y ` Y  .",'#10'"..+.R @.#.$.R %.&.*.'
+  +'O =.Y -.;.",'#10'">.R ,.R ''.R ).O T !.~.O {.!.].",'#10'"^.R R /.(./.R _.:.'
+  +'<.[.}.R |.].",'#10'"1.2.3.4.5.6.7.8.9.6.0.a.b.c.d.",'#10'"e.f.g.h.i.j.k.l.k'
+  +'.k.m.i.n.o.p."};'#10
+]);
+LazarusResources.Add('btn_newunit','XPM',[
+  '/* XPM */'#10'static char * btn_newunit_xpm[] = {'#10'"11 13 21 1",'#10'" '#9
+  +'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #0C0C0C",'#10'"@'#9'c #FEFEFE",'
+  +#10'"#'#9'c #FFFFFF",'#10'"$'#9'c #FAFAFA",'#10'"%'#9'c #070707",'#10'"&'#9
+  +'c #F3F3F3",'#10'"*'#9'c #FCFCFC",'#10'"='#9'c #020202",'#10'"-'#9'c #090909'
+  +'",'#10'";'#9'c #F8F8F8",'#10'">'#9'c #010101",'#10'",'#9'c #FBFBFB",'#10'"'
+  +''''#9'c #F0F0F0",'#10'")'#9'c #FDFDFD",'#10'"!'#9'c #F7F7F7",'#10'"~'#9'c #'
+  +'030303",'#10'"{'#9'c #0A0A0A",'#10'"]'#9'c #050505",'#10'"^'#9'c #040404",'
+  +#10'"..+..+..   ",'#10'".@###$#%.  ",'#10'".@##@#&.#. ",'#10'".@###*@=..-",'
+  +#10'".@##;###$#.",'#10'".@###;$###>",'#10'".@##,@#''),.",'#10'".@####!###=",'
+  +#10'".@###$)#,).",'#10'"~!###,##);%",'#10'">#!#)#)###.",'#10'">,#,##!$),+",'
+  +#10'"{..=~..+].^"};'#10
+]);
+LazarusResources.Add('btn_openfile','XPM',[
+  '/* XPM */'#10'static char * btn_openfile_xpm[] = {'#10'"16 13 111 2",'#10'" '
+  +' '#9'c None",'#10'". '#9'c #020703",'#10'"+ '#9'c #000100",'#10'"@ '#9'c #0'
+  +'00004",'#10'"# '#9'c #000005",'#10'"$ '#9'c #040507",'#10'"% '#9'c #000000"'
+  +','#10'"& '#9'c #010200",'#10'"* '#9'c #030400",'#10'"= '#9'c #090900",'#10
+  +'"- '#9'c #040400",'#10'"; '#9'c #010100",'#10'"> '#9'c #040300",'#10'", '#9
+  +'c #EDF0B9",'#10'"'' '#9'c #FFFFBD",'#10'") '#9'c #EBEDA4",'#10'"! '#9'c #0A'
+  +'0B00",'#10'"~ '#9'c #070600",'#10'"{ '#9'c #060400",'#10'"] '#9'c #141300",'
+  +#10'"^ '#9'c #030200",'#10'"/ '#9'c #060500",'#10'"( '#9'c #FFFFB8",'#10'"_ '
+  +#9'c #EEF58E",'#10'": '#9'c #FCFF94",'#10'"< '#9'c #E9EF85",'#10'"[ '#9'c #F'
+  +'FFFB1",'#10'"} '#9'c #E7E89C",'#10'"| '#9'c #E1E3A4",'#10'"1 '#9'c #FFFFD1"'
+  +','#10'"2 '#9'c #090A00",'#10'"3 '#9'c #0D0B00",'#10'"4 '#9'c #E7EA8F",'#10
+  +'"5 '#9'c #FFFF98",'#10'"6 '#9'c #F0F776",'#10'"7 '#9'c #FFFF92",'#10'"8 '#9
+  +'c #F0EE89",'#10'"9 '#9'c #FFFFAF",'#10'"0 '#9'c #F8FBA2",'#10'"a '#9'c #FEF'
+  +'FAE",'#10'"b '#9'c #EFF0AA",'#10'"c '#9'c #060600",'#10'"d '#9'c #070300",'
+  +#10'"e '#9'c #FEFEA8",'#10'"f '#9'c #F2F582",'#10'"g '#9'c #FFFF8F",'#10'"h '
+  +#9'c #F2F37C",'#10'"i '#9'c #0E0900",'#10'"j '#9'c #0D0800",'#10'"k '#9'c #0'
+  +'A0900",'#10'"l '#9'c #080A00",'#10'"m '#9'c #0A0A00",'#10'"n '#9'c #070500"'
+  +','#10'"o '#9'c #030000",'#10'"p '#9'c #F6F4A7",'#10'"q '#9'c #FFFF9D",'#10
+  +'"r '#9'c #EFF07B",'#10'"s '#9'c #111100",'#10'"t '#9'c #7B7716",'#10'"u '#9
+  +'c #89852A",'#10'"v '#9'c #818121",'#10'"w '#9'c #7F8022",'#10'"x '#9'c #828'
+  +'22C",'#10'"y '#9'c #7A7B2D",'#10'"z '#9'c #7B7C3A",'#10'"A '#9'c #84844E",'
+  +#10'"B '#9'c #75764E",'#10'"C '#9'c #0A0800",'#10'"D '#9'c #FFFFC5",'#10'"E '
+  +#9'c #E7EA91",'#10'"F '#9'c #0E1100",'#10'"G '#9'c #7E8211",'#10'"H '#9'c #8'
+  +'08310",'#10'"I '#9'c #878B13",'#10'"J '#9'c #7F8308",'#10'"K '#9'c #83870E"'
+  +','#10'"L '#9'c #7B7F11",'#10'"M '#9'c #818526",'#10'"N '#9'c #797C2F",'#10
+  +'"O '#9'c #7C7D43",'#10'"P '#9'c #040500",'#10'"Q '#9'c #E3E3AD",'#10'"R '#9
+  +'c #7F842A",'#10'"S '#9'c #767B15",'#10'"T '#9'c #848B1B",'#10'"U '#9'c #747'
+  +'903",'#10'"V '#9'c #7D8108",'#10'"W '#9'c #7F820F",'#10'"X '#9'c #858821",'
+  +#10'"Y '#9'c #797C23",'#10'"Z '#9'c #7F823B",'#10'"` '#9'c #0A0D00",'#10'" .'
+  +#9'c #050300",'#10'"..'#9'c #070800",'#10'"+.'#9'c #7B7B45",'#10'"@.'#9'c #7'
+  +'37631",'#10'"#.'#9'c #878A3B",'#10'"$.'#9'c #7B7F28",'#10'"%.'#9'c #82852A"'
+  +','#10'"&.'#9'c #7C7F28",'#10'"*.'#9'c #858636",'#10'"=.'#9'c #7B7B33",'#10
+  +'"-.'#9'c #7A7A3E",'#10'";.'#9'c #030100",'#10'">.'#9'c #101000",'#10'",.'#9
+  +'c #040600",'#10'"''.'#9'c #040700",'#10'").'#9'c #060700",'#10'"!.'#9'c #09'
+  +'0800",'#10'"~.'#9'c #0E0B00",'#10'"{.'#9'c #070400",'#10'"                 '
+  +' . + @         ",'#10'"                #       $   %   ",'#10'"            '
+  +'              & +   ",'#10'"  * = -                 ; = ;   ",'#10'"> , '' '
+  +') ! ~ { > ] ^ ^           ",'#10'"/ ( _ : < [ } '' | 1 2           ",'#10'"'
+  +'3 4 5 6 7 8 9 0 a b c           ",'#10'"d e f g h i j k l m m n { > ^ o ",'
+  +#10'"d p q r s t u v w x y z A B c   ",'#10'"C D E F G H I J K L M N O P    '
+  +' ",'#10'"- Q ! R S T U V W X Y Z `       ",'#10'" ...+.@.#.$.%.&.*.=.-./   '
+  +'      ",'#10'";.>.- ,.''...).!.n ~.{.          "};'#10
+]);
+LazarusResources.Add('btn_pause','XPM',[
+  '/* XPM */'#10'static char * btn_pause_xpm[] = {'#10'"20 14 8 1",'#10'" '#9'c'
+  +' None",'#10'".'#9'c #0005A0",'#10'"+'#9'c #828282",'#10'"@'#9'c #7C7C7C",'
+  +#10'"#'#9'c #0017EA",'#10'"$'#9'c #0300EF",'#10'"%'#9'c #000000",'#10'"&'#9
+  +'c #C6C7CC",'#10'"....  ....++++  @@@@",'#10'".#$%  .#$%+&&+  @&&+",'#10'".#'
+  +'$%  .#$%+&&+  @&&+",'#10'".#$%  .#$%+&&+  @&&+",'#10'".#$%  .#$%+&&+  @&&+"'
+  +','#10'".#$%  .#$%+&&+  @&&+",'#10'".#$%  .#$%+&&+  @&&+",'#10'".#$%  .#$%@&'
+  +'&+  @&&+",'#10'".#$%  .#$%@&&+  @&&+",'#10'".#$%  .#$%@&&+  @&&+",'#10'".#$'
+  +'%  .#$%+&&+  @&&+",'#10'".#$%  .#$%+&&+  @&&+",'#10'".#$%  .#$%+&&+  @&&+",'
+  +#10'"%%%%  %%%%++++  @+++"};'#10
+]);
+LazarusResources.Add('btn_run','XPM',[
+  '/* XPM */'#10'static char * btn_run_xpm[] = {'#10'"16 14 7 1",'#10'" '#9'c N'
+  +'one",'#10'".'#9'c #146600",'#10'"+'#9'c #444444",'#10'"@'#9'c #26B200",'#10
+  +'"#'#9'c #898989",'#10'"$'#9'c #275919",'#10'"%'#9'c #000000",'#10'"..      '
+  +'+       ",'#10'".@.     ++      ",'#10'".@@.    +#+     ",'#10'".@@@.   +##'
+  +'+    ",'#10'".@@@@.  +###+   ",'#10'".@@@@@. +####+  ",'#10'".@@@@@@.+#####'
+  +'+ ",'#10'".@@@@@$%+#####+%",'#10'".@@@@$% +####+% ",'#10'".@@@$%  +###+%  "'
+  +','#10'".@@$%   +##+%   ",'#10'".@$%    +#+%    ",'#10'".$%     ++%     ",'
+  +#10'"%%      %%      "};'#10
+]);
+LazarusResources.Add('btn_saveall','XPM',[
+  '/* XPM */'#10'static char * btn_saveall_xpm[] = {'#10'"15 15 156 2",'#10'"  '
+  +#9'c None",'#10'". '#9'c #080A00",'#10'"+ '#9'c #000200",'#10'"@ '#9'c #0100'
+  +'00",'#10'"# '#9'c #0B090A",'#10'"$ '#9'c #010007",'#10'"% '#9'c #010009",'
+  +#10'"& '#9'c #040108",'#10'"* '#9'c #080800",'#10'"= '#9'c #080900",'#10'"- '
+  +#9'c #020400",'#10'"; '#9'c #7A7C6F",'#10'"> '#9'c #010100",'#10'", '#9'c #C'
+  +'4C3C1",'#10'"'' '#9'c #CAC7CE",'#10'") '#9'c #C5C2CB",'#10'"! '#9'c #C6C4C7'
+  +'",'#10'"~ '#9'c #CAC9C5",'#10'"{ '#9'c #010200",'#10'"] '#9'c #BEC0AB",'#10
+  +'"^ '#9'c #0B0E00",'#10'"/ '#9'c #000100",'#10'"( '#9'c #030500",'#10'"_ '#9
+  +'c #040400",'#10'": '#9'c #060105",'#10'"< '#9'c #030002",'#10'"[ '#9'c #040'
+  +'000",'#10'"} '#9'c #030100",'#10'"| '#9'c #010300",'#10'"1 '#9'c #050800",'
+  +#10'"2 '#9'c #797C73",'#10'"3 '#9'c #BBBDB0",'#10'"4 '#9'c #C7C7BD",'#10'"5 '
+  +#9'c #C4C4BC",'#10'"6 '#9'c #CAC6C3",'#10'"7 '#9'c #D0CDC8",'#10'"8 '#9'c #C'
+  +'6C5B1",'#10'"9 '#9'c #0E0E00",'#10'"0 '#9'c #6B6E4F",'#10'"a '#9'c #040800"'
+  +','#10'"b '#9'c #030200",'#10'"c '#9'c #090B00",'#10'"d '#9'c #090600",'#10
+  +'"e '#9'c #040100",'#10'"f '#9'c #040200",'#10'"g '#9'c #030400",'#10'"h '#9
+  +'c #040600",'#10'"i '#9'c #717552",'#10'"j '#9'c #000400",'#10'"k '#9'c #101'
+  +'000",'#10'"l '#9'c #777A5F",'#10'"m '#9'c #050700",'#10'"n '#9'c #C5C8BF",'
+  +#10'"o '#9'c #C6C7BF",'#10'"p '#9'c #BFC0B8",'#10'"q '#9'c #CDCAC1",'#10'"r '
+  +#9'c #CBC9BC",'#10'"s '#9'c #080500",'#10'"t '#9'c #CECDB1",'#10'"u '#9'c #0'
+  +'90900",'#10'"v '#9'c #747549",'#10'"w '#9'c #040700",'#10'"x '#9'c #7B8058"'
+  +','#10'"y '#9'c #727653",'#10'"z '#9'c #000300",'#10'"A '#9'c #C2C5BA",'#10
+  +'"B '#9'c #CACBC5",'#10'"C '#9'c #BFBCB5",'#10'"D '#9'c #C6C4B5",'#10'"E '#9
+  +'c #040300",'#10'"F '#9'c #060400",'#10'"G '#9'c #070700",'#10'"H '#9'c #797'
+  +'C45",'#10'"I '#9'c #030700",'#10'"J '#9'c #71764D",'#10'"K '#9'c #010400",'
+  +#10'"L '#9'c #070A00",'#10'"M '#9'c #767B52",'#10'"N '#9'c #C6C9BE",'#10'"O '
+  +#9'c #C4C5C0",'#10'"P '#9'c #C1C0BE",'#10'"Q '#9'c #C7C4BF",'#10'"R '#9'c #D'
+  +'BD8C7",'#10'"S '#9'c #0D0A00",'#10'"T '#9'c #7D7D4B",'#10'"U '#9'c #060800"'
+  +','#10'"V '#9'c #7B7D3C",'#10'"W '#9'c #797C4F",'#10'"X '#9'c #060900",'#10
+  +'"Y '#9'c #050900",'#10'"Z '#9'c #727848",'#10'"` '#9'c #C3C3C1",'#10'" .'#9
+  +'c #D6D4D5",'#10'"..'#9'c #C6C3BE",'#10'"+.'#9'c #B5B29F",'#10'"@.'#9'c #0B0'
+  +'900",'#10'"#.'#9'c #76773D",'#10'"$.'#9'c #080C00",'#10'"%.'#9'c #82863C",'
+  +#10'"&.'#9'c #7B7E4F",'#10'"*.'#9'c #767D47",'#10'"=.'#9'c #777D4F",'#10'"-.'
+  +#9'c #010500",'#10'";.'#9'c #060300",'#10'">.'#9'c #090500",'#10'",.'#9'c #7'
+  +'C7C46",'#10'"''.'#9'c #7C7F38",'#10'").'#9'c #060A00",'#10'"!.'#9'c #6F752B'
+  +'",'#10'"~.'#9'c #0E1100",'#10'"{.'#9'c #777856",'#10'"].'#9'c #040A00",'#10
+  +'"^.'#9'c #757B3B",'#10'"/.'#9'c #7E832F",'#10'"(.'#9'c #7C7F30",'#10'"_.'#9
+  +'c #686731",'#10'":.'#9'c #88865D",'#10'"<.'#9'c #76724C",'#10'"[.'#9'c #727'
+  +'240",'#10'"}.'#9'c #888C40",'#10'"|.'#9'c #767E29",'#10'"1.'#9'c #040C00",'
+  +#10'"2.'#9'c #7E8444",'#10'"3.'#9'c #000002",'#10'"4.'#9'c #000700",'#10'"5.'
+  +#9'c #777D3D",'#10'"6.'#9'c #7D8228",'#10'"7.'#9'c #080B00",'#10'"8.'#9'c #2'
+  +'01E00",'#10'"9.'#9'c #070400",'#10'"0.'#9'c #0B0800",'#10'"a.'#9'c #0C0C00"'
+  +','#10'"b.'#9'c #77802F",'#10'"c.'#9'c #030B00",'#10'"d.'#9'c #717844",'#10
+  +'"e.'#9'c #020900",'#10'"f.'#9'c #7C834D",'#10'"g.'#9'c #787A39",'#10'"h.'#9
+  +'c #0B0B00",'#10'"i.'#9'c #070300",'#10'"j.'#9'c #060100",'#10'"k.'#9'c #CDC'
+  +'CAD",'#10'"l.'#9'c #767B41",'#10'"m.'#9'c #090D00",'#10'"n.'#9'c #737850",'
+  +#10'"o.'#9'c #7B7C52",'#10'"p.'#9'c #060000",'#10'"q.'#9'c #080300",'#10'"r.'
+  +#9'c #0A0501",'#10'"s.'#9'c #C4C2B5",'#10'"t.'#9'c #767A55",'#10'"u.'#9'c #0'
+  +'A0800",'#10'"v.'#9'c #040003",'#10'"w.'#9'c #030005",'#10'"x.'#9'c #040006"'
+  +','#10'"y.'#9'c #060700",'#10'"        . + @ # $ % & @ * = + ",'#10'"       '
+  +' - ; > , '' ) ! ~ { ] ^ ",'#10'"    / + ( + _ @ : < [ } | - 1 ",'#10'"    /'
+  +' 2 + 3 4 5 6 7 } 8 9 0 a ",'#10'"b { + + + c > d [ e f g h i j ",'#10'"k l '
+  +'m n o p q r s t u v w x | ",'#10'"( y z A B B C D E F G H I J K ",'#10'"L M'
+  +' j N O P Q R S T U V w W X ",'#10'"Y Z I A `  ...+.@.#.$.%.a &.K ",'#10'"a '
+  +'*.=.-.{ } ;.>.,.''.).!.~.{.z ",'#10'"].^./.(._.:.<.[.}.|.1.2.K + 3.",'#10'"'
+  +'4.5.6.7.8.9.0.a.].b.c.d.X     ",'#10'"e.f.g.h.i.j.j.k.. l.a m./     ",'#10
+  +'"].n.o.;.p.q.r.s.g t.-.        ",'#10'"  K b u.v.w.x.@ y.{ y.        "};'#10
+]);
+LazarusResources.Add('btn_save','XPM',[
+  '/* XPM */'#10'static char *btn_save[]={'#10'"28 14 169 2",'#10'"aD c None",'
+  +#10'".e c #000000",'#10'".a c #000002",'#10'".b c #000005",'#10'".d c #00000'
+  +'7",'#10'".c c #00000c",'#10'"Qt c #000100",'#10'".g c #000200",'#10'".# c #'
+  +'000400",'#10'".I c #000600",'#10'".8 c #010000",'#10'"aK c #01000c",'#10'"a'
+  +'z c #01000e",'#10'"aj c #010100",'#10'".w c #010200",'#10'"#j c #010300",'
+  +#10'".f c #010400",'#10'"#J c #010500",'#10'".U c #010600",'#10'".6 c #01070'
+  +'0",'#10'"ah c #010a00",'#10'".J c #020300",'#10'"#8 c #020500",'#10'".k c #'
+  +'020600",'#10'"aG c #030000",'#10'"aJ c #03000b",'#10'"ap c #030010",'#10'"a'
+  +'E c #030500",'#10'".y c #030600",'#10'"#6 c #030c00",'#10'"ac c #040000",'
+  +#10'"ad c #04000e",'#10'".L c #040600",'#10'"aB c #040900",'#10'"#3 c #05000'
+  +'0",'#10'"ay c #05000e",'#10'"aI c #050102",'#10'"#4 c #050200",'#10'"aL c #'
+  +'050209",'#10'".h c #050704",'#10'"#2 c #060000",'#10'"ab c #060100",'#10'"a'
+  +'m c #060200",'#10'"#E c #060600",'#10'"#I c #060800",'#10'"#Z c #070100",'
+  +#10'"a# c #070300",'#10'"aH c #070400",'#10'"#C c #070500",'#10'"#l c #07070'
+  +'0",'#10'"aM c #070800",'#10'".X c #070900",'#10'"ao c #080300",'#10'"#i c #'
+  +'08050c",'#10'"#z c #080700",'#10'"au c #080901",'#10'"#5 c #080b00",'#10'"#'
+  +'F c #080e00",'#10'"aa c #090300",'#10'"#0 c #090400",'#10'"#Y c #090700",'
+  +#10'"ae c #0a0219",'#10'"ax c #0a0500",'#10'"#D c #0a0a00",'#10'"aF c #0a0c0'
+  +'0",'#10'"#. c #0b0a00",'#10'"#w c #0c0904",'#10'".H c #0c1200",'#10'"as c #'
+  +'0c1300",'#10'"an c #0d0600",'#10'"#1 c #0d0900",'#10'"#A c #0e0c00",'#10'"#'
+  +'u c #0f1400",'#10'"#B c #141200",'#10'".i c #585858",'#10'"at c #666c3c",'
+  +#10'"#v c #6d723a",'#10'"#h c #6f744c",'#10'".V c #707650",'#10'"#G c #727d1'
+  +'7",'#10'"aw c #74783d",'#10'"#7 c #747f33",'#10'"#V c #74801e",'#10'"aC c #'
+  +'757b57",'#10'".9 c #767849",'#10'"#T c #777d35",'#10'"#M c #78782e",'#10'".'
+  +'K c #787b4e",'#10'".j c #787c5b",'#10'"#x c #787e28",'#10'"ak c #787f32",'
+  +#10'"#P c #797744",'#10'".W c #797b4c",'#10'"#K c #79811e",'#10'"#N c #7a794'
+  +'1",'#10'".x c #7a7c54",'#10'"#X c #7a8119",'#10'"#O c #7b7a42",'#10'"#R c #'
+  +'7b7a4c",'#10'"#9 c #7b8127",'#10'"#y c #7c801f",'#10'"#W c #7c8323",'#10'"#'
+  +'Q c #7e7b4e",'#10'"al c #7e8235",'#10'"av c #7f8348",'#10'"#H c #7f8a2e",'
+  +#10'"#U c #7f8b1f",'#10'"#S c #80804e",'#10'".u c #808080",'#10'"#k c #80814'
+  +'7",'#10'".7 c #81865e",'#10'"ai c #828a4f",'#10'"a. c #83882c",'#10'"#L c #'
+  +'8a9121",'#10'"aA c #bebfb1",'#10'".G c #bec0b2",'#10'".o c #c0bebf",'#10'".'
+  +'Y c #c1bca8",'#10'".2 c #c3bdbd",'#10'".v c #c3c3c3",'#10'".s c #c3c4bc",'
+  +#10'"#n c #c4bdab",'#10'"#o c #c4bdad",'#10'"#f c #c4bebe",'#10'".P c #c4c1b'
+  +'c",'#10'".E c #c4c2c7",'#10'".0 c #c5c0bc",'#10'".l c #c5c6b6",'#10'".t c #'
+  +'c5c9b2",'#10'"#c c #c6bdbe",'#10'".D c #c6c4c7",'#10'".z c #c6c5b0",'#10'".'
+  +'n c #c6c5c1",'#10'"aq c #c7c2c6",'#10'".Q c #c7c3c4",'#10'".N c #c7c4bb",'
+  +#10'".B c #c7c4bd",'#10'".p c #c7c4cd",'#10'".S c #c7c6c2",'#10'".F c #c7c6c'
+  +'4",'#10'".A c #c7c7bd",'#10'".5 c #c7c9b4",'#10'"#a c #c8c0bd",'#10'"#r c #'
+  +'c8c2b4",'#10'".R c #c8c6c7",'#10'".T c #c8c9b7",'#10'"#d c #c9c0c3",'#10'"#'
+  +'s c #c9c3b3",'#10'".r c #c9c9cb",'#10'"af c #cac6c7",'#10'".m c #cac9c4",'
+  +#10'"#t c #cacaa8",'#10'"#g c #cbcab8",'#10'"#e c #ccc6c8",'#10'".O c #ccc7c'
+  +'1",'#10'".3 c #ccc8c7",'#10'".q c #ccc9d2",'#10'"ag c #ccccb2",'#10'".4 c #'
+  +'cdc9c6",'#10'".Z c #cecac1",'#10'"## c #cfc8b6",'#10'"ar c #cfd1bc",'#10'"#'
+  +'q c #d0cabc",'#10'"#m c #d0cbab",'#10'".C c #d0cfcb",'#10'"#p c #d2ccbe",'
+  +#10'".M c #d3d1ba",'#10'"#b c #d5cccd",'#10'".1 c #d6d1ce",'#10'"Qt.#.#Qt.a.'
+  +'a.b.c.c.d.e.f.g.h.i.i.i.i.i.i.i.i.i.i.i.i.i.i",'#10'".g.j.k.l.m.n.o.p.q.r.s'
+  +'.#.t.g.i.u.i.v.v.v.v.v.v.v.v.i.v.i",'#10'".w.x.y.z.A.B.C.D.E.F.G.H.I.J.i.u.'
+  +'i.v.v.v.v.v.E.F.v.i.i.i",'#10'".w.K.L.M.N.O.P.Q.R.S.T.U.VQt.i.u.i.v.v.v.v.Q'
+  +'.v.v.v.i.u.i",'#10'".w.W.X.Y.Z.0.1.2.3.4.5.6.7.8.i.u.i.v.v.v.v.2.v.v.v.i.u.'
+  +'i",'#10'".w.9#.###a#b#c#d#e#f#g.y#h#i.i.u.i.v.v.v#c#d#e#f.v.i.u.i",'#10'"#j'
+  +'#k#l#m#n#o#p#q#r#s#t#u#v#w.i.u.i.v.v.v.v.v.v.v.v.i.u.i",'#10'".f#x#y#z#A#B#'
+  +'C#C#D#E#F#G#H#I.i.u.u.i.i.i.i.i.i.i.i.u.u.i",'#10'"#J#K#L#M#N#O#P#Q#R#S#T#U'
+  +'#V.y.i.u.u.u.u.u.u.u.u.u.u.u.u.i",'#10'"#J#W#X#Y#Z#0#1#2#3#4#5#6#7.X.i.u.u.'
+  +'i.i.i.i.i.i.i.i.i.u.i",'#10'"#8#9a.a#aaabacadaeafagahaiaj.i.u.u.i.i.i.i.i.i'
+  +'.v.v.i.u.i",'#10'".Lakalaman#2aoadapaqarasatau.i.u.u.i.i.i.i.i.i.v.v.i.u.i"'
+  +','#10'"#javawaxabacacayaz.EaAaBaCQt.i.u.u.i.i.i.i.i.i.v.v.i.u.i",'#10'"aDaE'
+  +'aFacaGaHaIaJaKaLaM.#.#.e.v.i.i.i.i.i.i.i.i.i.i.i.i.i"};'#10
+]);
+LazarusResources.Add('btn_stepinto','XPM',[
+  '/* XPM */'#10'static char * btn_stepinto_xpm[] = {'#10'"13 16 5 1",'#10'" '#9
+  +'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #000083",'#10'"@'#9'c #FFFFFF",'
+  +#10'"#'#9'c #838583",'#10'".  .         ",'#10'"      .      ",'#10'"       '
+  +'      ",'#10'"       .     ",'#10'"             ",'#10'"      .....  ",'#10
+  +'"       ...   ",'#10'"        .    ",'#10'"     +++++++ ",'#10'"     +@@@@@'
+  +'+#",'#10'"     +@@@@@+#",'#10'"     +@@@@@+#",'#10'"     +@@@@@+#",'#10'"  '
+  +'   +@@@@@+#",'#10'"     +++++++#",'#10'"      #######"};'#10
+]);
+LazarusResources.Add('btn_stepover','XPM',[
+  '/* XPM */'#10'static char * btn_stepover_xpm[] = {'#10'"16 16 5 1",'#10'" '#9
+  +'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #000083",'#10'"@'#9'c #FFFFFF",'
+  +#10'"#'#9'c #838583",'#10'"     .  .       ",'#10'"  .        .    ",'#10'" '
+  +'               ",'#10'".            .  ",'#10'"                ",'#10'"    '
+  +'       .....",'#10'"            ... ",'#10'"             .  ",'#10'"    +++'
+  +'++++     ",'#10'"    +@@@@@+#    ",'#10'"    +@@@@@+#    ",'#10'"    +@@@@@'
+  +'+#    ",'#10'"    +@@@@@+#    ",'#10'"    +@@@@@+#    ",'#10'"    +++++++# '
+  +'   ",'#10'"     #######    "};'#10
+]);
+LazarusResources.Add('btn_toggleform','XPM',[
+  '/* XPM */'#10'static char * btn_toggleform_xpm[] = {'#10'"32 16 171 2",'#10
+  +'"  '#9'c None",'#10'". '#9'c #777A71",'#10'"+ '#9'c #000013",'#10'"@ '#9'c '
+  +'#000104",'#10'"# '#9'c #81817F",'#10'"$ '#9'c #870013",'#10'"% '#9'c #00001'
+  +'5",'#10'"& '#9'c #00040A",'#10'"* '#9'c #000606",'#10'"= '#9'c #000300",'#10
+  +'"- '#9'c #C6C7CC",'#10'"; '#9'c #000012",'#10'"> '#9'c #0C0C24",'#10'", '#9
+  +'c #000017",'#10'"'' '#9'c #04041E",'#10'") '#9'c #0D0F1E",'#10'"! '#9'c #00'
+  +'000B",'#10'"~ '#9'c #000500",'#10'"{ '#9'c #8F9094",'#10'"] '#9'c #F9FDFF",'
+  +#10'"^ '#9'c #FCFFFF",'#10'"/ '#9'c #F1F4F9",'#10'"( '#9'c #F4F7FF",'#10'"_ '
+  +#9'c #F9FCFF",'#10'": '#9'c #F7FAFF",'#10'"< '#9'c #F8FBFF",'#10'"[ '#9'c #0'
+  +'00102",'#10'"} '#9'c #000200",'#10'"| '#9'c #CACCD0",'#10'"1 '#9'c #C8C9CE"'
+  +','#10'"2 '#9'c #FEFFF6",'#10'"3 '#9'c #C6C9C0",'#10'"4 '#9'c #C6C9C2",'#10
+  +'"5 '#9'c #C7CAC3",'#10'"6 '#9'c #BEC0BB",'#10'"7 '#9'c #888A85",'#10'"8 '#9
+  +'c #878984",'#10'"9 '#9'c #80827D",'#10'"0 '#9'c #8F918C",'#10'"a '#9'c #8C8'
+  +'E89",'#10'"b '#9'c #868982",'#10'"c '#9'c #797C73",'#10'"d '#9'c #CACBCF",'
+  +#10'"e '#9'c #C6C7CB",'#10'"f '#9'c #C0C2C0",'#10'"g '#9'c #84867B",'#10'"h '
+  +#9'c #FEFFF4",'#10'"i '#9'c #BCC0B2",'#10'"j '#9'c #C7CABF",'#10'"k '#9'c #C'
+  +'BCEC3",'#10'"l '#9'c #BDC0B5",'#10'"m '#9'c #82857C",'#10'"n '#9'c #FEFFF8"'
+  +','#10'"o '#9'c #FDFFF9",'#10'"p '#9'c #F9FCF5",'#10'"q '#9'c #FEFFFB",'#10
+  +'"r '#9'c #848681",'#10'"s '#9'c #000100",'#10'"t '#9'c #CACBCE",'#10'"u '#9
+  +'c #C5C6CB",'#10'"v '#9'c #C9CCC4",'#10'"w '#9'c #D8D9DA",'#10'"x '#9'c #D7D'
+  +'8D9",'#10'"y '#9'c #80817C",'#10'"z '#9'c #FCFDF7",'#10'"A '#9'c #CECFC9",'
+  +#10'"B '#9'c #CACBC5",'#10'"C '#9'c #B9BAB4",'#10'"D '#9'c #CBCCC6",'#10'"E '
+  +#9'c #8D8E88",'#10'"F '#9'c #F6F7F2",'#10'"G '#9'c #FFFFFD",'#10'"H '#9'c #F'
+  +'AFAFA",'#10'"I '#9'c #F5F5F7",'#10'"J '#9'c #8D8C91",'#10'"K '#9'c #FBFAFF"'
+  +','#10'"L '#9'c #000007",'#10'"M '#9'c #C1C2C3",'#10'"N '#9'c #C4C5CA",'#10
+  +'"O '#9'c #C9CACF",'#10'"P '#9'c #86858A",'#10'"Q '#9'c #FFFFFF",'#10'"R '#9
+  +'c #C4C4C6",'#10'"S '#9'c #C7C7C7",'#10'"T '#9'c #CBCBCB",'#10'"U '#9'c #C3C'
+  +'3C1",'#10'"V '#9'c #FEFEFE",'#10'"W '#9'c #F6F6F8",'#10'"X '#9'c #FFFEFF",'
+  +#10'"Y '#9'c #000009",'#10'"Z '#9'c #04020F",'#10'"` '#9'c #00000C",'#10'" .'
+  +#9'c #C8C8CD",'#10'"..'#9'c #C6C7CA",'#10'"+.'#9'c #C9CACB",'#10'"@.'#9'c #D'
+  +'8D8DC",'#10'"#.'#9'c #827F8A",'#10'"$.'#9'c #FFFDFF",'#10'"%.'#9'c #C5C2CD"'
+  +','#10'"&.'#9'c #C3C0C9",'#10'"*.'#9'c #CBC8CF",'#10'"=.'#9'c #CCCACF",'#10
+  +'"-.'#9'c #858386",'#10'";.'#9'c #FEFCFF",'#10'">.'#9'c #FDFBFE",'#10'",.'#9
+  +'c #FCF9FF",'#10'"''.'#9'c #FFFCFF",'#10'").'#9'c #C8C4D3",'#10'"!.'#9'c #01'
+  +'000B",'#10'"~.'#9'c #C5C4CC",'#10'"{.'#9'c #D9D8DE",'#10'"].'#9'c #D7D7DB",'
+  +#10'"^.'#9'c #898593",'#10'"/.'#9'c #090513",'#10'"(.'#9'c #05010F",'#10'"_.'
+  +#9'c #010009",'#10'":.'#9'c #010007",'#10'"<.'#9'c #010005",'#10'"[.'#9'c #8'
+  +'07E83",'#10'"}.'#9'c #FDFBFF",'#10'"|.'#9'c #FDFAFF",'#10'"1.'#9'c #BEBBC6"'
+  +','#10'"2.'#9'c #08050E",'#10'"3.'#9'c #CACBD0",'#10'"4.'#9'c #06050D",'#10
+  +'"5.'#9'c #828282",'#10'"6.'#9'c #FDFDFB",'#10'"7.'#9'c #FEFEFC",'#10'"8.'#9
+  +'c #FCFCFC",'#10'"9.'#9'c #C6C6C8",'#10'"0.'#9'c #000002",'#10'"a.'#9'c #0D0'
+  +'C11",'#10'"b.'#9'c #8D8D8B",'#10'"c.'#9'c #F8F8F6",'#10'"d.'#9'c #FCFDF8",'
+  +#10'"e.'#9'c #FFFFFB",'#10'"f.'#9'c #FEFFFA",'#10'"g.'#9'c #FBFCF7",'#10'"h.'
+  +#9'c #C7C8C3",'#10'"i.'#9'c #010100",'#10'"j.'#9'c #040500",'#10'"k.'#9'c #8'
+  +'0807E",'#10'"l.'#9'c #F9FAF5",'#10'"m.'#9'c #FAFBF6",'#10'"n.'#9'c #FFFFFA"'
+  +','#10'"o.'#9'c #FBFCF6",'#10'"p.'#9'c #BABBB5",'#10'"q.'#9'c #090A05",'#10
+  +'"r.'#9'c #C7C8CC",'#10'"s.'#9'c #C7C8CD",'#10'"t.'#9'c #010200",'#10'"u.'#9
+  +'c #808080",'#10'"v.'#9'c #FDFDFD",'#10'"w.'#9'c #D0D1CC",'#10'"x.'#9'c #CFC'
+  +'FD4",'#10'"y.'#9'c #C9CACE",'#10'"z.'#9'c #DDDEE1",'#10'"A.'#9'c #CDCED1",'
+  +#10'"B.'#9'c #898A8E",'#10'"C.'#9'c #BDBEC3",'#10'"D.'#9'c #CBCCD0",'#10'"E.'
+  +#9'c #BABBBF",'#10'"F.'#9'c #CECFD1",'#10'"G.'#9'c #BBBDBC",'#10'"H.'#9'c #0'
+  +'C0E0D",'#10'"I.'#9'c #86878B",'#10'"J.'#9'c #000005",'#10'"K.'#9'c #0D0D15"'
+  +','#10'"L.'#9'c #0B0C10",'#10'"M.'#9'c #000004",'#10'"N.'#9'c #07080A",'#10
+  +'". . . . . . . . . . +     @     . . . . . . . . . . #     #     ",'#10'". '
+  +'$ $ $ $ $ $ $ $ $ %   & * =   . - - - - - - - - - #   # # #   ",'#10'". ; %'
+  +' > , , '' , + ) !     =   ~ . # # # # # # # # # #     #   # ",'#10'"{ ] ^ /'
+  +' ^ ^ ( _ : < [         } { - | 1 - - - - - - #         # ",'#10'". 2 3 4 5 '
+  +'6 7 8 9 0 a b c       . d e e - f 7 8 9 0 a b c       ",'#10'"g h i j k l m'
+  +' n o p p q r s     g t u e v l m w d x d - r #     ",'#10'"y z A B C D E F '
+  +'G G H I J K L   y d - e M D E N - - - O J - #   ",'#10'"P Q R S T U # G V W'
+  +' X X Y Z ` Y P  .- ..+.U # N - u - @.# # # # ",'#10'"#.$.%.&.*.=.-.;.>.$.$.'
+  +'$.,.''.).!.#.- ~.&.*.=.-.u - u - - {.].- # ",'#10'"^./.(._.:.<.[.X X X }.$.'
+  +'$.|.1.2.^.# # # # # [.3.- - - - - - 1.# ",'#10'"    4.      5.Q G 6.7.Q 8.Q'
+  +' 9.0.    #       5.- - - - - - - 9.# ",'#10'"  a.0.0.    b.c.d.e.e.f.g.e.h.'
+  ,'i.  # # #     b.- - - - - - - h.# ",'#10'"    j.      k.G l.e.f.m.n.o.p.q. '
+  +'   #       k.r.- - s.- - - p.# ",'#10'"    t.      u.v.Q 8.Q G c.e.w.s     '
+  +'#       u.x.y.- z.- - A.w.# ",'#10'"      s     B.1 1 C.- D.E.F.G.H.      #'
+  +'     B.1 1 C.- D.E.F.G.# ",'#10'"            I.J.L K.J.J.L.M.N.0.          '
+  +'  I.# # # # # # # # # "};'#10
+]);
+LazarusResources.Add('btn_viewforms','XPM',[
+  '/* XPM */'#10'static char * btn_viewforms_xpm[] = {'#10'"16 16 126 2",'#10'"'
+  +'  '#9'c None",'#10'". '#9'c #807D90",'#10'"+ '#9'c #85829F",'#10'"@ '#9'c #'
+  +'848894",'#10'"# '#9'c #000017",'#10'"$ '#9'c #888799",'#10'"% '#9'c #870013'
+  +'",'#10'"& '#9'c #CC0013",'#10'"* '#9'c #FF0013",'#10'"= '#9'c #000015",'#10
+  +'"- '#9'c #87878F",'#10'"; '#9'c #F9FBFF",'#10'"> '#9'c #FAFDFF",'#10'", '#9
+  +'c #FBFEFF",'#10'"'' '#9'c #F2F6FF",'#10'") '#9'c #FBFFFF",'#10'"! '#9'c #F5'
+  +'FAFF",'#10'"~ '#9'c #FCFFFF",'#10'"{ '#9'c #000102",'#10'"] '#9'c #797A7F",'
+  +#10'"^ '#9'c #7F7F89",'#10'"/ '#9'c #868595",'#10'"( '#9'c #828395",'#10'"_ '
+  +#9'c #808490",'#10'": '#9'c #838790",'#10'"< '#9'c #787D83",'#10'"[ '#9'c #0'
+  +'00104",'#10'"} '#9'c #D1D5D6",'#10'"| '#9'c #000300",'#10'"1 '#9'c #8F8CA7"'
+  +','#10'"2 '#9'c #C0BFD1",'#10'"3 '#9'c #00000B",'#10'"4 '#9'c #827DA5",'#10
+  +'"5 '#9'c #FBF5FF",'#10'"6 '#9'c #F8F0FF",'#10'"7 '#9'c #FEF6FF",'#10'"8 '#9
+  +'c #FAF4FF",'#10'"9 '#9'c #FBF6FF",'#10'"0 '#9'c #FBF8FF",'#10'"a '#9'c #FBF'
+  +'9FF",'#10'"b '#9'c #F2F0FF",'#10'"c '#9'c #00001F",'#10'"d '#9'c #C2C0D6",'
+  +#10'"e '#9'c #01000E",'#10'"f '#9'c #817E9B",'#10'"g '#9'c #000022",'#10'"h '
+  +#9'c #D0CDEC",'#10'"i '#9'c #000013",'#10'"j '#9'c #C7C7D3",'#10'"k '#9'c #0'
+  +'00106",'#10'"l '#9'c #848297",'#10'"m '#9'c #05061A",'#10'"n '#9'c #C6C5D3"'
+  +','#10'"o '#9'c #000005",'#10'"p '#9'c #C5C7C6",'#10'"q '#9'c #000100",'#10
+  +'"r '#9'c #858786",'#10'"s '#9'c #FAFBFF",'#10'"t '#9'c #FEFEFF",'#10'"u '#9
+  +'c #FDFDFF",'#10'"v '#9'c #FBFAFF",'#10'"w '#9'c #FEFDFF",'#10'"x '#9'c #F7F'
+  +'7FF",'#10'"y '#9'c #FEFFFF",'#10'"z '#9'c #F8F9FB",'#10'"A '#9'c #000200",'
+  +#10'"B '#9'c #C9CCC3",'#10'"C '#9'c #82857A",'#10'"D '#9'c #FEFFF8",'#10'"E '
+  +#9'c #C1C4BD",'#10'"F '#9'c #CBCDC8",'#10'"G '#9'c #C9CBCA",'#10'"H '#9'c #C'
+  +'2C3C5",'#10'"I '#9'c #C8C9CB",'#10'"J '#9'c #BEC0BF",'#10'"K '#9'c #C5C7C4"'
+  +','#10'"L '#9'c #B9BCB1",'#10'"M '#9'c #010500",'#10'"N '#9'c #888B80",'#10
+  +'"O '#9'c #C0C3BC",'#10'"P '#9'c #C9CBC6",'#10'"Q '#9'c #C7C8CD",'#10'"R '#9
+  +'c #C0BECC",'#10'"S '#9'c #CCC9DC",'#10'"T '#9'c #C1BECF",'#10'"U '#9'c #D8D'
+  +'7DF",'#10'"V '#9'c #000004",'#10'"W '#9'c #797B76",'#10'"X '#9'c #FEFFFB",'
+  +#10'"Y '#9'c #CBCDCC",'#10'"Z '#9'c #C9CACC",'#10'"` '#9'c #B9BABF",'#10'" .'
+  +#9'c #CCCCD6",'#10'"..'#9'c #C7C4D7",'#10'"+.'#9'c #CECBE0",'#10'"@.'#9'c #B'
+  +'FBCCF",'#10'"#.'#9'c #00000E",'#10'"$.'#9'c #100E19",'#10'"%.'#9'c #898A8F"'
+  +','#10'"&.'#9'c #FAFAFF",'#10'"*.'#9'c #C4C4D0",'#10'"=.'#9'c #CCCBDB",'#10
+  +'"-.'#9'c #CCCADF",'#10'";.'#9'c #BFBED0",'#10'">.'#9'c #C4C2CD",'#10'",.'#9
+  +'c #C6C5CB",'#10'"''.'#9'c #D0CFD5",'#10'").'#9'c #040309",'#10'"!.'#9'c #86'
+  +'878C",'#10'"~.'#9'c #FCFCFF",'#10'"{.'#9'c #BEBEC8",'#10'"].'#9'c #CBCAD8",'
+  +#10'"^.'#9'c #B2B1C3",'#10'"/.'#9'c #D1D0DE",'#10'"(.'#9'c #C5C5C7",'#10'"_.'
+  +#9'c #BFC0BB",'#10'":.'#9'c #C3C3C1",'#10'"<.'#9'c #000000",'#10'"[.'#9'c #8'
+  +'1847D",'#10'"}.'#9'c #070A03",'#10'"|.'#9'c #070904",'#10'"1.'#9'c #0E0F11"'
+  +','#10'"2.'#9'c #040500",'#10'"3.'#9'c #010100",'#10'"4.'#9'c #040400",'#10
+  +'"5.'#9'c #040300",'#10'"                                ",'#10'"          .'
+  +' + @ @ @ @ @ @ @ #   ",'#10'"          $ % % & & * * * * =   ",'#10'"      '
+  +'    - ; > , '' ) ) ! ~ {   ",'#10'"      ] ^ / ( @ @ _ : < [ } |   ",'#10'"'
+  +'      1 % % & & * * * * # 2 3   ",'#10'"      4 5 6 7 8 9 0 a b c d e   ",'
+  +#10'"  f @ @ @ @ @ @ @ @ g h i j k   ",'#10'"  l % % & & * * * * m n o p q  '
+  +' ",'#10'"  r s t u v w x y z A B | | |   ",'#10'"  C D E F G H I J K | L M '
+  +'      ",'#10'"  N D O P p Q R S T 3 U V       ",'#10'"  W X Y Z `  ...+.@.#'
+  +'.3 $.      ",'#10'"  %.&.*.=.-.;.>.,.''.).          ",'#10'"  !.~.{.].^./.('
+  +'._.:.<.          ",'#10'"  [.}.|.q 1.q 2.3.4.5.          "};'#10
+]);
+LazarusResources.Add('btn_viewunits','XPM',[
+  '/* XPM */'#10'static char * btn_viewunits_xpm[] = {'#10'"11 14 3 1",'#10'" '
+  +#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #FFFFFF",'#10'"     ....  ",'
+  +#10'"    .++++..",'#10'"    .+++++.",'#10'"   ....+++.",'#10'"  .++++..+.",'
+  +#10'"  .+++++.+.",'#10'" ....+++.+.",'#10'".++++..+...",'#10'".+++++.+.  ",'
+  +#10'".+++++.+.  ",'#10'".+++++...  ",'#10'".+++++.    ",'#10'".+++++.    ",'
+  +#10'".......    "};'#10
+]);
diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index d068a39f6f..b5020eec14 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -638,15 +638,15 @@ const
 type
   TBitmapCanvas = class(TCanvas)
   private
-    FBitmap : TBitMap;
-    FOldBitMap : HBitmap;
+    FBitmap : TBitmap;
+    FOldBitmap : HBitmap;
     FOldPalette : HPALETTE;
     procedure FreeDC;
   protected
     procedure CreateHandle; override;
   public
-    constructor Create(ABitMap : TBitmap);
-    destructor Destroy; override; // overriding causes a crash with flat speedbuttons
+    constructor Create(ABitmap : TBitmap);
+    destructor Destroy; override;
     // TODO: replace this by property BitmapHandle;
     // MWE: Not needed
     //property Bitmap: TBitmap read FBitmap;
@@ -765,6 +765,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.31  2002/06/01 08:41:28  lazarus
+  MG: DrawFramControl now uses gtk style, transparent STrechBlt
+
   Revision 1.30  2002/05/10 06:05:50  lazarus
   MG: changed license to LGPL
 
diff --git a/lcl/include/bitmapcanvas.inc b/lcl/include/bitmapcanvas.inc
index d908bb1b2b..ba68864b49 100644
--- a/lcl/include/bitmapcanvas.inc
+++ b/lcl/include/bitmapcanvas.inc
@@ -48,12 +48,13 @@ begin
 
     Assert(False, Format('trace:[TBitmapCanvas.CreateHandle] Got Handle 0x%x', [FBitmap.Handle]));
 
-    if FBitmap.Handle = 0
-    then FOldBitmap := 0
-    else FOldBitmap := SelectObject(DC, FBitmap.Handle);
+    if FBitmap.Handle = 0 then
+      FOldBitmap := 0
+    else
+      FOldBitmap := SelectObject(DC, FBitmap.Handle);
 
-    if FBitmap.FPalette = 0
-    then FOldPalette := 0
+    if FBitmap.FPalette = 0 then
+      FOldPalette := 0
     else begin
       FOldPalette := SelectPalette(DC, FBitmap.FPalette, True);
       RealizePalette(DC);
@@ -90,8 +91,14 @@ var
 begin
   if FHandle <> 0 then
   begin
-    if FOldBitmap <> 0 then SelectObject(FHandle, FOldBitmap);
-    if FOldPalette <> 0 then SelectPalette(FHandle, FOldPalette, True);
+    if FOldBitmap <> 0 then begin
+      SelectObject(FHandle, FOldBitmap);
+      FOldBitmap:=0;
+    end;
+    if FOldPalette <> 0 then begin
+      SelectPalette(FHandle, FOldPalette, True);
+      FOldPalette:=0;
+    end;
     hBmp := FHandle;
     Handle := 0;
     DeleteDC(hBmp);
@@ -101,6 +108,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.5  2002/06/01 08:41:28  lazarus
+  MG: DrawFramControl now uses gtk style, transparent STrechBlt
+
   Revision 1.4  2002/05/10 06:05:51  lazarus
   MG: changed license to LGPL
 
diff --git a/lcl/include/buttonglyph.inc b/lcl/include/buttonglyph.inc
index 3f4caa2e3c..9d2a706d69 100644
--- a/lcl/include/buttonglyph.inc
+++ b/lcl/include/buttonglyph.inc
@@ -83,10 +83,7 @@ begin
   inc(DestRect.Right,Offset.X);
   inc(DestRect.Top,Offset.Y);
   inc(DestRect.Bottom,Offset.Y);
-  if not Transparent then
-    Canvas.Copyrect(DestRect, TPixmap(FOriginal).Canvas, Result)
-  else
-    ;    
+  Canvas.Copyrect(DestRect, TPixmap(FOriginal).Canvas, Result)
 end;
 
 
diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index c45fd5350a..5323494743 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -295,7 +295,15 @@ begin
   else
     BrushStyle:= bsSolid;}
   
-  Canvas.Brush.Color:= clBtnFace;
+  DrawFlags:=DFCS_BUTTONPUSH;
+  if Flat then inc(DrawFlags,DFCS_FLAT);
+  if FState in [bsDown, bsExclusive] then inc(DrawFlags,DFCS_PUSHED);
+  if FMouseInControl then inc(DrawFlags,DFCS_CHECKED);
+  if not Enabled then inc(DrawFlags,DFCS_INACTIVE);
+  
+  DrawFrameControl(Canvas.Handle, PaintRect, DFC_BUTTON, DrawFlags);
+
+  {Canvas.Brush.Color:= clBtnFace;
   Canvas.FillRect(PaintRect);
 
   if FFlat then begin
@@ -324,7 +332,7 @@ begin
       Canvas.Brush.Color:= clBtnHighlight;
       Canvas.FillRect(PaintRect);
     end;
-  end;
+  end;}
   
   GlyphWidth:= TButtonGlyph(FGlyph).Glyph.Width;
   if TButtonGlyph(FGlyph).NumGlyphs > 1 then
@@ -667,6 +675,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.15  2002/06/01 08:41:28  lazarus
+  MG: DrawFramControl now uses gtk style, transparent STrechBlt
+
   Revision 1.14  2002/05/10 06:05:55  lazarus
   MG: changed license to LGPL
 
diff --git a/lcl/interfaces/gtk/gtkdef.pp b/lcl/interfaces/gtk/gtkdef.pp
index 62d1305ee3..90b304ac88 100644
--- a/lcl/interfaces/gtk/gtkdef.pp
+++ b/lcl/interfaces/gtk/gtkdef.pp
@@ -60,15 +60,16 @@ type
       gdiBitmap: (
         GDIBitmapMaskObject: PGdkPixmap;
         case GDIBitmapType: TGDIBitmapType of
-          gbBitmap: (GDIBitmapObject: PGdkBitmap); 
-          gbPixmap: (GDIPixmapObject: PGdkPixmap);
+          gbBitmap: (GDIBitmapObject: PGdkBitmap); // pixmap with depth 1
+          gbPixmap: (GDIPixmapObject: PGdkPixmap); // normal pixmap
           gbImage : (GDIRawImageObject: PGDIRawImage);
       );
       gdiBrush: ( 
+        // ToDo: add bitmap mask
         GDIBrushColor: TGdkColor;
         GDIBrushFill: TGdkFill;
         GDIBrushPixMap: PGdkPixmap;
-      ); 
+      );
       gdiFont: (
         GDIFontObject: PGdkFont;
         LogFont: TLogFont;  // for now font info is stored as well, later query font params
@@ -140,6 +141,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.7  2002/06/01 08:41:28  lazarus
+  MG: DrawFramControl now uses gtk style, transparent STrechBlt
+
   Revision 1.6  2002/05/10 06:05:56  lazarus
   MG: changed license to LGPL
 
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index ca53b7ffa6..7c1c8231a2 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -1271,26 +1271,36 @@ end;
 
 {------------------------------------------------------------------------------
   Function: CreatePixmapIndirect
-  Params:  Data: Raw pixmap data
+  Params:  Data: Raw pixmap data (PPGChar fo xpm file)
   Returns: Handle to LCL bitmap
 
   Creates a bitmap from raw pixmap data.
+  If TransColor < 0 the transparency mask will be automatically gnerated.
  ------------------------------------------------------------------------------}
 function TgtkObject.CreatePixmapIndirect(const Data: Pointer;
   const TransColor: Longint): HBITMAP;
 var
   GdiObject: PGdiObject;
   GDKColor: TGDKColor;
+  Window: PGdkWindow;
+  ColorMap: PGdkColormap;
   P: Pointer;
 begin
   GdiObject := NewGDIObject(gdiBitmap); 
-  if TransColor >= 0 then
-    GDKColor := AllocGDKColor(TransColor)
+  if TransColor >= 0 then begin
+    GDKColor := AllocGDKColor(TransColor);
+    p := @GDKColor;
+  end else
+    p:=nil; // automatically create transparency mask
+  Window:=nil; // use the X root window for colormap
+  if Window<>nil then
+    ColorMap:=gdk_window_get_colormap(Window)
   else
-    GDKColor := AllocGDKColor(ColorToRGB(clRed)); 
-  p := @GDKColor;
-  GdiObject^.GDIBitmapObject := gdk_pixmap_colormap_create_from_xpm_d(nil,
-           gdk_colormap_get_system, @(GdiObject^.GDIBitmapMaskObject), p, data);
+    ColorMap:=gdk_colormap_get_system;
+  GdiObject^.GDIPixmapObject :=
+    gdk_pixmap_colormap_create_from_xpm_d(Window,Colormap,
+           @(GdiObject^.GDIBitmapMaskObject), p, data);
+  GdiObject^.GDIBitmapType:=gbPixmap;
   Result := HBITMAP(GdiObject);
 end;
 
@@ -1418,12 +1428,84 @@ end;
 
 
  ------------------------------------------------------------------------------}
-function TgtkObject.DrawFrameControl(DC: HDC; var Rect : TRect; uType, uState : Cardinal) : Boolean;
+function TgtkObject.DrawFrameControl(DC: HDC; var Rect : TRect;
+  uType, uState : Cardinal) : Boolean;
 const
   ADJUST_FLAG: array[Boolean] of Integer = (0, BF_ADJUST);
   PUSH_EDGE_FLAG: array[Boolean] of Integer = (EDGE_RAISED, EDGE_SUNKEN);
   PUSH_EDGE_FLAG2: array[Boolean] of Integer = (0, BF_FLAT);
+var
+  Widget: PGtkWidget;
+  
+  procedure DrawButtonPush;
+  var
+    State: TGtkStateType;
+    Shadow: TGtkShadowType;
+  begin
+    if Widget<>nil then begin
+    
+      // use the gtk paint functions to draw a widget style dependent button
+      
+      // set State (the interior filling style)
+      if (DFCS_INACTIVE and uState)<>0 then begin
+        // button disabled
+        State:=GTK_STATE_INSENSITIVE;
+      end else begin
+        if (DFCS_PUSHED and uState)<>0 then begin
+          // button enabled, down
+          if (DFCS_CHECKED and uState)<>0 then begin
+            // button enabled, down, special (e.g. mouse over)
+            State:=GTK_STATE_ACTIVE;
+          end else begin
+            // button enabled, down, normal
+            State:=GTK_STATE_SELECTED;
+          end;
+        end else begin
+          // button enabled, up
+          if (DFCS_CHECKED and uState)<>0 then begin
+            // button enabled, up, special (e.g. mouse over)
+            State:=GTK_STATE_PRELIGHT;
+          end else begin
+            // button enabled, up, normal
+            State:=GTK_STATE_NORMAL;
+          end;
+        end;
+      end;
+      // set Shadow (the border style)
+      if (DFCS_PUSHED and uState)<>0 then begin
+        // button down
+        Shadow:=GTK_SHADOW_IN;
+      end else begin
+        if (((DFCS_FLAT+DFCS_CHECKED) and uState)=DFCS_FLAT) then begin
+          // button up, flat, no special
+          Shadow:=GTK_SHADOW_NONE;
+        end else begin
+          // button up
+          Shadow:=GTK_SHADOW_OUT;
+        end;
+      end;
+      gtk_draw_box(Widget^.TheStyle,Widget^.Window,
+             State,
+             Shadow,
+             Rect.Left,Rect.Top,
+             Rect.Right-Rect.Left,Rect.Bottom-Rect.Top);
+    end else begin
+      // draw without widget style
+      Result := DrawEdge(DC, Rect,
+                         PUSH_EDGE_FLAG[(uState and DFCS_PUSHED) <> 0],
+                         BF_RECT or ADJUST_FLAG[
+                                    (uState and DFCS_ADJUSTRECT) <> 0]
+                         );
+    end;
+  end;
+  
 begin
+  if IsValidDC(DC) then
+    //Widget:=PGtkWidget(PDeviceContext(DC)^.hWnd)
+    Widget:=@PGtkFixed(GetFixedWidget(PGtkWidget(
+                              PDeviceContext(DC)^.hWnd)))^.Container.Widget
+  else
+    Widget:=nil;
   case uType of
     DFC_CAPTION:
       begin  //all draw CAPTION commands here
@@ -1458,12 +1540,16 @@ begin
           DFCS_BUTTONPUSH:
             begin
               Assert(False, 'Trace:DFCS_BUTTONPUSH in uState');
-              Result := DrawEdge(DC, Rect, PUSH_EDGE_FLAG[(uState and DFCS_PUSHED) <> 0], BF_RECT or ADJUST_FLAG[(uState and DFCS_ADJUSTRECT) <> 0]);
+              DrawButtonPush;
             end;
           DFCS_BUTTONCHECK:
             begin
               Assert(False, 'Trace:State ButtonCheck');
-              Result := DrawEdge(DC, Rect, PUSH_EDGE_FLAG2[(uState and DFCS_FLAT) <> 0], BF_RECT or ADJUST_FLAG[(uState and DFCS_ADJUSTRECT) <> 0]);
+              Result := DrawEdge(DC, Rect,
+                                 PUSH_EDGE_FLAG2[(uState and DFCS_FLAT) <> 0],
+                                 BF_RECT or ADJUST_FLAG[
+                                            (uState and DFCS_ADJUSTRECT) <> 0]
+                                 );
               if (uState and DFCS_CHECKED) <> 0 then
                  Begin
                  //TODO:write the code to draw a check inside the box defined by Rect
@@ -1487,7 +1573,8 @@ end;
   Draws one or more edges of a rectangle, not including the 
   right and bottom edge.
  ------------------------------------------------------------------------------}
-function TgtkObject.DrawEdge(DC: HDC; var Rect: TRect; edge: Cardinal; grfFlags: Cardinal): Boolean;
+function TgtkObject.DrawEdge(DC: HDC; var Rect: TRect; edge: Cardinal;
+  grfFlags: Cardinal): Boolean;
 Var
   InnerTL, OuterTL,
   InnerBR, OuterBR: TGDKColor;
@@ -1743,10 +1830,10 @@ begin
           gdk_draw_rectangle(Drawable, GC, 1, Rect^.Left, Rect^.Top, Width, Height);
         end;
         if (Options and ETO_CLIPPED) <> 0 then
-	begin
+        begin
           X := Rect^.Left;
           Y := Rect^.Top;
-	end;
+        end;
         SelectGDKTextProps(DC);
         Line := 1;
         OldText := StrPas(pStr);
@@ -1838,7 +1925,8 @@ begin
         Result:= False;
       end
       else begin
-        Widget:= PGtkFixed(GetFixedWidget(PGtkWidget(PDeviceContext(DC)^.hWnd)))^.Container.Widget;
+        Widget:=PGtkFixed(GetFixedWidget(PGtkWidget(
+                                  PDeviceContext(DC)^.hWnd)))^.Container.Widget;
         for i:= 1 to FrameWidth do begin
           gtk_paint_shadow(Widget.thestyle, Widget.window, GTK_STATE_NORMAL,
                            GtkShadowType[Style], nil, @Widget, nil,
@@ -4422,36 +4510,41 @@ end;
   resizes the bitmap to fit the dimensions of the destination rectangle. 
   Sizing is done according to the stretching mode currently set in the 
   destination device context.
+  If SrcDC contains a mask the pixmap will be copied with this transparency.
+  
+  ToDo: Scaling and ROP
  ------------------------------------------------------------------------------}
 function TgtkObject.StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer;
   SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: Cardinal): Boolean;
-//var
-  //pixmap : PgdkPixmap;
-  //pixmapwid : pgtkWidget;
+var
+  SrcDevContext, DestDevContext: PDeviceContext;
+  SrcGDIBitmap: PGdiObject;
+  
 begin
   Assert(True, Format('trace:> [TgtkObject.StretchBlt] DestDC:0x%x; X:%d, Y:%d, Width:%d, Height:%d; SrcDC:0x%x; XSrc:%d, YSrc:%d, SrcWidth:%d, SrcHeight:%d; Rop:0x%x', [DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Rop]));
   Result := IsValidDC(DestDC) and IsValidDC(SrcDC);
 //writeln('[TgtkObject.StretchBlt] ',Result);
   if Result then begin
-    gdk_gc_set_function(PDeviceContext(DestDC)^.GC, GDK_COPY);
+    SrcDevContext:=PDeviceContext(SrcDC);
+    DestDevContext:=PDeviceContext(DestDC);
+    SrcGDIBitmap:=SrcDevContext^.CurrentBitmap;
+    gdk_gc_set_function(DestDevContext^.GC, GDK_COPY);
     // TODO: Add scaling and ROP
-    //first create a pixmap with transparency
-    if PgdiObject(SRCdc)^.GDIBitmapMaskObject <> nil then begin
-//  THIS is test code for transparency
-{      pixmap := pgdkPixmap(PgdiObject(Srcdc)^.GDIBitmapObject);
-      pixmapwid := gtk_pixmap_new(pixmap,PgdiObject(SRCdc)^.GDIBitmapMAskObject);
-
-      gdk_draw_pixmap(PDeviceContext(DestDC)^.Drawable,PDeviceContext(DestDC)^.GC,
-        PgdkDrawable(pixmapwid^.window),
-        XSrc, YSrc, X, Y, SrcWidth, SrcHeight);}
-//writeln('[TgtkObject.StretchBlt] B ');
-      gdk_draw_pixmap(PDeviceContext(DestDC)^.Drawable,
-        PDeviceContext(DestDC)^.GC, PDeviceContext(SrcDC)^.Drawable,
-        XSrc, YSrc, X, Y, SrcWidth, SrcHeight);
-    end else begin
-      gdk_draw_pixmap(PDeviceContext(DestDC)^.Drawable,
-        PDeviceContext(DestDC)^.GC, PDeviceContext(SrcDC)^.Drawable,
-        XSrc, YSrc, X, Y, SrcWidth, SrcHeight);
+    if SrcGDIBitmap^.GDIBitmapMaskObject <> nil then
+    begin
+      // set clipping mask for transparency
+      gdk_gc_set_clip_mask(DestDevContext^.GC,
+                           SrcGDIBitmap^.GDIBitmapMaskObject);
+      gdk_gc_set_clip_origin(DestDevContext^.GC, X, Y);
+    end;
+    // draw image
+    gdk_draw_pixmap(DestDevContext^.Drawable,
+                    DestDevContext^.GC, SrcDevContext^.Drawable,
+                    XSrc, YSrc, X, Y, SrcWidth, SrcHeight);
+    if SrcGDIBitmap^.GDIBitmapMaskObject <> nil then begin
+      // unset clipping mask for transparency
+      gdk_gc_set_clip_mask (DestDevContext^.GC,nil);
+      gdk_gc_set_clip_origin (DestDevContext^.GC, 0,0);
     end;
 //writeln('[TgtkObject.StretchBlt] C ');
   end;
@@ -4539,6 +4632,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.73  2002/06/01 08:41:28  lazarus
+  MG: DrawFramControl now uses gtk style, transparent STrechBlt
+
   Revision 1.72  2002/05/27 17:58:42  lazarus
   MG: added command line help