paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 14:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added some TImageList code.

Browse Source 
Added a bookmark resource with 10 resource images.
Removed some of the IFDEF's in mwCustomEdit around the inherited code.
Shane

git-svn-id: trunk@112 -
This commit is contained in:
lazarus 2001-01-11 20:16:47 +00:00
parent 969406d8b7
commit 7b20ab2021
9 changed files with 495 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -72,6 +72,7 @@ designer/abstractdebugger.pp svneol=native#text/pascal
designer/abstracteditor.pp svneol=native#text/pascal designer/abstracteditor.pp svneol=native#text/pascal
designer/abstractfilesystem.pp svneol=native#text/pascal designer/abstractfilesystem.pp svneol=native#text/pascal
designer/abstractformeditor.pp svneol=native#text/pascal designer/abstractformeditor.pp svneol=native#text/pascal
designer/bookmark.lrs svneol=native#text/pascal
designer/controlselection.pp svneol=native#text/pascal designer/controlselection.pp svneol=native#text/pascal
designer/customeditor.pp svneol=native#text/pascal designer/customeditor.pp svneol=native#text/pascal
designer/designer.pp svneol=native#text/pascal designer/designer.pp svneol=native#text/pascal

268
designer/bookmark.lrs Normal file
View File

@ -0,0 +1,268 @@
LazarusResources.Add('bookmark0','XPM',
'/* XPM */'#10'static char * bookmark0_xpm[] = {'#10'"16 16 61 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #3C6749",'#10'"%'#9'c #5F826A",'
+#10'"&'#9'c #8CA594",'#10'"*'#9'c #6B8C75",'#10'"='#9'c #426C4F",'#10'"-'
+#9'c #376344",'#10'";'#9'c #8DA695",'#10'">'#9'c #CAD6CE",'#10'",'#9'c #B'
+'9C9BE",'#10'"'''#9'c #DDE4DF",'#10'")'#9'c #95AD9D",'#10'"!'#9'c #356143'
+'",'#10'"~'#9'c #7F9B88",'#10'"{'#9'c #BCCAC0",'#10'"]'#9'c #587D64",'#10
+'"^'#9'c #7E9A87",'#10'"/'#9'c #D9E1DB",'#10'"('#9'c #4E755A",'#10'"_'#9
+'c #487055",'#10'":'#9'c #C7D3CB",'#10'"<'#9'c #62856D",'#10'"['#9'c #4B7'
+'357",'#10'"}'#9'c #FCFCFC",'#10'"|'#9'c #7A9783",'#10'"1'#9'c #91A998",'
+#10'"2'#9'c #CBD6CE",'#10'"3'#9'c #386446",'#10'"4'#9'c #FFFFFF",'#10'"5'
+#9'c #7F9B87",'#10'"6'#9'c #3E684B",'#10'"7'#9'c #366244",'#10'"8'#9'c #6'
+'78871",'#10'"9'#9'c #F4F6F5",'#10'"0'#9'c #6D8D77",'#10'"a'#9'c #567B61"'
+','#10'"b'#9'c #EEF2EF",'#10'"c'#9'c #849F8D",'#10'"d'#9'c #A2B6A8",'#10
+'"e'#9'c #DEE5E0",'#10'"f'#9'c #3D684B",'#10'"g'#9'c #BAC9BE",'#10'"h'#9
+'c #C4D1C8",'#10'"i'#9'c #406A4D",'#10'"j'#9'c #CDD8D1",'#10'"k'#9'c #8EA'
+'796",'#10'"l'#9'c #75947F",'#10'"m'#9'c #D5DED8",'#10'"n'#9'c #63856D",'
+#10'"o'#9'c #779480",'#10'"p'#9'c #6E8E78",'#10'"q'#9'c #62846D",'#10'"r'
+#9'c #3E694C",'#10'"s'#9'c #85A08E",'#10'"t'#9'c #C3D0C7",'#10'"u'#9'c #A'
+'FC0B4",'#10'"v'#9'c #668870",'#10'" .++++++. ",'#10'" @++++++++@'
+' ",'#10'" #++++$%&*=+# ",'#10'" @++++-;>,'')!+@ ",'#10'".+++++~{]-^/'
+'(++.",'#10'"+++++_:<++[}|+++",'#10'"+++++123++[45+++",'#10'"++++62{7++89'
+'0+++",'#10'"++++abc+++de_+++",'#10'"++++abc++fghi+++",'#10'"++++=jk!!lmn'
+'++++",'#10'".++++oeppmq++++.",'#10'" @+++rstuv7+++@ ",'#10'" #+++++++++'
+'+# ",'#10'" @++++++++@ ",'#10'" .++++++. "};'#10
);
LazarusResources.Add('bookmark1','XPM',
'/* XPM */'#10'static char * bookmark1_xpm[] = {'#10'"16 16 43 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #487155",'#10'"%'#9'c #52785E",'
+#10'"&'#9'c #809C89",'#10'"*'#9'c #5B7F66",'#10'"='#9'c #3D684A",'#10'"-'
+#9'c #B2C3B7",'#10'";'#9'c #CFD9D2",'#10'">'#9'c #F2F4F2",'#10'",'#9'c #8'
+'9A390",'#10'"'''#9'c #396446",'#10'")'#9'c #708F79",'#10'"!'#9'c #DAE2DD'
+'",'#10'"~'#9'c #5C8067",'#10'"{'#9'c #668870",'#10'"]'#9'c #E3E9E5",'#10
+'"^'#9'c #53795F",'#10'"/'#9'c #376344",'#10'"('#9'c #7B9884",'#10'"_'#9
+'c #C3D0C7",'#10'":'#9'c #406A4D",'#10'"<'#9'c #487054",'#10'"['#9'c #D0D'
+'AD3",'#10'"}'#9'c #ADBFB3",'#10'"|'#9'c #497156",'#10'"1'#9'c #D2DBD5",'
+#10'"2'#9'c #86A18F",'#10'"3'#9'c #6B8B75",'#10'"4'#9'c #F0F3F1",'#10'"5'
+#9'c #74927D",'#10'"6'#9'c #F4F6F4",'#10'"7'#9'c #567B62",'#10'"8'#9'c #8'
+'19D8A",'#10'"9'#9'c #CBD6CE",'#10'"0'#9'c #6C8C76",'#10'"a'#9'c #8AA391"'
+','#10'"b'#9'c #B8C8BD",'#10'"c'#9'c #C2CFC6",'#10'"d'#9'c #7E9A86",'#10
+'" .++++++. ",'#10'" @++++++++@ ",'#10'" #++++$%&*++# ",'#10
+'" @++++=-;>,+++@ ",'#10'".+++++''%)!~++++.",'#10'"++++++++{]^+++++",'#10
+'"+++++++/(_:+++++",'#10'"+++++++<[}++++++",'#10'"+++++++|12++++++",'#10
+'"+++++++34*++++++",'#10'"+++++++567++++++",'#10'".++++++89++++++.",'#10
+'" @+++0abcd:+++@ ",'#10'" #++++++++++# ",'#10'" @++++++++@ ",'#10
+'" .++++++. "};'#10
);
LazarusResources.Add('bookmark2','XPM',
'/* XPM */'#10'static char * bookmark2_xpm[] = {'#10'"16 16 61 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #3E684B",'#10'"%'#9'c #567B62",'
+#10'"&'#9'c #7F9B88",'#10'"*'#9'c #8CA594",'#10'"='#9'c #5B7F66",'#10'"-'
+#9'c #3C6749",'#10'";'#9'c #98AE9F",'#10'">'#9'c #9CB1A2",'#10'",'#9'c #A'
+'CBFB2",'#10'"'''#9'c #C0CEC5",'#10'")'#9'c #D2DBD5",'#10'"!'#9'c #53795F'
+'",'#10'"~'#9'c #346042",'#10'"{'#9'c #8BA593",'#10'"]'#9'c #E7ECE9",'#10
+'"^'#9'c #3A6547",'#10'"/'#9'c #3B6648",'#10'"('#9'c #D1DBD4",'#10'"_'#9
+'c #B2C3B7",'#10'":'#9'c #5F826A",'#10'"<'#9'c #62846C",'#10'"['#9'c #346'
+'142",'#10'"}'#9'c #406A4D",'#10'"|'#9'c #D3DDD6",'#10'"1'#9'c #ADBFB2",'
+#10'"2'#9'c #76947F",'#10'"3'#9'c #E6EBE7",'#10'"4'#9'c #6B8B75",'#10'"5'
+#9'c #356143",'#10'"6'#9'c #5B7F67",'#10'"7'#9'c #CFD9D2",'#10'"8'#9'c #7'
+'89681",'#10'"9'#9'c #6D8D77",'#10'"0'#9'c #D0DAD3",'#10'"a'#9'c #6C8C76"'
+','#10'"b'#9'c #366244",'#10'"c'#9'c #3D684B",'#10'"d'#9'c #6A8B75",'#10
+'"e'#9'c #A7BAAD",'#10'"f'#9'c #466F53",'#10'"g'#9'c #64866E",'#10'"h'#9
+'c #A4B8AA",'#10'"i'#9'c #8DA695",'#10'"j'#9'c #4B7257",'#10'"k'#9'c #3F6'
+'94C",'#10'"l'#9'c #A9BCAF",'#10'"m'#9'c #476F53",'#10'"n'#9'c #4B7358",'
+#10'"o'#9'c #E8EDE9",'#10'"p'#9'c #EEF1EF",'#10'"q'#9'c #B8C7BC",'#10'"r'
+#9'c #CBD6CE",'#10'"s'#9'c #E0E7E2",'#10'"t'#9'c #4D7459",'#10'"u'#9'c #D'
+'6DFD9",'#10'"v'#9'c #C2CFC6",'#10'" .++++++. ",'#10'" @++++++++@'
+' ",'#10'" #+++$%&*=++# ",'#10'" @+++-;>,'')!~+@ ",'#10'".++++{]^+/(_'
+'-++.",'#10'"+++++:<[+}|1/+++",'#10'"+++++++++234++++",'#10'"+++++++5678['
+'++++",'#10'"+++++++90ab+++++",'#10'"+++++cde4+f-++++",'#10'"+++5ghij/klm'
+'++++",'#10'".++nopqqqrs++++.",'#10'" @+tuuuuuuv+++@ ",'#10'" #+++++++++'
+'+# ",'#10'" @++++++++@ ",'#10'" .++++++. "};'#10
);
LazarusResources.Add('bookmark3','XPM',
'/* XPM */'#10'static char * bookmark3_xpm[] = {'#10'"16 16 62 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #3E684B",'#10'"%'#9'c #567B62",'
+#10'"&'#9'c #7F9B88",'#10'"*'#9'c #8CA594",'#10'"='#9'c #5E8168",'#10'"-'
+#9'c #3D674A",'#10'";'#9'c #3C6749",'#10'">'#9'c #98AE9F",'#10'",'#9'c #B'
+'2C3B7",'#10'"'''#9'c #ADBFB2",'#10'")'#9'c #D3DCD6",'#10'"!'#9'c #DEE5E0'
+'",'#10'"~'#9'c #779580",'#10'"{'#9'c #346042",'#10'"]'#9'c #5E8269",'#10
+'"^'#9'c #F6F8F6",'#10'"/'#9'c #487055",'#10'"('#9'c #466F52",'#10'"_'#9
+'c #D4DDD7",'#10'":'#9'c #436C50",'#10'"<'#9'c #356243",'#10'"['#9'c #406'
+'A4D",'#10'"}'#9'c #D3DDD6",'#10'"|'#9'c #3B6648",'#10'"1'#9'c #A2B6A8",'
+#10'"2'#9'c #CCD7CF",'#10'"3'#9'c #4F765B",'#10'"4'#9'c #B0C1B5",'#10'"5'
+#9'c #B4C5B9",'#10'"6'#9'c #A5B9AB",'#10'"7'#9'c #60836B",'#10'"8'#9'c #5'
+'C8067",'#10'"9'#9'c #62846C",'#10'"0'#9'c #D6DFD9",'#10'"a'#9'c #D1DBD4"'
+','#10'"b'#9'c #53795F",'#10'"c'#9'c #7F9B87",'#10'"d'#9'c #E9EEEA",'#10
+'"e'#9'c #708F79",'#10'"f'#9'c #446D51",'#10'"g'#9'c #5B7F66",'#10'"h'#9
+'c #3B6749",'#10'"i'#9'c #A9BCAF",'#10'"j'#9'c #D5DED8",'#10'"k'#9'c #4E7'
+'55A",'#10'"l'#9'c #B5C5BB",'#10'"m'#9'c #5E8169",'#10'"n'#9'c #A4B8AA",'
+#10'"o'#9'c #C3D0C7",'#10'"p'#9'c #4B7358",'#10'"q'#9'c #366244",'#10'"r'
+#9'c #B1C2B6",'#10'"s'#9'c #C0CEC4",'#10'"t'#9'c #B9C8BE",'#10'"u'#9'c #8'
+'AA492",'#10'"v'#9'c #426C4F",'#10'"w'#9'c #346142",'#10'" .++++++. '
+' ",'#10'" @++++++++@ ",'#10'" #+++$%&*=-+# ",'#10'" @+++;>,'')!~{+'
+'@ ",'#10'".++++]^/+(_,;++.",'#10'"+++++:~<+[}''|+++",'#10'"++++++++<123+'
+'+++",'#10'"+++++++4567+++++",'#10'"+++++++890ab++++",'#10'"+++++++++cde+'
+'+++",'#10'"+++f1g++hij$++++",'#10'".++kdlbmnop++++.",'#10'" @+qgrstuvw++'
+'+@ ",'#10'" #++++++++++# ",'#10'" @++++++++@ ",'#10'" .++++++. '
+' "};'#10
);
LazarusResources.Add('bookmark4','XPM',
'/* XPM */'#10'static char * bookmark4_xpm[] = {'#10'"16 16 56 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #62846D",'#10'"%'#9'c #6E8E78",'
+#10'"&'#9'c #51775D",'#10'"*'#9'c #DAE2DC",'#10'"='#9'c #B1C2B6",'#10'"-'
+#9'c #547A60",'#10'";'#9'c #AABCB0",'#10'">'#9'c #F0F3F1",'#10'",'#9'c #7'
+'1907B",'#10'"'''#9'c #61836C",'#10'")'#9'c #86A18F",'#10'"!'#9'c #FBFCFB'
+'",'#10'"~'#9'c #63866E",'#10'"{'#9'c #52785D",'#10'"]'#9'c #5B7F66",'#10
+'"^'#9'c #668870",'#10'"/'#9'c #CED8D1",'#10'"('#9'c #466F53",'#10'"_'#9
+'c #356143",'#10'":'#9'c #54795F",'#10'"<'#9'c #9FB4A6",'#10'"['#9'c #547'
+'960",'#10'"}'#9'c #829D8A",'#10'"|'#9'c #ADBFB3",'#10'"1'#9'c #5F826A",'
+#10'"2'#9'c #B7C7BD",'#10'"3'#9'c #597E65",'#10'"4'#9'c #386446",'#10'"5'
+#9'c #BDCBC1",'#10'"6'#9'c #8BA493",'#10'"7'#9'c #376345",'#10'"8'#9'c #A'
+'EC0B4",'#10'"9'#9'c #D5DED7",'#10'"0'#9'c #BCCBC0",'#10'"a'#9'c #BBCABF"'
+','#10'"b'#9'c #C0CEC4",'#10'"c'#9'c #EDF0EE",'#10'"d'#9'c #C8D4CB",'#10
+'"e'#9'c #AFC1B4",'#10'"f'#9'c #497156",'#10'"g'#9'c #4D7459",'#10'"h'#9
+'c #53795F",'#10'"i'#9'c #789581",'#10'"j'#9'c #E2E8E4",'#10'"k'#9'c #709'
+'07A",'#10'"l'#9'c #50775C",'#10'"m'#9'c #5E8169",'#10'"n'#9'c #B5C5B9",'
+#10'"o'#9'c #7F9B87",'#10'"p'#9'c #B8C8BD",'#10'"q'#9'c #52785E",'#10'" '
+' .++++++. ",'#10'" @++++++++@ ",'#10'" #++++++$%++# ",'#10'" @'
+'++++++&*=+++@ ",'#10'".++++++-;>,++++.",'#10'"++++++'';)!~+++++",'#10'"+'
+'++++{;]^/(+++++",'#10'"+++_:<[+}|++++++",'#10'"+++12344567+++++",'#10'"+'
+'++890abcdef++++",'#10'"+++ghhhijkl4++++",'#10'".++++++mn++++++.",'#10'" '
+'@+++++op+++++@ ",'#10'" #++++q1++++# ",'#10'" @++++++++@ ",'#10'" '
+' .++++++. "};'#10
);
LazarusResources.Add('bookmark5','XPM',
'/* XPM */'#10'static char * bookmark5_xpm[] = {'#10'"16 16 56 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #406A4D",'#10'"%'#9'c #AABDB0",'
+#10'"&'#9'c #D6DFD9",'#10'"*'#9'c #D5DED8",'#10'"='#9'c #9EB3A4",'#10'"-'
+#9'c #3B6648",'#10'";'#9'c #436C50",'#10'">'#9'c #C8D4CC",'#10'",'#9'c #B'
+'BCABF",'#10'"'''#9'c #B8C7BC",'#10'")'#9'c #B5C5BA",'#10'"!'#9'c #75937F'
+'",'#10'"~'#9'c #366244",'#10'"{'#9'c #60836A",'#10'"]'#9'c #B0C1B5",'#10
+'"^'#9'c #3E684B",'#10'"/'#9'c #3A6648",'#10'"('#9'c #356243",'#10'"_'#9
+'c #63866E",'#10'":'#9'c #ADBFB2",'#10'"<'#9'c #70907A",'#10'"['#9'c #C2C'
+'FC6",'#10'"}'#9'c #A0B5A6",'#10'"|'#9'c #9EB4A5",'#10'"1'#9'c #6C8C76",'
+#10'"2'#9'c #53795F",'#10'"3'#9'c #73927D",'#10'"4'#9'c #E3E9E5",'#10'"5'
+#9'c #789681",'#10'"6'#9'c #BDCBC1",'#10'"7'#9'c #E6EBE8",'#10'"8'#9'c #3'
+'86445",'#10'"9'#9'c #366243",'#10'"0'#9'c #B3C4B8",'#10'"a'#9'c #466F53"'
+','#10'"b'#9'c #C4D1C8",'#10'"c'#9'c #6A8B74",'#10'"d'#9'c #446D50",'#10
+'"e'#9'c #BECCC2",'#10'"f'#9'c #51775D",'#10'"g'#9'c #497155",'#10'"h'#9
+'c #DAE2DC",'#10'"i'#9'c #ADBFB3",'#10'"j'#9'c #87A18F",'#10'"k'#9'c #ACB'
+'EB2",'#10'"l'#9'c #B9C8BD",'#10'"m'#9'c #426C4F",'#10'"n'#9'c #346142",'
+#10'"o'#9'c #5B7F66",'#10'"p'#9'c #8AA492",'#10'"q'#9'c #8CA594",'#10'" '
+' .++++++. ",'#10'" @++++++++@ ",'#10'" #++++++++++# ",'#10'" @'
+'+++$%&&&*=-+@ ",'#10'".++++;>,'''')!~++.",'#10'"+++++{]^--/(++++",'#10'"'
+'+++++_:(++++++++",'#10'"+++++<[}|1~+++++",'#10'"+++++213=45+++++",'#10'"'
+'++++++++~67+++++",'#10'"++++^8++90,+++++",'#10'".++abc+d3ef++++.",'#10'"'
+' @+ghijklmn+++@ ",'#10'" #nopq1m++++# ",'#10'" @++++++++@ ",'#10'"'
+' .++++++. "};'#10
);
LazarusResources.Add('bookmark6','XPM',
'/* XPM */'#10'static char * bookmark6_xpm[] = {'#10'"16 16 68 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #346142",'#10'"%'#9'c #62856D",'
+#10'"&'#9'c #5A7E65",'#10'"*'#9'c #466E52",'#10'"='#9'c #8DA695",'#10'"-'
+#9'c #B2C3B7",'#10'";'#9'c #9FB4A5",'#10'">'#9'c #7E9B87",'#10'",'#9'c #3'
+'E684B",'#10'"'''#9'c #97AD9E",'#10'")'#9'c #A9BCAF",'#10'"!'#9'c #6A8B74'
+'",'#10'"~'#9'c #ABBDB1",'#10'"{'#9'c #819D8A",'#10'"]'#9'c #396547",'#10
+'"^'#9'c #708F79",'#10'"/'#9'c #B4C4B9",'#10'"('#9'c #5D8168",'#10'"_'#9
+'c #AABCAF",'#10'":'#9'c #4B7357",'#10'"<'#9'c #477054",'#10'"['#9'c #DAE'
+'2DC",'#10'"}'#9'c #CDD8D0",'#10'"|'#9'c #9AB0A0",'#10'"1'#9'c #91AA99",'
+#10'"2'#9'c #C9D4CC",'#10'"3'#9'c #D5DED8",'#10'"4'#9'c #5F826A",'#10'"5'
+#9'c #6D8D77",'#10'"6'#9'c #F4F6F5",'#10'"7'#9'c #71907A",'#10'"8'#9'c #3'
+'B6649",'#10'"9'#9'c #50765C",'#10'"0'#9'c #E3E9E4",'#10'"a'#9'c #B1C2B6"'
+','#10'"b'#9'c #7F9B87",'#10'"c'#9'c #FFFFFF",'#10'"d'#9'c #386446",'#10
+'"e'#9'c #D6DFD8",'#10'"f'#9'c #BBCABF",'#10'"g'#9'c #7A9783",'#10'"h'#9
+'c #FCFCFC",'#10'"i'#9'c #52785E",'#10'"j'#9'c #476F53",'#10'"k'#9'c #E3E'
+'9E5",'#10'"l'#9'c #789681",'#10'"m'#9'c #4E755A",'#10'"n'#9'c #D3DCD6",'
+#10'"o'#9'c #9BB1A1",'#10'"p'#9'c #376344",'#10'"q'#9'c #96AD9D",'#10'"r'
+#9'c #CAD6CE",'#10'"s'#9'c #4C7358",'#10'"t'#9'c #356143",'#10'"u'#9'c #6'
+'68871",'#10'"v'#9'c #CBD6CF",'#10'"w'#9'c #93AB9B",'#10'"x'#9'c #ABBDB0"'
+','#10'"y'#9'c #53785E",'#10'"z'#9'c #688972",'#10'"A'#9'c #8CA594",'#10
+'"B'#9'c #7F9B88",'#10'"C'#9'c #426C4F",'#10'" .++++++. ",'#10'" '
+'@++++++++@ ",'#10'" #+++++$%&++# ",'#10'" @++++*=-;>+++@ ",'#10'".++'
+'++,'')!++++++.",'#10'"++++,~{]++++++++",'#10'"++++^/(__:++++++",'#10'"++'
+'+<[}|1234+++++",'#10'"+++5678+90a+++++",'#10'"+++bc:++def+++++",'#10'"++'
+'+ghi++jkl+++++",'#10'".++mnop]qrs++++.",'#10'" @+tuvwqxy++++@ ",'#10'" '
+'#++zABC++++# ",'#10'" @++++++++@ ",'#10'" .++++++. "};'#10
);
LazarusResources.Add('bookmark7','XPM',
'/* XPM */'#10'static char * bookmark7_xpm[] = {'#10'"16 16 50 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #C2CFC6",'#10'"%'#9'c #D6DFD9",'
+#10'"&'#9'c #D4DDD7",'#10'"*'#9'c #6C8D76",'#10'"='#9'c #4B7257",'#10'"-'
+#9'c #CBD7CF",'#10'";'#9'c #B8C7BC",'#10'">'#9'c #CFD9D2",'#10'",'#9'c #D'
+'1DBD4",'#10'"'''#9'c #52785D",'#10'")'#9'c #6B8B75",'#10'"!'#9'c #8CA594'
+'",'#10'"~'#9'c #3B6648",'#10'"{'#9'c #3C6749",'#10'"]'#9'c #6D8D77",'#10
+'"^'#9'c #C8D4CC",'#10'"/'#9'c #5B7F66",'#10'"('#9'c #406A4D",'#10'"_'#9
+'c #376345",'#10'":'#9'c #CBD6CE",'#10'"<'#9'c #8DA695",'#10'"['#9'c #9AB'
+'0A1",'#10'"}'#9'c #9DB2A4",'#10'"|'#9'c #346142",'#10'"1'#9'c #346041",'
+#10'"2'#9'c #6C8C76",'#10'"3'#9'c #AFC0B4",'#10'"4'#9'c #487055",'#10'"5'
+#9'c #53785E",'#10'"6'#9'c #DBE3DE",'#10'"7'#9'c #688972",'#10'"8'#9'c #4'
+'26B4F",'#10'"9'#9'c #9FB4A6",'#10'"0'#9'c #85A08E",'#10'"a'#9'c #3B6649"'
+','#10'"b'#9'c #A1B5A7",'#10'"c'#9'c #356243",'#10'"d'#9'c #5D8068",'#10
+'"e'#9'c #AEBFB3",'#10'"f'#9'c #487054",'#10'"g'#9'c #557A60",'#10'"h'#9
+'c #BBCABF",'#10'"i'#9'c #6B8C75",'#10'"j'#9'c #24402D",'#10'"k'#9'c #3D6'
+'84B",'#10'" .++++++. ",'#10'" @++++++++@ ",'#10'" #++++++++++'
+'# ",'#10'" @+++$%%%%%&*+@ ",'#10'".+++=-;;;;>,''++.",'#10'"++++)!~~{]^/'
+'++++",'#10'"++++{(++_:<_++++",'#10'"+++++++{[}|+++++",'#10'"++++++1234++'
+'++++",'#10'"++++++567+++++++",'#10'"+++++890a+++++++",'#10'".++++!bc++++'
+'+++.",'#10'" @+cdef+++++++@ ",'#10'" #ghi+++++++# ",'#10'" jk|++++++'
+'@ ",'#10'" .++++++. "};'#10
);
LazarusResources.Add('bookmark8','XPM',
'/* XPM */'#10'static char * bookmark8_xpm[] = {'#10'"16 16 71 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #446D51",'#10'"%'#9'c #708F7A",'
+#10'"&'#9'c #8BA493",'#10'"*'#9'c #5C8067",'#10'"='#9'c #3A6547",'#10'"-'
+#9'c #456E51",'#10'";'#9'c #AFC0B4",'#10'">'#9'c #BFCDC3",'#10'",'#9'c #B'
+'3C4B8",'#10'"'''#9'c #D0DAD3",'#10'")'#9'c #829D8B",'#10'"!'#9'c #366244'
+'",'#10'"~'#9'c #93AB9B",'#10'"{'#9'c #ADBFB3",'#10'"]'#9'c #436C50",'#10
+'"^'#9'c #91A998",'#10'"/'#9'c #E5EBE7",'#10'"('#9'c #50765C",'#10'"_'#9
+'c #DFE6E1",'#10'":'#9'c #849F8D",'#10'"<'#9'c #346142",'#10'"['#9'c #98A'
+'E9F",'#10'"}'#9'c #E2E8E4",'#10'"|'#9'c #4D7459",'#10'"1'#9'c #D4DED7",'
+#10'"2'#9'c #BDCBC1",'#10'"3'#9'c #557A60",'#10'"4'#9'c #456E52",'#10'"5'
+#9'c #CDD8D0",'#10'"6'#9'c #7C9985",'#10'"7'#9'c #7F9B87",'#10'"8'#9'c #D'
+'DE4DF",'#10'"9'#9'c #C2CFC7",'#10'"0'#9'c #829E8B",'#10'"a'#9'c #396547"'
+','#10'"b'#9'c #3D674A",'#10'"c'#9'c #98AF9F",'#10'"d'#9'c #ABBDB1",'#10
+'"e'#9'c #6A8B74",'#10'"f'#9'c #AEC0B4",'#10'"g'#9'c #ECF0ED",'#10'"h'#9
+'c #819D8A",'#10'"i'#9'c #5E8169",'#10'"j'#9'c #EBEFEC",'#10'"k'#9'c #416'
+'B4E",'#10'"l'#9'c #DEE5E0",'#10'"m'#9'c #BBCABF",'#10'"n'#9'c #789681",'
+#10'"o'#9'c #FBFBFB",'#10'"p'#9'c #587D63",'#10'"q'#9'c #346041",'#10'"r'
+#9'c #557B61",'#10'"s'#9'c #DEE5E1",'#10'"t'#9'c #CDD8D1",'#10'"u'#9'c #C'
+'CD7D0",'#10'"v'#9'c #60836B",'#10'"w'#9'c #688972",'#10'"x'#9'c #B3C3B8"'
+','#10'"y'#9'c #70907A",'#10'"z'#9'c #356143",'#10'"A'#9'c #577C63",'#10
+'"B'#9'c #A0B4A7",'#10'"C'#9'c #C3D0C7",'#10'"D'#9'c #B2C3B7",'#10'"E'#9
+'c #769480",'#10'"F'#9'c #376344",'#10'" .++++++. ",'#10'" @+++++'
+'+++@ ",'#10'" #+++$%&*=++# ",'#10'" @+++-;>,'')!++@ ",'#10'".++++~{]'
+'+^/(+++.",'#10'"+++++_:+<[}|++++",'#10'"+++++123456+++++",'#10'"++++=758'
+'90a+++++",'#10'"+++bcd3efgh+++++",'#10'"+++ij*++klm+++++",'#10'"+++nopq<'
+'rs:+++++",'#10'".++-tuvwxy+++++.",'#10'" @+zABCDEF++++@ ",'#10'" #+++++'
+'+++++# ",'#10'" @++++++++@ ",'#10'" .++++++. "};'#10
);
LazarusResources.Add('bookmark9','XPM',
'/* XPM */'#10'static char * bookmark9_xpm[] = {'#10'"16 16 68 1",'#10'" '
+#9'c None",'#10'".'#9'c #23422D",'#10'"+'#9'c #336041",'#10'"@'#9'c #203D'
+'29",'#10'"#'#9'c #23412C",'#10'"$'#9'c #6F8E79",'#10'"%'#9'c #8CA594",'
+#10'"&'#9'c #7C9985",'#10'"*'#9'c #3E694C",'#10'"='#9'c #3C6749",'#10'"-'
+#9'c #708F79",'#10'";'#9'c #BBCAC0",'#10'">'#9'c #B3C4B8",'#10'",'#9'c #D'
+'1DBD4",'#10'"'''#9'c #90A897",'#10'")'#9'c #3A6547",'#10'"!'#9'c #6D8D77'
+'",'#10'"~'#9'c #CBD7CF",'#10'"{'#9'c #456E52",'#10'"]'#9'c #577C62",'#10
+'"^'#9'c #D9E1DC",'#10'"/'#9'c #91A999",'#10'"('#9'c #386446",'#10'"_'#9
+'c #436D50",'#10'":'#9'c #B7C7BB",'#10'"<'#9'c #7F9B88",'#10'"['#9'c #CED'
+'8D1",'#10'"}'#9'c #BDCCC2",'#10'"|'#9'c #3D684B",'#10'"1'#9'c #799782",'
+#10'"2'#9'c #E6EBE7",'#10'"3'#9'c #698A73",'#10'"4'#9'c #72917B",'#10'"5'
+#9'c #E5EAE6",'#10'"6'#9'c #87A18F",'#10'"7'#9'c #346142",'#10'"8'#9'c #5'
+'4795F",'#10'"9'#9'c #D4DDD6",'#10'"0'#9'c #8AA492",'#10'"a'#9'c #356243"'
+','#10'"b'#9'c #416B4E",'#10'"c'#9'c #9DB2A4",'#10'"d'#9'c #EBF0ED",'#10
+'"e'#9'c #95AC9C",'#10'"f'#9'c #91A998",'#10'"g'#9'c #BECCC2",'#10'"h'#9
+'c #E4EAE6",'#10'"i'#9'c #587C63",'#10'"j'#9'c #436C50",'#10'"k'#9'c #97A'
+'E9E",'#10'"l'#9'c #ADBFB3",'#10'"m'#9'c #C8D4CC",'#10'"n'#9'c #AABDB0",'
+#10'"o'#9'c #6F8F79",'#10'"p'#9'c #C5D2C9",'#10'"q'#9'c #466F53",'#10'"r'
+#9'c #3F694C",'#10'"s'#9'c #8BA593",'#10'"t'#9'c #A5B8AB",'#10'"u'#9'c #4'
+'F755B",'#10'"v'#9'c #497156",'#10'"w'#9'c #668871",'#10'"x'#9'c #AFC0B4"'
+','#10'"y'#9'c #96AD9D",'#10'"z'#9'c #366243",'#10'"A'#9'c #72917C",'#10
+'"B'#9'c #829D8A",'#10'"C'#9'c #567B62",'#10'" .++++++. ",'#10'" '
+'@++++++++@ ",'#10'" #++++$%&*++# ",'#10'" @+++=-;>,'')++@ ",'#10'".+'
+'+++!~{+]^/(++.",'#10'"++++_:<+++[}|+++",'#10'"++++123+++[}|+++",'#10'"++'
+'++4567+890a+++",'#10'"++++bcdefghi++++",'#10'"+++++jkl0mn+++++",'#10'"++'
+'+++++(opq+++++",'#10'".+++++rstu+++++.",'#10'" @+7vwxyv+++++@ ",'#10'" '
+'#zABC++++++# ",'#10'" @77++++++@ ",'#10'" .++++++. "};'#10
);

