diff --git a/examples/std_actions/readme.txt b/examples/std_actions/readme.txt index f878c52bf0..1713109f8c 100644 --- 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 \ No newline at end of file +- 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) diff --git a/examples/std_actions/unit1.lfm b/examples/std_actions/unit1.lfm index 8f651c14c2..08edb1e329 100644 --- 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 diff --git a/examples/std_actions/unit1.lrs b/examples/std_actions/unit1.lrs index 321d251412..f3512d6319 100644 --- 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""'#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 ]); diff --git a/examples/std_actions/unit1.pas b/examples/std_actions/unit1.pas index 9fde817ea4..126b16c5b2 100644 --- 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; diff --git a/lcl/stdactns.pas b/lcl/stdactns.pas index 515d758823..24f6728229 100644 --- 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.