* New PRE tag support from Aleksey Lagunov

git-svn-id: trunk@27368 -
This commit is contained in:
michael 2010-09-15 06:59:22 +00:00
parent a8a47d05b0
commit b33eba64cd
14 changed files with 441 additions and 123 deletions

6
.gitattributes vendored
View File

@ -955,6 +955,8 @@ components/fpweb/fpwebnewhtmllistunit.lfm svneol=native#text/plain
components/fpweb/fpwebnewhtmllistunit.pas svneol=native#text/plain
components/fpweb/fpwebnewhtmltableunit.lfm svneol=native#text/plain
components/fpweb/fpwebnewhtmltableunit.pas svneol=native#text/plain
components/fpweb/fpwebnewhtmltagpreunit.lfm svneol=native#text/plain
components/fpweb/fpwebnewhtmltagpreunit.pas svneol=native#text/plain
components/fpweb/fpwebnewhtmltagtrunit.lfm svneol=native#text/plain
components/fpweb/fpwebnewhtmltagtrunit.pas svneol=native#text/plain
components/fpweb/fpwebselectoptionsunit.lfm svneol=native#text/plain
@ -990,6 +992,7 @@ components/fpweb/images/tag_dd.png -text svneol=unset#image/png
components/fpweb/images/tag_dl.png -text svneol=unset#image/png
components/fpweb/images/tag_dt.png -text svneol=unset#image/png
components/fpweb/images/tag_element.png -text svneol=unset#image/png
components/fpweb/images/tag_font.png -text svneol=unset#image/png
components/fpweb/images/tag_h1.png -text svneol=unset#image/png
components/fpweb/images/tag_h2.png -text svneol=unset#image/png
components/fpweb/images/tag_h3.png -text svneol=unset#image/png
@ -1001,6 +1004,9 @@ components/fpweb/images/tag_image.png -text svneol=unset#image/png
components/fpweb/images/tag_li.png -text svneol=unset#image/png
components/fpweb/images/tag_nbsp.png -text svneol=unset#image/png
components/fpweb/images/tag_ol.png -text svneol=unset#image/png
components/fpweb/images/tag_pre.png -text svneol=unset#image/png
components/fpweb/images/tag_sub.png -text svneol=unset#image/png
components/fpweb/images/tag_sup.png -text svneol=unset#image/png
components/fpweb/images/tag_table_body.png -text svneol=unset#image/png
components/fpweb/images/tag_table_data.png -text svneol=unset#image/png
components/fpweb/images/tag_table_row.png -text svneol=unset#image/png

View File