15
designer/designer.pp
View File

@ -129,8 +129,11 @@ Procedure TDesigner.RemoveControl(Control : TComponent);
Begin Begin
Writeln('RemoveControl called'); Writeln('RemoveControl called');
FSourceEditor.RemoveControlCode(Control); FSourceEditor.RemoveControlCode(Control);
FCustomForm.Remove(TCOntrol(Control)); //this send a message to notification and removes it from the controlselection Writeln('1');
Control.Destroy; FCustomForm.RemoveControl(TCOntrol(Control)); //this send a message to notification and removes it from the controlselection
Writeln('2');
FFormEditor.DeleteControl(Control);
Writeln('3');
end; end;
Procedure TDesigner.NudgeControl(Value1,Value2 : Integer); Procedure TDesigner.NudgeControl(Value1,Value2 : Integer);
@ -399,6 +402,7 @@ end;
Procedure TDesigner.KeyDown(Sender : TControl; Message:TLMKEY); Procedure TDesigner.KeyDown(Sender : TControl; Message:TLMKEY);
var var
I : Integer; I : Integer;
Continue : Boolean;
Begin Begin
Writeln('KEYDOWN'); Writeln('KEYDOWN');
with MEssage do with MEssage do
@ -418,15 +422,22 @@ if Message.CharCode = 17 then //CTRL
else else
if Message.CharCode = 46 then //DEL KEY if Message.CharCode = 46 then //DEL KEY
begin begin
Continue := True;
While Continue do
Begin
Continue := False;
for I := 0 to FCustomForm.ComponentCount-1 do for I := 0 to FCustomForm.ComponentCount-1 do
Begin Begin
Writeln('I = '+inttostr(i)); Writeln('I = '+inttostr(i));
if (FCustomForm.Components[i] is TControl) and if (FCustomForm.Components[i] is TControl) and
ControlSelection.IsSelected(TControl(FCustomForm.Components[i])) then ControlSelection.IsSelected(TControl(FCustomForm.Components[i])) then
Begin Begin
Continue := True;
RemoveControl(TControl(FCustomForm.Components[i])); RemoveControl(TControl(FCustomForm.Components[i]));
Break;
end; end;
end; end;
End;
SelectOnlythisComponent(FCustomForm); SelectOnlythisComponent(FCustomForm);
end end

