lcl: Standard Dialog Actions

git-svn-id: trunk@15112 -
2025-10-24 06:01:42 +02:00 · 2008-05-13 03:36:08 +00:00 · 2008-05-13 03:36:08 +00:00 · 6abb9d2d98
commit 6abb9d2d98
parent 2c7ee0f8d9
5 changed files with 249 additions and 54 deletions
--- a/examples/std_actions/readme.txt
+++ b/examples/std_actions/readme.txt
@ -1,3 +1,9 @@
 This example shows current state of Standard actions in LCL

- v1: only Edit actions are implemented
+- v1: only Edit actions are implemented
+- v2: File action, dialog, action images
+
+Example uses icons from this sets:
+
+- Silk icon set 1.3 by Mark James (http://www.famfamfam.com/lab/icons/silk/)
+- Tango Icon Library (http://tango.freedesktop.org/Tango_Icon_Library)
--- a/examples/std_actions/unit1.lfm
+++ b/examples/std_actions/unit1.lfm
@ -174,6 +174,18 @@ object Form1: TForm1
      Hint = 'Exit'
      ImageIndex = 8
    end
+    object ColorSelect1: TColorSelect
+      Category = 'Dialog'
+      Caption = 'Select &Color...'
+      Hint = 'Color Select'
+      ImageIndex = 9
+    end
+    object FontEdit1: TFontEdit
+      Category = 'Dialog'
+      Caption = 'Select &Font...'
+      Hint = 'Font Select'
+      ImageIndex = 10
+    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
@ -215,12 +227,21 @@ object Form1: TForm1
        Action = EditUndo1
      end
    end
+    object MenuItem9: TMenuItem
+      Caption = 'Dialogs'
+      object MenuItem10: TMenuItem
+        Action = ColorSelect1
+      end
+      object MenuItem12: TMenuItem
+        Action = FontEdit1
+      end
+    end
  end
  object ImageList1: TImageList
    left = 242
    top = 32
    Bitmap = {
-      4C69090000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      4C690B0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF009A6B2731AA7E43A192601805FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00A87D4269CCB08BE0915D1409FFFFFF00FFFFFF00FFFF
@ -508,7 +529,71 @@ object Form1: TForm1
      4FFF4C4C4CFF4A4A4AFF474747FF454545FF25679DFF3274A8FF3D7CAFFF4784
      B5FF4E8ABAFF3E7EADFF0C578FEAFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001D639B1619609839145D9562105A
-      92880D5890A4135C92FC0C578FED
+      92880D5890A4135C92FC0C578FEDFFFFFF00FFFFFF00FFFFFF000DD8000304D0
+      13540CD135AF15D255DA18D474F418D68CF113D8A2D40DDBB9A206E4D945FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003AD5042220D009AF3AD7
+      3DFF6AE67CFF88F3AAFF96F9C4FF97FBD3FF87F7DBFF68EFE0FF1AE7E5FA0AD5
+      EB9805BBF412FFFFFF00FFFFFF00FFFFFF0065D800204CD50ECF74E158FFA1F6
+      99FF9EFFA6FF7BFF9EFF70FFAEFF70FFC7FF7CFFE3FFA5FFFAFF98F4FBFF55D8
+      F5FF0DB7F9B6008DFC11FFFFFF0080DE000677DA09B094E257FFBBF99DFF8AFF
+      6EFF79FF76FF82FF97FF89FFB6FF87FFD1FF7EFFECFF6DFBFEFF76E8FFFF9BDF
+      FCFF54BAFBFF0782F68EFFFFFF0096DF0052A0E138FFCBF697FFAEFF6CFFA4FF
+      7AFF9DFF8DFF9BFFA3FFA4FFC4FFA2FFDFFF97FFF8FF85EFFFFF6ED3FFFF78C5
+      FFFF92C5FCFF146EF4F60052F032B2E608ADC6EB67FFDDFF9BFFC5FF6FFFC3FF
+      8CFFBEFFA1FFB9FFB3FFBDFFCFFFBDFFEEFFB0F8FFFF99DEFFFF7EC2FFFF63A3
+      FFFF9EBDFFFF5983F8FF0336E28ACDEA0EDBE4F582FFE5FF6FFFE0FF79FFE0FF
+      95FFDFFFAFFFDCFFC7FFDCFFE0FFD9FEFAFFC5E9FFFFA7CAFFFF87AAFFFF698B
+      FFFF788EFFFF7386FBFF0822DDBEEAEC0EF4F9FA92FFFAFD64FFFAFD7BFFF9FD
+      98FFFAFDB5FFFAFED3FFFAFEEFFFEFF3FFFFD0D5FFFFAFB3FFFF8D91FFFF6C6F
+      FFFF6769FFFF8283FBFF090DD9DBF1DA0EF1FFF290FFFFE962FFFFE876FFFFE7
+      93FFFFE7B0FFFFE6CAFFFFE5E5FFFCDEFDFFE1C6FFFFC2A6FFFFA184FFFF7E66
+      FFFF7664FFFF887BF6FF1A08D5D8F5BF09D5FEDD80FFFFD16CFFFFC76BFFFFC7
+      85FFFFC49EFFFFBDB3FFFFBFD0FFFFBFF1FFF4B0FFFFD696FFFFB679FFFF955E
+      FFFF9977FFFF8265ECFF2A04D0B7FBA6009EFDBE60FFFFD09CFFFFA55BFFFFA2
+      71FFFF9A84FFFF979BFFFF9FBFFFFF9FE0FFFE92FBFFE77CFFFFC966FFFFA84F
+      FFFFBE95FDFF7240DDFF3600CC79FA82003EF87C0BFBFBB98EFFFF976AFFFF79
+      5BFFFF716BFFFF7689FFFF7CADFFFF7BCDFFFF71EDFFF763FFFFD952FFFFCF7C
+      FFFFB373ECFF5906CCEB4600CC22FFFFFF00F0560092F07744FFFCA692FFFF7B
+      6FFFFF5158FFFF5A79FFFF5E9BFFFF5CBCFFFF57DAFFFF4CF7FFF17BFFFFD685
+      F1FF9734CFFF6100C26FFFFFFF00FFFFFF00EB47000EE22A00AEE95240FFF885
+      84FFFF969FFFFF7491FFFF609AFFFF60B7FFFF78D8FFFC92EFFFE871EAFFB632
+      CCFF8900BD916D00CE05FFFFFF00FFFFFF00FFFFFF00E51E000CD3040085D404
+      0CF1E14059FFEE6384FFF373A1FFF071B2FFE45AB6FFD236B4FFBE02B4E6AD00
+      BA6E9700CC02FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D000
+      072EC3001C7EBF0031B6BE0144D5BB005AD2B90072AEB8008A72C100AF21FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D8874040D88B4385DA8E4994D989438FD8844090D884419AD373
+      3A8ACC62320DC95B2E01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D7833E53E2A76CDEE9BC91FFE7BA8FFFE7B78BFFE2A471FBD67E
+      42B6CB5C2F0AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D67D3B1CDD9656BAE3A973F2E1A873F5E1A471F7D3773E98CB5F
+      3008FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D4793C77E2A670F7DA8847ADD67E43A0E4AE82FFCF6D3A99FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00D1713822DE9B63E2DC965EDFCF693554CF693580E2A97CFFD16C3AA5FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D06A
+      3503D78042AADF9F6AF7CD663466C95D2F0ACC613388E1A679FFD57A44D2C24A
+      2706FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CF6A
+      365CDF9D68F6DA8B52D1CB5F314EC7592E2ACD6737A0E1A67AFFD88653F2BF46
+      250DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CC633215DB93
+      5EEAE2A779FFD8834AD3CF6A3AB2CE6839B5D57A45D8E3A881FFD98656F9BE41
+      231BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CB5D3001D3743F9BE2A9
+      7CFFCC663799FFFFFF00FFFFFF00FFFFFF00CC6337B1DFA077FFDA895AFFBB3E
+      2222FFFFFF00FFFFFF00FFFFFF00FFFFFF00CA5C2F0ACB5F3044E1A475FFDA8C
+      58ECC6522C3DFFFFFF00FFFFFF00BF452413C348277FDC966BFFDB8F60FFBD3F
+      2154B6381E02FFFFFF00FFFFFF00FFFFFF00CE6838AEDA8F5DFEDB9060FFD783
+      50EDC4502B8DBD422310BC3F222AC34D2BA2D07142EAD67E51FFD57C4DFFC655
+      31BDB6391D31FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00
    }
  end
 end
--- a/examples/std_actions/unit1.lrs
+++ b/examples/std_actions/unit1.lrs
@ -50,39 +50,45 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +'leSaveAs'#11'FileSaveAs1'#8'Category'#6#4'File'#7'Caption'#6#11'Save &As...'
  +#4'Hint'#6#7'Save As'#10'ImageIndex'#2#7#0#0#9'TFileExit'#9'FileExit1'#8'Cat'
  +'egory'#6#4'File'#7'Caption'#6#5'E&xit'#4'Hint'#6#4'Exit'#10'ImageIndex'#2#8
-  +#0#0#0#9'TMainMenu'#9'MainMenu1'#6'Images'#7#10'ImageList1'#4'left'#3#213#0#3
-  +'top'#2' '#0#9'TMenuItem'#9'MenuItem8'#7'Caption'#6#4'File'#0#9'TMenuItem'#10
-  +'MenuItem11'#6'Action'#7#9'FileOpen1'#0#0#9'TMenuItem'#10'MenuItem13'#6'Acti'
-  +'on'#7#13'FileOpenWith1'#0#0#9'TMenuItem'#10'MenuItem16'#6'Action'#7#11'File'
-  +'SaveAs1'#0#0#9'TMenuItem'#10'MenuItem17'#6'Action'#7#9'FileExit1'#0#0#0#9'T'
-  +'MenuItem'#9'MenuItem1'#7'Caption'#6#4'Edit'#0#9'TMenuItem'#9'MenuItem2'#6'A'
-  +'ction'#7#8'EditCut1'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#9'EditCopy1'
-  +#0#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7#10'EditPaste1'#0#0#9'TMenuItem'#9
-  +'MenuItem5'#6'Action'#7#14'EditSelectAll1'#0#0#9'TMenuItem'#9'MenuItem6'#6'A'
-  +'ction'#7#11'EditDelete1'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#9'EditUn'
-  +'do1'#0#0#0#0#10'TImageList'#10'ImageList1'#4'left'#3#242#0#3'top'#2' '#6'Bi'
-  +'tmap'#10#14'$'#0#0'Li'#9#0#0#0#16#0#0#0#16#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#154'k'
-  +'''1'#170'~C'#161#146'`'#24#5#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#168'}Bi'#204
-  +#176#139#224#145']'#20#9#255#255#255#0#255#255#255#0#255#255#255#0#146'`'#23
-  +#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#170#129'Go'#214#189#159
-  +#247#147'a'#25#16#255#255#255#0#255#255#255#0#150'f ,'#169#128'K'#203#255#255
+  +#0#0#12'TColorSelect'#12'ColorSelect1'#8'Category'#6#6'Dialog'#7'Caption'#6
+  +#16'Select &Color...'#4'Hint'#6#12'Color Select'#10'ImageIndex'#2#9#0#0#9'TF'
+  +'ontEdit'#9'FontEdit1'#8'Category'#6#6'Dialog'#7'Caption'#6#15'Select &Font.'
+  +'..'#4'Hint'#6#11'Font Select'#10'ImageIndex'#2#10#0#0#0#9'TMainMenu'#9'Main'
+  +'Menu1'#6'Images'#7#10'ImageList1'#4'left'#3#213#0#3'top'#2' '#0#9'TMenuItem'
+  +#9'MenuItem8'#7'Caption'#6#4'File'#0#9'TMenuItem'#10'MenuItem11'#6'Action'#7
+  +#9'FileOpen1'#0#0#9'TMenuItem'#10'MenuItem13'#6'Action'#7#13'FileOpenWith1'#0
+  +#0#9'TMenuItem'#10'MenuItem16'#6'Action'#7#11'FileSaveAs1'#0#0#9'TMenuItem'
+  +#10'MenuItem17'#6'Action'#7#9'FileExit1'#0#0#0#9'TMenuItem'#9'MenuItem1'#7'C'
+  +'aption'#6#4'Edit'#0#9'TMenuItem'#9'MenuItem2'#6'Action'#7#8'EditCut1'#0#0#9
+  +'TMenuItem'#9'MenuItem3'#6'Action'#7#9'EditCopy1'#0#0#9'TMenuItem'#9'MenuIte'
+  +'m4'#6'Action'#7#10'EditPaste1'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#14
+  +'EditSelectAll1'#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#11'EditDelete1'#0
+  +#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#9'EditUndo1'#0#0#0#9'TMenuItem'#9'M'
+  +'enuItem9'#7'Caption'#6#7'Dialogs'#0#9'TMenuItem'#10'MenuItem10'#6'Action'#7
+  ,#12'ColorSelect1'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'#7#9'FontEdit1'#0
+  +#0#0#0#10'TImageList'#10'ImageList1'#4'left'#3#242#0#3'top'#2' '#6'Bitmap'#10
+  +#14','#0#0'Li'#11#0#0#0#16#0#0#0#16#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#154'k''1'#170
+  +'~C'#161#146'`'#24#5#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#168'}Bi'#204#176#139#224
+  +#145']'#20#9#255#255#255#0#255#255#255#0#255#255#255#0#146'`'#23#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#172#131'Ku'#222#201#175#255#149'd'
-  +#29#31#255#255#255#0#146'`'#23'&'#195#164'|'#235#181#144'c'#203#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#170#129'Go'#214#189#159#247#147'a'
+  +#25#16#255#255#255#0#255#255#255#0#150'f ,'#169#128'K'#203#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#172#131'Ku'#222#201#175#255#149'd'#29#31
+  +#255#255#255#0#146'`'#23'&'#195#164'|'#235#181#144'c'#203#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#175#135'P|'#231#213#193#255#149'e'#31'+'
+  +#143'\'#18#27#197#167#131#231#213#188#157#225#181#147'db'#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#177#137'S'#132#238#223#206#255#151'f e'
+  +#194#163'|'#218#233#216#197#253#169#130'N{'#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#179#140'W'#137#241#226#212#255#206#178#142
+  +#244#245#235#224#255#166'J'#157#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#175#135'P|'#231#213#193#255#149'e'#31
-  +'+'#143'\'#18#27#197#167#131#231#213#188#157#225#181#147'db'#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#177#137'S'#132#238#223#206#255#151'f '
-  +'e'#194#163'|'#218#233#216#197#253#169#130'N{'#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#179#140'W'#137#241#226#212#255#206#178
-  +#142#244#245#235#224#255#166'J'#157#255#255#255#0#255#255#255#0#255#255#255
-  +#0#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#11#136#2#255#255#255#0#180#142'Z'#144#246#234#221#255#225#205
  +#180#255#177#141']'#191#255#255#255#0#255#255#255#0#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#13#140#31#27'&'
@ -123,13 +129,13 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +#255#255#255#0#203#134'U'#219#254#247#241#222#252#229#210#222#252#228#209#222
  +#251#226#204#222#249#221#196#222#234#195#157#255#230#191#150#255#228#187#146
  +#255#228#187#146#255#209#160'l'#245#208#158'm'#246#204#150'_'#218#196'yB~'
-  +#178'g<'#9#255#255#255#0#203#134'T'#219#255#247#242#222#254#231#213#222#254
+  ,#178'g<'#9#255#255#255#0#203#134'T'#219#255#247#242#222#254#231#213#222#254
  +#231#213#222#253#229#209#222#250#224#202#222#229#190#150#255#255#255#254#255
  +#253#243#233#255#253#243#234#255#252#242#232#255#250#239#227#255#250#242#231
  +#255#234#187#136#255#207#133'U'#179#180'i='#12#203#133'S'#219#255#247#240#222
  +#255#231#213#222#253#231#214#222#253#230#212#222#252#228#208#222#228#187#147
  +#255#254#245#237#255#252#222#197#255#251#224#199#255#249#220#194#255#245#211
-  ,#180#255#254#249#243#255#250#226#196#255#236#193#147#255#195'}H'#147#202#132
+  +#180#255#254#249#243#255#250#226#196#255#236#193#147#255#195'}H'#147#202#132
  +'R'#219#255#247#241#222#255#233#217#222#255#234#219#222#255#233#217#222#255
  +#231#215#222#228#187#146#255#254#246#240#255#252#226#205#255#252#227#205#255
  +#250#223#200#255#247#217#188#255#245#233#221#255#250#243#235#255#251#248#243
@ -187,13 +193,13 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +#182#182#255#182#182#182#255#182#182#182#255#181#181#181#255#181#181#181#255
  +#238#238#238#250'ZZZ'#132' c'#152#255'm'#179#223#255'P'#156#213#255'N'#152
  +#211#255'K'#148#209#255'L'#145#203#255'p'#142#167#255#241#241#241#255#233#233
-  +#233#255#233#233#233#255#232#232#232#255#232#232#232#255#232#232#232#255#231
+  ,#233#255#233#233#233#255#232#232#232#255#232#232#232#255#232#232#232#255#231
  +#231#231#255#237#237#237#250'VVV'#132' c'#152#255'k'#177#222#255'M'#151#211
  +#255'K'#147#210#255'H'#143#208#255'J'#140#201#255'o'#139#165#255#241#241#241
  +#255#182#182#182#255#181#181#181#255#181#181#181#255#180#180#180#255#180#180
  +#180#255#180#180#180#255#237#237#237#250'SSS'#132' c'#152#255'i'#174#220#255
  +'J'#147#209#255'H'#143#208#255'F'#139#206#255'G'#136#199#255'l'#136#163#255
-  ,#240#240#240#255#232#232#232#255#232#232#232#255#231#231#231#255#231#231#231
+  +#240#240#240#255#232#232#232#255#232#232#232#255#231#231#231#255#231#231#231
  +#255#231#231#231#255#231#231#231#255#237#237#237#250'OOO'#132' c'#152#255'h'
  +#171#220#255'H'#142#207#255'F'#139#206#255'C'#135#205#255'D'#132#198#255'h'
  +#133#161#255#240#240#240#255#180#180#180#255#180#180#180#255#180#180#180#255
@ -251,13 +257,13 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +#248#248#248#255#247#247#247#255#247#247#247#255#136#141#139#255#255#255#255
  +#0#255#255#255#0#133#138#136#255#249#249#249#255#219#195#173#255#220#196#174
  +#255#221#197#175#255#222#198#176#255#223#199#177#255#224#200#178#255#0#0#0
-  +#255#247#247#247#255#249#249#249#255#248#248#248#255#247#247#247#255#136#141
+  ,#255#247#247#247#255#249#249#249#255#248#248#248#255#247#247#247#255#136#141
  +#139#255#255#255#255#0#255#255#255#0#133#138#136#254#248#248#248#255#248#248
  +#248#255#248#248#248#255#248#248#248#255#248#248#248#255#248#248#248#255#0#0
  +#0#255#248#248#248#255#0#0#0#255#248#248#248#255#248#248#248#255#248#248#248
  +#255#136#141#139#254#255#255#255#0#255#255#255#0#137#142#140#148#133#138#136
  +#255#133#138#136#255#133#138#136#255#133#138#136#255#133#138#136#255#133#138
-  ,#136#255#133#138#136#255#133#138#136#255#133#138#136#255#133#138#136#255#133
+  +#136#255#133#138#136#255#133#138#136#255#133#138#136#255#133#138#136#255#133
  +#138#136#255#133#138#136#255#138#143#141#148#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
@ -315,13 +321,13 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#5'y}'#17#0#160#196#255#173#243#251#255
  +'1'#225#246#255' '#227#250#255's'#236#250#255'o'#235#250#255'n'#232#247#255
  +'l'#232#247#248#20#161#188#212#20#163#193#213#5'y}'#28#0#0#0#0#0#0#0#0#0#0#0
-  +#0#5'y}'#10#0#160#196#255#173#243#251#255'/'#224#246#255'2'#226#247#255')'
+  ,#0#5'y}'#10#0#160#196#255#173#243#251#255'/'#224#246#255'2'#226#247#255')'
  +#219#241#255'/'#224#245#255')'#219#241#255#22#205#227#255'6'#217#236#255'i'
  +#231#246#255'A'#206#227#254#19#163#193#228#5'y}2'#0#0#0#0#0#0#0#0#0#160#196
  +#255#173#243#251#255'/'#224#246#255'2'#226#248#255'2'#226#247#255'2'#226#247
  +#255'/'#224#245#255')'#219#241#255#29#210#232#255#29#210#232#255#29#210#232
  +#255'6'#217#236#255'@'#205#225#255#22#161#189#202#5'y}'#10#0#0#0#0#5'y~'#17#0
-  ,#160#196#255'y'#237#251#255'2'#226#248#255','#223#244#255#4#192#214#255#4#192
+  +#160#196#255'y'#237#251#255'2'#226#248#255','#223#244#255#4#192#214#255#4#192
  +#214#255#4#192#214#255#29#210#232#255#29#210#232#255#29#210#232#255#11#200
  +#223#255'j'#229#243#255#27#171#197#248#21#160#188#203#0#0#0#0#0#0#0#0#5'y}'
  +#17#0#160#196#255'v'#237#251#255#4#195#218#255'v'#237#251#255'i'#234#249#255
@ -379,13 +385,13 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +#157#229#245#255#158#229#245#255#159#229#244#255#218#243#248#255'5'#148#218
  +#255#253#244#238#255#202#128'T'#249'6'#161#218#249#246#252#254#255#148#229
  +#248#255#147#229#248#255#147#229#248#255#145#229#248#255#147#219#233#255#147
-  +#215#227#255#147#210#220#255#144#206#215#255#140#200#207#255#134#193#198#255
+  ,#215#227#255#147#210#220#255#144#206#215#255#140#200#207#255#134#193#198#255
  +#201#216#214#255'5'#148#218#255#197'tD'#232#202'S'#241'6'#154#218#248#242
  +#250#253#255#148#230#248#255#146#229#248#255#144#229#248#255#139#227#248#255
  +#134#226#247#255''#225#247#255'w'#222#246#255'l'#220#246#255'^'#217#244#255
  +'O'#213#243#255#204#242#251#255'5'#148#218#255#255#255#255#0#255#255#255#0'5'
  +#148#218#247#239#250#254#255#147#229#248#255#143#228#248#255#137#227#248#255
-  ,#130#225#247#255'z'#223#247#255'q'#222#246#255'g'#219#245#255'['#216#244#255
+  +#130#225#247#255'z'#223#247#255'q'#222#246#255'g'#219#245#255'['#216#244#255
  +'M'#212#243#255'@'#209#242#255#202#242#251#255'5'#148#218#255#255#255#255#0
  +#255#255#255#0'3'#142#217#251#220#240#250#255#152#225#246#255#149#224#246#255
  +#146#223#246#255#142#222#245#255#137#220#245#255#133#218#244#255#128#217#244
@ -443,13 +449,13 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +#254#251#248#255#254#251#248#255#200#154'|'#255#199#152'y'#255#167'`1'#237
  +#186'j6'#143#185'i5'#181#184'i5'#238#183'h5'#255#181'h5'#255#180'g4'#255#178
  +'f4'#255#176'e3'#255#174'd3'#255#172'c2'#255#170'b2'#255#169'a2'#255#168'`1'
-  +#255#167'`1'#254#166'`1'#241#168'a1'#196#255#255#255#0#255#255#255#0#255#255
+  ,#255#167'`1'#254#166'`1'#241#168'a1'#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#255#255#0#255#255#255#0#255#255#255#0'm'#156
  +#212#137'j'#154#210#251'f'#151#207#238#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0'p'#158#214#219'm'#156#212#255#133
-  ,#177#218#255'Z'#145#185#255'`'#147#203#234#255#255#255#0#255#255#255#0#128
+  +#177#218#255'Z'#145#185#255'`'#147#203#234#255#255#255#0#255#255#255#0#128
  +#128#128#255'~~~'#255'|||'#255'zzz'#255'www'#255'uuu'#255'rrr'#255'q'#158#212
  +#255'o'#158#214#255#135#178#220#255#171#211#232#255#169#208#230#255'X'#144
  +#184#255'Y'#142#198#234#255#255#255#0#255#255#255#0'}}}'#255#153#153#153#255
@ -491,5 +497,100 @@ LazarusResources.Add('TForm1','FORMDATA',[
  +#255'>~'#173#255#12'W'#143#234#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#29'c'#155#22#25'`'#152'9'#20']'#149'b'#16'Z'#146#136#13'X'#144#164#19
-  +'\'#146#252#12'W'#143#237#0#0#0
+  +'\'#146#252#12'W'#143#237#255#255#255#0#255#255#255#0#255#255#255#0#13#216#0
+  +#3#4#208#19'T'#12#209'5'#175#21#210'U'#218#24#212't'#244#24#214#140#241#19
+  +#216#162#212#13#219#185#162#6#228#217'E'#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0':'#213#4'" '#208#9#175':'
+  +#215'='#255'j'#230'|'#255#136#243#170#255#150#249#196#255#151#251#211#255#135
+  +#247#219#255'h'#239#224#255#26#231#229#250#10#213#235#152#5#187#244#18#255
+  +#255#255#0#255#255#255#0#255#255#255#0'e'#216#0' L'#213#14#207't'#225'X'#255
+  +#161#246#153#255#158#255#166#255'{'#255#158#255'p'#255#174#255'p'#255#199#255
+  +'|'#255#227#255#165#255#250#255#152#244#251#255'U'#216#245#255#13#183#249#182
+  +#0#141#252#17#255#255#255#0#128#222#0#6'w'#218#9#176#148#226'W'#255#187#249
+  +#157#255#138#255'n'#255'y'#255'v'#255#130#255#151#255#137#255#182#255#135#255
+  +#209#255'~'#255#236#255'm'#251#254#255'v'#232#255#255#155#223#252#255'T'#186
+  +#251#255#7#130#246#142#255#255#255#0#150#223#0'R'#160#225'8'#255#203#246#151
+  +#255#174#255'l'#255#164#255'z'#255#157#255#141#255#155#255#163#255#164#255
+  +#196#255#162#255#223#255#151#255#248#255#133#239#255#255'n'#211#255#255'x'
+  +#197#255#255#146#197#252#255#20'n'#244#246#0'R'#240'2'#178#230#8#173#198#235
+  ,'g'#255#221#255#155#255#197#255'o'#255#195#255#140#255#190#255#161#255#185
+  +#255#179#255#189#255#207#255#189#255#238#255#176#248#255#255#153#222#255#255
+  +'~'#194#255#255'c'#163#255#255#158#189#255#255'Y'#131#248#255#3'6'#226#138
+  +#205#234#14#219#228#245#130#255#229#255'o'#255#224#255'y'#255#224#255#149#255
+  +#223#255#175#255#220#255#199#255#220#255#224#255#217#254#250#255#197#233#255
+  +#255#167#202#255#255#135#170#255#255'i'#139#255#255'x'#142#255#255's'#134#251
+  +#255#8'"'#221#190#234#236#14#244#249#250#146#255#250#253'd'#255#250#253'{'
+  +#255#249#253#152#255#250#253#181#255#250#254#211#255#250#254#239#255#239#243
+  +#255#255#208#213#255#255#175#179#255#255#141#145#255#255'lo'#255#255'gi'#255
+  +#255#130#131#251#255#9#13#217#219#241#218#14#241#255#242#144#255#255#233'b'
+  +#255#255#232'v'#255#255#231#147#255#255#231#176#255#255#230#202#255#255#229
+  +#229#255#252#222#253#255#225#198#255#255#194#166#255#255#161#132#255#255'~f'
+  +#255#255'vd'#255#255#136'{'#246#255#26#8#213#216#245#191#9#213#254#221#128
+  +#255#255#209'l'#255#255#199'k'#255#255#199#133#255#255#196#158#255#255#189
+  +#179#255#255#191#208#255#255#191#241#255#244#176#255#255#214#150#255#255#182
+  +'y'#255#255#149'^'#255#255#153'w'#255#255#130'e'#236#255'*'#4#208#183#251#166
+  +#0#158#253#190'`'#255#255#208#156#255#255#165'['#255#255#162'q'#255#255#154
+  +#132#255#255#151#155#255#255#159#191#255#255#159#224#255#254#146#251#255#231
+  +'|'#255#255#201'f'#255#255#168'O'#255#255#190#149#253#255'r@'#221#255'6'#0
+  +#204'y'#250#130#0'>'#248'|'#11#251#251#185#142#255#255#151'j'#255#255'y['#255
+  +#255'qk'#255#255'v'#137#255#255'|'#173#255#255'{'#205#255#255'q'#237#255#247
+  +'c'#255#255#217'R'#255#255#207'|'#255#255#179's'#236#255'Y'#6#204#235'F'#0
+  +#204'"'#255#255#255#0#240'V'#0#146#240'wD'#255#252#166#146#255#255'{o'#255
+  +#255'QX'#255#255'Zy'#255#255'^'#155#255#255'\'#188#255#255'W'#218#255#255'L'
+  +#247#255#241'{'#255#255#214#133#241#255#151'4'#207#255'a'#0#194'o'#255#255
+  +#255#0#255#255#255#0#235'G'#0#14#226'*'#0#174#233'R@'#255#248#133#132#255#255
+  +#150#159#255#255't'#145#255#255'`'#154#255#255'`'#183#255#255'x'#216#255#252
+  +#146#239#255#232'q'#234#255#182'2'#204#255#137#0#189#145'm'#0#206#5#255#255
+  +#255#0#255#255#255#0#255#255#255#0#229#30#0#12#211#4#0#133#212#4#12#241#225
+  +'@Y'#255#238'c'#132#255#243's'#161#255#240'q'#178#255#228'Z'#182#255#210'6'
+  +#180#255#190#2#180#230#173#0#186'n'#151#0#204#2#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#208#0#7'.'#195#0#28
+  +'~'#191#0'1'#182#190#1'D'#213#187#0'Z'#210#185#0'r'#174#184#0#138'r'#193#0
+  +#175'!'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#216
+  +#135'@@'#216#139'C'#133#218#142'I'#148#217#137'C'#143#216#132'@'#144#216#132
+  +'A'#154#211's:'#138#204'b2'#13#201'[.'#1#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#215#131'>S'
+  +#226#167'l'#222#233#188#145#255#231#186#143#255#231#183#139#255#226#164'q'
+  +#251#214'~B'#182#203'\/'#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#214'};'#28#221
+  +#150'V'#186#227#169's'#242#225#168's'#245#225#164'q'#247#211'w>'#152#203'_0'
+  +#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#255#255#255#0#255#255#255#0#212'y<w'#226#166'p'#247
+  +#218#136'G'#173#214'~C'#160#228#174#130#255#207'm:'#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#209'q8"'#222#155'c'#226#220#150'^'#223#207'i5T'
+  +#207'i5'#128#226#169'|'#255#209'l:'#165#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#208'j5'#3#215#128'B'#170#223#159'j'#247#205'f4f'#201']/'#10#204'a3'#136#225
+  +#166'y'#255#213'zD'#210#194'J'''#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#207'j6\'#223#157'h'
+  +#246#218#139'R'#209#203'_1N'#199'Y.*'#205'g7'#160#225#166'z'#255#216#134'S'
+  +#242#191'F%'#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#204'c2'#21#219#147'^'#234#226#167'y'#255#216#131'J'
+  +#211#207'j:'#178#206'h9'#181#213'zE'#216#227#168#129#255#217#134'V'#249#190
+  +'A#'#27#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#203']0'#1#211't?'#155#226#169'|'#255#204'f7'#153#255#255#255#0#255#255#255#0
+  ,#255#255#255#0#204'c7'#177#223#160'w'#255#218#137'Z'#255#187'>""'#255#255#255
+  +#0#255#255#255#0#255#255#255#0#255#255#255#0#202'\/'#10#203'_0D'#225#164'u'
+  +#255#218#140'X'#236#198'R,='#255#255#255#0#255#255#255#0#191'E$'#19#195'H'''
+  +#220#150'k'#255#219#143'`'#255#189'?!T'#182'8'#30#2#255#255#255#0#255#255#255
+  +#0#255#255#255#0#206'h8'#174#218#143']'#254#219#144'`'#255#215#131'P'#237#196
+  +'P+'#141#189'B#'#16#188'?"*'#195'M+'#162#208'qB'#234#214'~Q'#255#213'|M'#255
+  +#198'U1'#189#182'9'#29'1'#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#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
 ]);