@ -15,24 +15,24 @@ LazarusResources.Add('quick_table','PNG',[
+#15#199'T'#144'+'#7'+'#218'cJ'#192#18'eL'#9#246#193'n`r '#187#198'?'#177'E'
+#140#159#180'Zv'#209'|'#243'x'#130'E'#220#157'W'#168#186#220'P'#213'X'#28#172
+#170#17#209#23#184#170#198'f'#163#241#159'f'#171'['#155#17'="c'#19#168'K'#211
+'G0w'#151#187#224#12#7'h[0'#131#247#207'`'#128#221#17'v'#7#198#235#3#236#143
+#191#5'[a'#24#134'X'#175#215#2#147'(r'#12#163#234'2'#155#193#199#215#252#216
+'W'#183#161'}'#129'G'#128#136'\W>P'#5'c6"5"5'#219#183#147#227#182#165#192#199
+'9'#202'0'#179#179#245'MpV'#164#134'>Q'#160'f 2'#14'3'#155#239'XU#R'#195#246
+';'#145#203#205#184#235#232#145#4'('#208':'#157'n'#204'uhft]G~+'#136#212'D'
+#223#16'@Lef'#179#214'@t]'#23#238#142#187'S]:]JU'#157#206#191#152#165'$'#249
+'tS'#213#152#155#235'TW'#25#231'LX:'#227#167#159#249#15#189#12'|'#150#241#179
+#176'i'#198#229#216'tw'#25#134'a'#145#191#7'L'#28'/'#173#151'e'#252#3#137#175
+')H'#225'qnK'#0#0#0#0'IEND'#174'B`'#130
+'G0w'#151#187#224#12#7'h[0'#131#247#207'`'#127#128#221#17'v'#7#198#235#3#236
+#143#191#5'[a'#24#134'X'#175#215#2#147'(r'#12#163#234'2'#155#193#199#215#252
+#216'W'#183#161'}'#129'G'#128#136'\W>P'#5'c6"5"5'#219#183#147#227#182#165#192
+#199'9'#202'0'#179#179#245'MpV'#164#134'>Q'#160'f 2'#14'3'#155#239'XU#R'#195
+#246';'#145#203#205#184#235#232#145#4'('#208':'#157'n'#204'uhft]G~+'#136#212
+'D'#223#16'@Lef'#179#214'@t]'#23#238#142#187'S]:]JU'#157#206#191#152#165'$'
+#249'tS'#213#152#155#235'TW'#25#231'LX:'#227#167#159#249#15#189#12'|'#150#241
+#179#176'i'#198#229#216'tw'#25#134'a'#145#191#7'L'#28'/'#173#151'e'#252#3#137
+#175')H'#225'qnK'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_dd','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
+#0#0'IDATx'#156'c'#188's'#231#14#3'-'#0#19'ML'#29#146#6#179#192#24'K'#150','
+#249'O'#142#1'111'#140'x'#13'f```h'#184#225'@'#146#161#13#26#7'p'#202#209',('
+#24'a'#201#141#220#160'@'#7#176#160'aA'#23#128#129'%K'#150#252#175'wp '#201
+#208#198#3#7#224'l'#218#167#10'l'#160'a'#255'~'#162#12'ad'#196'L'#24#248#13
+'vt$'#202'`'#24#24#13#10'8'#24#248#160'@v'#1#169#128'q'#180#160#31#186#6#3#0
+'e'#195'%'#255']'#160#217#219#0#0#0#0'IEND'#174'B`'#130
+#0#0#127'IDATx'#156'c'#188's'#231#14#3'-'#0#19'ML'#29#146#6#179#192#24'K'#150
+','#249'O'#142#1'111'#140'x'#13'f```h'#184#225'@'#146#161#13#26#7'p'#202#209
+',('#24'a'#201#141#220#160'@'#7#176#160'aA'#23#128#129'%K'#150#252#175'wp '
+#201#208#198#3#7#224'l'#218#167#10'l'#160'a'#255'~'#162#12'ad'#196'L'#24#248
+#13'vt$'#202'`'#24#24#13#10'8'#24#248#160'@v'#1#169#128'q'#180#160#31#186#6#3
+#0'e'#195'%'#255']'#160#217#219#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_dl','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
@ -67,9 +67,9 @@ LazarusResources.Add('tag_ol','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
+#0#0#6'bKGD'#0#189#0#189#0#189'iB'#213#168#0#0#0'MIDATx'#218'c`'#24#5#3#4#234
+#255'Sj'#2#11#145#134#18'c'#17'#]\'#140#197#22'dC'#27#137'q'#197#128#131#250
+#255#212#8#10#2#22#192#193'"0'#201#134#146#5#134'^'#228#209#219#197#24'aL'
+#173#200#195'j85\K'#211't<'#10#168#4#0#250#202')`X'#245'k'#130#0#0#0'CtEXtSo'
+'ftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237
+#255#212#8#10#2#22#192#193#127'"0'#201#134#146#5#134'^'#228#209#219#197#24'a'
+'L'#173#200#195'j85\K'#211't<'#10#168#4#0#250#202')`X'#245'k'#130#0#0#0'CtEX'
+'tSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237
+#232#217#240#0#0#0'*tEXtSignature'#0'3f06b65fe0e883da551bde451b2d6272C'#12
+#166#209#0#0#0#0'IEND'#174'B`'#130
]);
@ -134,8 +134,8 @@ LazarusResources.Add('tag_tr','PNG',[
+#221'QJ'#129#153#193'l='#219#230#222'4'#157#145's'#246#24#163#0#191#136#2#0
+'D'#228#221#185'f-*v'#247'y'#144'l'#242#155#224'oj'#24'X'#234#203#11'!8'#201
+#143'A$'#145'RB'#237#138#197#229#241't'#7#243#194'&'#191#214'?'#227'9c'#168
+'*np'#20#201'&'#15#192'SJ^y;'#207#184#23#246#178#143'UUr'#206#221#240'*'#217
+#221#159'w'#5#157#244#211#13#173#130#177'9'#0#0#0#0'IEND'#174'B`'#130
+'*np'#127#20#201'&'#15#192'SJ^y;'#207#184#23#246#178#143'UUr'#206#221#240'*'
+#217#221#159'w'#5#157#244#211#13#173#130#177'9'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_table_data','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
@ -167,10 +167,10 @@ LazarusResources.Add('tag_h2','PNG',[
+#160#2#160#235#0'h'#132#0#16'B.'#202#197'Z'#25#198#242#162#140'e'#25'_;m'#23
+'Q'#128'"'#3#1#199#174#144'b'#214#221#172')'#215'2'#182#152#23'V'#203')'#166
+#24#253'R'#223#173#202#179']'#193#217#234#151#130#25' G0'#184','#30'x'#190
+#243'A'#212#239#208'P'#149''#24''''#20'Fz'#222#240#14'o'#0#0#0'CtEXtSoftwa'
+'re'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232
+#217#240#0#0#0'*tEXtSignature'#0'e08a7db2d3f9a95c1e16ba30033e3b7cS'#218'@'
+#148#0#0#0#0'IEND'#174'B`'#130
+#243'A'#212#239#208'P'#149#127#24''''#127#20'Fz'#222#240#14'o'#0#0#0'CtEXtSo'
+'ftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237
+#232#217#240#0#0#0'*tEXtSignature'#0'e08a7db2d3f9a95c1e16ba30033e3b7cS'#218
+'@'#148#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_h3','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
@ -253,13 +253,13 @@ LazarusResources.Add('submit','PNG',[
]);
LazarusResources.Add('tag_image','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
+#0#0#4'gAMA'#0#0#177#143#11#252'a'#5#0#0#0#6'bKGD'#0#0#0#0#0#0#249'C'#187''
+#0#0#4'gAMA'#0#0#177#143#11#252'a'#5#0#0#0#6'bKGD'#0#0#0#0#0#0#249'C'#187#127
+#0#0#0#9'pHYs'#0#0#11#18#0#0#11#18#1#210#221'~'#252#0#0#0#7'tIME'#7#209#4#20
+#14#31'+T5'#217#246#0#0#3#10'IDATx'#156#237#147'MLcU'#20#199''#183#239#179
+#14#31'+T5'#217#246#0#0#3#10'IDATx'#156#237#147'MLcU'#20#199#127#183#239#179
+'_'#3#29'('#162#206#140#196'0,0qc'#130#147'h'#186'`6'#3'l'#13'y'#11'I0&'#206
+#2#151'&'#141'1'#154#184'0'#161#10#27#163#8'lX'#200'$'#172'\'#178#209#20'B3'
+#19#133#26#148#8'R'#29'`'#210#138'3'#182#5#166#227'{'#237#180#175#244#186'`'
+#172'a'#164#140#201'DW'#254'77'#185#231#158#223'9'#247#222#255#129'I'#226
+#172'a'#164#140#201'DW'#254'77'#185#231#158#223'9'#247#222#255#129#127'I'#226
+#225#141'h4*'#31#23#26#139#197#132'zR`tt'#244'q'#217#242'D0'#192#185#203#175
+#161#232'^PT'#144'5<'#154#137#240'x'#142#157#9#249#13'4'#213#131'['#173'q'
+#224#148#1#216#254#226'Cb'#177#24#13#193#138'7'#136#209#252#4#170'7xb'#188
@ -267,28 +267,28 @@ LazarusResources.Add('tag_image','PNG',[
+'n`'#4#155'1'#130'-G'#133'<G'#223'qX'#147'<'#221#214#194#11#207#182#242#252
+#133#179#180'7y'#185'S('#177#150#222#199#249'z'#245#209'`UQ'#209'5'#3'o'#160
+#25#0#179'V'#162')'#20'BW'#21#20#1'!'#191#201#147#205'>^'#236#12#243#205#205
+#28#153#189'"~'#175'Q'#207#247#0''#186#224#152#27't'#195'D'#21#30#14''#207
+#147'x'#239#10#7#191#237#146#221'+P'#173#9#220'CA'#201#149#228#237#10'+'#219
+'{'#228#237#10'%Wr(='#199#192#226#1'TH)'#235#240#144#223'$'#160#195#141#143
+'^%'#30#143#147#252#236'M'#156#204'&'#251#251#247'H'#255#188'A&'#239#176'y'
+#219'f'#245'V'#129#205#219'6'#187#7'e'#238#149'j'#199#192'G'#237'J)'#133#16
+'u_'#235#154'J|'#236'u'#134#135#135'I'#165'RLLL'#240#237'L'#20'Q'#185#203#141
+#143#223#224#251#228'2'#235#233#2'k'#191#216#252#248'k'#145'[{'#21'tM{'#244
+#27''#245#233'['#244#246#246#210#209#209#193#242#242'2'#138#162#208#215#215
+#199'O'#27#27#188#195':K'#159'|'#192#208#251#159'Si}'#134'`(L'#192#208'9p'
+#253#216#182'}:'#24#160#191#191#159#249#249'y'#138#197'"'#154#166#145'H$'#24
+#26#26'"'#18#137'022'#194#221't'#154'/WVx'#247#218#10'c3'#23#145'R'#146#201
+'|w:'#184#187#187#155#165#165'%'#226#241'8'#0#3#3#3'X'#150'E8'#28'f||'#156
+#197#197'E'#186#186#186'p]'#151#177#153#139#180#189#164#227#218#146'D"q:'#184
+#242#242'6k'#206#22'===T'#171'U'#132#16'8'#142'C2'#153'dkk'#11#215'u'#201#158
+'[''t'#201#228#210#253'W'#224#250'Q'#222#213'kW'#177','#171'1'#248#169#224#5
+#204'N'#133#221#243'?p?W#5'#151#162'\.'#19#186'\'#229#204#21#147#231#194'>'
+#244#128#138'vV'#194'u'#152#157#157#5' '#18#137#144#205'f'#27#131'[|'#237#236
+#6'V'#241#7#20#140'6'#193#153#183#21#192'G'#197#174#162#7'T'#164#233#162#249
+'$'#229#253#191',6=='#205#194#194#2'sss'#2#30#26#144'h4*'#255#137#138#197#162
+#220#217#217#145'SSS'#18#144#147#147#147#210#178#172#250#28#168'<'#24#12'!D}'
+#5'd,'#22'kt'#153#191'ipp'#144'\.W'#239#244''#253'7'#250#3#239#217']'#255
+#128#210#173#232#0#0#0#0'IEND'#174'B`'#130
+#28#153#189'"~'#175'Q'#207#247#0#127#186#224#152#27't'#195'D'#21#30#14#127
+#207#147'x'#239#10#7#191#237#146#221'+P'#173#9#220'CA'#201#149#228#237#10'+'
+#219'{'#228#237#10'%Wr(='#199#192#226#1'TH)'#235#240#144#223'$'#160#195#141
+#143'^%'#30#143#147#252#236'M'#156#204'&'#251#251#247'H'#255#188'A&'#239#176
+'y'#219'f'#245'V'#129#205#219'6'#187#7'e'#238#149'j'#199#192'G'#237'J)'#133
+#16'u_'#235#154'J|'#236'u'#134#135#135'I'#165'RLLL'#240#237'L'#20'Q'#185#203
+#141#143#223#224#251#228'2'#235#233#2'k'#191#216#252#248'k'#145'[{'#21'tM{'
+#244#27#127#245#233'['#244#246#246#210#209#209#193#242#242'2'#138#162#208#215
+#215#199'O'#27#27#188#195':K'#159'|'#192#208#251#159'Si}'#134'`(L'#192#208'9'
+'p'#253#216#182'}:'#24#160#191#191#159#249#249'y'#138#197'"'#154#166#145'H$'
+#24#26#26'"'#18#137'022'#194#221't'#154'/WVx'#247#218#10'c3'#23#145'R'#146
+#201'|w:'#184#187#187#155#165#165'%'#226#241'8'#0#3#3#3'X'#150'E8'#28'f||'
+#156#197#197'E'#186#186#186'p]'#151#177#153#139#180#189#164#227#218#146'D"q:'
+#184#242#242'6k'#206#22'===T'#171'U'#132#16'8'#142'C2'#153'dkk'#11#215'u'#201
+#158'[''t'#201#228#210#253'W'#224#250'Q'#222#213'kW'#177','#171'1'#248#169
+#224#5#204'N'#133#221#243'?p?W#5'#151#162'\.'#19#186'\'#229#204#21#147#231
+#194'>'#244#128#138'vV'#194'u'#152#157#157#5' '#18#137#144#205'f'#27#131'[|'
+#237#236#6'V'#241#7#20#140'6'#193#153#183#21#192'G'#197#174#162#7'T'#164#233
+#162#249'$'#229#253#191',6=='#205#194#194#2'sss'#2#30#26#144'h4*'#255#137#138
+#197#162#220#217#217#145'SSS'#18#144#147#147#147#210#178#172#250#28#168'<'#24
+#12'!D}'#5'd,'#22'kt'#153#191'ipp'#144'\.W'#239#244#127#253'7'#250#3#239#217
+']'#255#128#210#173#232#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_br','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
@ -318,46 +318,46 @@ LazarusResources.Add('tag_hr','PNG',[
+#18#1#210#221'~'#252#0#0#0#7'tIME'#7#212#4#2#18#6#31#222#2'G'#191#0#0#0'3IDA'
+'Tx'#156#237#204'1'#10#0' '#16#3#193#203#207#247#231#177#19#175#16#139#171
+#132'L'#23#8'['#21#17'W:'#7#224'I'#12#216#189#22#182'='#10'K'#210#251#21#17
+#31'Z'#1#21#8#3'G;'#233#0#0#0#0'IEND'#174'B`'#130
+#31'Z'#1#21#8#3#127'G;'#233#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('color-picker','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8#6#0#0#0#31#243#255'a'
+#0#0#0#6'bKGD'#0#0#0#0#0#0#249'C'#187''#0#0#0#9'pHYs'#0#0#0'H'#0#0#0'H'#0'F'
+#201'k>'#0#0#0#9'vpAg'#0#0#0#16#0#0#0#16#0'\'#198#173#195#0#0#2#236'IDAT8'
+#203#149#211'Kh\U'#28#6#240#239''#206#185's'#231#149'I2y'#204'4'#163#181'i'
+#0#0#0#6'bKGD'#0#0#0#0#0#0#249'C'#187#127#0#0#0#9'pHYs'#0#0#0'H'#0#0#0'H'#0
+'F'#201'k>'#0#0#0#9'vpAg'#0#0#0#16#0#0#0#16#0'\'#198#173#195#0#0#2#236'IDAT8'
+#203#149#211'Kh\U'#28#6#240#239#127#206#185's'#231#149'I2y'#204'4'#163#181'i'
+''''#146'6'#146#162'DE'#20#23#245#133#221'Xwu!R'#4'-'#234'B'#16'D'#4#193#181
+#224#162';'#23#214#165#10'"'#8#197#166#20'AS'#165'Uj'#213'&c'#10'I'#134'`k'
+#198#201#163#243#184'7w'#230#220'{^'#174#20#187'3'#255#221#7#31#191#213#247
+''''#236#241#186'??'#130#129#242'$L'#162'*'#140#147'b{'#5'x'#246#0'v'#219#170
+'lL'#250'Y'#231#188'dO'#192#230#247'O h6'#210#196'r'#175#26#205#214#227'8'
+#215#249#223#192#234#23'S'#24''#236#27'd'#134'''^'#178#198#137#176'Q['#232
+#215#249#223#192#234#23'S'#24#127#236#27'd'#134'''^'#178#198#137#176'Q['#232
+#237#212'A'#255#20#26#223#190#2'"0'#231#220'~'#198#196#253'L'#164#143'@'#169
+'q'#215#11#185#229#20#194'K'#173'1oK'#249'y'#239#184#142#163#183'@'#180'1'
+#250#240#215#160#149's''Q'#173'<'#136#141#219'+S'#130#139#211#196#216's'#142
+'{'#251'M'#176#235'E'#215#150' '#155#183#128'B'#14#197#199#31#176#217'b'#223
+#168'~'#234#186#233#179'w'#140#233'G'#196#141'88}'#20#245#27#215#143'%)'#255
+'L]'#203#251#18'F'#184#151')'#228't'#130'N'#172#209'si'#12#142#222#5#155'-'
+#176#218#230#8#219#238'W'#230#134'D'#240'y'#137#253#249'nm'#225#252'Y'#186
+#246#217#201#217#193#129#129'OQr'#230#253#198'*'#214#227'.N'#20#198#240'^y'
+#10#194#26#128#8#188'8'#139#237'd'#28#31#206'k'#212'Z%'#236#203#239#224#205
+#195#23'6K'#162'qJ'#16#247'N+'#139#153'{'#12'pJ'#20'p'#211#164'0'#195#7#224
+#226#24#134'sP'#238'n'#240#252'ad'#214#207#225'D'#169#141'i'#155'F*'#237'#'
+#135#160'd'#29#189'.dO>'#202#161'1'#148'Qx~"'#15#217#31#134#182#12'Z'#27#200
+'H'#194#31#158'Fw'#253'2'#182#214'~'#235#186'0^>6'#153#173'f'#253#212#24'1B'
+#216'3'#135'D7'#8'u'#185'(1'#146'YC'#18#181#145'$'#135#16#245'+'#128'Shl'#180
+#17#215'?'#198'h'#145'@'#192#10#172#251'@)'#247#154#226#230#169'81'#246#143
+'fxI4'#183#195#249#130#208'G['#134's'#235#198'!'#157#7#205'"'#192#1#153'4G'
+#222#147'.'#138#236#205'`7i'#129#232#197#173#142#244'Tb.'#182#2#185#240'{'
+#253#246''''#226#202#175#245#143#172'*'#205#149#139#149'g8#0N'#176'J'#3#4#164
+'|'#15'J'#153#248#175#205#240#237'7'#206',u`'#12'<'#235#131'w"'#232'F'#27'1'
+#0#199'_x'#178#28','#174#182'~'#20#156#246#165'}Q'#133's'#194#26#11'g'#29#148
+#178#0' '#10'9{'#238#200#200#249#167#31#154'H'#206#206'7'#147'PB'#255#251#27
+#23#175#182'0{'#208'o]'#189#177's'#193#1#203'J;'#225#192'2J'#195'sDL'#25'GAO'
+#233'['#205#224#203'v '#229#15'K'#157';&N'#255#13'/'#31#207#226'r-'#206#204
+'V'#7''''#199#134'sU?'#197#203#206'Z'#10'v'#229#226#149#197#173#159'F'#134'|'
+'{i)'#190#3#248#27'&'#134'm'#14#136#170#224#188#0#0#0'%tEXtdate:create'#0'20'
+'10-07-22T23:00:03+02:00'#164#158#27'U'#0#0#0'%tEXtdate:modify'#0'2010-07-22'
+'T23:00:03+02:00'#213#195#163#233#0#0#0#0'IEND'#174'B`'#130
+#168'~'#234#186#233#179'w'#140#233#127'G'#196#141'88}'#20#245#27#215#143'%)'
+#255'L]'#203#251#18'F'#184#151')'#228't'#130'N'#172#209'si'#12#142#222#5#155
+'-'#176#218#230#8#219#238'W'#230#134'D'#240'y'#137#253#249'nm'#225#252'Y'#186
+#246#217#201#217#193#129#129'O'#127'Qr'#230#253#198'*'#214#227'.N'#20#198#240
+'^y'#10#194#26#128#8#188'8'#139#237'd'#28#31#206'k'#212'Z%'#236#203#239#224
+#205#195#23'6K'#162'qJ'#16#247'N+'#139#153'{'#12'pJ'#20'p'#211#164'0'#195#7
+#224#226#24#134'sP'#238'n'#240#252'ad'#214#207#225'D'#169#141'i'#155'F*'#237
+'#'#135#160'd'#29#189'.dO>'#202#161'1'#148'Qx~"'#15#217#31#134#182#12'Z'#27
+#200'H'#194#31#158'Fw'#253'2'#182#214'~'#235#186'0^>6'#153#173'f'#253#212#24
+'1B'#216'3'#135'D7'#8'u'#185'(1'#146'YC'#18#181#145'$'#135#16#245'+'#128'Shl'
+#180#17#215'?'#198'h'#145'@'#192#10#172#251'@)'#247#154#226#230#169'81'#246
+#143'fxI4'#183#195#249#130#208'G['#134's'#235#198'!'#157#7#205'"'#192#1#153
+'4G'#222#147'.'#138#236#205'`7i'#129#232#197#173#142#244'Tb.'#182#2#185#240
+'{'#253#246''''#226#202#175#245#143#172'*'#205#149#139#149'g8#0N'#176'J'#3#4
+#164'|'#15'J'#153#248#175#205#240#237'7'#206','#127'u`'#12'<'#235#131'w"'#232
+'F'#27'1'#0#199'_x'#178#28','#174#182'~'#20#156#246#165'}Q'#133's'#194#26#11
+'g'#29#148#178#0' '#10'9'#127'{'#238#200#200#249#167#31#154'H'#206#206'7'#147
+'PB'#255#251#27#23#175#182'0{'#208'o]'#189#177's'#193#1#203'J;'#225#192'2J'
+#195'sDL'#25'GAO'#233'['#205#224#203'v '#229#15'K'#157';&N'#255#13'/'#31#207
+#226'r-'#206#204'V'#7''''#199#134'sU?'#197#203#206'Z'#10'v'#229#226#149#197
+#173#159'F'#134'|{i)'#190#3#248#27'&'#134'm'#14#136#170#224#188#0#0#0'%tEXtd'
+'ate:create'#0'2010-07-22T23:00:03+02:00'#164#158#27'U'#0#0#0'%tEXtdate:modi'
+'fy'#0'2010-07-22T23:00:03+02:00'#213#195#163#233#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('div_center','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
@ -380,9 +380,9 @@ LazarusResources.Add('div_left','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'''IDATx'#218'c`'#24'z'#128#17#206
+#250'O'#148'*j'#154'L'#142#169#132'M&'#215#212#225#25#26#180'p3%!<t'#1#0#144
+#206#7#8'E'#198'H'#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cr'
+'isty@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'#0'cbf964ca'
+'356fa7e72bb78b373195df0fp2 !'#0#0#0#0'IEND'#174'B`'#130
+#206#7#8#127'E'#198'H'#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01'
+' cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'#0'cbf96'
+'4ca356fa7e72bb78b373195df0fp2 !'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('div_right','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
@ -420,7 +420,7 @@ LazarusResources.Add('tag_u','PNG',[
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'[IDATx'#218#237#145'I'#14#128'0'
+#12#3#199#188#180'O'#203'O'#205#1#137#180')'#139#184#129#132's'#169#163#169
+#19')'#240'='#169'{'#187#244']'#169#30'&'#220#128#0#160'i'#243#233'f'#25'G?a'
+'p'#203#147#157''#248#10#22#180'tFw'#1#222#139#225'@'#199'?'#19#25#207#172
+'p'#203#147#157#127#248#10#22#180'tFw'#1#222#139#225'@'#199'?'#19#25#207#172
+')'#181'J'#231'p'#25'<'#167#191'@+'#228#21#27'L<'#146'm'#134#0#0#0'CtEXtSoft'
+'ware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232
+#217#240#0#0#0'*tEXtSignature'#0'f45a92f5f7a07b359b5b2dd2d0073c34'#12#2#220
@ -469,21 +469,21 @@ LazarusResources.Add('radio','PNG',[
+#31#135#196'Q'#229'x'#155','#196#149'@S'#158#26#172#148#160'bp'#251#191'y'#3
+#13';0'#205#181#153'$'#217'o'#217#229'i'#231#172'l'#193#11'$b'#186#238#203
+#214'Y'#227#144#220#205#5#226'-'#220#30#228'%'#218#1#136'L'#196'j@'#16#254#2
+'''$'#158'F'#214#131#15#135''#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 '
+'99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'
+'''$'#158'F'#214#131#15#135#127#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9'
+' 99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'
+#0'bac89082d8493ef20c24665b6dbcc528[u'#254'j'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('select','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'yIDATx'#218#213#146'A'#18#128' '
+#12#3'S'#135#143#249#178#242'3'#158#22'/'#136#165'@'#213#155#134#3#211'!,m'#6
+#224''#146#186#243#137'/a'#225#150#11#213#142#182#144#199#158#18#155#221#131
+#173#13#193#189#130#158#9#15'J'#17'I'#4#132'(1'#154''')'#186#1'Sb'#149#161
+#166'*'#220#219'X$aV_'#129'@aH'#30#7#156#146'I'#26#186#242#188#23#144'k~&'
+#195' '#186#12'ui'#188#250'u'#31#209#1#146#200'B'#183'~Gl'#140#0#0#0'CtEXtSo'
+'ftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237
+#232#217#240#0#0#0'*tEXtSignature'#0'650a8c4fc1ce6edad60913bed2dd0ac5'#210
+#134#147#1#0#0#0#0'IEND'#174'B`'#130
+#224#127#146#186#243#137'/a'#225#150#11#213#142#182#144#199#158#18#155#221
+#131#173#13#193#189#130#158#9#15'J'#17'I'#4#132'(1'#154''')'#186#1'S'#127'b'
+#149#161#166'*'#220#219'X$aV_'#129'@aH'#30#7#156#146'I'#26#186#242#188#23#144
+'k~&'#195' '#186#12'ui'#188#250'u'#31#209#1#146#200'B'#183'~Gl'#140#0#0#0'Ct'
+'EXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'
+#237#232#217#240#0#0#0'*tEXtSignature'#0'650a8c4fc1ce6edad60913bed2dd0ac5'
+#210#134#147#1#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_a','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
@ -507,10 +507,57 @@ LazarusResources.Add('tag_attribute','PNG',[
]);
LazarusResources.Add('tag_element','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
+#0#0'IDATx'#156#237#212#177#13#0'!'#8#5'P'#184#13#180't'#8#247#159#195'!(q'
+#4#175'V'#17#176'0'#185'K'#252#229'/^'#8'! 3'#193#137'<G'#212#11''#3#14'1'
+#181#177'+B'#183#5#135#152'Ze'#194#177#207'Lh'#225'Kx'#133'zq'#17#182'P'#15
+'>'#193'^'#212#194';x'#23#213#240#14#174'L(]'#129#149#18'S'#203#195'@'#211'*'
+'vq'#9#21#225#29'|'#133'.a'#15#174#161'*'#172#225#22#10#0#128#247#209#255#23
+#0#0#127'IDATx'#156#237#212#177#13#0'!'#8#5'P'#184#13#180't'#8#247#159#195'!'
+'(q'#4#175'V'#17#176'0'#185'K'#252#229'/^'#8'! 3'#193#137'<G'#212#11#127#3#14
+'1'#181#177'+B'#183#5#135#152'Ze'#194#177#207'Lh'#225'Kx'#133'zq'#17#182'P'
+#15'>'#193'^'#212#194';x'#23#213#240#14#174'L(]'#129#149#18'S'#203#195'@'#211
+'*vq'#9#21#225#29'|'#133'.a'#15#174#161'*'#172#225#22#10#0#128#247#209#255#23
+'~'#1#13#134'X'#232#178#205#252'a'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_sub','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
+#0#0#6'bKGD'#0#189#0#189#0#189'iB'#213#168#0#0#0']IDATx'#218#237#145'1'#14
+#192' '#12#3#221#138#255#127#217','#29#16'M'#193#161#173#194#144#27'P@'#226
+'d'#197'@'#146'l'#7''''#247#27#197')'#148#164#0'p,$'#150#254#156#206#149#168
+'A'#220'b'#153'P1'#141#153#215'A'#26#243'LFC'#218#191#161#21'+'#137'G%'#201#5
+#190#226'i'#5#191#149#247'I'#226#189#133#225'Tt'#248'!'#244#211#184#1'"'#0#0
+#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.c'
+'om'#237#232#217#240#0#0#0'*tEXtSignature'#0'f975be739b4ec5c1bea2401bc7e08a5'
+'6'#10'g'#219#26#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_sup','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
+#0#0#6'bKGD'#0#189#0#189#0#189'iB'#213#168#0#0#0'aIDATx'#218#237'SA'#10#192
+' '#12#139#251#255#159#227'A'#6':L[Aq'#160#185'X'#11#137'5Q'#224'('#16' '#1
+'~'#235'i'#226#245#250#226#217'}'#235#144#29#191#154#152'j'#175#2'K'#3#130
+#169#238#177'4$'#223#19#182#14'01'#234'qt'#144'u'#225'm'#21'f'#167'v'#191#174
+#242'L'#190#6#135#231'Nl'#17#195#1'^\'#180#200#176#174#28#254'Rd'#243#248#0#0
+#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.c'
+'om'#237#232#217#240#0#0#0'*tEXtSignature'#0'a1d14b15ee4fc48a1c737a07272e41e'
+'8'#139'tW'#7#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_font','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
+#0#0#6'bKGD'#0#189#0#189#0#189'iB'#213#168#0#0#0#173'IDATx'#218#237#146#219
+#14#195' '#12'C'#237't'#191#189'r'#249#239#225'=PZ'#182#210#21#177#167'J'#181
+#132#4#129'8'#135#0'p'#235#178'b+'#232#158'^f'#6'I'#205'$'#31#29'q"kV#!'#9'>'
+':'#146#252'0'#19'S'#23#177#29'm'#172'F'#21'u'#15'i'#209#163#231'P'#136#1#134
+'I'#130#16'B'#200#224#11#19'A$'#188'v'#5#155#196'-2A'#16#18#183'u'#158#11#237
+'w8l'#197#222'8'#27#149#158#215#177'!'#227#218#8#200'='#255#142#13#25#167#148
+#224'f'#183'3?'#163'>,'#237#231#160'BWS'#250#232'NsG'#165'e'#252#215#138'Qu_'
+#135'0ms'#174#223#236#215#207#184'uQ'#189#1'O'#212'I'#16#218'fV'#207#0#0#0'C'
+'tEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'
+#237#232#217#240#0#0#0'*tEXtSignature'#0'b9a5cf5edfdc9b50c3ce79d3bf9b38ach'
+#148#144#186#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tag_pre','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#2#3#0#0#0#185#218#132
+#168#0#0#0#9'PLTE'#0#0#0#0#0#128#0#192#0#165#192#136#181#0#0#0#1'tRNS'#0'@'
+#230#216'f'#0#0#0#1'bKGD'#2'f'#11'|d'#0#0#0'HIDATx'#218'c` '#21#136#6#132'2'
+#132':0H'#205#200'r'#200'Z'#192' !'#145#144#144#0#20#204'Hl'#8'e`'#144'Z'#16
+#198#144#213#192' '#193#144#201#0#20#148'`Hr'#0'R"'#12#1#19#128#26#184#24'44'
+#180#22#16'o'#15#0#240#208#13'['#177'M'#238#21#0#0#0'CtEXtSoftware'#0'@(#)Im'
+'ageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0
+'*tEXtSignature'#0'9a4fb3cc6adc9cf33d8d0c97102663e7'#16'p'#200'Y'#0#0#0#0'IE'
+'ND'#174'B`'#130
]);

View File

@ -0,0 +1,83 @@
object fpWebNewHtmlTagPreForm: TfpWebNewHtmlTagPreForm
Left = 659
Height = 358
Top = 437
Width = 501
ActiveControl = PageControl1
Caption = 'Tag property: PRE'
ClientHeight = 358
ClientWidth = 501
Position = poScreenCenter
LCLVersion = '0.9.29'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
Top = 310
Width = 489
OKButton.Name = 'OKButton'
OKButton.Caption = '&ОК'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Справка'
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Закрыть'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Отмена'
TabOrder = 0
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object PageControl1: TPageControl
Left = 0
Height = 304
Top = 0
Width = 501
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Main'
ClientHeight = 273
ClientWidth = 497
object Label1: TLabel
AnchorSideLeft.Control = TabSheet1
AnchorSideTop.Control = TabSheet1
Left = 6
Height = 18
Top = 6
Width = 66
BorderSpacing.Around = 6
Caption = 'Alignment'
ParentColor = False
end
object ComboBox1: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet1
AnchorSideRight.Side = asrBottom
Left = 12
Height = 29
Top = 30
Width = 479
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
Items.Strings = (
''
'left'
'center'
'right'
'justify'
)
TabOrder = 0
end
end
object TabSheet2: TTabSheet
Caption = 'Core'
end
object TabSheet3: TTabSheet
Caption = 'Events'
end
end
end

View File

@ -0,0 +1,78 @@
{ Lazarus IDE wizard for fpweb package.
Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit fpWebNewHtmlTagPreUnit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
ComCtrls, StdCtrls;
type
{ TfpWebNewHtmlTagPreForm }
TfpWebNewHtmlTagPreForm = class(TForm)
ButtonPanel1: TButtonPanel;
ComboBox1: TComboBox;
Label1: TLabel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
private
{ private declarations }
public
function HtmlText(const S:string):string;
end;
var
fpWebNewHtmlTagPreForm: TfpWebNewHtmlTagPreForm;
implementation
{$R *.lfm}
{ TfpWebNewHtmlTagPreForm }
function TfpWebNewHtmlTagPreForm.HtmlText(const S:string): string;
begin
Result:='<DIV ';
if ComboBox1.Text <> '' then
Result:=Result + ' align="'+ComboBox1.Text+'"';
Result:=Result + '>'+S+'</DIV>';
end;
end.

View File

@ -55,6 +55,11 @@ resourcestring
SmiHTMLInsertHeader4Level = 'Insert HTML level 4 header';
SmiHTMLInsertHeader5Level = 'Insert HTML level 5 header';
SmiHTMLInsertColor = 'Insert HTML Color';
SmiHTMLInsertDIVBlock = 'Insert DIV Block';
SmiHTMLInsertSpanText = 'Insert Span Text';
SmiHTMLInsertPre = 'Insert Pre';
SmiHTMLInsertSub = 'Insert Subscript';
SmiHTMLInsertSuper = 'Insert Superscript';
SmiHTMLInsertForm = 'Insert HTML Form';

View File

@ -75,12 +75,18 @@ procedure ProcHTMLTableData(Sender: TObject);
procedure ProcHTMLTableRowWD(Sender: TObject);
procedure ProcHTMLTableDataWD(Sender: TObject);
//-- Styles
procedure ProcHTMLDIVBlock(Sender: TObject);
procedure ProcHTMLSpanText(Sender: TObject);
procedure ProcHTMLPre(Sender: TObject);
procedure ProcHTMLSub(Sender: TObject);
procedure ProcHTMLSuper(Sender: TObject);
procedure ProcHTMLColor(Sender: TObject);
procedure ProcHTMLTextHeader1(Sender: TObject);
procedure ProcHTMLTextHeader2(Sender: TObject);
procedure ProcHTMLTextHeader3(Sender: TObject);
procedure ProcHTMLTextHeader4(Sender: TObject);
procedure ProcHTMLTextHeader5(Sender: TObject);
procedure ProcHTMLColor(Sender: TObject);
procedure ProcHTMLForm(Sender: TObject);
@ -107,12 +113,11 @@ uses LResources, NewItemIntf, Forms, Controls, IDECommands,
//HTML
fpWebNewHTMLFileUnit, fpWebStrConsts, fpWebNewHtmlTableUnit,
fpwebNewHTMLListUnit, fpwebNewHtmlTagTRUnit, fpwebNewHTMLFormUnit,
fpwebNewHTMLInputUnit, fpwebNewHTMLImgUnit,
fpwebNewHTMLInputUnit, fpwebNewHTMLImgUnit, fpWebNewHtmlTagPreUnit,
fpWebHREFEditUnit, fpWebSelectOptionsUnit, fpWebSelectTagUnit,
fpWebHtmlTagLegendUnit, fpWebFieldSetTagUnit,
//Other
fpIDEExtEditorInsertFileNameUnit,
fpWebHREFEditUnit, fpWebSelectOptionsUnit,
fpWebSelectTagUnit, fpWebHtmlTagLegendUnit,
fpWebFieldSetTagUnit;
fpIDEExtEditorInsertFileNameUnit;
var
//Standart items
@ -145,12 +150,18 @@ var
CmdHTMLTableRowWD : TIDECommand;
CmdHTMLTableDataWD : TIDECommand;
//Styles
CmdHTMLDIVBlock : TIDECommand;
CmdHTMLSpanText : TIDECommand;
CmdHTMLPre : TIDECommand;
CmdHTMLSub : TIDECommand;
CmdHTMLSuper : TIDECommand;
CmdHTMLColor : TIDECommand;
CmdHTMLTextStyleH1 : TIDECommand;
CmdHTMLTextStyleH2 : TIDECommand;
CmdHTMLTextStyleH3 : TIDECommand;
CmdHTMLTextStyleH4 : TIDECommand;
CmdHTMLTextStyleH5 : TIDECommand;
CmdHTMLColor : TIDECommand;
@ -216,12 +227,18 @@ begin
CmdHTMLTableRowWD := RegisterIDECommand(Cat, 'HTMLTableRowWD', SmiHTMLInsertTableRowWD, Key, nil, @ProcHTMLTableRowWD);
CmdHTMLTableDataWD := RegisterIDECommand(Cat, 'HTMLTableDataWD', SmiHTMLInsertTableDataWD, Key, nil, @ProcHTMLTableDataWD);
//Styles
CmdHTMLDIVBlock := RegisterIDECommand(Cat, 'HTMLDIVBlock', SmiHTMLInsertDIVBlock, Key, nil, @ProcHTMLDIVBlock);
CmdHTMLSpanText := RegisterIDECommand(Cat, 'HTMLSpanText', SmiHTMLInsertSpanText, Key, nil, @ProcHTMLSpanText);
CmdHTMLPre := RegisterIDECommand(Cat, 'HTMLPre', SmiHTMLInsertPre, Key, nil, @ProcHTMLPre);
CmdHTMLSub := RegisterIDECommand(Cat, 'HTMLSub', SmiHTMLInsertSub, Key, nil, @ProcHTMLSub);
CmdHTMLSuper := RegisterIDECommand(Cat, 'HTMLSuper', SmiHTMLInsertSuper, Key, nil, @ProcHTMLSuper);
CmdHTMLColor := RegisterIDECommand(Cat, 'HTMLColor', SmiHTMLInsertColor, Key, nil, @ProcHTMLColor);
CmdHTMLTextStyleH1 := RegisterIDECommand(Cat, 'HTMLTextStyleH1', SmiHTMLInsertHeader1Level, Key, nil, @ProcHTMLTextHeader1);
CmdHTMLTextStyleH2 := RegisterIDECommand(Cat, 'HTMLTextStyleH2', SmiHTMLInsertHeader2Level, Key, nil, @ProcHTMLTextHeader2);
CmdHTMLTextStyleH3 := RegisterIDECommand(Cat, 'HTMLTextStyleH3', SmiHTMLInsertHeader3Level, Key, nil, @ProcHTMLTextHeader3);
CmdHTMLTextStyleH4 := RegisterIDECommand(Cat, 'HTMLTextStyleH4', SmiHTMLInsertHeader4Level, Key, nil, @ProcHTMLTextHeader4);
CmdHTMLTextStyleH5 := RegisterIDECommand(Cat, 'HTMLTextStyleH5', SmiHTMLInsertHeader5Level, Key, nil, @ProcHTMLTextHeader5);
CmdHTMLColor := RegisterIDECommand(Cat, 'HTMLColor', SmiHTMLInsertColor, Key, nil, @ProcHTMLColor);
//Forms---
@ -277,18 +294,19 @@ begin
//Style's
mnuHTMLStyles :=RegisterIDESubMenu(mnuHTMLSection, 'HTMLStyle', SmiHTMLStyle, nil, nil);
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader1', SmiHTMLInsertHeader1Level, nil, nil,
CmdHTMLTextStyleH1, 'tag_h1');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader2', SmiHTMLInsertHeader2Level, nil, nil,
CmdHTMLTextStyleH2, 'tag_h2');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader3', SmiHTMLInsertHeader3Level, nil, nil,
CmdHTMLTextStyleH3, 'tag_h3');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader4', SmiHTMLInsertHeader4Level, nil, nil,
CmdHTMLTextStyleH4, 'tag_h4');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader5', SmiHTMLInsertHeader5Level, nil, nil,
CmdHTMLTextStyleH5, 'tag_h5');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLColor', SmiHTMLInsertColor, nil, nil,
CmdHTMLColor, 'color-picker');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLDIVBlock', SmiHTMLInsertDIVBlock, nil, nil, CmdHTMLDIVBlock, 'div_justify');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLSpanText', SmiHTMLInsertSpanText, nil, nil, CmdHTMLSpanText, 'tag_font');
RegisterIDEMenuCommand(mnuHTMLStyles, '', '-', nil, nil, nil, '');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLPre', SmiHTMLInsertPre, nil, nil, CmdHTMLPre, 'tag_pre');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLSub', SmiHTMLInsertSub, nil, nil, CmdHTMLSub, 'tag_sub');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLSuper', SmiHTMLInsertSuper, nil, nil, CmdHTMLSuper, 'tag_sup');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLColor', SmiHTMLInsertColor, nil, nil, CmdHTMLColor, 'color-picker');
RegisterIDEMenuCommand(mnuHTMLStyles, '', '-', nil, nil, nil, '');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader1', SmiHTMLInsertHeader1Level, nil, nil, CmdHTMLTextStyleH1, 'tag_h1');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader2', SmiHTMLInsertHeader2Level, nil, nil, CmdHTMLTextStyleH2, 'tag_h2');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader3', SmiHTMLInsertHeader3Level, nil, nil, CmdHTMLTextStyleH3, 'tag_h3');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader4', SmiHTMLInsertHeader4Level, nil, nil, CmdHTMLTextStyleH4, 'tag_h4');
RegisterIDEMenuCommand(mnuHTMLStyles, 'HTMLTextHeader5', SmiHTMLInsertHeader5Level, nil, nil, CmdHTMLTextStyleH5, 'tag_h5');
//Table menus
mnuHTMLTables := RegisterIDESubMenu(mnuHTMLSection, 'HTMLTables', SmiHTMLTables, nil, nil);
@ -475,6 +493,39 @@ begin
Selection:='<!-- '+Selection+' -->';
end;
procedure ProcHTMLDIVBlock(Sender: TObject);
begin
If Not CheckEditor then Exit;
With TfpWebNewHtmlTagPreForm.Create(Application) do
try
if ShowModal = mrOk then
InsertHTMLSnippet(HtmlText(SourceEditorManagerIntf.ActiveEditor.Selection));
finally
Free;
end;
end;
procedure ProcHTMLSpanText(Sender: TObject);
begin
{ TODO : Необходимо добавить окно диалога с запросом параметров - события/стили }
InsertHTMLTag('SPAN');
end;
procedure ProcHTMLPre(Sender: TObject);
begin
InsertHTMLTag('pre');
end;
procedure ProcHTMLSub(Sender: TObject);
begin
InsertHTMLTag('sub');
end;
procedure ProcHTMLSuper(Sender: TObject);
begin
InsertHTMLTag('sup');
end;
procedure ProcHTMLColor(Sender: TObject);
var
Dlg:TColorDialog;

View File

@ -1,7 +1,8 @@
if [ -f fpweb_images.inc ]; then
rm fpweb_images.inc
fi
../../../tools/lazres fpweb_images.inc HTMLList.png quick_table.png tag_dd.png tag_dl.png tag_dt.png tag_li.png tag_ol.png tag_ul.png tag_table_body.png tag_table_row.png tag_tbody.png tag_td.png tag_tr.png tag_table_data.png tag_h1.png tag_h2.png tag_h3.png tag_h4.png tag_h5.png HTMLForm.png lineedit.png reset.png submit.png tag_image.png tag_br.png tag_comm.png tag_hr.png color-picker.png div_center.png div_justify.png div_left.png div_right.png tag_bold.png tag_i.png tag_u.png tag_nbsp.png button.png check.png radio.png select.png tag_a.png tag_attribute.png tag_element.png
../../../tools/lazres fpweb_images.inc HTMLList.png quick_table.png tag_dd.png tag_dl.png tag_dt.png tag_li.png tag_ol.png tag_ul.png tag_table_body.png tag_table_row.png tag_tbody.png tag_td.png tag_tr.png tag_table_data.png tag_h1.png tag_h2.png tag_h3.png tag_h4.png tag_h5.png HTMLForm.png lineedit.png reset.png submit.png tag_image.png tag_br.png tag_comm.png tag_hr.png color-picker.png div_center.png div_justify.png div_left.png div_right.png tag_bold.png tag_i.png tag_u.png tag_nbsp.png button.png check.png radio.png select.png tag_a.png tag_attribute.png tag_element.png tag_sub.png tag_sup.png tag_font.png tag_pre.png

Binary file not shown.

After

Width:  |  Height:  |  Size: 381 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 309 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 301 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 305 B

View File

@ -225,6 +225,10 @@ msgctxt "fpwebstrconsts.smihtmlinsertcomment"
msgid "Insert HTML comment"
msgstr ""
#: fpwebstrconsts.smihtmlinsertdivblock
msgid "Insert DIV Block"
msgstr ""
#: fpwebstrconsts.smihtmlinsertform
msgctxt "fpwebstrconsts.smihtmlinsertform"
msgid "Insert HTML Form"
@ -287,6 +291,22 @@ msgctxt "fpwebstrconsts.smihtmlinsertnbsp"
msgid "Insert Non Breaking Space"
msgstr ""
#: fpwebstrconsts.smihtmlinsertpre
msgid "Insert Pre"
msgstr ""
#: fpwebstrconsts.smihtmlinsertspantext
msgid "Insert Span Text"
msgstr ""
#: fpwebstrconsts.smihtmlinsertsub
msgid "Insert Subscript"
msgstr ""
#: fpwebstrconsts.smihtmlinsertsuper
msgid "Insert Superscript"
msgstr ""
#: fpwebstrconsts.smihtmlinserttable
msgctxt "fpwebstrconsts.smihtmlinserttable"
msgid "Insert HTML table"

View File

@ -13,7 +13,7 @@ msgstr "Создать новый CSS файл..."
#: fpwebstrconsts.scsssource
msgid "Enter your classes/style definitions here"
msgstr ""
msgstr "Введите свой определния стилей/классов здесь"
#: fpwebstrconsts.senteryoutext
msgctxt "fpwebstrconsts.senteryoutext"
@ -22,7 +22,7 @@ msgstr "Введите свой HTML код здесь..."
#: fpwebstrconsts.shtmlautor
msgid "Html &author - <meta name=\"author\">"
msgstr ""
msgstr "Автор Html - <meta name=\"author\""
#: fpwebstrconsts.shtmlcharset
msgid "HTML chars&et"
@ -225,6 +225,10 @@ msgctxt "fpwebstrconsts.smihtmlinsertcomment"
msgid "Insert HTML comment"
msgstr "Вставить HTML коментарий"
#: fpwebstrconsts.smihtmlinsertdivblock
msgid "Insert DIV Block"
msgstr ""
#: fpwebstrconsts.smihtmlinsertform
msgctxt "fpwebstrconsts.smihtmlinsertform"
msgid "Insert HTML Form"
@ -287,6 +291,22 @@ msgctxt "fpwebstrconsts.smihtmlinsertnbsp"
msgid "Insert Non Breaking Space"
msgstr ""
#: fpwebstrconsts.smihtmlinsertpre
msgid "Insert Pre"
msgstr ""
#: fpwebstrconsts.smihtmlinsertspantext
msgid "Insert Span Text"
msgstr ""
#: fpwebstrconsts.smihtmlinsertsub
msgid "Insert Subscript"
msgstr ""
#: fpwebstrconsts.smihtmlinsertsuper
msgid "Insert Superscript"
msgstr ""
#: fpwebstrconsts.smihtmlinserttable
msgctxt "fpwebstrconsts.smihtmlinserttable"
msgid "Insert HTML table"

View File

@ -28,7 +28,7 @@
HTML editing functionality by Alexei Lagunov"/>
<License Value="LGPL"/>
<Version Minor="9"/>
<Files Count="40">
<Files Count="41">
<Item1>
<Filename Value="reglazwebextra.pp"/>
<HasRegisterProc Value="True"/>
@ -199,23 +199,30 @@ HTML editing functionality by Alexei Lagunov"/>
<Filename Value="fpwebselecttagunit.pas"/>
<UnitName Value="fpWebSelectTagUnit"/>
</Item40>
<Item41>
<Filename Value="fpwebnewhtmltagpreunit.pas"/>
<UnitName Value="fpwebnewhtmltagpreunit"/>
</Item41>
</Files>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="languages"/>
</i18n>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="3">
<RequiredPkgs Count="4">
<Item1>
<PackageName Value="sqldblaz"/>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="weblaz"/>
<PackageName Value="sqldblaz"/>
</Item2>
<Item3>
<PackageName Value="weblaz"/>
</Item3>
<Item4>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item3>
</Item4>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/>