29
ide/customformeditor.pp
View File

@ -93,11 +93,13 @@ TCustomFormEditor
FSelectedComponents : TComponentSelectionList; FSelectedComponents : TComponentSelectionList;
FObj_Inspector : TObjectInspector; FObj_Inspector : TObjectInspector;
protected protected
Procedure RemoveFromComponentInterfaceList(Value :TIComponentInterface);
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
Function AddSelected(Value : TComponent) : Integer; Function AddSelected(Value : TComponent) : Integer;
Procedure DeleteControl(Value : TComponent);
Function Filename : String; override; Function Filename : String; override;
Function FormModified : Boolean; override; Function FormModified : Boolean; override;
Function FindComponentByName(const Name : String) : TIComponentInterface; override; Function FindComponentByName(const Name : String) : TIComponentInterface; override;
@ -448,8 +450,8 @@ end;
Function TComponentInterface.Delete : Boolean; Function TComponentInterface.Delete : Boolean;
Begin Begin
// XXX Todo: Control.Destroy;
Destroy;
end; end;
@ -478,6 +480,21 @@ Begin
Obj_Inspector.Selections := FSelectedComponents; Obj_Inspector.Selections := FSelectedComponents;
end; end;
Procedure TCustomFormEditor.DeleteControl(Value : TComponent);
var
Temp : TComponentInterface;
Begin
Temp := TComponentInterface(FindComponent(Value));
if Temp <> nil then
begin
Writeln('1');
RemoveFromComponentInterfaceList(Temp);
Writeln('2');
Temp.Delete;
Writeln('3');
end;
end;
Function TCustomFormEditor.Filename : String; Function TCustomFormEditor.Filename : String;
begin begin
@ -651,6 +668,14 @@ Writeln('5');
Result := Temp; Result := Temp;
end; end;
Procedure TCustomFormEditor.RemoveFromComponentInterfaceList(Value :TIComponentInterface);
Begin
if (FComponentInterfaceList.IndexOf(Value) <> -1) then
FComponentInterfaceList.Delete(FComponentInterfaceList.IndexOf(Value));
end;
Function TCustomFormEditor.GetFormComponent : TIComponentInterface; Function TCustomFormEditor.GetFormComponent : TIComponentInterface;
Begin Begin
//this can only be used IF you have one FormEditor per form. I currently don't //this can only be used IF you have one FormEditor per form. I currently don't