--- a/examples/std_actions/unit1.pas
+++ b/examples/std_actions/unit1.pas
@ -14,6 +14,7 @@ type

  TForm1 = class(TForm)
    ActionList1: TActionList;
+    ColorSelect1: TColorSelect;
    Edit1: TEdit;
    EditCopy1: TEditCopy;
    EditCut1: TEditCut;
@ -25,11 +26,14 @@ type
    FileOpen1: TFileOpen;
    FileOpenWith1: TFileOpenWith;
    FileSaveAs1: TFileSaveAs;
+    FontEdit1: TFontEdit;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem16: TMenuItem;
    MenuItem17: TMenuItem;
@ -40,6 +44,7 @@ type
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
--- a/lcl/stdactns.pas
+++ b/lcl/stdactns.pas
@ -391,10 +391,9 @@ type
    function GetDialog: TFontDialog;
  protected
    function GetDialogClass: TCommonDialogClass; override;
-  public
-    property Dialog: TFontDialog read GetDialog;
  published
    property Caption;
+    property Dialog: TFontDialog read GetDialog;
    property Enabled;
    property HelpContext;
    property HelpKeyword;
@ -418,10 +417,9 @@ type
    function GetDialog: TColorDialog;
  protected
    function GetDialogClass: TCommonDialogClass; override;
-  public
-    property Dialog: TColorDialog read GetDialog;
  published
    property Caption;
+    property Dialog: TColorDialog read GetDialog;
    property Enabled;
    property HelpContext;
    property HelpKeyword;
@ -687,7 +685,7 @@ end;
 function TCommonDialogAction.Handlestarget(Target: TObject): Boolean;
 begin
  // no target
-  Result := True;
+  Result := FDialog <> nil;
 end;

 procedure TCommonDialogAction.ExecuteTarget(Target: TObject);
@ -806,7 +804,7 @@ end;

 function TFontEdit.GetDialogClass: TCommonDialogClass;
 begin
-  Result:=inherited GetDialogClass;
+  Result := TFontDialog;
 end;

 { TColorSelect }
@ -818,7 +816,7 @@ end;

 function TColorSelect.GetDialogClass: TCommonDialogClass;
 begin
-  Result:=inherited GetDialogClass;
+  Result := TColorDialog;
 end;

 end.