145
ide/uniteditor.pp
View File

@ -62,9 +62,10 @@ type
//pulled out of the editor by the Function Getxxx //pulled out of the editor by the Function Getxxx
FCurrentCursorYLine : Integer; FCurrentCursorYLine : Integer;
FFileName : String; FFileName : String;
FPopUpMenu : TPopupMenu;
FModified : Boolean; FModified : Boolean;
FPopUpMenu : TPopupMenu;
//pulled out of the editor by getting it's TStrings //pulled out of the editor by getting it's TStrings
FSource : TStringList; FSource : TStringList;
FUnitName : String; FUnitName : String;
@ -89,6 +90,7 @@ type
Procedure CreateEditor(AOwner : TComponent; AParent: TWinControl); Procedure CreateEditor(AOwner : TComponent; AParent: TWinControl);
protected protected
ToggleMenuItem : TMenuItem;
Procedure DisplayControl; Procedure DisplayControl;
Procedure ReParent(AParent : TWinControl); Procedure ReParent(AParent : TWinControl);
@ -98,6 +100,10 @@ type
Procedure ToggleBreakpointClicked(Sender : TObject); Procedure ToggleBreakpointClicked(Sender : TObject);
Procedure OpenAtCursorClicked(Sender : TObject); Procedure OpenAtCursorClicked(Sender : TObject);
Procedure BookMarkToggle(Value : Integer);
Procedure BookMarkGoto(Value : Integer);
property Editor : TmwCustomEdit read FEditor; property Editor : TmwCustomEdit read FEditor;
public public
@ -148,6 +154,7 @@ type
Function GetActiveSE : TSourceEditor; Function GetActiveSE : TSourceEditor;
Function DisplayPage(SE : TSourceEditor) : Boolean; Function DisplayPage(SE : TSourceEditor) : Boolean;
Function NewSE(Pagenum : Integer) : TSourceEditor; Function NewSE(Pagenum : Integer) : TSourceEditor;
Bookmarks : TImageList;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -166,6 +173,8 @@ type
Procedure OpenFile(FileName: String); Procedure OpenFile(FileName: String);
Procedure ToggleBookmark(Value : Integer);
Procedure GoToBookmark(Value: Integer);
property OnCloseFile : TNotifyFileEvent read FOnCloseFile write FOnCloseFile; property OnCloseFile : TNotifyFileEvent read FOnCloseFile write FOnCloseFile;
property OnOpenFile : TNotifyFileEvent read FOnOPenFile write FOnOPenFile; property OnOpenFile : TNotifyFileEvent read FOnOPenFile write FOnOPenFile;
@ -176,8 +185,7 @@ type
implementation implementation
uses uses
LCLLinux,TypInfo; LCLLinux,TypInfo,LResources;
{ TSourceEditor } { TSourceEditor }
@ -234,9 +242,9 @@ Begin
FPopupMenu.Items.Add(Seperator); FPopupMenu.Items.Add(Seperator);
MenuItem := TMenuItem.Create(FAOwner); ToggleMenuItem := TMenuItem.Create(FAOwner);
MenuItem.Caption := '&Toggle Bookmark'; ToggleMenuItem.Caption := '&Toggle Bookmark';
FPopupMenu.Items.Add(MenuItem); FPopupMenu.Items.Add(ToggleMenuItem);
for I := 0 to 9 do for I := 0 to 9 do
Begin Begin
@ -244,7 +252,7 @@ Begin
SubMenuItem.Caption := 'Bookmark '+inttostr(i); SubMenuItem.Caption := 'Bookmark '+inttostr(i);
SubMenuItem.OnClick := @BookmarkClicked; SubMenuItem.OnClick := @BookmarkClicked;
SubMenuItem.Tag := I; SubMenuItem.Tag := I;
MenuItem.Add(SubMenuItem); ToggleMenuItem.Add(SubMenuItem);
end; end;
MenuItem := TMenuItem.Create(FAOwner); MenuItem := TMenuItem.Create(FAOwner);
@ -289,19 +297,7 @@ var
MenuItem : TMenuItem; MenuItem : TMenuItem;
Begin Begin
MenuItem := TMenuItem(sender); MenuItem := TMenuItem(sender);
MenuItem.Checked := not(MenuItem.Checked); BookMarkToggle(MenuItem.Tag);
if MenuItem.Checked then
Begin
FEditor.SetBookMark(MenuItem.Tag,GetCurrentCursorXLine,GetCurrentCursorYLine);
MenuItem.Caption := MenuItem.Caption + '*';
end
else
begin
FEditor.ClearBookMark(MenuItem.Tag);
MenuItem.Caption := copy(MenuItem.Caption,1,Length(MenuItem.Caption)-1);
end;
end; end;
Procedure TSourceEditor.BookMarkGotoClicked(Sender : TObject); Procedure TSourceEditor.BookMarkGotoClicked(Sender : TObject);
@ -309,10 +305,36 @@ var
MenuItem : TMenuItem; MenuItem : TMenuItem;
Begin Begin
MenuItem := TMenuItem(sender); MenuItem := TMenuItem(sender);
FEditor.GotoBookMark(Menuitem.Tag); BookMarkGoto(MenuItem.Tag);
end; end;
Procedure TSourceEditor.BookMarkToggle(Value : Integer);
var
MenuItem : TmenuItem;
Begin
MenuItem := TmenuItem(ToggleMenuItem.Items[Value]);
MenuItem.Checked := not(MenuItem.Checked);
if MenuItem.Checked then
Begin
FEditor.SetBookMark(Value,GetCurrentCursorXLine,GetCurrentCursorYLine);
MenuItem.Caption := MenuItem.Caption + '*';
end
else
begin
FEditor.ClearBookMark(Value);
MenuItem.Caption := copy(MenuItem.Caption,1,Length(MenuItem.Caption)-1);
end;
End;
Procedure TSourceEditor.BookMarkGoto(Value : Integer);
Begin
FEditor.GotoBookMark(Value);
End;
Procedure TSourceEditor.OpenAtCursorClicked(Sender : TObject); Procedure TSourceEditor.OpenAtCursorClicked(Sender : TObject);
var var
Texts : String; Texts : String;
@ -369,8 +391,8 @@ Procedure TSourceEditor.CreateEditor(AOwner : TComponent; AParent: TWinControl);
Begin Begin
if assigned(FEditor) then if assigned(FEditor) then
Begin Begin
FSource.Assign(FEditor.Lines); FSource.Assign(FEditor.Lines);
FEditor.Free; FEditor.Free;
end; end;
FEditor := TmwCustomEdit.Create(FAOwner); FEditor := TmwCustomEdit.Create(FAOwner);
@ -716,6 +738,34 @@ end;
{ TSourceNotebook } { TSourceNotebook }
constructor TSourceNotebook.Create(AOwner: TComponent); constructor TSourceNotebook.Create(AOwner: TComponent);
function LoadResource(ResourceName:string; PixMap:TPixMap):boolean;
var
ms:TMemoryStream;
res:LResource;
begin
Result:=false;
res:=LazarusResources.Find(ResourceName);
if (res.Value<>'') then begin
if res.ValueType='XPM' then begin
ms:=TMemoryStream.Create;
try
ms.Write(res.Value[1],length(res.Value));
ms.Position:=0;
PixMap.LoadFromStream(ms);
Result:=true;
finally
ms.Free;
end;
end;
end;
end;
var
Pixmap1 : TPixmap;
I : Integer;
begin begin
inherited Create(AOwner); inherited Create(AOwner);
Caption := 'Lazarus Editor'; Caption := 'Lazarus Editor';
@ -727,6 +777,27 @@ begin
FSourceEditorList := TList.Create; FSourceEditorList := TList.Create;
FSaveDialog := TSaveDialog.Create(Self); FSaveDialog := TSaveDialog.Create(Self);
FOpenDialog := TOpenDialog.Create(Self); FOpenDialog := TOpenDialog.Create(Self);
Writeln('Creating TImageList');
Bookmarks := TImageList.Create(AOwner);
Writeln('1');
//load 10 images
for I := 0 to 9 do
Begin
Pixmap1:=TPixMap.Create;
Pixmap1.TransparentColor:=clBtnFace;
if not LoadResource('bookmark'+inttostr(i),Pixmap1) then
LoadResource('default',Pixmap1);
Bookmarks.Add(Pixmap1,nil);
end;
Writeln('2');
Writeln('3');
end; end;
destructor TSourceNotebook.Destroy; destructor TSourceNotebook.Destroy;
@ -793,6 +864,8 @@ if Pagenum = -1 then //add a new page
Result := TSourceEditor.Create(Self,Notebook1.Page[PageNum]); Result := TSourceEditor.Create(Self,Notebook1.Page[PageNum]);
Notebook1.Pageindex := Pagenum; Notebook1.Pageindex := Pagenum;
FSourceEditorList.Add(Result); FSourceEditorList.Add(Result);
Writeln('Assigning bookmark images');
Result.Editor.BookmarkImages := Bookmarks;
end; end;
@ -924,6 +997,29 @@ Begin
end; end;
end; end;
{This is called from outside to toggle a bookmark of the active TSourceEditor}
Procedure TSourceNotebook.ToggleBookmark(Value : Integer);
Begin
GetActiveSE.BookMarkToggle(Value);
End;
{This is called from outside to Goto a bookmark on the active TSourceEditor}
Procedure TSourceNotebook.GoToBookmark(Value: Integer);
Begin
GetActiveSE.BookMarkGoto(Value);
End;
Procedure TSourceNotebook.OpenFile(FileName: String); Procedure TSourceNotebook.OpenFile(FileName: String);
Var Var
TempEditor : TSourceEditor; TempEditor : TSourceEditor;
@ -1034,5 +1130,8 @@ Begin
end; end;
end; end;
initialization
{$I designer/bookmark.lrs}
end. end.

12
lcl/imglist.pp
View File

@ -73,6 +73,7 @@ type
} }
TCustomImageList = Class(TComponent) TCustomImageList = Class(TComponent)
private private
FImageList : TList; //shane
FBitmap: TBitmap; FBitmap: TBitmap;
FMaskBitmap: TBitmap; FMaskBitmap: TBitmap;
FHeight: Integer; FHeight: Integer;
@ -90,6 +91,9 @@ type
procedure SetBkColor(const Value: TColor); procedure SetBkColor(const Value: TColor);
procedure SetHeight(const Value: Integer); procedure SetHeight(const Value: Integer);
procedure SetWidth(const Value: Integer); procedure SetWidth(const Value: Integer);
Function GetCount: Integer;
procedure ShiftImages(const Source: TCanvas; Start, Shift: Integer); procedure ShiftImages(const Source: TCanvas; Start, Shift: Integer);
protected protected
procedure GetImages(Index: Integer; const Image, Mask: TBitmap); procedure GetImages(Index: Integer; const Image, Mask: TBitmap);
@ -122,7 +126,7 @@ type
property AllocBy: Integer read FAllocBy write FAllocBy default 4; property AllocBy: Integer read FAllocBy write FAllocBy default 4;
property BlendColor: TColor read FBlendColor write FBlendColor default clNone; property BlendColor: TColor read FBlendColor write FBlendColor default clNone;
property BkColor: TColor read FBkColor write SetBkColor default clNone; property BkColor: TColor read FBkColor write SetBkColor default clNone;
property Count: Integer read FCount; property Count: Integer read GetCount;
property Handle: THandle read FHandle; property Handle: THandle read FHandle;
property Height: Integer read FHeight write SetHeight default 16; property Height: Integer read FHeight write SetHeight default 16;
property Width: Integer read FWidth write SetWidth default 16; property Width: Integer read FWidth write SetWidth default 16;
@ -145,6 +149,12 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2001/01/11 20:16:47 lazarus
Added some TImageList code.
Added a bookmark resource with 10 resource images.
Removed some of the IFDEF's in mwCustomEdit around the inherited code.
Shane
Revision 1.1 2000/07/13 10:28:24 michael Revision 1.1 2000/07/13 10:28:24 michael
+ Initial import + Initial import

48
lcl/include/imglist.inc
View File

@ -177,6 +177,7 @@ end;
procedure TCustomImageList.Clear; procedure TCustomImageList.Clear;
begin begin
FCount := 0; FCount := 0;
FImageList.Clear;
NotifyChangeLink; NotifyChangeLink;
end; end;
@ -192,6 +193,7 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
FHeight := 16; FHeight := 16;
FWidth := 16; FWidth := 16;
FImageList := TList.Create; //shane
Initialize; Initialize;
end; end;
@ -226,8 +228,10 @@ begin
if Index = -1 if Index = -1
then Clear then Clear
else begin else begin
ShiftImages(FBitmap.Canvas, Index, 1);
ShiftImages(FMaskBitmap.Canvas, Index, 1); // ShiftImages(FBitmap.Canvas, Index, 1);
// ShiftImages(FMaskBitmap.Canvas, Index, 1);
FImageList.Delete(Index); //shane
end; end;
end; end;
@ -243,6 +247,7 @@ begin
FBitmap.Free; FBitmap.Free;
FMaskBitmap.Free; FMaskBitmap.Free;
FChangeLinkList.Free; FChangeLinkList.Free;
FImageList.Destroy; //shane
inherited Destroy; inherited Destroy;
end; end;
@ -255,16 +260,21 @@ end;
False, draws the image disabled (embossed) False, draws the image disabled (embossed)
Returns: Nothing Returns: Nothing
Draws he requested image on the given canvas. Draws the requested image on the given canvas.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCustomImageList.Draw(Canvas: TCanvas; X, Y, Index: Integer; Enabled: Boolean); procedure TCustomImageList.Draw(Canvas: TCanvas; X, Y, Index: Integer; Enabled: Boolean);
var
Bitmap : TBitmap;
begin begin
if (FCount = 0) or (Index >= FCount) then Exit; if (FCount = 0) or (Index >= FCount) then Exit;
Bitmap := TBitmap(FImageList[Index]);
Canvas.CopyRect( Canvas.CopyRect(
Rect(X, Y, X + FWidth, Y + FHeight), Rect(X, Y, X + FWidth, Y + FHeight),
FBitmap.Canvas, Bitmap.Canvas,
Rect(0, Index * FHeight, FWidth, (Index + 1) * FHeight) Rect(0, 0, FWidth, FHeight)
// Rect(0, 0, 16,16)
); );
end; end;
@ -289,6 +299,20 @@ begin
end; end;
{------------------------------------------------------------------------------
Method: TCustomImageList.GetCount
Params:
Returns: Count
Fetches the index'th image into an icon.
------------------------------------------------------------------------------}
Function TCustomImageList.GetCount;
begin
Result := FImageList.Count;
FCount := Result;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: TCustomImageList.GetHotspot Function: TCustomImageList.GetHotspot
Params: None Params: None
@ -401,14 +425,16 @@ var
I, M: TBitmap; I, M: TBitmap;
DR, SR: TRect; DR, SR: TRect;
begin begin
if (Index > FCount) if (Index > Count)
then raise EInvalidOperation.Create(SInvalidIndex); then raise EInvalidOperation.Create(SInvalidIndex);
if (Index < 0) then Index := 0; if (Index < 0) then Index := 0;
if (Image <> nil) if (Image <> nil)
then begin then begin
nCount := Image.Width div FWidth; FImageList.Insert(Index,Image);
{ nCount := Image.Width div FWidth;
if nCount > 0 if nCount > 0
then begin then begin
AllocBitmap(nCount); AllocBitmap(nCount);
@ -460,6 +486,8 @@ begin
I.Free; I.Free;
end; end;
end; end;
}
end; end;
end; end;
@ -786,6 +814,12 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2001/01/11 20:16:47 lazarus
Added some TImageList code.
Added a bookmark resource with 10 resource images.
Removed some of the IFDEF's in mwCustomEdit around the inherited code.
Shane
Revision 1.1 2000/07/13 10:28:26 michael Revision 1.1 2000/07/13 10:28:26 michael
+ Initial import + Initial import

8
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -4,7 +4,9 @@
// {$DEFINE ASSERT_IS_ON} // {$DEFINE ASSERT_IS_ON}
{$ENDIF} {$ENDIF}
var
MCaptureHandle : LongInt;
// temp solution to fill msgqueue // temp solution to fill msgqueue
function DeliverPostMessage(const Target: Pointer; var Message): GBoolean; function DeliverPostMessage(const Target: Pointer; var Message): GBoolean;
@ -1107,6 +1109,12 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.14 2001/01/11 20:16:47 lazarus
Added some TImageList code.
Added a bookmark resource with 10 resource images.
Removed some of the IFDEF's in mwCustomEdit around the inherited code.
Shane
Revision 1.13 2001/01/10 23:53:30 lazarus Revision 1.13 2001/01/10 23:53:30 lazarus
MWE: MWE:
~ minor change ~ minor change

7
lcl/stdctrls.pp
View File

@ -180,7 +180,6 @@ type
Procedure SetMaxLength(Value : Integer); Procedure SetMaxLength(Value : Integer);
Procedure SetModified(Value : Boolean); Procedure SetModified(Value : Boolean);
Procedure SetReadOnly(Value : Boolean); Procedure SetReadOnly(Value : Boolean);
// Procedure CMTextChanged(Var Message : TLMessage); message CM_TextChanged;
protected protected
Procedure CMTextChanged(Var Message : TLMessage); message CM_TextChanged; Procedure CMTextChanged(Var Message : TLMessage); message CM_TextChanged;
Procedure Change; dynamic; Procedure Change; dynamic;
@ -493,8 +492,10 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.9 2001/01/10 20:12:29 lazarus Revision 1.10 2001/01/11 20:16:47 lazarus
Added the Nudge feature to the IDE. Added some TImageList code.
Added a bookmark resource with 10 resource images.
Removed some of the IFDEF's in mwCustomEdit around the inherited code.
Shane Shane
Revision 1.8 2001/01/05 17:44:37 lazarus Revision 1.8 2001/01/05 17:44:37 lazarus