mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-24 12:11:34 +02:00
* HTML/CSS/JS file creation items in File New (From Aleksey Lagunov).
* HTML Editor menu item to insert HTML tags (From Aleksey Lagunov). * JS file 'Quick syntax check' option enabled. * Enabled Syntax highlighting options for SQL properties of SQLDBConnector. git-svn-id: trunk@27323 -
This commit is contained in:
michael
parent
b02ee4ee72
commit
233cbd23c3
57
.gitattributes
vendored
57
.gitattributes
vendored
@ -934,8 +934,65 @@ components/fpweb/demo/session/sessiondemo.lpr svneol=native#text/plain
|
||||
components/fpweb/demo/session/wmsession.lfm svneol=native#text/plain
|
||||
components/fpweb/demo/session/wmsession.lrs svneol=native#text/pascal
|
||||
components/fpweb/demo/session/wmsession.pp svneol=native#text/plain
|
||||
components/fpweb/fpweb_images.inc svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlfileunit.lfm svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlfileunit.pas svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlformunit.lfm svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlformunit.pas svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlimgunit.lfm svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlimgunit.pas svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlinputunit.lfm svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmlinputunit.pas svneol=native#text/plain
|
||||
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/fpwebnewhtmltagtrunit.lfm svneol=native#text/plain
|
||||
components/fpweb/fpwebnewhtmltagtrunit.pas svneol=native#text/plain
|
||||
components/fpweb/fpwebstrconsts.pas svneol=native#text/plain
|
||||
components/fpweb/fpwebtoolsunit.pas svneol=native#text/plain
|
||||
components/fpweb/frmrpcmoduleoptions.lfm svneol=native#text/plain
|
||||
components/fpweb/frmrpcmoduleoptions.pp svneol=native#text/plain
|
||||
components/fpweb/images/HTMLForm.png -text svneol=unset#image/png
|
||||
components/fpweb/images/HTMLList.png -text svneol=unset#image/png
|
||||
components/fpweb/images/color-picker.png -text svneol=unset#image/png
|
||||
components/fpweb/images/div_center.png -text svneol=unset#image/png
|
||||
components/fpweb/images/div_justify.png -text svneol=unset#image/png
|
||||
components/fpweb/images/div_left.png -text svneol=unset#image/png
|
||||
components/fpweb/images/div_right.png -text svneol=unset#image/png
|
||||
components/fpweb/images/lineedit.png -text svneol=unset#image/png
|
||||
components/fpweb/images/make_img_list.sh svneol=native#text/plain
|
||||
components/fpweb/images/quick_table.png -text svneol=unset#image/png
|
||||
components/fpweb/images/reset.png -text svneol=unset#image/png
|
||||
components/fpweb/images/submit.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_bold.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_br.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_comm.png -text svneol=unset#image/png
|
||||
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_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
|
||||
components/fpweb/images/tag_h4.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_h5.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_hr.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_i.png -text svneol=unset#image/png
|
||||
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_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
|
||||
components/fpweb/images/tag_tbody.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_td.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_tr.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_u.png -text svneol=unset#image/png
|
||||
components/fpweb/images/tag_ul.png -text svneol=unset#image/png
|
||||
components/fpweb/languages/fpwebstrconsts.po svneol=native#text/plain
|
||||
components/fpweb/languages/fpwebstrconsts.ru.po svneol=native#text/plain
|
||||
components/fpweb/languages/fpwebtoolsunit.po svneol=native#text/plain
|
||||
components/fpweb/languages/frmrpcmoduleoptions.de.po svneol=native#text/plain
|
||||
components/fpweb/languages/frmrpcmoduleoptions.pb.po svneol=native#text/plain
|
||||
components/fpweb/languages/frmrpcmoduleoptions.po svneol=native#text/plain
|
||||
|
||||
440
components/fpweb/fpweb_images.inc
Normal file
440
components/fpweb/fpweb_images.inc
Normal file
@ -0,0 +1,440 @@
|
||||
LazarusResources.Add('HTMLList','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#18#0#0#0#18#8#6#0#0#0'V'#206#142'W'
|
||||
+#0#0#0#9'pHYs'#0#0#14#196#0#0#14#196#1#149'+'#14#27#0#0#0#150'IDAT8'#141#165
|
||||
+#147'Q'#10#3'!'#12'D'#167'='#165#183'iz'#153#165#167'('#129#28'l'#250'Q]'#131
|
||||
+#186#212#164#3#131'!'#194'c'#140#10#204#226#162#247'S'#247#17'B'#170#135'Q'#4
|
||||
+#204#192'I*Ie'#175'OX'#14#212#156'I'#228#0'=M'#133#236#248#26#210#28'N'#4#128
|
||||
+'Z:@$'#7'#_'#133#2#248#1'O'#209#183' ZPo'#235#187#30#199';8d'#7'i63'#154#25#1
|
||||
+#192#213#215#30' U'#143#248#235'^C'#154'cJ'#253#173'Q'#183#185#229#147'<'#23
|
||||
+#251'!M'#199#218'~'#217';'#176'L'#154#191'!y}'#0'7a'#208#251#206#227#8'M'#0#0
|
||||
+#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('quick_table','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#1'*IDATx'#156#181#149#205'm'#131'@'#16#133#191'A.e'#202#240#129'2H!'#185
|
||||
+#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'`'#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#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
|
||||
+#0#0'zIDATx'#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#175#175
|
||||
+''''#201#208#198#198'F8'#155#246#169#2#27'hhh '#202#16'FF'#204#132'A'#21#131
|
||||
+'a`4('#224'`'#224#131#2#217#5#164#2#198#209#130'~'#232#26#12#0':'#182'$'#133
|
||||
+#10#234'0e'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_dt','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'xIDATx'#156#237#148#219#9#192' '#12'E'#147#226'`'#14#226'.1'#187'd'#16#7
|
||||
+'q'#23#251#21')'#246'A'#149#134'"x'#190'B'#132'C'#184'\'#196#156'3X'#176#153
|
||||
+'X'#167#20';'#29'D'#164#140#8'B'#8#248'('#6#0' '#239#187#164#156#210#237#155
|
||||
+'Y'#20#168'u'#27#141#162'E'#163'q'#237'B'#17#145'BD]Rf'#174#179'}+'#174#136
|
||||
+'1'#190#146' '#158#139#241#137'XYQT'#254#143#226'xA/'#184'>'#250'y'#197';'#30
|
||||
+#6'$'#133'4'#162#172#157#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_li','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'hIDATx'#218#237#146#209#10
|
||||
+#128'0'#8'E5'#250'o'#233#203'o'#143'%'#174#184#232#172#151']'#24#3#7#199#131
|
||||
+'Nd'#229#167#24#170#132#157#132'2'#141#244#19#227'A'#151';'#244'`,'#222#193#0
|
||||
+#202#150'""'#170#234'e.'#176'!;'#138#161'\,:8'#136#195#128#235#198'[|6'#248
|
||||
+';'#151#182#229#181'}'#183#135#132'1P'#203#203#194'g'#216'N'#135#174'4'#228#4
|
||||
+#154'JJG'#153'a'#210#154#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'67d'
|
||||
+'89e92f7c00aeb5d77c28929ec13bb'#151#251#16#130#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
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#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
|
||||
]);
|
||||
LazarusResources.Add('tag_ul','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'6IDATx'#218'c`'#24#5#180#6
|
||||
+#140#152'B'#245#255#17#236'FF'#226#141'B'#5',D'#170#251'O'#132#26#20'G'#16'k'
|
||||
+'0'#217'.'#31':`4'#242#134'0'#24#141#188'Q0'#28#0#0'$'#191#9#31'.q'#129'F'#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'500ceed52ef29f9a05d0dc010c987'
|
||||
+'9a89'#136#242'e'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_table_body','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#161'IDATx'#156#237#149']'#10#195' '#16#132'gJ'#143#226'1|'#200#205#154
|
||||
+#222#204#194#30'c'#143#160#15#201#5#182#15'5i'#176#9'M'#17#11#129#236#139'3'
|
||||
+#184'~'#224#224#15'U'#21'-'#234#210#132#218#18'|'#157#132's'#206'ja'#170#202
|
||||
+#15'0'#0#152#25#226#0#196#1'Hy'#140#227'['#167#236#151#243'i'#204#139#31#132
|
||||
+#136#152#247#158#192'?'#162#0#0#146'[}u`'#11'a'#214#247#16'p'#235#186#221#158
|
||||
+#11#13#28#250#184#1#175#237#213#248'M'#240'/'#153#150#190'/'#192'g'#198#235
|
||||
+#224'3'#227#185#202'k'#217#23#205#223#252'*XU)"'#213'o'#242'T<'#220#159#247#4
|
||||
+#150#236'bQ'#247'('#207#186#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_table_row','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#176'IDATx'#156#237#149#221#9#3'!'#16#132'gCJ'#177#140'+nJ'#177#149#128
|
||||
+'el'#9#222#195']'#3#147#23#189#24#194#5#204#197'@B'#6#196#29#212#15#25#252'1'
|
||||
+'w'#199#8#157#134'PG'#130#207#181#8'!'#232'('#204#221#237#1#12#0#146#144#23
|
||||
+' /'#192'\'#250#188#222#234#185#248'v|^'#203#226#139'!'#165#164'i'#154#12#248
|
||||
+'D'#20#0'`f{'#243#186'u'#183'cI[#'#217#229#159#130#223#169'a`'#171'7/'#132' '
|
||||
+#146'/'#131'H"'#198#136'z*'#224#238'(p'#169'i$'#187'<'#0#197#24'Uy'#255#140
|
||||
+'w2nD'#178#203#227#183'2>'#10'k3'#222#30'!w'#183#148#210'ax'#149'}'#221#159
|
||||
+'w'#5#182'I'#230'[*'#142#211'U'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_tbody','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#154'IDATx'#156#237#149'K'#14#195' '#12'D'#199'U'#143#194'1Xp'#179#150'E'
|
||||
+#239#197#194#199#152's'#224#165#187#168#210#168'4'#233'G'#136'H'#145'2'#27'<'
|
||||
+#2'='#201'#'#3'B'#18'#t'#26'B'#29#9'>OE'#8#193'{a$'#229#13#12#0#238#142'Z+'
|
||||
+#204#12'f'#237'j'#31#247'r'#190'AU='#198'('#192#22'Q'#0#128#136#172#157#235#3
|
||||
+#23'/s'#157#11#210'%'#253#236#147#204'5'#176#235'q'#3#30#237#245#248'U'#240
|
||||
+'?'#153#182#30#215'W'#240#145#241'2'#248#200#248#169#246'Z'#182#237'}'#245'K'
|
||||
+'`'#146#162#170#221'o'#242'$'#217#221#159'w'#7#190'~sQ'#186'#L'#173#0#0#0#0
|
||||
+'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_td','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#173'IDATx'#156#237#149#203#9#195'0'#16'D'#223#134#148#162'2\'#220#250
|
||||
+#144'>TJ'#14'*c'#235#144#142#155'Kd'#28#155#8'lG'#1#135#12','#210#176#226'!'
|
||||
+#6'}'#196#204#232#161'K'#23'jO'#240#181'NB'#8'~'#20'ff'#178#2#3#184';9gJ)'
|
||||
+#148#178#28'K'#179'7'#142'7RJ>'#12#131#192'7'#162#0#16#145'w'#235'6'#235'e'
|
||||
+#199#238'>'#149#170'n'#242'M'#240''''#213#13','#245#230#133#16'\Uw'#131'T'
|
||||
+#149#24'#'#245'T`f<'#225'>'#151#170#174'<w'#166'Z'#246#1#143'1z'#229#253'3'
|
||||
+#222#151'q'#203#243'['#25#31#133#205'3'#158#30'!3'#147#148#210'ax'#149#156
|
||||
+#238#207'{'#0#248'p'#8#155'I'#167#202#251#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_tr','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#175'IDATx'#156#237#149#193#13#2'!'#16'E'#255#24'K'#161#12#14#150#246#247
|
||||
+'`'#31#148#226#129'2'#166#14#230'8^duW'#221#4#17#147'M'#252#9#129#31#200#203
|
||||
+#228'3'#4'QU'#140#208'a'#8'u$'#248'X'#23'!'#4#239#133#169#170'<'#129#1#192
|
||||
+#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'#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
|
||||
+#0#0#178'IDATx'#156#237#149#219#9#195'0'#12'E'#143'JG'#241#24#25'N'#163'x'
|
||||
+#149#130#199#208#8#201'G'#178#128#250'c'#187'iC'#3'I'#234'@K/'#8'K'#200'>'
|
||||
+#152#139#31'bf'#180#208#165#9#181'%'#248'Z'#146#16#130#31#133#153#153','#192
|
||||
+#0#238'N?B?'#194#144#199'~z'#228'C'#174#231#253'a'#202#139'oBJ'#201#187#174
|
||||
+#19'8'#195#10#0#17'y7o'#179#158'v'#236#238'5TuS'#189#10#254#164#154#129#165
|
||||
+#220#188#16#130#171#234'n'#144#170#18'c'#164#156#10#204#140#12#247#185'TuYC'
|
||||
+#141#215'>'#224'1F/'#188#191#199';=^'#169#249'-'#143#143#194#230#30#215'G'
|
||||
+#200#204'$'#165't'#24'^$_'#247#231#221#1#129#30#248'I'#185#31#209#146#0#0#0#0
|
||||
+'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_h1','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#221#145#193#10#192'0'
|
||||
+#8'C'#159#163#31#158'?w'#151'"'#202#202#236'.'#131'-'#151#242'B'#218'('#133
|
||||
+#159#203#240'B\'#152#240#204'@.'#0#4'('#226#211'K'#215#197#0#197#235#178'\:)'
|
||||
+'5'#29#253#160'z'#16'N}#'#153'u'#185#133'j'#184#156#183#225#213'JU'#27'3'#191
|
||||
+#17#238#191#219#11'*'#161#26#254#158'N'#219#167#26#158#143'ro'#244#0#0#0'CtE'
|
||||
+'XtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'
|
||||
+#237#232#217#240#0#0#0'*tEXtSignature'#0'bb4f0572ee8bfcac946eecd7bc1d759dA'
|
||||
+#167#226#29#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_h2','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'sIDATx'#218#237#145#193#14#128' '
|
||||
+#12'C'#223#136#31#222'?'#175#151#9'C"'#158'M,'#151#22#186#208#2#252#24#8#252
|
||||
+#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#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
|
||||
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'tIDATx'#218#237#145#193#14#128'0'
|
||||
+#8'C'#31#198#15#239#159#215#131#206#1'1'#154'x3'#177';'#172#192'R'#10#131#31
|
||||
+'/'#17#0'8E'#190#168'DN'#129'A'#128#162'pW'#209'%'#183'Q'#20'nBh'#143#12#176
|
||||
+#222'Y'#148#247'Nj'#5#215'#'#231#252#136#146#178#218'}'#170'#0Q'#148#179#154
|
||||
+#220#251#202'm'#192''''#220'='#246'\'#157'Zz'#148'&'#159#3#31#171';l'#15#143
|
||||
+#138#204#167#243#252#3#223#194#6#154#181'C'#237'd'#231#170'0'#0#0#0'CtEXtSof'
|
||||
+'tware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232
|
||||
+#217#240#0#0#0'*tEXtSignature'#0'1f63359fb9d8b1f41ad2e0c2b0d87ada'#167' %z'#0
|
||||
+#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_h4','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'iIDATx'#218#237'PA'#14#192' '#8'+'
|
||||
+#139#15#231#231#221'A`'#128'fYv['#178'z'#160#216'J'#138#192#143#151#16#171'L'
|
||||
+'='#23#205#216#145#5#133#178'q'#128'p'#22'f'#131#202#158'o'#205#11#152#155'Q'
|
||||
+#230'6'#17#132#228#155'n.'#181'c'#212#214'r'#218'j'#218#158#221'f'#246'X'#250
|
||||
+#192',>9'#190'1V'#153#167's'#128#160'[GL'#241#156'R'#248#165'|'#20'''{'#141
|
||||
+'+'#140#148'<'#140'8'#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'578fd0'
|
||||
+'7c0194d395c978a4c4f089cc76x'#10's'#31#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_h5','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'jIDATx'#218#237'PA'#14#128'0'#8'k'
|
||||
+#141#15#239#207#235'A'#198#24#137'z31'#177';'#12'ha'#29#192#143'7'#192#184
|
||||
+#157#185#11#227'U'#199'L'#13#8#128#152'Q'#16'Q'#5#176#175#15#137'%'#178'Z'
|
||||
+#181#137'['#235'j'#21'[#'#157'>'#167'__'#137#153's((f'#203#143'6'#196#219#201
|
||||
+#11#134'!'#151#141#21#234#164#221'N'#154'(?'#29'%q'#146'}'#157'_'#196#1'mx)'
|
||||
+#136'V'#165#132#138#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'7c7652a0'
|
||||
+'6d71865160dd04a73b08d4dcd'#221#223#244#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('HTMLForm','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#255#0#255#0#255#160#189#167#147#0#0#0#9'pHYs'#0#0#11#18#0#0#11
|
||||
+#18#1#210#221'~'#252#0#0#0#7'tIME'#7#212#4#6#1'*-'#190#230#247#239#0#0#0#129
|
||||
+'IDATx'#156#237#147#193#13#128' '#12'Ei'#226'@e'#0'v'#251';0'#15'3'#240'7'
|
||||
+#194#139#26'P'#139'xU'#222#173#20'~'#154#244#225#220'dC'#234'BU'#203#155#199
|
||||
+'$'#229#249#214#22'<'#138#170#22#0#230' '#203#249#192'{'#255'fh'#147'&'#152
|
||||
+#164#244#166#248'6'#211#138#251#224'i'#197#5#203#14#146'b'#245'b'#140'.'#132
|
||||
+'p'#228']'#150#183#147'sn'#234'z'#169'w'#189#148'Rsf'#6#247#236#24'1'#199#20
|
||||
+#220#178#3#128'i'#14#128#177#15#243'/V'#144'/'#135'j'#152#222'^['#0#0#0#0'IE'
|
||||
+'ND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('lineedit','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#221#143'1'#14#192' '
|
||||
+#12#3'm'#196#191#233#207#221#161#168'M'#133'Cv'#204#0'A'#199'%'#0#135#135#207
|
||||
+'6'#180#131'.'#144#161#28'B'#190#160#169#234#223#3'/'#143#202#150#207#199#229
|
||||
+#174#175#30#1#160#237#211#254#168#160'i,'#205#10#128#243#27's'#158#196#172'w'
|
||||
+#250#205#7'eN'#14'&Qe'#18'R'#129#213#166#19'r'#3#30#153'#'#145'QJ'#236#133#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'bab8e151c37253bed51f46c581465'
|
||||
+'32clk'#214'>'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('reset','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#4#3#0#0#0'6'#154'q'#8#0
|
||||
+#0#0#21'PLTE'#0#0#0#255#255#255#220#220#220#128#128#128#195#195#195'000'#192
|
||||
+#0#0#19#224#2#197#0#0#0#1'tRNS'#0'@'#230#216'f'#0#0#0#1'bKGD'#6'af'#184'}'#0
|
||||
+#0#0'=IDATx'#218'c`'#160#4'0'#10'B'#128#0#136#173#4#1#6' '#182#138#11#8#184
|
||||
+'B'#217').np'#182#27#144#7'c'#187#164#185'`e#'#171'A'#214#139'0S5'#20#12#192
|
||||
+'lc'#8'0'#160#200''''#0#172#144#21#206#212#134#237#167#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'85fbd98df2cbec7327d704d6bb539207k'#129#198#130#0#0#0
|
||||
+#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('submit','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#4#3#0#0#0'6'#154'q'#8#0
|
||||
+#0#0#21'PLTE'#0#0#0#255#255#255#220#220#220#128#128#128#195#195#195#0#128#0
|
||||
+'000'#187'-'#128'R'#0#0#0#1'tRNS'#0'@'#230#216'f'#0#0#0#1'bKGD'#6'af'#184'}'
|
||||
+#0#0#0'IIDATx'#218'c`'#160#4'0'#10'B'#128#0#136#173#4#1#6' '#182#138#11#16
|
||||
+#132#186#193#217#174'!Pv'#8'P'#216#5#202#14#5#10#195#216#174'!'#161'.0'#182
|
||||
+'Kh'#8#130#237#234#130'`'#187#192#217'ji`'#0'f'#27'C'#128#1'E>'#1#0#194'j'#22
|
||||
+#26#178'H'#143#212#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cri'
|
||||
+'sty@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'#0'cec9eb923'
|
||||
+'2d34142f9cc65ee04629b7b'#29'F'#154#252#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
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#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#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#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
|
||||
+#179#189#137#243#173'~'#2#134#134']v'#201#228#29'n'#222')'#212#227#13#193#154
|
||||
+'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#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
|
||||
+#0#0#6'bKGD'#0#189#0#189#0#189'iB'#213#168#0#0#0'sIDATx'#218#237#210#193#13
|
||||
+#192' '#8#5'Ph:HG`$Ga'#4'G`$7'#250'=xS'#154#180#216'&'#141#241#31'Mx'#2#129
|
||||
+'he'#165#13'G'#11'E'#4#237'[)%'#236'u8'#0'x'#159'l_'#173'b:Xq'#143'y'#4'+'
|
||||
+#204#142#183';'#174'hJ)|>'#187'?'#190'R'#206#226#222'j'#16#174'('#16#246'.a&'
|
||||
+'R03'#137#200'0'#238'Daf'#227'm'#207#134#255','''#173#247'-'#25#5'zp'#22#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'10b91200ca7d3e80452035e5201e5dc'
|
||||
+'0'#232#213'S'#179#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_comm','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#169'IDATx'#156#213#149#219#13#195' '#20'Cq'#212'Q'#238#30#157'#'#27'v'
|
||||
+#13#246#240'.'#238'O'#30#229'q'#19'H'#154'V'#177#196'G'#144'82'#7'A@2\'#145
|
||||
+#225#18#234'-'#193#143#218#164#153#169#7'B'#18#187'`3'#147#212#197#13#0#148
|
||||
+#195#19#21#159'P'#140'1`'#140'M`I'#197'.}'#199#175'i'#28#204'o'#15'/'#15#176
|
||||
+'*'#145#158#197'w-'#255'm'#156#183#242'Z6'#129'['#22'o'#197'U'#1#196#196#229
|
||||
+#215#192'g'#147#168' '#9#0#146#212#165#2'@q'#173#11#199'3|'#15#182#220#208#10
|
||||
+#180#10#158#225#13'-7'#223#148#195#142#167#157#185'%N'#29#30'IxO,n'#247#207
|
||||
+'{'#3'6'#184'PK6z2@'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_hr','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#255#0#255#0#255#160#189#167#147#0#0#0#9'pHYs'#0#0#11#18#0#0#11
|
||||
+#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#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#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#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#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
|
||||
+#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'*rL'#198'm69'#230#162#235#250'OP'#197'H'#9#13'Z'#186#25#155#249
|
||||
+#228#134#242#208#4#0#130#204#7#8'K;'#254#29#0#0#0'CtEXtSoftware'#0'@(#)Image'
|
||||
+'Magick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*t'
|
||||
+'EXtSignature'#0'6acba95fbc585105463928dedefd503f{N'#239#11#0#0#0#0'IEND'#174
|
||||
+'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('div_justify','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#28'IDATx'#218'c`'#24'z'#128#17#206
|
||||
+#250'O'#132#154'Q'#147'GM'#166#134#201'C'#17#0#0#144#190#7#8#246#133' '#183#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'93fc0ff5106059b1f9b6d938045a6'
|
||||
+'7f7'#177#196'9'#0#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
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#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
|
||||
+#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'*rL'#198'g:'#229'&'#227'2'#157'2'#147#135'bh'#208#214#205#184'\O'
|
||||
+#142#201'C'#17#0#0'r'#206#7#8#185'I}'#156#0#0#0'CtEXtSoftware'#0'@(#)ImageMa'
|
||||
+'gick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEX'
|
||||
+'tSignature'#0'4159702a46d99f569d04f8885c5568f9'#194#129'|C'#0#0#0#0'IEND'
|
||||
+#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_bold','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#221#145'1'#14#192'0'#8
|
||||
+#3'M_'#202#211#252'SwH'#6'RT'#232'T)'#241#4#202#201'r'#12#176#159'l'#217'T'
|
||||
+#19#215#250#192'9'#16#172#12#130#187' *'#205#201#185'Q'#5'k'#4'z'#251#224'#'
|
||||
+#227#0#221#26#152#0#188'i#'#200'mb'#250#0#135'0'#191#183#145#174#197#170#13
|
||||
+'&'#220's_'#231#234#6'9G'#27'j'#162':2'#183#0#0#0'CtEXtSoftware'#0'@(#)Image'
|
||||
+'Magick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*t'
|
||||
+'EXtSignature'#0'3e9a3ea87676aa9fb82638d6d8e7b487y'#225'!J'#0#0#0#0'IEND'#174
|
||||
+'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_i','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'cIDATx'#218#221#145#203#9#128'@'
|
||||
+#12'D'#223'ZQJ'#178#4'K'#177#132#148'dG'#227'A'#196#253#177'A'#208#203'>'#200
|
||||
+'%'#204#132#12#3'S`B'#8#217'5'#25#169'op'#237#192#6#192#154#162#243'2'#185'\'
|
||||
+#229'r'#25'9'#234#155'Cq'#205#7'b'#25'G'#24#171#136#247#199#27#246'B'#172#187
|
||||
+#142#240'['#158#178#27#154#204'y'#176#184#232#201'8'#1#195'F'#31#253'+'#180
|
||||
+'S'#225#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'13ff90e67ecee3f36a72'
|
||||
+'bbefbc487f6dm'#193#173'R'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_u','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#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#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
|
||||
+'Y'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_nbsp','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'tIDATx'#218#229#144#193#13#131'0'
|
||||
+#16#4#135#244'@'#19'TqM'#152'"\'#133#155'p?t6y'#160#4#140','#1#15'>'#201#190
|
||||
+'N'#171#145'vo'#225'gT-^'#134'C:'#240#235'N'#222']8'#27'V'''#17#211'.'#188
|
||||
+#231#17#226'h'#182#24'bu'#243#146#197#212#226#205'3'#134'Go'#250#222#23':'
|
||||
+#207#192':'#228#163'k'#156'i'#1#202'p'#2#175'='#179#11#169#157#174#183#198'('
|
||||
+#226#199#249#11#189#1#255'.C'#255'MW'#212#224#0#0#0'CtEXtSoftware'#0'@(#)Ima'
|
||||
+'geMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0
|
||||
+'*tEXtSignature'#0'820a5626c5c024fc4580ba9292bc8b65'#170#242#9#21#0#0#0#0'IE'
|
||||
+'ND'#174'B`'#130
|
||||
]);
|
||||
258
components/fpweb/fpwebnewhtmlfileunit.lfm
Normal file
258
components/fpweb/fpwebnewhtmlfileunit.lfm
Normal file
@ -0,0 +1,258 @@
|
||||
object fpWebNewHTMLFileForm: TfpWebNewHTMLFileForm
|
||||
Left = 399
|
||||
Height = 441
|
||||
Top = 220
|
||||
Width = 591
|
||||
ActiveControl = PageControl1
|
||||
Caption = 'fpWebNewHTMLFileForm'
|
||||
ClientHeight = 441
|
||||
ClientWidth = 591
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 401
|
||||
Width = 579
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.Caption = '&ОК'
|
||||
HelpButton.Name = 'HelpButton'
|
||||
HelpButton.Caption = '&Help'
|
||||
CloseButton.Name = 'CloseButton'
|
||||
CloseButton.Caption = 'C&lose'
|
||||
CloseButton.Enabled = False
|
||||
CancelButton.Name = 'CancelButton'
|
||||
CancelButton.Caption = '&Cancel'
|
||||
TabOrder = 0
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 395
|
||||
Top = 0
|
||||
Width = 591
|
||||
ActivePage = TabSheet2
|
||||
Align = alClient
|
||||
TabIndex = 1
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Main'
|
||||
ClientHeight = 367
|
||||
ClientWidth = 587
|
||||
object cbCharset: TComboBox
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 24
|
||||
Top = 225
|
||||
Width = 172
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'UTF-8'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 0
|
||||
Text = 'UTF-8'
|
||||
end
|
||||
object edtTitle: TEdit
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 78
|
||||
Width = 569
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 1
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = edtCopyr
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 204
|
||||
Width = 46
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Chars&et'
|
||||
FocusControl = cbCharset
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = cbShema
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 57
|
||||
Width = 25
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Title'
|
||||
FocusControl = edtTitle
|
||||
ParentColor = False
|
||||
end
|
||||
object edtCopyr: TEdit
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 176
|
||||
Width = 569
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 2
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = edtAutor
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 155
|
||||
Width = 55
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Cop&yright'
|
||||
FocusControl = edtCopyr
|
||||
ParentColor = False
|
||||
end
|
||||
object edtAutor: TEdit
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 127
|
||||
Width = 569
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 3
|
||||
end
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = edtTitle
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 106
|
||||
Width = 38
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Author'
|
||||
FocusControl = edtAutor
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = TabSheet1
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 82
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&DTD / Schema'
|
||||
FocusControl = cbShema
|
||||
ParentColor = False
|
||||
end
|
||||
object cbShema: TComboBox
|
||||
AnchorSideLeft.Control = Label7
|
||||
AnchorSideTop.Control = Label7
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 24
|
||||
Top = 27
|
||||
Width = 569
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'HTML 4.01 Transitional'
|
||||
'HTML 4.01 Strict'
|
||||
'HTML 4.01 Frameset'
|
||||
'XHTML 1.0 Transitional'
|
||||
'XHTML 1.0 Strict'
|
||||
'XHTML 1.0 Frameset'
|
||||
'XHTML 1.0 Basic'
|
||||
'XHTML 1.1'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 4
|
||||
Text = 'HTML 4.01 Transitional'
|
||||
end
|
||||
end
|
||||
object TabSheet2: TTabSheet
|
||||
Caption = 'Links'
|
||||
ClientHeight = 367
|
||||
ClientWidth = 587
|
||||
object edtJS: TComboBox
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideTop.Control = Label6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 77
|
||||
Width = 569
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object edtCSS: TComboBox
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 27
|
||||
Width = 569
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object Label6: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = edtCSS
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 56
|
||||
Width = 33
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&JS file'
|
||||
FocusControl = edtJS
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = TabSheet2
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 46
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&CSS file'
|
||||
FocusControl = edtCSS
|
||||
ParentColor = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
173
components/fpweb/fpwebnewhtmlfileunit.pas
Normal file
173
components/fpweb/fpwebnewhtmlfileunit.pas
Normal file
@ -0,0 +1,173 @@
|
||||
unit fpWebNewHTMLFileUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
|
||||
StdCtrls, ComCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TfpWebNewHTMLFileForm }
|
||||
|
||||
TfpWebNewHTMLFileForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
cbCharset: TComboBox;
|
||||
cbShema: TComboBox;
|
||||
edtAutor: TEdit;
|
||||
edtCopyr: TEdit;
|
||||
edtCSS: TComboBox;
|
||||
edtJS: TComboBox;
|
||||
edtTitle: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
procedure FillLinks;
|
||||
procedure SaveHtmlProps;
|
||||
procedure LoadHtmlProps;
|
||||
public
|
||||
function HtmlText:string;
|
||||
end;
|
||||
|
||||
var
|
||||
fpWebNewHTMLFileForm: TfpWebNewHTMLFileForm;
|
||||
|
||||
const
|
||||
HTML_Autor = 'HTML_Autor';
|
||||
HTML_Copyright = 'HTML_Copyright';
|
||||
|
||||
implementation
|
||||
|
||||
uses fpWebStrConsts, SrcEditorIntf, ProjectIntf, LazIDEIntf;
|
||||
|
||||
{$R *.lfm}
|
||||
const
|
||||
HTMLHeaders : array [0..7] of string =
|
||||
('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'+LineEnding +
|
||||
'<HTML>',
|
||||
|
||||
'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">'+LineEnding +
|
||||
'<HTML>',
|
||||
|
||||
'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'+LineEnding +
|
||||
'<HTML>',
|
||||
|
||||
'<?xml version="1.0" encoding="utf-8"?>'+LineEnding+
|
||||
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'+LineEnding+
|
||||
'<html xmlns="http://www.w3.org/1999/xhtml">',
|
||||
|
||||
'<?xml version="1.0" encoding="utf-8"?>'+LineEnding+
|
||||
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'+LineEnding+
|
||||
'<html xmlns="http://www.w3.org/1999/xhtml">',
|
||||
|
||||
'<?xml version="1.0" encoding="utf-8"?>'+LineEnding+
|
||||
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">'+LineEnding+
|
||||
'<html xmlns="http://www.w3.org/1999/xhtml">',
|
||||
|
||||
'<?xml version="1.0" encoding="utf-8"?>'+LineEnding+
|
||||
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN" "http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">'+LineEnding+
|
||||
'<html xmlns="http://www.w3.org/1999/xhtml">',
|
||||
|
||||
'<?xml version="1.0" encoding="utf-8"?>'+LineEnding+
|
||||
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'+LineEnding+
|
||||
'<html xmlns="http://www.w3.org/1999/xhtml">'
|
||||
);
|
||||
|
||||
{ TfpWebNewHTMLFileForm }
|
||||
|
||||
procedure TfpWebNewHTMLFileForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Caption:=SNewHtmlFileProps;
|
||||
Label3.Caption:=SHTMLTitle;//
|
||||
Label1.Caption:=SHTMLAutor;
|
||||
Label2.Caption:=SHTMLCopyright;
|
||||
Label4.Caption:=SHTMLCharset;
|
||||
Label5.Caption:=SHTMLCssFile;
|
||||
Label6.Caption:=SHTMLJSFile;
|
||||
//
|
||||
|
||||
LoadHtmlProps;
|
||||
edtCSS.Items.Clear;
|
||||
edtJS.Items.Clear;
|
||||
FillLinks;
|
||||
end;
|
||||
|
||||
procedure TfpWebNewHTMLFileForm.FormClose(Sender: TObject;
|
||||
var CloseAction: TCloseAction);
|
||||
begin
|
||||
if ModalResult = mrOk then
|
||||
SaveHtmlProps;
|
||||
end;
|
||||
|
||||
procedure TfpWebNewHTMLFileForm.FillLinks;
|
||||
var
|
||||
i:integer;
|
||||
S, Ext:string;
|
||||
begin
|
||||
if Assigned(LazarusIDE) and Assigned(LazarusIDE.ActiveProject) then
|
||||
begin
|
||||
for i:=0 to LazarusIDE.ActiveProject.FileCount - 1 do
|
||||
begin
|
||||
S:=LazarusIDE.ActiveProject.Files[i].Filename;
|
||||
Ext:=UpperCase(ExtractFileExt(S));
|
||||
if Ext = '.JS' then
|
||||
edtJS.Items.Add(S)
|
||||
else
|
||||
if Ext = '.CSS' then
|
||||
edtCSS.Items.Add(S);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfpWebNewHTMLFileForm.SaveHtmlProps;
|
||||
begin
|
||||
if Assigned(LazarusIDE) and Assigned(LazarusIDE.ActiveProject) then
|
||||
begin
|
||||
LazarusIDE.ActiveProject.CustomSessionData.Values[HTML_Autor] := edtAutor.Text;
|
||||
LazarusIDE.ActiveProject.CustomSessionData.Values[HTML_Copyright] := edtCopyr.Text;
|
||||
LazarusIDE.ActiveProject.Modified:=True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfpWebNewHTMLFileForm.LoadHtmlProps;
|
||||
begin
|
||||
if Assigned(LazarusIDE) and Assigned(LazarusIDE.ActiveProject) then
|
||||
begin
|
||||
edtAutor.Text := LazarusIDE.ActiveProject.CustomSessionData.Values[HTML_Autor];
|
||||
edtCopyr.Text := LazarusIDE.ActiveProject.CustomSessionData.Values[HTML_Copyright];
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfpWebNewHTMLFileForm.HtmlText: string;
|
||||
begin
|
||||
Result:= HTMLHeaders[cbShema.ItemIndex] + LineEnding+' <head>'+LineEnding;
|
||||
Result:=Result + ' <title>'+fpWebNewHTMLFileForm.edtTitle.Text+'</title>'+LineEnding;
|
||||
if fpWebNewHTMLFileForm.edtAutor.Text <> '' then
|
||||
Result:=Result + ' <meta name="author" content="'+fpWebNewHTMLFileForm.edtAutor.Text+'" >'+LineEnding;
|
||||
if fpWebNewHTMLFileForm.edtCopyr.Text <> '' then
|
||||
Result:=Result + ' <meta name="copyright" content="'+fpWebNewHTMLFileForm.edtCopyr.Text+'">'+LineEnding;
|
||||
if fpWebNewHTMLFileForm.cbCharset.Text <> '' then
|
||||
Result:=Result + ' <meta http-equiv="content-type" content="text/html; charset='+fpWebNewHTMLFileForm.cbCharset.Text+'">'+LineEnding;
|
||||
if fpWebNewHTMLFileForm.edtCSS.Text <> '' then
|
||||
Result:=Result + ' <link rel="stylesheet" type="text/css" href="'+fpWebNewHTMLFileForm.edtCSS.Text+'" />'+LineEnding;
|
||||
Result:=Result + ' </head>'+LineEnding;
|
||||
Result:=Result + ' <body>'+LineEnding;
|
||||
Result:=Result + ' <h1> '+fpWebNewHTMLFileForm.edtTitle.Text+' </h1>'+LineEnding;
|
||||
Result:=Result + ' <!-- '+SEnterYouText+' -->'+LineEnding;
|
||||
Result:=Result + ' </body>'+LineEnding+'</html>'+LineEnding;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
350
components/fpweb/fpwebnewhtmlformunit.lfm
Normal file
350
components/fpweb/fpwebnewhtmlformunit.lfm
Normal file
@ -0,0 +1,350 @@
|
||||
object fpwebNewHTMLFormForm: TfpwebNewHTMLFormForm
|
||||
Left = 400
|
||||
Height = 369
|
||||
Top = 199
|
||||
Width = 470
|
||||
ActiveControl = PageControl1
|
||||
Caption = 'HTML Form properties'
|
||||
ClientHeight = 369
|
||||
ClientWidth = 470
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 329
|
||||
Width = 458
|
||||
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 = 323
|
||||
Top = 0
|
||||
Width = 470
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
TabIndex = 0
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Main'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 466
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = TabSheet1
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 35
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Action'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = cbAction
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 56
|
||||
Width = 35
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Metod'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = cbMetod
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 106
|
||||
Width = 45
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Enctype'
|
||||
ParentColor = False
|
||||
end
|
||||
object cbAction: TComboBox
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 27
|
||||
Width = 448
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbMetod: TComboBox
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 77
|
||||
Width = 448
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
Items.Strings = (
|
||||
''
|
||||
'GET'
|
||||
'POST'
|
||||
)
|
||||
TabOrder = 1
|
||||
end
|
||||
object cbEncType: TComboBox
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 127
|
||||
Width = 448
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
Items.Strings = (
|
||||
''
|
||||
'application/x-www-form-urlencoded'
|
||||
'multipart/form-data'
|
||||
)
|
||||
TabOrder = 2
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = cbEncType
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 156
|
||||
Width = 36
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Target'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = cbEncType
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 191
|
||||
Height = 15
|
||||
Top = 156
|
||||
Width = 85
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Accept charset'
|
||||
ParentColor = False
|
||||
end
|
||||
object cbTarget: TComboBox
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Label5
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 177
|
||||
Width = 173
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
Items.Strings = (
|
||||
''
|
||||
'_blank'
|
||||
'_self'
|
||||
'_parent'
|
||||
'_top'
|
||||
)
|
||||
TabOrder = 3
|
||||
end
|
||||
object cbAcceptCharset: TComboBox
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 197
|
||||
Height = 23
|
||||
Top = 177
|
||||
Width = 263
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 4
|
||||
end
|
||||
end
|
||||
object TabSheet2: TTabSheet
|
||||
Caption = 'Core'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 466
|
||||
object Label6: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = TabSheet2
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 6
|
||||
Width = 14
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'ID'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = ComboBox6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 65
|
||||
Width = 35
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Class'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = ComboBox7
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 124
|
||||
Width = 33
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Style'
|
||||
ParentColor = False
|
||||
end
|
||||
object ComboBox6: TComboBox
|
||||
AnchorSideLeft.Control = Label6
|
||||
AnchorSideTop.Control = Label6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 29
|
||||
Top = 30
|
||||
Width = 452
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
Text = 'ComboBox6'
|
||||
end
|
||||
object ComboBox7: TComboBox
|
||||
AnchorSideLeft.Control = Label7
|
||||
AnchorSideTop.Control = Label7
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 29
|
||||
Top = 89
|
||||
Width = 452
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 1
|
||||
Text = 'ComboBox7'
|
||||
end
|
||||
object EditButton1: TEditButton
|
||||
AnchorSideLeft.Control = Label8
|
||||
AnchorSideTop.Control = Label8
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 27
|
||||
Top = 148
|
||||
Width = 424
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
ButtonWidth = 23
|
||||
CharCase = ecNormal
|
||||
MaxLength = 0
|
||||
NumGlyphs = 1
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object TabSheet3: TTabSheet
|
||||
Caption = 'Events'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 466
|
||||
object Label9: TLabel
|
||||
AnchorSideLeft.Control = TabSheet3
|
||||
AnchorSideTop.Control = TabSheet3
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 6
|
||||
Width = 48
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'OnClick'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
AnchorSideLeft.Control = TabSheet3
|
||||
AnchorSideTop.Control = ComboBox8
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 65
|
||||
Width = 69
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'OnDblClick'
|
||||
ParentColor = False
|
||||
end
|
||||
object ComboBox8: TComboBox
|
||||
AnchorSideLeft.Control = Label9
|
||||
AnchorSideTop.Control = Label9
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet3
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 29
|
||||
Top = 30
|
||||
Width = 446
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
Text = 'ComboBox8'
|
||||
end
|
||||
object ComboBox9: TComboBox
|
||||
AnchorSideLeft.Control = Label10
|
||||
AnchorSideTop.Control = Label10
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet3
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 29
|
||||
Top = 89
|
||||
Width = 446
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 1
|
||||
Text = 'ComboBox9'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
98
components/fpweb/fpwebnewhtmlformunit.pas
Normal file
98
components/fpweb/fpwebnewhtmlformunit.pas
Normal file
@ -0,0 +1,98 @@
|
||||
unit fpwebNewHTMLFormUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
|
||||
ComCtrls, StdCtrls, EditBtn;
|
||||
|
||||
type
|
||||
|
||||
{ TfpwebNewHTMLFormForm }
|
||||
|
||||
TfpwebNewHTMLFormForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
cbAction: TComboBox;
|
||||
cbMetod: TComboBox;
|
||||
cbEncType: TComboBox;
|
||||
cbTarget: TComboBox;
|
||||
cbAcceptCharset: TComboBox;
|
||||
ComboBox6: TComboBox;
|
||||
ComboBox7: TComboBox;
|
||||
ComboBox8: TComboBox;
|
||||
ComboBox9: TComboBox;
|
||||
EditButton1: TEditButton;
|
||||
Label1: TLabel;
|
||||
Label10: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
TabSheet3: TTabSheet;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
procedure FillActionList;
|
||||
public
|
||||
function HtmlText(const S:string): string;
|
||||
end;
|
||||
|
||||
var
|
||||
fpwebNewHTMLFormForm: TfpwebNewHTMLFormForm;
|
||||
|
||||
implementation
|
||||
uses fpWeb;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfpwebNewHTMLFormForm }
|
||||
|
||||
procedure TfpwebNewHTMLFormForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
cbAction.Items.Clear;
|
||||
FillActionList;
|
||||
end;
|
||||
|
||||
procedure TfpwebNewHTMLFormForm.FillActionList;
|
||||
var
|
||||
i, j:integer;
|
||||
WD:TFPWebModule;
|
||||
begin
|
||||
for i:=0 to Screen.DataModuleCount - 1 do
|
||||
begin
|
||||
if Screen.DataModules[i] is TFPWebModule then
|
||||
begin
|
||||
WD:=Screen.DataModules[i] as TFPWebModule;
|
||||
for j:=0 to WD.Actions.Count - 1 do
|
||||
cbAction.Items.Add(WD.ActionVar +'='+ WD.Actions[j].Name);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfpwebNewHTMLFormForm.HtmlText(const S:string): string;
|
||||
begin
|
||||
Result:='<FORM action="?'+cbAction.Text+
|
||||
'" method="'+cbMetod.Text+'"';
|
||||
|
||||
if cbEncType.Text<>'' then
|
||||
Result:=Result +' enctype="' + cbEncType.Text+ '"';
|
||||
|
||||
if cbTarget.Text <> '' then
|
||||
Result:=Result +' target="' + cbTarget.Text + '"';
|
||||
|
||||
if cbAcceptCharset.Text <> '' then
|
||||
Result:=Result +' accept-charset="' + cbAcceptCharset.Text + '">';
|
||||
|
||||
Result:=Result +'>' + LineEnding + S+ LineEnding + '</FORM>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
226
components/fpweb/fpwebnewhtmlimgunit.lfm
Normal file
226
components/fpweb/fpwebnewhtmlimgunit.lfm
Normal file
@ -0,0 +1,226 @@
|
||||
object fpwebNewHTMLImgForm: TfpwebNewHTMLImgForm
|
||||
Left = 455
|
||||
Height = 470
|
||||
Top = 212
|
||||
Width = 454
|
||||
ActiveControl = edtFileName
|
||||
Caption = 'Tag property: IMG'
|
||||
ClientHeight = 470
|
||||
ClientWidth = 454
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 430
|
||||
Width = 442
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.Caption = '&ОК'
|
||||
HelpButton.Name = 'HelpButton'
|
||||
HelpButton.Caption = '&Help'
|
||||
CloseButton.Name = 'CloseButton'
|
||||
CloseButton.Caption = 'C&lose'
|
||||
CloseButton.Enabled = False
|
||||
CancelButton.Name = 'CancelButton'
|
||||
CancelButton.Caption = '&Cancel'
|
||||
TabOrder = 0
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 79
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Image &source'
|
||||
FocusControl = edtFileName
|
||||
ParentColor = False
|
||||
end
|
||||
object edtFileName: TFileNameEdit
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 29
|
||||
Width = 416
|
||||
OnAcceptFileName = edtFileNameAcceptFileName
|
||||
DialogOptions = []
|
||||
FilterIndex = 0
|
||||
HideDirectories = False
|
||||
ButtonWidth = 23
|
||||
NumGlyphs = 0
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
MaxLength = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtFileName
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 57
|
||||
Width = 31
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = '&Width'
|
||||
FocusControl = edtWidth
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = edtFileName
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 209
|
||||
Height = 15
|
||||
Top = 57
|
||||
Width = 37
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'H&eigth'
|
||||
FocusControl = edtHeigth
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtWidth
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 106
|
||||
Width = 44
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'HSp&ace'
|
||||
FocusControl = edtHSpace
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = edtHeigth
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 206
|
||||
Height = 15
|
||||
Top = 106
|
||||
Width = 43
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'VS&pace'
|
||||
FocusControl = edtVSpace
|
||||
ParentColor = False
|
||||
end
|
||||
object edtWidth: TEdit
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Label3
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 78
|
||||
Width = 191
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
TabOrder = 2
|
||||
end
|
||||
object edtHeigth: TEdit
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 215
|
||||
Height = 22
|
||||
Top = 78
|
||||
Width = 233
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
TabOrder = 3
|
||||
end
|
||||
object edtHSpace: TEdit
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Label3
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 127
|
||||
Width = 191
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
TabOrder = 4
|
||||
end
|
||||
object edtVSpace: TEdit
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 212
|
||||
Height = 22
|
||||
Top = 127
|
||||
Width = 236
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
TabOrder = 5
|
||||
end
|
||||
object Label6: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtHSpace
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 155
|
||||
Width = 77
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = '&Alternate text'
|
||||
FocusControl = edtAlt
|
||||
ParentColor = False
|
||||
end
|
||||
object edtAlt: TEdit
|
||||
AnchorSideLeft.Control = Label6
|
||||
AnchorSideTop.Control = Label6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 176
|
||||
Width = 436
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
TabOrder = 6
|
||||
end
|
||||
object Image1: TImage
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtAlt
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = ButtonPanel1
|
||||
Left = 6
|
||||
Height = 220
|
||||
Top = 204
|
||||
Width = 442
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
Center = True
|
||||
end
|
||||
end
|
||||
79
components/fpweb/fpwebnewhtmlimgunit.pas
Normal file
79
components/fpweb/fpwebnewhtmlimgunit.pas
Normal file
@ -0,0 +1,79 @@
|
||||
unit fpwebNewHTMLImgUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
|
||||
StdCtrls, EditBtn, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TfpwebNewHTMLImgForm }
|
||||
|
||||
TfpwebNewHTMLImgForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
edtWidth: TEdit;
|
||||
edtHeigth: TEdit;
|
||||
edtHSpace: TEdit;
|
||||
edtVSpace: TEdit;
|
||||
edtAlt: TEdit;
|
||||
edtFileName: TFileNameEdit;
|
||||
Image1: TImage;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
procedure edtFileNameAcceptFileName(Sender: TObject; var Value: String);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function HtmlText:string;
|
||||
end;
|
||||
|
||||
var
|
||||
fpwebNewHTMLImgForm: TfpwebNewHTMLImgForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfpwebNewHTMLImgForm }
|
||||
|
||||
procedure TfpwebNewHTMLImgForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfpwebNewHTMLImgForm.edtFileNameAcceptFileName(Sender: TObject;
|
||||
var Value: String);
|
||||
begin
|
||||
if FileExistsUTF8(Value) then
|
||||
begin
|
||||
Image1.Picture.LoadFromFile(Value);
|
||||
edtHeigth.Text:=IntToStr(Image1.Picture.Bitmap.Height);
|
||||
edtWidth.Text:=IntToStr(Image1.Picture.Bitmap.Width);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfpwebNewHTMLImgForm.HtmlText: string;
|
||||
begin
|
||||
Result:='<IMG src="'+edtFileName.FileName+'" alt="'+edtAlt.Text+'" ';
|
||||
if edtWidth.Text<>'' then
|
||||
Result:=Result + 'width="'+edtWidth.Text+'" ';
|
||||
if edtHeigth.Text<>'' then
|
||||
Result:=Result + 'height="'+edtHeigth.Text+'" ';
|
||||
if edtHSpace.Text<>'' then
|
||||
Result:=Result + 'hspace="'+edtHSpace.Text+'" ';
|
||||
if edtVSpace.Text<>'' then
|
||||
Result:=Result + 'vspace="'+edtVSpace.Text+'" ';
|
||||
|
||||
Result:=Result + '>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
473
components/fpweb/fpwebnewhtmlinputunit.lfm
Normal file
473
components/fpweb/fpwebnewhtmlinputunit.lfm
Normal file
@ -0,0 +1,473 @@
|
||||
object fpwebNewHTMLInputForm: TfpwebNewHTMLInputForm
|
||||
Left = 362
|
||||
Height = 476
|
||||
Top = 196
|
||||
Width = 628
|
||||
ActiveControl = PageControl1
|
||||
Caption = 'Tag property: INPUT'
|
||||
ClientHeight = 476
|
||||
ClientWidth = 628
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 436
|
||||
Width = 616
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.Caption = '&ОК'
|
||||
HelpButton.Name = 'HelpButton'
|
||||
HelpButton.Caption = '&Help'
|
||||
CloseButton.Name = 'CloseButton'
|
||||
CloseButton.Caption = 'Cl&ose'
|
||||
CloseButton.Enabled = False
|
||||
CancelButton.Name = 'CancelButton'
|
||||
CancelButton.Caption = '&Cancel'
|
||||
TabOrder = 0
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 430
|
||||
Top = 0
|
||||
Width = 628
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
TabIndex = 0
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Main'
|
||||
ClientHeight = 402
|
||||
ClientWidth = 624
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 10
|
||||
Width = 26
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'T&ype'
|
||||
FocusControl = cbType
|
||||
ParentColor = False
|
||||
end
|
||||
object cbType: TComboBox
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = cgOptions
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 31
|
||||
Width = 506
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
Items.Strings = (
|
||||
'text'
|
||||
'password'
|
||||
'checkbox'
|
||||
'radio'
|
||||
'submit'
|
||||
'reset'
|
||||
'file'
|
||||
'hidden'
|
||||
'image'
|
||||
'button'
|
||||
)
|
||||
TabOrder = 0
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = cbType
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 60
|
||||
Width = 34
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Name'
|
||||
FocusControl = edtName
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 81
|
||||
Width = 233
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 1
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = edtName
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cbType
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 251
|
||||
Height = 15
|
||||
Top = 60
|
||||
Width = 31
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Val&ue'
|
||||
FocusControl = edtValue
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = edtName
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 109
|
||||
Width = 24
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Si&ze'
|
||||
FocusControl = edtSize
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = edtSize
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtName
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 251
|
||||
Height = 15
|
||||
Top = 109
|
||||
Width = 62
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Max length'
|
||||
FocusControl = edtMaxLen
|
||||
ParentColor = False
|
||||
end
|
||||
object edtValue: TEdit
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = cgOptions
|
||||
Left = 257
|
||||
Height = 22
|
||||
Top = 81
|
||||
Width = 261
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 2
|
||||
end
|
||||
object Label6: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = edtSize
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 158
|
||||
Width = 15
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'A<'
|
||||
FocusControl = edtAlt
|
||||
ParentColor = False
|
||||
end
|
||||
object edtAlt: TEdit
|
||||
AnchorSideLeft.Control = Label6
|
||||
AnchorSideTop.Control = Label6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 179
|
||||
Width = 606
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 3
|
||||
end
|
||||
object edtMaxLen: TEdit
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 257
|
||||
Height = 22
|
||||
Top = 130
|
||||
Width = 361
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 4
|
||||
end
|
||||
object Label7: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = edtAlt
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 207
|
||||
Width = 58
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Image src'
|
||||
FocusControl = edtSrc
|
||||
ParentColor = False
|
||||
end
|
||||
object edtSrc: TEditButton
|
||||
AnchorSideLeft.Control = Label7
|
||||
AnchorSideTop.Control = Label7
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 228
|
||||
Width = 579
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
ButtonWidth = 23
|
||||
CharCase = ecNormal
|
||||
MaxLength = 0
|
||||
NumGlyphs = 1
|
||||
TabOrder = 5
|
||||
end
|
||||
object Label8: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = edtSrc
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 256
|
||||
Width = 54
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Tab index'
|
||||
FocusControl = edtTab
|
||||
ParentColor = False
|
||||
end
|
||||
object edtTab: TEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 277
|
||||
Width = 119
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 6
|
||||
end
|
||||
object Label9: TLabel
|
||||
AnchorSideLeft.Control = edtTab
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtSrc
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 137
|
||||
Height = 15
|
||||
Top = 256
|
||||
Width = 28
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'A&lign'
|
||||
FocusControl = cbAlign
|
||||
ParentColor = False
|
||||
end
|
||||
object cbAlign: TComboBox
|
||||
AnchorSideLeft.Control = Label9
|
||||
AnchorSideTop.Control = Label9
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 143
|
||||
Height = 24
|
||||
Top = 277
|
||||
Width = 180
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
''
|
||||
'top'
|
||||
'middle'
|
||||
'bottom'
|
||||
'left'
|
||||
'right'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 7
|
||||
end
|
||||
object Label10: TLabel
|
||||
AnchorSideLeft.Control = cbAlign
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtSrc
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 329
|
||||
Height = 15
|
||||
Top = 256
|
||||
Width = 64
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Access &key'
|
||||
FocusControl = edtKey
|
||||
ParentColor = False
|
||||
end
|
||||
object edtKey: TEdit
|
||||
AnchorSideLeft.Control = Label10
|
||||
AnchorSideTop.Control = Label10
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 335
|
||||
Height = 22
|
||||
Top = 277
|
||||
Width = 283
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 8
|
||||
Text = 'edtKey'
|
||||
end
|
||||
object edtSize: TEdit
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 130
|
||||
Width = 233
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 9
|
||||
end
|
||||
object cgOptions: TCheckGroup
|
||||
AnchorSideTop.Control = TabSheet1
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 524
|
||||
Height = 79
|
||||
Top = 6
|
||||
Width = 94
|
||||
Anchors = [akTop, akRight]
|
||||
AutoFill = True
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
Items.Strings = (
|
||||
'Disabled'
|
||||
'Cheked'
|
||||
'Read only'
|
||||
)
|
||||
TabOrder = 10
|
||||
Data = {
|
||||
03000000020202
|
||||
}
|
||||
end
|
||||
end
|
||||
object TabSheet2: TTabSheet
|
||||
Caption = 'Core'
|
||||
ClientHeight = 402
|
||||
ClientWidth = 624
|
||||
object Label11: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = TabSheet2
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 12
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'I&D'
|
||||
FocusControl = EdtID
|
||||
ParentColor = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = EdtID
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 33
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Cla&ss'
|
||||
FocusControl = EdtClass
|
||||
ParentColor = False
|
||||
end
|
||||
object EdtID: TEdit
|
||||
AnchorSideLeft.Control = Label11
|
||||
AnchorSideTop.Control = Label11
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 27
|
||||
Width = 606
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 0
|
||||
end
|
||||
object EdtClass: TEdit
|
||||
AnchorSideLeft.Control = Label12
|
||||
AnchorSideTop.Control = Label12
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 76
|
||||
Width = 606
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object TabSheet3: TTabSheet
|
||||
Caption = 'Events'
|
||||
ClientHeight = 402
|
||||
ClientWidth = 624
|
||||
object Label13: TLabel
|
||||
AnchorSideLeft.Control = TabSheet3
|
||||
AnchorSideTop.Control = TabSheet3
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 43
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'On&Click'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label14: TLabel
|
||||
AnchorSideLeft.Control = TabSheet3
|
||||
AnchorSideTop.Control = EdtOnClick
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 61
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'On&DblClick'
|
||||
ParentColor = False
|
||||
end
|
||||
object EdtOnDblClick: TEdit
|
||||
AnchorSideLeft.Control = Label14
|
||||
AnchorSideTop.Control = Label14
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet3
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 76
|
||||
Width = 606
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 0
|
||||
end
|
||||
object EdtOnClick: TEdit
|
||||
AnchorSideLeft.Control = Label13
|
||||
AnchorSideTop.Control = Label13
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet3
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 27
|
||||
Width = 606
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
87
components/fpweb/fpwebnewhtmlinputunit.pas
Normal file
87
components/fpweb/fpwebnewhtmlinputunit.pas
Normal file
@ -0,0 +1,87 @@
|
||||
unit fpwebNewHTMLInputUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
|
||||
ComCtrls, StdCtrls, EditBtn, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TfpwebNewHTMLInputForm }
|
||||
|
||||
TfpwebNewHTMLInputForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
cgOptions: TCheckGroup;
|
||||
cbType: TComboBox;
|
||||
cbAlign: TComboBox;
|
||||
edtName: TEdit;
|
||||
EdtOnClick: TEdit;
|
||||
EdtOnDblClick: TEdit;
|
||||
edtValue: TEdit;
|
||||
edtAlt: TEdit;
|
||||
edtSize: TEdit;
|
||||
edtMaxLen: TEdit;
|
||||
edtTab: TEdit;
|
||||
edtKey: TEdit;
|
||||
EdtID: TEdit;
|
||||
EdtClass: TEdit;
|
||||
edtSrc: TEditButton;
|
||||
Label1: TLabel;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
Label13: TLabel;
|
||||
Label14: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
TabSheet3: TTabSheet;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function HtmlText:string;
|
||||
end;
|
||||
|
||||
var
|
||||
fpwebNewHTMLInputForm: TfpwebNewHTMLInputForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfpwebNewHTMLInputForm }
|
||||
|
||||
function TfpwebNewHTMLInputForm.HtmlText: string;
|
||||
begin
|
||||
{ TODO : temp code - need rewrite }
|
||||
Result:='<INPUT type="' + cbType.Text + '" ' +
|
||||
'name="'+edtName.Text+'"';
|
||||
|
||||
if edtValue.Text <> '' then;
|
||||
Result:=Result + ' value="'+edtValue.Text+'" ';
|
||||
|
||||
if edtSize.Text <> '' then;
|
||||
Result:=Result + ' size="'+edtSize.Text+'" ';
|
||||
|
||||
if edtMaxLen.Text<>'' then
|
||||
Result:=Result + ' maxlength="'+edtMaxLen.Text+'"';
|
||||
if cbAlign.Text <> '' then
|
||||
Result:=Result + ' align="'+cbAlign.Text+'"';
|
||||
if cgOptions.Checked[2] then
|
||||
Result:=Result + ' readonly ';
|
||||
Result:=Result + '>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
84
components/fpweb/fpwebnewhtmllistunit.lfm
Normal file
84
components/fpweb/fpwebnewhtmllistunit.lfm
Normal file
@ -0,0 +1,84 @@
|
||||
object fpwebNewHTMLListForm: TfpwebNewHTMLListForm
|
||||
Left = 424
|
||||
Height = 194
|
||||
Top = 262
|
||||
Width = 320
|
||||
ActiveControl = SERows
|
||||
Caption = 'Generate list'
|
||||
ClientHeight = 194
|
||||
ClientWidth = 320
|
||||
LCLVersion = '0.9.29'
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 154
|
||||
Width = 308
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.Caption = '&ОК'
|
||||
HelpButton.Name = 'HelpButton'
|
||||
HelpButton.Caption = '&Help'
|
||||
CloseButton.Name = 'CloseButton'
|
||||
CloseButton.Caption = 'C&lose'
|
||||
CloseButton.Enabled = False
|
||||
CancelButton.Name = 'CancelButton'
|
||||
CancelButton.Caption = '&Cancel'
|
||||
TabOrder = 0
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 31
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Rows'
|
||||
FocusControl = SERows
|
||||
ParentColor = False
|
||||
end
|
||||
object SERows: TSpinEdit
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 27
|
||||
Width = 138
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 1
|
||||
Value = 1
|
||||
end
|
||||
object RGStyle: TRadioGroup
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = SERows
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 70
|
||||
Top = 55
|
||||
Width = 308
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoFill = True
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Style'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 54
|
||||
ClientWidth = 304
|
||||
Items.Strings = (
|
||||
'Ordered'
|
||||
'Unsorted'
|
||||
)
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
48
components/fpweb/fpwebnewhtmllistunit.pas
Normal file
48
components/fpweb/fpwebnewhtmllistunit.pas
Normal file
@ -0,0 +1,48 @@
|
||||
unit fpwebNewHTMLListUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
|
||||
StdCtrls, Spin, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TfpwebNewHTMLListForm }
|
||||
|
||||
TfpwebNewHTMLListForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
Label1: TLabel;
|
||||
RGStyle: TRadioGroup;
|
||||
SERows: TSpinEdit;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function HtmlText:string;
|
||||
end;
|
||||
|
||||
var
|
||||
fpwebNewHTMLListForm: TfpwebNewHTMLListForm;
|
||||
|
||||
implementation
|
||||
uses strutils;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfpwebNewHTMLListForm }
|
||||
|
||||
function TfpwebNewHTMLListForm.HtmlText: string;
|
||||
var
|
||||
i:integer;
|
||||
begin
|
||||
Result:=DupeString('<li> </li>'+LineEnding, SERows.Value);
|
||||
if RGStyle.ItemIndex = 0 then
|
||||
Result:='<ol>' + LineEnding + Result + '</ol>'
|
||||
else
|
||||
Result:='ul>' + LineEnding + Result + '</ul>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
271
components/fpweb/fpwebnewhtmltableunit.lfm
Normal file
271
components/fpweb/fpwebnewhtmltableunit.lfm
Normal file
@ -0,0 +1,271 @@
|
||||
object fpWebNewHtmlTableForm: TfpWebNewHtmlTableForm
|
||||
Left = 543
|
||||
Height = 514
|
||||
Top = 118
|
||||
Width = 544
|
||||
ActiveControl = edtColCount
|
||||
Caption = 'New HTML table'
|
||||
ClientHeight = 514
|
||||
ClientWidth = 544
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 79
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Column count'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = edtColCount
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 136
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 59
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Row count'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtColCount
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 74
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Border width'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtColCount: TSpinEdit
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 27
|
||||
Width = 118
|
||||
BorderSpacing.Around = 6
|
||||
OnChange = edtColCountChange
|
||||
TabOrder = 0
|
||||
Value = 3
|
||||
end
|
||||
object edtRowCount: TSpinEdit
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 142
|
||||
Height = 22
|
||||
Top = 27
|
||||
Width = 130
|
||||
BorderSpacing.Around = 6
|
||||
OnChange = edtColCountChange
|
||||
TabOrder = 1
|
||||
Value = 3
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = edtBorderWidth
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtColCount
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 126
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 71
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Cell padding'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblCellspacing: TLabel
|
||||
AnchorSideLeft.Control = edtCellpadding
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtColCount
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 222
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 70
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Cell spacing'
|
||||
ParentColor = False
|
||||
end
|
||||
object cbUseHeader: TCheckBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtCellspacing
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 21
|
||||
Top = 104
|
||||
Width = 114
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Use header row'
|
||||
TabOrder = 2
|
||||
end
|
||||
object Label6: TLabel
|
||||
AnchorSideLeft.Control = cbUseHeader
|
||||
AnchorSideTop.Control = cbUseHeader
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = ColorBox1
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 15
|
||||
Top = 134
|
||||
Width = 92
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Header bg color'
|
||||
ParentColor = False
|
||||
end
|
||||
object ColorBox1: TColorBox
|
||||
AnchorSideLeft.Control = Label6
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cbUseHeader
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 110
|
||||
Height = 24
|
||||
Top = 131
|
||||
Width = 428
|
||||
Selected = clWhite
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
OnChange = ColorBox1Change
|
||||
TabOrder = 3
|
||||
end
|
||||
object CheckBox2: TCheckBox
|
||||
AnchorSideLeft.Control = edtCellspacing
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtColCount
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 318
|
||||
Height = 21
|
||||
Top = 55
|
||||
Width = 53
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Width'
|
||||
TabOrder = 4
|
||||
end
|
||||
object edtTableWidth: TSpinEdit
|
||||
AnchorSideLeft.Control = CheckBox2
|
||||
AnchorSideTop.Control = lblCellspacing
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 324
|
||||
Height = 22
|
||||
Top = 76
|
||||
Width = 108
|
||||
BorderSpacing.Around = 6
|
||||
MaxValue = 4000
|
||||
TabOrder = 5
|
||||
Value = 100
|
||||
end
|
||||
object cbTableWidthUnits: TComboBox
|
||||
AnchorSideLeft.Control = edtTableWidth
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = lblCellspacing
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 438
|
||||
Height = 24
|
||||
Top = 76
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
Items.Strings = (
|
||||
'Percent'
|
||||
'Pixels'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 6
|
||||
end
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 474
|
||||
Width = 532
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.Caption = '&ОК'
|
||||
HelpButton.Name = 'HelpButton'
|
||||
HelpButton.Caption = '&Help'
|
||||
CloseButton.Name = 'CloseButton'
|
||||
CloseButton.Caption = 'C&lose'
|
||||
CloseButton.Enabled = False
|
||||
CancelButton.Name = 'CancelButton'
|
||||
CancelButton.Caption = '&Cancel'
|
||||
TabOrder = 7
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object edtCellpadding: TSpinEdit
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 132
|
||||
Height = 22
|
||||
Top = 76
|
||||
Width = 84
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 8
|
||||
Value = 1
|
||||
end
|
||||
object edtCellspacing: TSpinEdit
|
||||
AnchorSideLeft.Control = lblCellspacing
|
||||
AnchorSideTop.Control = lblCellspacing
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 228
|
||||
Height = 22
|
||||
Top = 76
|
||||
Width = 84
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 9
|
||||
Value = 1
|
||||
end
|
||||
object edtBorderWidth: TSpinEdit
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 76
|
||||
Width = 108
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 10
|
||||
Value = 1
|
||||
end
|
||||
object StringGrid1: TStringGrid
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = ColorBox1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = ButtonPanel1
|
||||
Left = 6
|
||||
Height = 307
|
||||
Top = 161
|
||||
Width = 532
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
AutoFillColumns = True
|
||||
BorderSpacing.Around = 6
|
||||
FixedCols = 0
|
||||
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
|
||||
TabOrder = 11
|
||||
ColWidths = (
|
||||
105
|
||||
105
|
||||
105
|
||||
105
|
||||
108
|
||||
)
|
||||
end
|
||||
end
|
||||
120
components/fpweb/fpwebnewhtmltableunit.pas
Normal file
120
components/fpweb/fpwebnewhtmltableunit.pas
Normal file
@ -0,0 +1,120 @@
|
||||
unit fpWebNewHtmlTableUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||
Spin, ColorBox, ButtonPanel, Grids;
|
||||
|
||||
type
|
||||
|
||||
{ TfpWebNewHtmlTableForm }
|
||||
|
||||
TfpWebNewHtmlTableForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
cbUseHeader: TCheckBox;
|
||||
CheckBox2: TCheckBox;
|
||||
ColorBox1: TColorBox;
|
||||
cbTableWidthUnits: TComboBox;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
lblCellspacing: TLabel;
|
||||
Label6: TLabel;
|
||||
edtColCount: TSpinEdit;
|
||||
edtRowCount: TSpinEdit;
|
||||
edtTableWidth: TSpinEdit;
|
||||
edtCellpadding: TSpinEdit;
|
||||
edtCellspacing: TSpinEdit;
|
||||
edtBorderWidth: TSpinEdit;
|
||||
StringGrid1: TStringGrid;
|
||||
procedure ColorBox1Change(Sender: TObject);
|
||||
procedure edtColCountChange(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function HtmlText:string;
|
||||
end;
|
||||
|
||||
var
|
||||
fpWebNewHtmlTableForm: TfpWebNewHtmlTableForm;
|
||||
|
||||
implementation
|
||||
uses fpWebStrConsts;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfpWebNewHtmlTableForm }
|
||||
|
||||
procedure TfpWebNewHtmlTableForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Caption:=SHTMLTableFormCaption;
|
||||
Label1.Caption:=SHTMLTableFormColumnCount;
|
||||
Label2.Caption:=SHTMLTableFormRowCount;
|
||||
Label3.Caption:=SHTMLTableFormBorderWidth;
|
||||
cbUseHeader.Caption:=SHTMLTableFormUseHeader;
|
||||
Label4.Caption:=SHTMLTableFormCellpadding;
|
||||
lblCellspacing.Caption:=SHTMLTableFormCellspacing;
|
||||
CheckBox2.Caption:=SHTMLTableFormWidth;
|
||||
Label6.Caption:=SHTMLTableFormHeaderBGColor;
|
||||
end;
|
||||
|
||||
function TfpWebNewHtmlTableForm.HtmlText: string;
|
||||
var
|
||||
i, j:integer;
|
||||
begin
|
||||
Result:=Format('<table border="%d" cellpadding="%d" cellspacing="%d"',
|
||||
[edtBorderWidth.Value,
|
||||
edtCellpadding.Value,
|
||||
edtCellspacing.Value]);
|
||||
if CheckBox2.Checked then
|
||||
begin
|
||||
Result:=Result + ' width="'+IntToStr(edtTableWidth.Value);
|
||||
if cbTableWidthUnits.ItemIndex = 0 then
|
||||
Result:=Result + '%';
|
||||
Result:=Result + '">';
|
||||
end
|
||||
else
|
||||
Result:=Result + '>';
|
||||
|
||||
Result:=Result + LineEnding;
|
||||
|
||||
if cbUseHeader.Checked then
|
||||
begin
|
||||
Result:=Result + ' <thead>'+LineEnding;// bgcolor="#4ebad2" class="QListHeaderText">
|
||||
for I:=1 to edtColCount.Value do
|
||||
Result:=Result + ' <th> </th>'+LineEnding;
|
||||
Result:=Result + ' </thead>'+LineEnding;
|
||||
end;
|
||||
|
||||
Result:=Result + ' <tbody>'+LineEnding;
|
||||
for I:=1 to edtRowCount.Value do
|
||||
begin
|
||||
Result:=Result + ' <tr>'+LineEnding;
|
||||
for j:=1 to edtColCount.Value do
|
||||
begin
|
||||
Result:=Result + ' <td> </td>'+LineEnding;
|
||||
end;
|
||||
Result:=Result + ' </tr>'+LineEnding;
|
||||
end;
|
||||
Result:=Result + ' </tbody>'+LineEnding;
|
||||
Result:=Result + '</table>';
|
||||
end;
|
||||
|
||||
procedure TfpWebNewHtmlTableForm.ColorBox1Change(Sender: TObject);
|
||||
begin
|
||||
StringGrid1.FixedColor:=ColorBox1.Selected;
|
||||
end;
|
||||
|
||||
procedure TfpWebNewHtmlTableForm.edtColCountChange(Sender: TObject);
|
||||
begin
|
||||
StringGrid1.RowCount:=edtRowCount.Value + ord(cbUseHeader.Checked);
|
||||
StringGrid1.ColCount:=edtColCount.Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
209
components/fpweb/fpwebnewhtmltagtrunit.lfm
Normal file
209
components/fpweb/fpwebnewhtmltagtrunit.lfm
Normal file
@ -0,0 +1,209 @@
|
||||
object fpwebNewHtmlTagTRForm: TfpwebNewHtmlTagTRForm
|
||||
Left = 483
|
||||
Height = 312
|
||||
Top = 433
|
||||
Width = 369
|
||||
ActiveControl = PageControl1
|
||||
Caption = 'Tag properties: TR'
|
||||
ClientHeight = 312
|
||||
ClientWidth = 369
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 272
|
||||
Width = 357
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.Caption = '&ОК'
|
||||
HelpButton.Name = 'HelpButton'
|
||||
HelpButton.Caption = '&Help'
|
||||
CloseButton.Name = 'CloseButton'
|
||||
CloseButton.Caption = 'C&lose'
|
||||
CloseButton.Enabled = False
|
||||
CancelButton.Name = 'CancelButton'
|
||||
CancelButton.Caption = '&Cancel'
|
||||
TabOrder = 0
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 266
|
||||
Top = 0
|
||||
Width = 369
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
TabIndex = 0
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Main'
|
||||
ClientHeight = 238
|
||||
ClientWidth = 365
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = TabSheet1
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 28
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Align'
|
||||
FocusControl = CBAlign
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = CBAlign
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 57
|
||||
Width = 34
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&VAlign'
|
||||
FocusControl = CBValign
|
||||
ParentColor = False
|
||||
end
|
||||
object CBAlign: TComboBox
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 24
|
||||
Top = 27
|
||||
Width = 347
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'none'
|
||||
'left'
|
||||
'center'
|
||||
'right'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 0
|
||||
Text = 'none'
|
||||
end
|
||||
object CBValign: TComboBox
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 24
|
||||
Top = 78
|
||||
Width = 347
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'none'
|
||||
'baseline'
|
||||
'bottom'
|
||||
'center'
|
||||
'top'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 1
|
||||
Text = 'none'
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = TabSheet1
|
||||
AnchorSideTop.Control = CBValign
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 108
|
||||
Width = 50
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'BG color'
|
||||
FocusControl = CBColor
|
||||
ParentColor = False
|
||||
end
|
||||
object CBColor: TColorBox
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 24
|
||||
Top = 129
|
||||
Width = 347
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object TabSheet2: TTabSheet
|
||||
Caption = 'Core'
|
||||
ClientHeight = 238
|
||||
ClientWidth = 365
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = TabSheet2
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 6
|
||||
Width = 12
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&ID'
|
||||
FocusControl = CBId
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = TabSheet2
|
||||
AnchorSideTop.Control = CBId
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 56
|
||||
Width = 33
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Class'
|
||||
FocusControl = CBClass
|
||||
ParentColor = False
|
||||
end
|
||||
object CBId: TComboBox
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 27
|
||||
Width = 347
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object CBClass: TComboBox
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TabSheet2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 77
|
||||
Width = 347
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object TabSheet3: TTabSheet
|
||||
Caption = 'Events'
|
||||
end
|
||||
end
|
||||
end
|
||||
52
components/fpweb/fpwebnewhtmltagtrunit.pas
Normal file
52
components/fpweb/fpwebnewhtmltagtrunit.pas
Normal file
@ -0,0 +1,52 @@
|
||||
unit fpwebNewHtmlTagTRUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
|
||||
ComCtrls, StdCtrls, ColorBox;
|
||||
|
||||
type
|
||||
|
||||
{ TfpwebNewHtmlTagTRForm }
|
||||
|
||||
TfpwebNewHtmlTagTRForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
CBColor: TColorBox;
|
||||
CBAlign: TComboBox;
|
||||
CBValign: TComboBox;
|
||||
CBId: TComboBox;
|
||||
CBClass: TComboBox;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
TabSheet3: TTabSheet;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function HtmlText:string;
|
||||
end;
|
||||
|
||||
var
|
||||
fpwebNewHtmlTagTRForm: TfpwebNewHtmlTagTRForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfpwebNewHtmlTagTRForm }
|
||||
|
||||
function TfpwebNewHtmlTagTRForm.HtmlText: string;
|
||||
begin
|
||||
Result:='';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
95
components/fpweb/fpwebstrconsts.pas
Normal file
95
components/fpweb/fpwebstrconsts.pas
Normal file
@ -0,0 +1,95 @@
|
||||
unit fpWebStrConsts;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
resourcestring
|
||||
SHTMLTitle = 'Html &title - <title>';
|
||||
SHTMLAutor = 'Html &author - <meta name="author">';
|
||||
SHTMLCopyright = 'Html cop&yright - meta name="copyright">';
|
||||
SHTMLCharset = 'HTML chars&et';
|
||||
SHTMLCssFile = '&CSS file';
|
||||
SHTMLJSFile = '&Javascript file';
|
||||
SNewHtmlFileProps = 'New Html file properties';
|
||||
SEnterYouText = 'Enter your text...';
|
||||
|
||||
SmiHTMLEditor = 'HTML Editor';
|
||||
SmiHTMLStandart = 'Standard';
|
||||
|
||||
SmiHTMLTextBold = 'Bold';
|
||||
SmiHTMLTextItalic = 'Italic';
|
||||
SmiHTMLTextUnderline = 'Underline';
|
||||
SmiHTMLInsertBR = 'Insert new line';
|
||||
//para
|
||||
SmiHTMLInsertNBSP = 'Insert Non Breaking Space';
|
||||
SmiHTMLInsertHR = 'Insert horizontal line';
|
||||
SmiHTMLInsertComment = 'Insert HTML comment';
|
||||
SmiHTMLInsertIMG = 'Insert image';
|
||||
SmiHTMLTextAlignLeft = 'Text align left';
|
||||
SmiHTMLTextAlignRight = 'Text align right';
|
||||
SmiHTMLTextAlignCenter = 'Text align center';
|
||||
SmiHTMLTextAlignJustify = 'Text align justify';
|
||||
|
||||
SmiHTMLStyle = 'Style';
|
||||
SmiHTMLLists = 'Lists';
|
||||
SmiHTMLTables = 'Tables';
|
||||
SmiHTMLForms = 'Forms';
|
||||
SmiHTMLOther = 'Other';
|
||||
|
||||
SmiHTMLInsertTable = 'Insert HTML table';
|
||||
SmiHTMLInsertTableRow = 'Insert HTML table row';
|
||||
SmiHTMLInsertTableData = 'Insert HTML table data';
|
||||
SmiHTMLInsertTableRowWD = 'Insert HTML table row with dialog';
|
||||
SmiHTMLInsertTableDataWD = 'Insert HTML table data with dialog';
|
||||
|
||||
SmiHTMLInsertList = 'Insert HTML list';
|
||||
|
||||
SmiHTMLInsertHeader1Level = 'Insert HTML level 1 header';
|
||||
SmiHTMLInsertHeader2Level = 'Insert HTML level 2 header';
|
||||
SmiHTMLInsertHeader3Level = 'Insert HTML level 3 header';
|
||||
SmiHTMLInsertHeader4Level = 'Insert HTML level 4 header';
|
||||
SmiHTMLInsertHeader5Level = 'Insert HTML level 5 header';
|
||||
SmiHTMLInsertColor = 'Insert HTML Color';
|
||||
|
||||
|
||||
SmiHTMLInsertForm = 'Insert HTML Form';
|
||||
SmiHTMLInsertInput = 'Insert HTML Input tag';
|
||||
SmiHTMLInsertInputSubmit = 'Insert "Submit" button ';
|
||||
SmiHTMLInsertInputReset = 'Insert "Reset" button';
|
||||
|
||||
SmiOtherInsertFN = 'Insert file name';
|
||||
|
||||
SHTMLTagCaptionSubmit = 'Submit';
|
||||
SHTMLTagCaptionReset = 'Reset';
|
||||
|
||||
SHtmlDesign = 'HTML design';
|
||||
SHtmlFile = 'HTML file';
|
||||
SHtmlFileDesc = 'Create new HTML file...';
|
||||
|
||||
SJSFile = 'Javascript file';
|
||||
SJSFileDesc = 'Create new javascript file...';
|
||||
SJSSource = 'Enter your javascript code here';
|
||||
|
||||
SCSSFile = 'CSS file';
|
||||
SCSSFileDesc = 'Create new CSS file...';
|
||||
SCSSSource = 'Enter your classes/style definitions here';
|
||||
|
||||
SHTMLTableFormCaption = 'New HTML table...';
|
||||
SHTMLTableFormColumnCount = 'Column count';
|
||||
SHTMLTableFormRowCount = 'Row count';
|
||||
SHTMLTableFormBorderWidth = 'Border width';
|
||||
SHTMLTableFormUseHeader = 'Use header row';
|
||||
SHTMLTableFormCellpadding = 'Cell padding';
|
||||
SHTMLTableFormCellspacing = 'Cell spacing';
|
||||
SHTMLTableFormWidth = 'Width';
|
||||
SHTMLTableFormHeaderBGColor= 'Header bg color';
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
||||
673
components/fpweb/fpwebtoolsunit.pas
Normal file
673
components/fpweb/fpwebtoolsunit.pas
Normal file
@ -0,0 +1,673 @@
|
||||
unit fpWebToolsUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, ProjectIntf, LCLType;
|
||||
|
||||
type
|
||||
|
||||
{ THtmlFileDescriptor }
|
||||
|
||||
THtmlFileDescriptor = class(TProjectFileDescriptor)
|
||||
public
|
||||
constructor Create; override;
|
||||
function GetLocalizedName: string; override;
|
||||
function GetLocalizedDescription: string; override;
|
||||
function GetResourceSource(const ResourceName: string): string; override;
|
||||
function CreateSource(const Filename, SourceName,
|
||||
ResourceName: string): string; override;
|
||||
procedure UpdateDefaultPascalFileExtension(const DefPasExt: string); override;
|
||||
end;
|
||||
|
||||
{ TJSFileDescriptor }
|
||||
|
||||
TJSFileDescriptor = class(TProjectFileDescriptor)
|
||||
public
|
||||
constructor Create; override;
|
||||
function GetLocalizedName: string; override;
|
||||
function GetLocalizedDescription: string; override;
|
||||
function GetResourceSource(const ResourceName: string): string; override;
|
||||
function CreateSource(const Filename, SourceName,
|
||||
ResourceName: string): string; override;
|
||||
procedure UpdateDefaultPascalFileExtension(const DefPasExt: string); override;
|
||||
end;
|
||||
|
||||
{ TCSSFileDescriptor }
|
||||
|
||||
TCSSFileDescriptor = class(TProjectFileDescriptor)
|
||||
public
|
||||
constructor Create; override;
|
||||
function GetLocalizedName: string; override;
|
||||
function GetLocalizedDescription: string; override;
|
||||
function GetResourceSource(const ResourceName: string): string; override;
|
||||
function CreateSource(const Filename, SourceName,
|
||||
ResourceName: string): string; override;
|
||||
procedure UpdateDefaultPascalFileExtension(const DefPasExt: string); override;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
//---
|
||||
procedure ProcHTMLTextBold(Sender: TObject);
|
||||
procedure ProcHTMLTextItalic(Sender: TObject);
|
||||
procedure ProcHTMLTextUnderline(Sender: TObject);
|
||||
procedure ProcHTMLHR(Sender: TObject);
|
||||
procedure ProcHTMLBR(Sender: TObject);
|
||||
procedure ProcHTMLNBSP(Sender: TObject);
|
||||
procedure ProcHTMLComment(Sender: TObject);
|
||||
procedure ProcHTMLImageTag(Sender: TObject);
|
||||
procedure ProcHTMLTextAlignLeft(Sender: TObject);
|
||||
procedure ProcHTMLTextAlignRight(Sender: TObject);
|
||||
procedure ProcHTMLTextAlignCenter(Sender: TObject);
|
||||
procedure ProcHTMLTextAlignJustify(Sender: TObject);
|
||||
|
||||
//--
|
||||
procedure ProcHTMLTable(Sender: TObject);
|
||||
procedure ProcHTMLGenList(Sender: TObject);
|
||||
|
||||
procedure ProcHTMLTableRow(Sender: TObject);
|
||||
procedure ProcHTMLTableData(Sender: TObject);
|
||||
|
||||
procedure ProcHTMLTableRowWD(Sender: TObject);
|
||||
procedure ProcHTMLTableDataWD(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);
|
||||
procedure ProcHTMLInputTag(Sender: TObject);
|
||||
procedure ProcHTMLInputSubmitTag(Sender: TObject);
|
||||
procedure ProcHTMLInputResetTag(Sender: TObject);
|
||||
|
||||
procedure ProcOtherInsertFileName(Sender: TObject);
|
||||
|
||||
procedure InsertTextToCurEditor(const S:string);
|
||||
implementation
|
||||
|
||||
uses LResources, NewItemIntf, Forms, Controls, IDECommands,
|
||||
MenuIntf, SrcEditorIntf, Dialogs,
|
||||
//HTML
|
||||
fpWebNewHTMLFileUnit, fpWebStrConsts, fpWebNewHtmlTableUnit,
|
||||
fpwebNewHTMLListUnit, fpwebNewHtmlTagTRUnit, fpwebNewHTMLFormUnit,
|
||||
fpwebNewHTMLInputUnit, fpwebNewHTMLImgUnit,
|
||||
//Other
|
||||
fpIDEExtEditorInsertFileNameUnit;
|
||||
|
||||
var
|
||||
//Standart items
|
||||
CmdHTMLBold : TIDECommand;
|
||||
CmdHTMLItalic : TIDECommand;
|
||||
CmdHTMLUnderline : TIDECommand;
|
||||
//----
|
||||
CmdHTMLBR : TIDECommand;
|
||||
//Paragraph
|
||||
CmdHTMLNBSP : TIDECommand;
|
||||
//----
|
||||
//Link
|
||||
CmdHTMLIMG : TIDECommand;
|
||||
CmdHTMLHR : TIDECommand;
|
||||
CmdHTMLComment : TIDECommand;
|
||||
//----
|
||||
CmdHTMLTextAlignLeft : TIDECommand;
|
||||
CmdHTMLTextAlignRight : TIDECommand;
|
||||
CmdHTMLTextAlignCenter : TIDECommand;
|
||||
CmdHTMLTextAlignJustify : TIDECommand;
|
||||
//Span text
|
||||
|
||||
|
||||
CmdHTMLTable : TIDECommand;
|
||||
CmdHTMLList : TIDECommand;
|
||||
|
||||
CmdHTMLTableRow : TIDECommand;
|
||||
CmdHTMLTableData : TIDECommand;
|
||||
|
||||
CmdHTMLTableRowWD : TIDECommand;
|
||||
CmdHTMLTableDataWD : TIDECommand;
|
||||
|
||||
CmdHTMLTextStyleH1 : TIDECommand;
|
||||
CmdHTMLTextStyleH2 : TIDECommand;
|
||||
CmdHTMLTextStyleH3 : TIDECommand;
|
||||
CmdHTMLTextStyleH4 : TIDECommand;
|
||||
CmdHTMLTextStyleH5 : TIDECommand;
|
||||
CmdHTMLColor : TIDECommand;
|
||||
|
||||
|
||||
|
||||
CmdHTMLFrom : TIDECommand;
|
||||
CmdHTMLInput : TIDECommand;
|
||||
CmdHTMLInputSubmit : TIDECommand;
|
||||
CmdHTMLInputReset : TIDECommand;
|
||||
|
||||
|
||||
CmdOtherInsFileName : TIDECommand;
|
||||
|
||||
procedure CreateHTMLToolsMenu;
|
||||
var
|
||||
Key: TIDEShortCut;
|
||||
Cat: TIDECommandCategory;
|
||||
mnuHTMLMain : TIDEMenuSection;
|
||||
mnuHTMLSection : TIDEMenuSection;
|
||||
|
||||
mnuHTMLStandart : TIDEMenuSection;
|
||||
mnuHTMLStyles : TIDEMenuSection;
|
||||
mnuHTMLTables : TIDEMenuSection;
|
||||
mnuHTMLLists : TIDEMenuSection;
|
||||
mnuHTMLForms : TIDEMenuSection;
|
||||
mnuHTMLOther : TIDEMenuSection;
|
||||
begin
|
||||
Key:=IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
|
||||
Cat:=IDECommandList.CreateCategory(nil, 'HTMLEditor', SmiHTMLEditor,
|
||||
IDECmdScopeSrcEditOnly);
|
||||
//--
|
||||
CmdHTMLBold := RegisterIDECommand(Cat, 'HTMLTable', SmiHTMLTextBold, Key, nil, @ProcHTMLTextBold);
|
||||
CmdHTMLItalic := RegisterIDECommand(Cat, 'HTMLTable', SmiHTMLTextItalic, Key, nil, @ProcHTMLTextItalic);
|
||||
CmdHTMLUnderline := RegisterIDECommand(Cat, 'HTMLTable', SmiHTMLTextUnderline, Key, nil, @ProcHTMLTextUnderline);
|
||||
CmdHTMLBR := RegisterIDECommand(Cat, 'HTMLBR', SmiHTMLInsertBR, Key, nil, @ProcHTMLBR);
|
||||
//Para
|
||||
CmdHTMLNBSP := RegisterIDECommand(Cat, 'HTMLNBSP', SmiHTMLInsertBR, Key, nil, @ProcHTMLNBSP);
|
||||
|
||||
CmdHTMLHR := RegisterIDECommand(Cat, 'HTMLHR', SmiHTMLInsertHR, Key, nil, @ProcHTMLHR);
|
||||
CmdHTMLComment := RegisterIDECommand(Cat, 'HTMLComment', SmiHTMLInsertComment, Key, nil, @ProcHTMLComment);
|
||||
CmdHTMLIMG := RegisterIDECommand(Cat, 'HTMLIMG', SmiHTMLInsertIMG, Key, nil, @ProcHTMLImageTag);
|
||||
|
||||
CmdHTMLTextAlignLeft :=RegisterIDECommand(Cat, 'HTMLTextAlignLeft', SmiHTMLTextAlignLeft, Key, nil, @ProcHTMLTextAlignLeft);
|
||||
CmdHTMLTextAlignRight :=RegisterIDECommand(Cat, 'HTMLTextAlignRight', SmiHTMLTextAlignRight, Key, nil, @ProcHTMLTextAlignRight);
|
||||
CmdHTMLTextAlignCenter :=RegisterIDECommand(Cat, 'HTMLTextAlignCenter', SmiHTMLTextAlignCenter, Key, nil, @ProcHTMLTextAlignCenter);
|
||||
CmdHTMLTextAlignJustify :=RegisterIDECommand(Cat, 'HTMLTextAlignJustify', SmiHTMLTextAlignJustify, Key, nil, @ProcHTMLTextAlignJustify);
|
||||
|
||||
//--
|
||||
CmdHTMLTable := RegisterIDECommand(Cat, 'HTMLTable', SmiHTMLInsertTable, Key, nil, @ProcHTMLTable);
|
||||
CmdHTMLList := RegisterIDECommand(Cat, 'HTMLList', SmiHTMLInsertList, Key, nil, @ProcHTMLGenList);
|
||||
|
||||
CmdHTMLTableRow := RegisterIDECommand(Cat, 'HTMLTableRow', SmiHTMLInsertTableRow, Key, nil, @ProcHTMLTableRow);
|
||||
CmdHTMLTableData := RegisterIDECommand(Cat, 'HTMLTableData', SmiHTMLInsertTableData, Key, nil, @ProcHTMLTableData);
|
||||
|
||||
CmdHTMLTableRowWD := RegisterIDECommand(Cat, 'HTMLTableRowWD', SmiHTMLInsertTableRowWD, Key, nil, @ProcHTMLTableRowWD);
|
||||
CmdHTMLTableDataWD := RegisterIDECommand(Cat, 'HTMLTableDataWD', SmiHTMLInsertTableDataWD, Key, nil, @ProcHTMLTableDataWD);
|
||||
|
||||
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);
|
||||
|
||||
|
||||
CmdHTMLFrom := RegisterIDECommand(Cat, 'HTMLForm', SmiHTMLInsertForm, Key, nil, @ProcHTMLForm);
|
||||
CmdHTMLInput:= RegisterIDECommand(Cat, 'HTMLInput', SmiHTMLInsertInput, Key, nil, @ProcHTMLInputTag);
|
||||
CmdHTMLInputSubmit := RegisterIDECommand(Cat, 'HTMLInputSubmit', SmiHTMLInsertInputSubmit, Key, nil, @ProcHTMLInputSubmitTag);
|
||||
CmdHTMLInputReset := RegisterIDECommand(Cat, 'HTMLInputReset', SmiHTMLInsertInputReset, Key, nil, @ProcHTMLInputResetTag);
|
||||
|
||||
CmdOtherInsFileName:=RegisterIDECommand(Cat, 'OtherInsFN', SmiOtherInsertFN, Key, nil, @ProcOtherInsertFileName);
|
||||
|
||||
// mnuHTMLMain := RegisterIDEMenuRoot('HTML');//RegisterIDEMenuSection(itmCustomTools, 'HTMLEditor');
|
||||
mnuHTMLMain := RegisterIDEMenuSection(mnuMain, 'HTMLEditor');
|
||||
|
||||
mnuHTMLSection:=RegisterIDESubMenu(mnuHTMLMain, 'HTMLEditor', SmiHTMLEditor, nil, nil);
|
||||
|
||||
mnuHTMLStandart := RegisterIDESubMenu(mnuHTMLSection, 'HTMLStandart', SmiHTMLStandart, nil, nil);
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLBold', SmiHTMLTextBold, nil, nil, CmdHTMLBold, 'tag_bold');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLItalic', SmiHTMLTextItalic, nil, nil, CmdHTMLItalic, 'tag_i');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLUnderline', SmiHTMLTextUnderline, nil, nil, CmdHTMLUnderline, 'tag_u');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, '', '-', nil, nil, nil, '');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLBR', SmiHTMLInsertBR, nil, nil, CmdHTMLBR, 'tag_br');
|
||||
//Paragraph
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLNBSP', SmiHTMLInsertNBSP, nil, nil, CmdHTMLNBSP, 'tag_nbsp');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, '', '-', nil, nil, nil, '');
|
||||
//Link
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLIMG', SmiHTMLInsertIMG, nil, nil, CmdHTMLIMG, 'tag_image');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLHR', SmiHTMLInsertHR, nil, nil, CmdHTMLHR, 'tag_hr');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLComment', SmiHTMLInsertComment, nil, nil, CmdHTMLComment, 'tag_comm');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, '', '-', nil, nil, nil, '');
|
||||
//--
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLTextAlignLeft', SmiHTMLTextAlignLeft, nil, nil, CmdHTMLTextAlignLeft, 'div_left');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLTextAlignRight', SmiHTMLTextAlignRight, nil, nil, CmdHTMLTextAlignRight, 'div_right');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLTextAlignCenter', SmiHTMLTextAlignCenter, nil, nil, CmdHTMLTextAlignCenter, 'div_center');
|
||||
RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLTextAlignJustify', SmiHTMLTextAlignJustify, nil, nil, CmdHTMLTextAlignJustify, 'div_justify');
|
||||
//Span text
|
||||
|
||||
//List's
|
||||
mnuHTMLLists := RegisterIDESubMenu(mnuHTMLSection, 'HTMLLists', SmiHTMLLists, nil, nil);
|
||||
RegisterIDEMenuCommand(mnuHTMLLists, 'HTMLList', SmiHTMLInsertList, nil, nil,
|
||||
CmdHTMLList, 'HTMLList');
|
||||
|
||||
//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');
|
||||
|
||||
//Table menus
|
||||
mnuHTMLTables := RegisterIDESubMenu(mnuHTMLSection, 'HTMLTables', SmiHTMLTables, nil, nil);
|
||||
RegisterIDEMenuCommand(mnuHTMLTables, 'HTMLTable', SmiHTMLInsertTable, nil, nil,
|
||||
CmdHTMLTable, 'quick_table');
|
||||
RegisterIDEMenuCommand(mnuHTMLTables, 'HTMLTableRow', SmiHTMLInsertTableRow, nil, nil,
|
||||
CmdHTMLTableRow, 'tag_tr');
|
||||
RegisterIDEMenuCommand(mnuHTMLTables, 'HTMLTableData', SmiHTMLInsertTableData, nil, nil,
|
||||
CmdHTMLTableData, 'tag_td');
|
||||
RegisterIDEMenuCommand(mnuHTMLTables, 'HTMLTableRowWD', SmiHTMLInsertTableRowWD, nil, nil,
|
||||
CmdHTMLTableRowWD, 'tag_table_row');
|
||||
RegisterIDEMenuCommand(mnuHTMLTables, 'HTMLTableDataWD', SmiHTMLInsertTableDataWD, nil, nil,
|
||||
CmdHTMLTableDataWD, 'tag_table_data');
|
||||
|
||||
|
||||
mnuHTMLForms := RegisterIDESubMenu(mnuHTMLSection, 'HTMLForms', SmiHTMLForms, nil, nil);
|
||||
RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLForm', SmiHTMLInsertForm, nil, nil,
|
||||
CmdHTMLFrom, 'HTMLForm');
|
||||
RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLInput', SmiHTMLInsertInput, nil, nil,
|
||||
CmdHTMLInput, 'lineedit');
|
||||
RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLInputSubmit', SmiHTMLInsertInputSubmit, nil, nil,
|
||||
CmdHTMLInputSubmit, 'submit');
|
||||
RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLInputReset', SmiHTMLInsertInputReset, nil, nil,
|
||||
CmdHTMLInputReset, 'reset');
|
||||
|
||||
mnuHTMLOther :=RegisterIDESubMenu(mnuHTMLSection, 'HTMLOther', SmiHTMLOther, nil, nil);
|
||||
RegisterIDEMenuCommand(mnuHTMLOther, 'OtherInsFN', SmiOtherInsertFN, nil, nil,
|
||||
CmdOtherInsFileName, '');
|
||||
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterNewItemCategory(TNewIDEItemCategory.Create(SHtmlDesign));
|
||||
RegisterProjectFileDescriptor(THtmlFileDescriptor.Create, SHtmlDesign);
|
||||
RegisterProjectFileDescriptor(TJSFileDescriptor.Create, SHtmlDesign);
|
||||
RegisterProjectFileDescriptor(TCSSFileDescriptor.Create, SHtmlDesign);
|
||||
|
||||
CreateHTMLToolsMenu;
|
||||
end;
|
||||
|
||||
Procedure InsertHTMLSnippet(Const AText : String);
|
||||
|
||||
begin
|
||||
if Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor) then
|
||||
With SourceEditorManagerIntf.ActiveEditor do
|
||||
Selection:=AText;
|
||||
end;
|
||||
|
||||
Procedure InsertHTMLTag(Const ATag : String; Const AAttribute : String = '');
|
||||
|
||||
begin
|
||||
if Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor) then
|
||||
With SourceEditorManagerIntf.ActiveEditor do
|
||||
if (AAttribute='') then
|
||||
Selection:='<'+ATag+'>'+Selection+'</'+ATag+'>'
|
||||
else
|
||||
Selection:='<'+ATag+' '+AAttribute+' >'+Selection+'</'+ATag+'>';
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTableRow(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('tr');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTableData(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('td');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextHeader1(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('H1');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextHeader2(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('H2');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextHeader3(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('H3');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextHeader4(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('H4');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextHeader5(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('H5');
|
||||
end;
|
||||
|
||||
|
||||
procedure ProcHTMLTextBold(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('strong');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextItalic(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('em');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextUnderline(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('u');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLHR(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLSnippet('<HR>');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLBR(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLSnippet('<BR>');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLNBSP(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLSnippet(' ');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextAlignLeft(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('div','align="left"');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextAlignRight(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('div','align="right"');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextAlignCenter(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('div','align="center"');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTextAlignJustify(Sender: TObject);
|
||||
begin
|
||||
InsertHTMLTag('div','align="justify"');
|
||||
end;
|
||||
|
||||
procedure ProcHTMLComment(Sender: TObject);
|
||||
begin
|
||||
if Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor) then
|
||||
with SourceEditorManagerIntf.ActiveEditor do
|
||||
Selection:='<!-- '+Selection+' -->';
|
||||
end;
|
||||
|
||||
procedure ProcHTMLColor(Sender: TObject);
|
||||
var
|
||||
Dlg:TColorDialog;
|
||||
begin
|
||||
Dlg:=TColorDialog.Create(Application);
|
||||
try
|
||||
if Dlg.Execute then
|
||||
InsertHTMLSnippet('#'+IntToHex(Dlg.Color,6));
|
||||
finally
|
||||
Dlg.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTable(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHtmlTableForm.Create(Application) do
|
||||
try
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(HtmlText);
|
||||
finally
|
||||
fpWebNewHtmlTableForm.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ProcHTMLGenList(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHTMLListForm.Create(Application) do
|
||||
try
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(HtmlText);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTableRowWD(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHtmlTagTRForm.Create(Application) do
|
||||
try
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(HtmlText);
|
||||
Finally
|
||||
Free;
|
||||
end
|
||||
end;
|
||||
|
||||
procedure ProcHTMLTableDataWD(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure ProcHTMLForm(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHTMLFormForm.Create(Application) do
|
||||
try
|
||||
InsertHTMLSnippet(HtmlText(SourceEditorManagerIntf.ActiveEditor.Selection));
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ProcHTMLInputTag(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHTMLInputForm.Create(Application) do
|
||||
try
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(HtmlText);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ProcHTMLInputSubmitTag(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHTMLInputForm.Create(Application) do
|
||||
try
|
||||
cbType.Text:='submit';
|
||||
edtValue.Text:=SHTMLTagCaptionSubmit;
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(HtmlText);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ProcHTMLInputResetTag(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHTMLInputForm.Create(Application) do
|
||||
try
|
||||
cbType.Text:='reset';
|
||||
edtValue.Text:=SHTMLTagCaptionReset;
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(HtmlText);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ProcHTMLImageTag(Sender: TObject);
|
||||
begin
|
||||
With TfpWebNewHTMLImgForm.Create(Application) do
|
||||
try
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(HtmlText);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure ProcOtherInsertFileName(Sender: TObject);
|
||||
begin
|
||||
With TfpIDEExtEditorInsertFileNameForm.Create(Application) do
|
||||
try
|
||||
if ShowModal = mrOk then
|
||||
InsertHTMLSnippet(SelectedFile);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure InsertTextToCurEditor(const S: string);
|
||||
var
|
||||
i:integer;
|
||||
begin
|
||||
{ TODO -oalexs : Add code for positiopn cursor to position of char |, also insert curent selection into new string at position of %s }
|
||||
|
||||
{ if Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor) then
|
||||
begin
|
||||
if Pos('|', S)
|
||||
SourceEditorManagerIntf.ActiveEditor.Selection:=fpWebIDEExtEditorInsertFileNameForm.SelectedFile;
|
||||
end;}
|
||||
end;
|
||||
|
||||
{ THtmlFileDescriptor }
|
||||
|
||||
constructor THtmlFileDescriptor.Create;
|
||||
begin
|
||||
inherited Create;
|
||||
Name:='Html file';
|
||||
DefaultFilename:='index.html';
|
||||
DefaultResFileExt:='';
|
||||
DefaultFileExt:='.html';
|
||||
VisibleInNewDialog:=true;
|
||||
end;
|
||||
|
||||
function THtmlFileDescriptor.GetLocalizedName: string;
|
||||
begin
|
||||
Result:=SHtmlFile;
|
||||
end;
|
||||
|
||||
function THtmlFileDescriptor.GetLocalizedDescription: string;
|
||||
begin
|
||||
Result:=SHtmlFileDesc;
|
||||
end;
|
||||
|
||||
function THtmlFileDescriptor.GetResourceSource(const ResourceName: string
|
||||
): string;
|
||||
begin
|
||||
Result:='';
|
||||
end;
|
||||
|
||||
function THtmlFileDescriptor.CreateSource(const Filename, SourceName,
|
||||
ResourceName: string): string;
|
||||
begin
|
||||
Result:='';
|
||||
fpWebNewHTMLFileForm:=TfpWebNewHTMLFileForm.Create(Application);
|
||||
if fpWebNewHTMLFileForm.ShowModal = mrOk then
|
||||
begin
|
||||
Result:=fpWebNewHTMLFileForm.HtmlText;
|
||||
end;
|
||||
fpWebNewHTMLFileForm.Free;
|
||||
end;
|
||||
|
||||
procedure THtmlFileDescriptor.UpdateDefaultPascalFileExtension(
|
||||
const DefPasExt: string);
|
||||
begin
|
||||
//inherited UpdateDefaultPascalFileExtension(DefPasExt);
|
||||
end;
|
||||
|
||||
{ TJSFileDescriptor }
|
||||
|
||||
constructor TJSFileDescriptor.Create;
|
||||
begin
|
||||
inherited Create;
|
||||
Name:='Java script file';
|
||||
DefaultFilename:='functions.js';
|
||||
DefaultResFileExt:='';
|
||||
DefaultFileExt:='.js';
|
||||
VisibleInNewDialog:=true;
|
||||
end;
|
||||
|
||||
function TJSFileDescriptor.GetLocalizedName: string;
|
||||
begin
|
||||
Result:=SJSFile;
|
||||
end;
|
||||
|
||||
function TJSFileDescriptor.GetLocalizedDescription: string;
|
||||
begin
|
||||
Result:=SJSFileDesc;
|
||||
end;
|
||||
|
||||
function TJSFileDescriptor.GetResourceSource(const ResourceName: string
|
||||
): string;
|
||||
begin
|
||||
Result:='';
|
||||
end;
|
||||
|
||||
function TJSFileDescriptor.CreateSource(const Filename, SourceName,
|
||||
ResourceName: string): string;
|
||||
begin
|
||||
Result:='/* '+SJSSource+ '*/';
|
||||
end;
|
||||
|
||||
procedure TJSFileDescriptor.UpdateDefaultPascalFileExtension(
|
||||
const DefPasExt: string);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
{ TCSSFileDescriptor }
|
||||
|
||||
constructor TCSSFileDescriptor.Create;
|
||||
begin
|
||||
inherited Create;
|
||||
Name:='CSS file';
|
||||
DefaultFilename:='styles.css';
|
||||
DefaultResFileExt:='';
|
||||
DefaultFileExt:='.css';
|
||||
VisibleInNewDialog:=true;
|
||||
end;
|
||||
|
||||
function TCSSFileDescriptor.GetLocalizedName: string;
|
||||
begin
|
||||
Result:=SCSSFile;
|
||||
end;
|
||||
|
||||
function TCSSFileDescriptor.GetLocalizedDescription: string;
|
||||
begin
|
||||
Result:=SCSSFileDesc;
|
||||
end;
|
||||
|
||||
function TCSSFileDescriptor.GetResourceSource(const ResourceName: string
|
||||
): string;
|
||||
begin
|
||||
Result:='';
|
||||
end;
|
||||
|
||||
function TCSSFileDescriptor.CreateSource(const Filename, SourceName,
|
||||
ResourceName: string): string;
|
||||
begin
|
||||
Result:='/* '+SCSSSource+' */';
|
||||
end;
|
||||
|
||||
procedure TCSSFileDescriptor.UpdateDefaultPascalFileExtension(
|
||||
const DefPasExt: string);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fpWeb_images.inc}
|
||||
end.
|
||||
|
||||
BIN
components/fpweb/images/HTMLForm.png
Normal file
BIN
components/fpweb/images/HTMLForm.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 244 B |
BIN
components/fpweb/images/HTMLList.png
Normal file
BIN
components/fpweb/images/HTMLList.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 228 B |
BIN
components/fpweb/images/color-picker.png
Normal file
BIN
components/fpweb/images/color-picker.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 963 B |
BIN
components/fpweb/images/div_center.png
Normal file
BIN
components/fpweb/images/div_center.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 248 B |
BIN
components/fpweb/images/div_justify.png
Normal file
BIN
components/fpweb/images/div_justify.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 232 B |
BIN
components/fpweb/images/div_left.png
Normal file
BIN
components/fpweb/images/div_left.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 243 B |
BIN
components/fpweb/images/div_right.png
Normal file
BIN
components/fpweb/images/div_right.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 248 B |
BIN
components/fpweb/images/lineedit.png
Normal file
BIN
components/fpweb/images/lineedit.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 299 B |
7
components/fpweb/images/make_img_list.sh
Executable file
7
components/fpweb/images/make_img_list.sh
Executable file
@ -0,0 +1,7 @@
|
||||
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
|
||||
|
||||
|
||||
|
||||
BIN
components/fpweb/images/quick_table.png
Normal file
BIN
components/fpweb/images/quick_table.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 355 B |
BIN
components/fpweb/images/reset.png
Normal file
BIN
components/fpweb/images/reset.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 310 B |
BIN
components/fpweb/images/submit.png
Normal file
BIN
components/fpweb/images/submit.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 322 B |
BIN
components/fpweb/images/tag_bold.png
Normal file
BIN
components/fpweb/images/tag_bold.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 296 B |
BIN
components/fpweb/images/tag_br.png
Normal file
BIN
components/fpweb/images/tag_br.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 323 B |
BIN
components/fpweb/images/tag_comm.png
Normal file
BIN
components/fpweb/images/tag_comm.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 226 B |
BIN
components/fpweb/images/tag_dd.png
Normal file
BIN
components/fpweb/images/tag_dd.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 184 B |
BIN
components/fpweb/images/tag_dl.png
Normal file
BIN
components/fpweb/images/tag_dl.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 179 B |
BIN
components/fpweb/images/tag_dt.png
Normal file
BIN
components/fpweb/images/tag_dt.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 177 B |
BIN
components/fpweb/images/tag_h1.png
Normal file
BIN
components/fpweb/images/tag_h1.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 298 B |
BIN
components/fpweb/images/tag_h2.png
Normal file
BIN
components/fpweb/images/tag_h2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 319 B |
BIN
components/fpweb/images/tag_h3.png
Normal file
BIN
components/fpweb/images/tag_h3.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 320 B |
BIN
components/fpweb/images/tag_h4.png
Normal file
BIN
components/fpweb/images/tag_h4.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 309 B |
BIN
components/fpweb/images/tag_h5.png
Normal file
BIN
components/fpweb/images/tag_h5.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 310 B |
BIN
components/fpweb/images/tag_hr.png
Normal file
BIN
components/fpweb/images/tag_hr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 166 B |
BIN
components/fpweb/images/tag_i.png
Normal file
BIN
components/fpweb/images/tag_i.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 303 B |
BIN
components/fpweb/images/tag_image.png
Normal file
BIN
components/fpweb/images/tag_image.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 909 B |
BIN
components/fpweb/images/tag_li.png
Normal file
BIN
components/fpweb/images/tag_li.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 312 B |
BIN
components/fpweb/images/tag_nbsp.png
Normal file
BIN
components/fpweb/images/tag_nbsp.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 320 B |
BIN
components/fpweb/images/tag_ol.png
Normal file
BIN
components/fpweb/images/tag_ol.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 285 B |
BIN
components/fpweb/images/tag_table_body.png
Normal file
BIN
components/fpweb/images/tag_table_body.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 218 B |
BIN
components/fpweb/images/tag_table_data.png
Normal file
BIN
components/fpweb/images/tag_table_data.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 235 B |
BIN
components/fpweb/images/tag_table_row.png
Normal file
BIN
components/fpweb/images/tag_table_row.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 233 B |
BIN
components/fpweb/images/tag_tbody.png
Normal file
BIN
components/fpweb/images/tag_tbody.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 211 B |
BIN
components/fpweb/images/tag_td.png
Normal file
BIN
components/fpweb/images/tag_td.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 230 B |
BIN
components/fpweb/images/tag_tr.png
Normal file
BIN
components/fpweb/images/tag_tr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 232 B |
BIN
components/fpweb/images/tag_u.png
Normal file
BIN
components/fpweb/images/tag_u.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 295 B |
BIN
components/fpweb/images/tag_ul.png
Normal file
BIN
components/fpweb/images/tag_ul.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 262 B |
590
components/fpweb/languages/fpwebstrconsts.po
Normal file
590
components/fpweb/languages/fpwebstrconsts.po
Normal file
@ -0,0 +1,590 @@
|
||||
msgid ""
|
||||
msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||
|
||||
#: fpwebstrconsts.scssfile
|
||||
msgctxt "fpwebstrconsts.scssfile"
|
||||
msgid "CSS file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.scssfiledesc
|
||||
msgctxt "fpwebstrconsts.scssfiledesc"
|
||||
msgid "Create new CSS file..."
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.scsssource
|
||||
msgid "Enter your classes/style definitions here"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.senteryoutext
|
||||
msgctxt "fpwebstrconsts.senteryoutext"
|
||||
msgid "Enter your text..."
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlautor
|
||||
msgid "Html &author - <meta name=\"author\">"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlcharset
|
||||
msgid "HTML chars&et"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlcopyright
|
||||
msgid "Html cop&yright - meta name=\"copyright\">"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlcssfile
|
||||
msgid "&CSS file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmldesign
|
||||
msgctxt "fpwebstrconsts.shtmldesign"
|
||||
msgid "HTML design"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlfile
|
||||
msgctxt "fpwebstrconsts.shtmlfile"
|
||||
msgid "HTML file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlfiledesc
|
||||
msgctxt "fpwebstrconsts.shtmlfiledesc"
|
||||
msgid "Create new HTML file..."
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmljsfile
|
||||
msgid "&Javascript file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformborderwidth
|
||||
msgctxt "fpwebstrconsts.shtmltableformborderwidth"
|
||||
msgid "Border width"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcaption
|
||||
msgctxt "fpwebstrconsts.shtmltableformcaption"
|
||||
msgid "New HTML table..."
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcellpadding
|
||||
msgid "Cell padding"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcellspacing
|
||||
msgid "Cell spacing"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcolumncount
|
||||
msgctxt "fpwebstrconsts.shtmltableformcolumncount"
|
||||
msgid "Column count"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformheaderbgcolor
|
||||
msgctxt "fpwebstrconsts.shtmltableformheaderbgcolor"
|
||||
msgid "Header bg color"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformrowcount
|
||||
msgctxt "fpwebstrconsts.shtmltableformrowcount"
|
||||
msgid "Row count"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformuseheader
|
||||
msgctxt "fpwebstrconsts.shtmltableformuseheader"
|
||||
msgid "Use header row"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformwidth
|
||||
msgctxt "fpwebstrconsts.shtmltableformwidth"
|
||||
msgid "Width"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltagcaptionreset
|
||||
msgctxt "fpwebstrconsts.shtmltagcaptionreset"
|
||||
msgid "Reset"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltagcaptionsubmit
|
||||
msgctxt "fpwebstrconsts.shtmltagcaptionsubmit"
|
||||
msgid "Submit"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltitle
|
||||
msgid "Html &title - <title>"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.sjsfile
|
||||
msgid "Javascript file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.sjsfiledesc
|
||||
msgid "Create new javascript file..."
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.sjssource
|
||||
msgid "Enter your javascript code here"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmleditor
|
||||
msgctxt "fpwebstrconsts.smihtmleditor"
|
||||
msgid "HTML Editor"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlforms
|
||||
msgctxt "fpwebstrconsts.smihtmlforms"
|
||||
msgid "Forms"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertbr
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertbr"
|
||||
msgid "Insert new line"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertcolor
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertcolor"
|
||||
msgid "Insert HTML Color"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertcomment
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertcomment"
|
||||
msgid "Insert HTML comment"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertform
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertform"
|
||||
msgid "Insert HTML Form"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader1level
|
||||
msgid "Insert HTML level 1 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader2level
|
||||
msgid "Insert HTML level 2 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader3level
|
||||
msgid "Insert HTML level 3 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader4level
|
||||
msgid "Insert HTML level 4 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader5level
|
||||
msgid "Insert HTML level 5 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserthr
|
||||
msgctxt "fpwebstrconsts.smihtmlinserthr"
|
||||
msgid "Insert horizontal line"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertimg
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertimg"
|
||||
msgid "Insert image"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertinput
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertinput"
|
||||
msgid "Insert HTML Input tag"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertinputreset
|
||||
msgid "Insert \"Reset\" button"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertinputsubmit
|
||||
msgid "Insert \"Submit\" button "
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertlist
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertlist"
|
||||
msgid "Insert HTML list"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertnbsp
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertnbsp"
|
||||
msgid "Insert Non Breaking Space"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttable
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttable"
|
||||
msgid "Insert HTML table"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttabledata
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttabledata"
|
||||
msgid "Insert HTML table data"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttabledatawd
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttabledatawd"
|
||||
msgid "Insert HTML table data with dialog"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttablerow
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttablerow"
|
||||
msgid "Insert HTML table row"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttablerowwd
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttablerowwd"
|
||||
msgid "Insert HTML table row with dialog"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmllists
|
||||
msgctxt "fpwebstrconsts.smihtmllists"
|
||||
msgid "Lists"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlother
|
||||
msgctxt "fpwebstrconsts.smihtmlother"
|
||||
msgid "Other"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlstandart
|
||||
msgid "Standard"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlstyle
|
||||
msgctxt "fpwebstrconsts.smihtmlstyle"
|
||||
msgid "Style"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltables
|
||||
msgctxt "fpwebstrconsts.smihtmltables"
|
||||
msgid "Tables"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltextaligncenter
|
||||
msgctxt "fpwebstrconsts.smihtmltextaligncenter"
|
||||
msgid "Text align center"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltextalignjustify
|
||||
msgctxt "fpwebstrconsts.smihtmltextalignjustify"
|
||||
msgid "Text align justify"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltextalignleft
|
||||
msgctxt "fpwebstrconsts.smihtmltextalignleft"
|
||||
msgid "Text align left"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltextalignright
|
||||
msgctxt "fpwebstrconsts.smihtmltextalignright"
|
||||
msgid "Text align right"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltextbold
|
||||
msgctxt "fpwebstrconsts.smihtmltextbold"
|
||||
msgid "Bold"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltextitalic
|
||||
msgctxt "fpwebstrconsts.smihtmltextitalic"
|
||||
msgid "Italic"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmltextunderline
|
||||
msgctxt "fpwebstrconsts.smihtmltextunderline"
|
||||
msgid "Underline"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smiotherinsertfn
|
||||
msgctxt "fpwebstrconsts.smiotherinsertfn"
|
||||
msgid "Insert file name"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.snewhtmlfileprops
|
||||
msgid "New Html file properties"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.scssfile
|
||||
msgctxt "rxwebstrconsts.scssfile"
|
||||
msgid "CSS file"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.scssfiledesc
|
||||
msgctxt "rxwebstrconsts.scssfiledesc"
|
||||
msgid "Create new CSS file..."
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.senteryoutext
|
||||
msgctxt "rxwebstrconsts.senteryoutext"
|
||||
msgid "Enter your text..."
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmlautor
|
||||
msgid "Html autor - <meta name=\"author\">"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmlcharset
|
||||
msgid "HTML charset"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmlcopyright
|
||||
msgid "Html copyright - meta name=\"copyright\">"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmlcssfile
|
||||
msgctxt "rxwebstrconsts.shtmlcssfile"
|
||||
msgid "CSS file"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmldesign
|
||||
msgctxt "rxwebstrconsts.shtmldesign"
|
||||
msgid "HTML design"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmlfile
|
||||
msgctxt "rxwebstrconsts.shtmlfile"
|
||||
msgid "HTML file"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmlfiledesc
|
||||
msgctxt "rxwebstrconsts.shtmlfiledesc"
|
||||
msgid "Create new HTML file..."
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformborderwidth
|
||||
msgctxt "rxwebstrconsts.shtmltableformborderwidth"
|
||||
msgid "Border width"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcaption
|
||||
msgctxt "rxwebstrconsts.shtmltableformcaption"
|
||||
msgid "New HTML table..."
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcellpadding
|
||||
msgid "Cellpadding"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcellspacing
|
||||
msgid "Cellspacing"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcolumncount
|
||||
msgctxt "rxwebstrconsts.shtmltableformcolumncount"
|
||||
msgid "Column count"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformheaderbgcolor
|
||||
msgctxt "rxwebstrconsts.shtmltableformheaderbgcolor"
|
||||
msgid "Header bg color"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformrowcount
|
||||
msgctxt "rxwebstrconsts.shtmltableformrowcount"
|
||||
msgid "Row count"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformuseheader
|
||||
msgctxt "rxwebstrconsts.shtmltableformuseheader"
|
||||
msgid "Use header row"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformwidth
|
||||
msgctxt "rxwebstrconsts.shtmltableformwidth"
|
||||
msgid "Width"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltagcaptionreset
|
||||
msgctxt "rxwebstrconsts.shtmltagcaptionreset"
|
||||
msgid "Reset"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltagcaptionsubmit
|
||||
msgctxt "rxwebstrconsts.shtmltagcaptionsubmit"
|
||||
msgid "Submit"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltitle
|
||||
msgid "Html title - <title>"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.sjsfile
|
||||
msgid "Java script file"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.sjsfiledesc
|
||||
msgid "Create new java script file..."
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmleditor
|
||||
msgctxt "rxwebstrconsts.smihtmleditor"
|
||||
msgid "HTML Editor"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlforms
|
||||
msgctxt "rxwebstrconsts.smihtmlforms"
|
||||
msgid "Forms"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertbr
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertbr"
|
||||
msgid "Insert new line"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertcolor
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertcolor"
|
||||
msgid "Insert HTML Color"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertcomment
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertcomment"
|
||||
msgid "Insert HTML comment"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertform
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertform"
|
||||
msgid "Insert HTML Form"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader1level
|
||||
msgid "Insert HTML header 1 level"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader2level
|
||||
msgid "Insert HTML header 2 level"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader3level
|
||||
msgid "Insert HTML header 3 level"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader4level
|
||||
msgid "Insert HTML header 4 level"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader5level
|
||||
msgid "Insert HTML header 5 level"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserthr
|
||||
msgctxt "rxwebstrconsts.smihtmlinserthr"
|
||||
msgid "Insert horizontal line"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertimg
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertimg"
|
||||
msgid "Insert image"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertinput
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertinput"
|
||||
msgid "Insert HTML Input tag"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertinputreset
|
||||
msgid "Insert button Reset"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertinputsubmit
|
||||
msgid "Insert button Submit"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertlist
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertlist"
|
||||
msgid "Insert HTML list"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertnbsp
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertnbsp"
|
||||
msgid "Insert Non Breaking Space"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttable
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttable"
|
||||
msgid "Insert HTML table"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttabledata
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttabledata"
|
||||
msgid "Insert HTML table data"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttabledatawd
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttabledatawd"
|
||||
msgid "Insert HTML table data with dialog"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttablerow
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttablerow"
|
||||
msgid "Insert HTML table row"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttablerowwd
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttablerowwd"
|
||||
msgid "Insert HTML table row with dialog"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmllists
|
||||
msgctxt "rxwebstrconsts.smihtmllists"
|
||||
msgid "Lists"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlother
|
||||
msgctxt "rxwebstrconsts.smihtmlother"
|
||||
msgid "Other"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlstandart
|
||||
msgid "Standart"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlstyle
|
||||
msgctxt "rxwebstrconsts.smihtmlstyle"
|
||||
msgid "Style"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltables
|
||||
msgctxt "rxwebstrconsts.smihtmltables"
|
||||
msgid "Tables"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltextaligncenter
|
||||
msgctxt "rxwebstrconsts.smihtmltextaligncenter"
|
||||
msgid "Text align center"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltextalignjustify
|
||||
msgctxt "rxwebstrconsts.smihtmltextalignjustify"
|
||||
msgid "Text align justify"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltextalignleft
|
||||
msgctxt "rxwebstrconsts.smihtmltextalignleft"
|
||||
msgid "Text align left"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltextalignright
|
||||
msgctxt "rxwebstrconsts.smihtmltextalignright"
|
||||
msgid "Text align right"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltextbold
|
||||
msgctxt "rxwebstrconsts.smihtmltextbold"
|
||||
msgid "Bold"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltextitalic
|
||||
msgctxt "rxwebstrconsts.smihtmltextitalic"
|
||||
msgid "Italic"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmltextunderline
|
||||
msgctxt "rxwebstrconsts.smihtmltextunderline"
|
||||
msgid "Underline"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smiotherinsertfn
|
||||
msgctxt "rxwebstrconsts.smiotherinsertfn"
|
||||
msgid "Insert file name"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.snewhtmlfileprops
|
||||
msgid "New Html file propertys"
|
||||
msgstr ""
|
||||
|
||||
590
components/fpweb/languages/fpwebstrconsts.ru.po
Normal file
590
components/fpweb/languages/fpwebstrconsts.ru.po
Normal file
@ -0,0 +1,590 @@
|
||||
msgid ""
|
||||
msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||
|
||||
#: fpwebstrconsts.scssfile
|
||||
msgctxt "fpwebstrconsts.scssfile"
|
||||
msgid "CSS file"
|
||||
msgstr "CSS файл"
|
||||
|
||||
#: fpwebstrconsts.scssfiledesc
|
||||
msgctxt "fpwebstrconsts.scssfiledesc"
|
||||
msgid "Create new CSS file..."
|
||||
msgstr "Создать новый CSS файл..."
|
||||
|
||||
#: fpwebstrconsts.scsssource
|
||||
msgid "Enter your classes/style definitions here"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.senteryoutext
|
||||
msgctxt "fpwebstrconsts.senteryoutext"
|
||||
msgid "Enter your text..."
|
||||
msgstr "Введите свой HTML код здесь..."
|
||||
|
||||
#: fpwebstrconsts.shtmlautor
|
||||
msgid "Html &author - <meta name=\"author\">"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlcharset
|
||||
msgid "HTML chars&et"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlcopyright
|
||||
msgid "Html cop&yright - meta name=\"copyright\">"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlcssfile
|
||||
msgid "&CSS file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmldesign
|
||||
msgctxt "fpwebstrconsts.shtmldesign"
|
||||
msgid "HTML design"
|
||||
msgstr "Редактор HTML"
|
||||
|
||||
#: fpwebstrconsts.shtmlfile
|
||||
msgctxt "fpwebstrconsts.shtmlfile"
|
||||
msgid "HTML file"
|
||||
msgstr "Файл HTML"
|
||||
|
||||
#: fpwebstrconsts.shtmlfiledesc
|
||||
msgctxt "fpwebstrconsts.shtmlfiledesc"
|
||||
msgid "Create new HTML file..."
|
||||
msgstr "Создать новый HTML файл..."
|
||||
|
||||
#: fpwebstrconsts.shtmljsfile
|
||||
msgid "&Javascript file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformborderwidth
|
||||
msgctxt "fpwebstrconsts.shtmltableformborderwidth"
|
||||
msgid "Border width"
|
||||
msgstr "Ширина рамки"
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcaption
|
||||
msgctxt "fpwebstrconsts.shtmltableformcaption"
|
||||
msgid "New HTML table..."
|
||||
msgstr "Новая HTML таблица..."
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcellpadding
|
||||
msgid "Cell padding"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcellspacing
|
||||
msgid "Cell spacing"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmltableformcolumncount
|
||||
msgctxt "fpwebstrconsts.shtmltableformcolumncount"
|
||||
msgid "Column count"
|
||||
msgstr "Количество колонок"
|
||||
|
||||
#: fpwebstrconsts.shtmltableformheaderbgcolor
|
||||
msgctxt "fpwebstrconsts.shtmltableformheaderbgcolor"
|
||||
msgid "Header bg color"
|
||||
msgstr "Цвет фона заголовка"
|
||||
|
||||
#: fpwebstrconsts.shtmltableformrowcount
|
||||
msgctxt "fpwebstrconsts.shtmltableformrowcount"
|
||||
msgid "Row count"
|
||||
msgstr "Количество строк"
|
||||
|
||||
#: fpwebstrconsts.shtmltableformuseheader
|
||||
msgctxt "fpwebstrconsts.shtmltableformuseheader"
|
||||
msgid "Use header row"
|
||||
msgstr "Использовать заголовок"
|
||||
|
||||
#: fpwebstrconsts.shtmltableformwidth
|
||||
msgctxt "fpwebstrconsts.shtmltableformwidth"
|
||||
msgid "Width"
|
||||
msgstr "Ширина"
|
||||
|
||||
#: fpwebstrconsts.shtmltagcaptionreset
|
||||
msgctxt "fpwebstrconsts.shtmltagcaptionreset"
|
||||
msgid "Reset"
|
||||
msgstr "Сброс"
|
||||
|
||||
#: fpwebstrconsts.shtmltagcaptionsubmit
|
||||
msgctxt "fpwebstrconsts.shtmltagcaptionsubmit"
|
||||
msgid "Submit"
|
||||
msgstr "Передать"
|
||||
|
||||
#: fpwebstrconsts.shtmltitle
|
||||
msgid "Html &title - <title>"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.sjsfile
|
||||
msgid "Javascript file"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.sjsfiledesc
|
||||
msgid "Create new javascript file..."
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.sjssource
|
||||
msgid "Enter your javascript code here"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmleditor
|
||||
msgctxt "fpwebstrconsts.smihtmleditor"
|
||||
msgid "HTML Editor"
|
||||
msgstr "Редактор HTML"
|
||||
|
||||
#: fpwebstrconsts.smihtmlforms
|
||||
msgctxt "fpwebstrconsts.smihtmlforms"
|
||||
msgid "Forms"
|
||||
msgstr "Формы"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertbr
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertbr"
|
||||
msgid "Insert new line"
|
||||
msgstr "Вставить перевод строки"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertcolor
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertcolor"
|
||||
msgid "Insert HTML Color"
|
||||
msgstr "Вставить цвет HTML"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertcomment
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertcomment"
|
||||
msgid "Insert HTML comment"
|
||||
msgstr "Вставить HTML коментарий"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertform
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertform"
|
||||
msgid "Insert HTML Form"
|
||||
msgstr "Вставить форму HTML"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader1level
|
||||
msgid "Insert HTML level 1 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader2level
|
||||
msgid "Insert HTML level 2 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader3level
|
||||
msgid "Insert HTML level 3 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader4level
|
||||
msgid "Insert HTML level 4 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertheader5level
|
||||
msgid "Insert HTML level 5 header"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserthr
|
||||
msgctxt "fpwebstrconsts.smihtmlinserthr"
|
||||
msgid "Insert horizontal line"
|
||||
msgstr "Вставить горизонтальную линию"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertimg
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertimg"
|
||||
msgid "Insert image"
|
||||
msgstr "Вставить изображение"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertinput
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertinput"
|
||||
msgid "Insert HTML Input tag"
|
||||
msgstr "Вставить HTML тэг INPUT"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertinputreset
|
||||
msgid "Insert \"Reset\" button"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertinputsubmit
|
||||
msgid "Insert \"Submit\" button "
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertlist
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertlist"
|
||||
msgid "Insert HTML list"
|
||||
msgstr "Вставить список"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertnbsp
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertnbsp"
|
||||
msgid "Insert Non Breaking Space"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttable
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttable"
|
||||
msgid "Insert HTML table"
|
||||
msgstr "Встаивть HTML таблицу..."
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttabledata
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttabledata"
|
||||
msgid "Insert HTML table data"
|
||||
msgstr "Вставить данные таблицы"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttabledatawd
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttabledatawd"
|
||||
msgid "Insert HTML table data with dialog"
|
||||
msgstr "Вставить данные с диалогом"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttablerow
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttablerow"
|
||||
msgid "Insert HTML table row"
|
||||
msgstr "Вставить строку таблицы"
|
||||
|
||||
#: fpwebstrconsts.smihtmlinserttablerowwd
|
||||
msgctxt "fpwebstrconsts.smihtmlinserttablerowwd"
|
||||
msgid "Insert HTML table row with dialog"
|
||||
msgstr "Вставить строку таблицыи с диалогом"
|
||||
|
||||
#: fpwebstrconsts.smihtmllists
|
||||
msgctxt "fpwebstrconsts.smihtmllists"
|
||||
msgid "Lists"
|
||||
msgstr "Списки"
|
||||
|
||||
#: fpwebstrconsts.smihtmlother
|
||||
msgctxt "fpwebstrconsts.smihtmlother"
|
||||
msgid "Other"
|
||||
msgstr "Прочее"
|
||||
|
||||
#: fpwebstrconsts.smihtmlstandart
|
||||
msgid "Standard"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlstyle
|
||||
msgctxt "fpwebstrconsts.smihtmlstyle"
|
||||
msgid "Style"
|
||||
msgstr "Стили"
|
||||
|
||||
#: fpwebstrconsts.smihtmltables
|
||||
msgctxt "fpwebstrconsts.smihtmltables"
|
||||
msgid "Tables"
|
||||
msgstr "Таблицы"
|
||||
|
||||
#: fpwebstrconsts.smihtmltextaligncenter
|
||||
msgctxt "fpwebstrconsts.smihtmltextaligncenter"
|
||||
msgid "Text align center"
|
||||
msgstr "Выровнять текст по центру"
|
||||
|
||||
#: fpwebstrconsts.smihtmltextalignjustify
|
||||
msgctxt "fpwebstrconsts.smihtmltextalignjustify"
|
||||
msgid "Text align justify"
|
||||
msgstr "Выровнять текст по ширине"
|
||||
|
||||
#: fpwebstrconsts.smihtmltextalignleft
|
||||
msgctxt "fpwebstrconsts.smihtmltextalignleft"
|
||||
msgid "Text align left"
|
||||
msgstr "Выровнять текст по левому краю"
|
||||
|
||||
#: fpwebstrconsts.smihtmltextalignright
|
||||
msgctxt "fpwebstrconsts.smihtmltextalignright"
|
||||
msgid "Text align right"
|
||||
msgstr "Выравнять текст по правому краю"
|
||||
|
||||
#: fpwebstrconsts.smihtmltextbold
|
||||
msgctxt "fpwebstrconsts.smihtmltextbold"
|
||||
msgid "Bold"
|
||||
msgstr "Полужирное начертание"
|
||||
|
||||
#: fpwebstrconsts.smihtmltextitalic
|
||||
msgctxt "fpwebstrconsts.smihtmltextitalic"
|
||||
msgid "Italic"
|
||||
msgstr "Наклонное начертание"
|
||||
|
||||
#: fpwebstrconsts.smihtmltextunderline
|
||||
msgctxt "fpwebstrconsts.smihtmltextunderline"
|
||||
msgid "Underline"
|
||||
msgstr "Подчёркнуто"
|
||||
|
||||
#: fpwebstrconsts.smiotherinsertfn
|
||||
msgctxt "fpwebstrconsts.smiotherinsertfn"
|
||||
msgid "Insert file name"
|
||||
msgstr "Вставить имя файла проекта"
|
||||
|
||||
#: fpwebstrconsts.snewhtmlfileprops
|
||||
msgid "New Html file properties"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.scssfile
|
||||
msgctxt "rxwebstrconsts.scssfile"
|
||||
msgid "CSS file"
|
||||
msgstr "CSS файл"
|
||||
|
||||
#: rxwebstrconsts.scssfiledesc
|
||||
msgctxt "rxwebstrconsts.scssfiledesc"
|
||||
msgid "Create new CSS file..."
|
||||
msgstr "Создать новый CSS файл..."
|
||||
|
||||
#: rxwebstrconsts.senteryoutext
|
||||
msgctxt "rxwebstrconsts.senteryoutext"
|
||||
msgid "Enter your text..."
|
||||
msgstr "Введите свой HTML код здесь..."
|
||||
|
||||
#: rxwebstrconsts.shtmlautor
|
||||
msgid "Html autor - <meta name=\"author\">"
|
||||
msgstr "Автор HTML - <meta name=\"author\">"
|
||||
|
||||
#: rxwebstrconsts.shtmlcharset
|
||||
msgid "HTML charset"
|
||||
msgstr "Набор символов HTML"
|
||||
|
||||
#: rxwebstrconsts.shtmlcopyright
|
||||
msgid "Html copyright - meta name=\"copyright\">"
|
||||
msgstr "Авторские права на HTML - meta name=\"copyright\">"
|
||||
|
||||
#: rxwebstrconsts.shtmlcssfile
|
||||
msgctxt "rxwebstrconsts.shtmlcssfile"
|
||||
msgid "CSS file"
|
||||
msgstr "CSS файл"
|
||||
|
||||
#: rxwebstrconsts.shtmldesign
|
||||
msgctxt "rxwebstrconsts.shtmldesign"
|
||||
msgid "HTML design"
|
||||
msgstr "Редактор HTML"
|
||||
|
||||
#: rxwebstrconsts.shtmlfile
|
||||
msgctxt "rxwebstrconsts.shtmlfile"
|
||||
msgid "HTML file"
|
||||
msgstr "Файл HTML"
|
||||
|
||||
#: rxwebstrconsts.shtmlfiledesc
|
||||
msgctxt "rxwebstrconsts.shtmlfiledesc"
|
||||
msgid "Create new HTML file..."
|
||||
msgstr "Создать новый HTML файл..."
|
||||
|
||||
#: rxwebstrconsts.shtmltableformborderwidth
|
||||
msgctxt "rxwebstrconsts.shtmltableformborderwidth"
|
||||
msgid "Border width"
|
||||
msgstr "Ширина рамки"
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcaption
|
||||
msgctxt "rxwebstrconsts.shtmltableformcaption"
|
||||
msgid "New HTML table..."
|
||||
msgstr "Новая HTML таблица..."
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcellpadding
|
||||
msgid "Cellpadding"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcellspacing
|
||||
msgid "Cellspacing"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.shtmltableformcolumncount
|
||||
msgctxt "rxwebstrconsts.shtmltableformcolumncount"
|
||||
msgid "Column count"
|
||||
msgstr "Количество колонок"
|
||||
|
||||
#: rxwebstrconsts.shtmltableformheaderbgcolor
|
||||
msgctxt "rxwebstrconsts.shtmltableformheaderbgcolor"
|
||||
msgid "Header bg color"
|
||||
msgstr "Цвет фона заголовка"
|
||||
|
||||
#: rxwebstrconsts.shtmltableformrowcount
|
||||
msgctxt "rxwebstrconsts.shtmltableformrowcount"
|
||||
msgid "Row count"
|
||||
msgstr "Количество строк"
|
||||
|
||||
#: rxwebstrconsts.shtmltableformuseheader
|
||||
msgctxt "rxwebstrconsts.shtmltableformuseheader"
|
||||
msgid "Use header row"
|
||||
msgstr "Использовать заголовок"
|
||||
|
||||
#: rxwebstrconsts.shtmltableformwidth
|
||||
msgctxt "rxwebstrconsts.shtmltableformwidth"
|
||||
msgid "Width"
|
||||
msgstr "Ширина"
|
||||
|
||||
#: rxwebstrconsts.shtmltagcaptionreset
|
||||
msgctxt "rxwebstrconsts.shtmltagcaptionreset"
|
||||
msgid "Reset"
|
||||
msgstr "Сброс"
|
||||
|
||||
#: rxwebstrconsts.shtmltagcaptionsubmit
|
||||
msgctxt "rxwebstrconsts.shtmltagcaptionsubmit"
|
||||
msgid "Submit"
|
||||
msgstr "Передать"
|
||||
|
||||
#: rxwebstrconsts.shtmltitle
|
||||
msgid "Html title - <title>"
|
||||
msgstr "Заголовок HTML - <title>"
|
||||
|
||||
#: rxwebstrconsts.sjsfile
|
||||
msgid "Java script file"
|
||||
msgstr "Файл Java Script"
|
||||
|
||||
#: rxwebstrconsts.sjsfiledesc
|
||||
msgid "Create new java script file..."
|
||||
msgstr "Создать новый файл Java Script"
|
||||
|
||||
#: rxwebstrconsts.smihtmleditor
|
||||
msgctxt "rxwebstrconsts.smihtmleditor"
|
||||
msgid "HTML Editor"
|
||||
msgstr "Редактор HTML"
|
||||
|
||||
#: rxwebstrconsts.smihtmlforms
|
||||
msgctxt "rxwebstrconsts.smihtmlforms"
|
||||
msgid "Forms"
|
||||
msgstr "Формы"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertbr
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertbr"
|
||||
msgid "Insert new line"
|
||||
msgstr "Вставить перевод строки"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertcolor
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertcolor"
|
||||
msgid "Insert HTML Color"
|
||||
msgstr "Вставить цвет HTML"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertcomment
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertcomment"
|
||||
msgid "Insert HTML comment"
|
||||
msgstr "Вставить HTML коментарий"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertform
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertform"
|
||||
msgid "Insert HTML Form"
|
||||
msgstr "Вставить форму HTML"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader1level
|
||||
msgid "Insert HTML header 1 level"
|
||||
msgstr "Вставить заголовок HTML 1-го уровня"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader2level
|
||||
msgid "Insert HTML header 2 level"
|
||||
msgstr "Вставить заголовок HTML 2-го уровня"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader3level
|
||||
msgid "Insert HTML header 3 level"
|
||||
msgstr "Вставить заголовок HTML 3-го уровня"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader4level
|
||||
msgid "Insert HTML header 4 level"
|
||||
msgstr "Вставить заголовок HTML 4-го уровня"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertheader5level
|
||||
msgid "Insert HTML header 5 level"
|
||||
msgstr "Вставить заголовок HTML 5-го уровня"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserthr
|
||||
msgctxt "rxwebstrconsts.smihtmlinserthr"
|
||||
msgid "Insert horizontal line"
|
||||
msgstr "Вставить горизонтальную линию"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertimg
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertimg"
|
||||
msgid "Insert image"
|
||||
msgstr "Вставить изображение"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertinput
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertinput"
|
||||
msgid "Insert HTML Input tag"
|
||||
msgstr "Вставить HTML тэг INPUT"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertinputreset
|
||||
msgid "Insert button Reset"
|
||||
msgstr "Вставить кнопку ОЧИСТИТЬ"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertinputsubmit
|
||||
msgid "Insert button Submit"
|
||||
msgstr "Вставить кнопку ПЕРЕДАТЬ"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertlist
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertlist"
|
||||
msgid "Insert HTML list"
|
||||
msgstr "Вставить список"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinsertnbsp
|
||||
msgctxt "rxwebstrconsts.smihtmlinsertnbsp"
|
||||
msgid "Insert Non Breaking Space"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttable
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttable"
|
||||
msgid "Insert HTML table"
|
||||
msgstr "Встаивть HTML таблицу..."
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttabledata
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttabledata"
|
||||
msgid "Insert HTML table data"
|
||||
msgstr "Вставить данные таблицы"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttabledatawd
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttabledatawd"
|
||||
msgid "Insert HTML table data with dialog"
|
||||
msgstr "Вставить данные с диалогом"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttablerow
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttablerow"
|
||||
msgid "Insert HTML table row"
|
||||
msgstr "Вставить строку таблицы"
|
||||
|
||||
#: rxwebstrconsts.smihtmlinserttablerowwd
|
||||
msgctxt "rxwebstrconsts.smihtmlinserttablerowwd"
|
||||
msgid "Insert HTML table row with dialog"
|
||||
msgstr "Вставить строку таблицыи с диалогом"
|
||||
|
||||
#: rxwebstrconsts.smihtmllists
|
||||
msgctxt "rxwebstrconsts.smihtmllists"
|
||||
msgid "Lists"
|
||||
msgstr "Списки"
|
||||
|
||||
#: rxwebstrconsts.smihtmlother
|
||||
msgctxt "rxwebstrconsts.smihtmlother"
|
||||
msgid "Other"
|
||||
msgstr "Прочее"
|
||||
|
||||
#: rxwebstrconsts.smihtmlstandart
|
||||
msgid "Standart"
|
||||
msgstr "Стандартное"
|
||||
|
||||
#: rxwebstrconsts.smihtmlstyle
|
||||
msgctxt "rxwebstrconsts.smihtmlstyle"
|
||||
msgid "Style"
|
||||
msgstr "Стили"
|
||||
|
||||
#: rxwebstrconsts.smihtmltables
|
||||
msgctxt "rxwebstrconsts.smihtmltables"
|
||||
msgid "Tables"
|
||||
msgstr "Таблицы"
|
||||
|
||||
#: rxwebstrconsts.smihtmltextaligncenter
|
||||
msgctxt "rxwebstrconsts.smihtmltextaligncenter"
|
||||
msgid "Text align center"
|
||||
msgstr "Выровнять текст по центру"
|
||||
|
||||
#: rxwebstrconsts.smihtmltextalignjustify
|
||||
msgctxt "rxwebstrconsts.smihtmltextalignjustify"
|
||||
msgid "Text align justify"
|
||||
msgstr "Выровнять текст по ширине"
|
||||
|
||||
#: rxwebstrconsts.smihtmltextalignleft
|
||||
msgctxt "rxwebstrconsts.smihtmltextalignleft"
|
||||
msgid "Text align left"
|
||||
msgstr "Выровнять текст по левому краю"
|
||||
|
||||
#: rxwebstrconsts.smihtmltextalignright
|
||||
msgctxt "rxwebstrconsts.smihtmltextalignright"
|
||||
msgid "Text align right"
|
||||
msgstr "Выравнять текст по правому краю"
|
||||
|
||||
#: rxwebstrconsts.smihtmltextbold
|
||||
msgctxt "rxwebstrconsts.smihtmltextbold"
|
||||
msgid "Bold"
|
||||
msgstr "Полужирное начертание"
|
||||
|
||||
#: rxwebstrconsts.smihtmltextitalic
|
||||
msgctxt "rxwebstrconsts.smihtmltextitalic"
|
||||
msgid "Italic"
|
||||
msgstr "Наклонное начертание"
|
||||
|
||||
#: rxwebstrconsts.smihtmltextunderline
|
||||
msgctxt "rxwebstrconsts.smihtmltextunderline"
|
||||
msgid "Underline"
|
||||
msgstr "Подчёркнуто"
|
||||
|
||||
#: rxwebstrconsts.smiotherinsertfn
|
||||
msgctxt "rxwebstrconsts.smiotherinsertfn"
|
||||
msgid "Insert file name"
|
||||
msgstr "Вставить имя файла проекта"
|
||||
|
||||
#: rxwebstrconsts.snewhtmlfileprops
|
||||
msgid "New Html file propertys"
|
||||
msgstr "Свойства нового HTML файла"
|
||||
|
||||
15
components/fpweb/languages/fpwebtoolsunit.po
Normal file
15
components/fpweb/languages/fpwebtoolsunit.po
Normal file
@ -0,0 +1,15 @@
|
||||
msgid ""
|
||||
msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||
|
||||
#: rxwebtoolsunit.shtmldesign
|
||||
msgid "HTML design"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebtoolsunit.shtmlfile
|
||||
msgid "HTML file"
|
||||
msgstr ""
|
||||
|
||||
#: rxwebtoolsunit.shtmlfiledesc
|
||||
msgid "Create new HTML file..."
|
||||
msgstr ""
|
||||
|
||||
@ -23,7 +23,7 @@
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Files Count="11">
|
||||
<Files Count="30">
|
||||
<Item1>
|
||||
<Filename Value="reglazwebextra.pp"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
@ -77,20 +77,100 @@
|
||||
<Type Value="Virtual Unit"/>
|
||||
<UnitName Value="webjsonrpc"/>
|
||||
</Item11>
|
||||
<Item12>
|
||||
<Filename Value="fpwebnewhtmlformunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item12>
|
||||
<Item13>
|
||||
<Filename Value="fpwebnewhtmlformunit.pas"/>
|
||||
<UnitName Value="fpwebNewHTMLFormUnit"/>
|
||||
</Item13>
|
||||
<Item14>
|
||||
<Filename Value="fpwebnewhtmltableunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item14>
|
||||
<Item15>
|
||||
<Filename Value="fpwebnewhtmltableunit.pas"/>
|
||||
<UnitName Value="fpWebNewHtmlTableUnit"/>
|
||||
</Item15>
|
||||
<Item16>
|
||||
<Filename Value="fpwebstrconsts.pas"/>
|
||||
<UnitName Value="fpWebStrConsts"/>
|
||||
</Item16>
|
||||
<Item17>
|
||||
<Filename Value="fpwebtoolsunit.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="fpWebToolsUnit"/>
|
||||
</Item17>
|
||||
<Item18>
|
||||
<Filename Value="fpideexteditorinsertfilenameunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item18>
|
||||
<Item19>
|
||||
<Filename Value="fpideexteditorinsertfilenameunit.pas"/>
|
||||
<UnitName Value="fpIDEExtEditorInsertFileNameUnit"/>
|
||||
</Item19>
|
||||
<Item20>
|
||||
<Filename Value="fpweb_images.inc"/>
|
||||
<Type Value="Include"/>
|
||||
</Item20>
|
||||
<Item21>
|
||||
<Filename Value="fpwebnewhtmlfileunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item21>
|
||||
<Item22>
|
||||
<Filename Value="fpwebnewhtmlfileunit.pas"/>
|
||||
<UnitName Value="fpWebNewHTMLFileUnit"/>
|
||||
</Item22>
|
||||
<Item23>
|
||||
<Filename Value="fpwebnewhtmlimgunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item23>
|
||||
<Item24>
|
||||
<Filename Value="fpwebnewhtmlimgunit.pas"/>
|
||||
<UnitName Value="fpwebNewHTMLImgUnit"/>
|
||||
</Item24>
|
||||
<Item25>
|
||||
<Filename Value="fpwebnewhtmlinputunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item25>
|
||||
<Item26>
|
||||
<Filename Value="fpwebnewhtmlinputunit.pas"/>
|
||||
<UnitName Value="fpwebNewHTMLInputUnit"/>
|
||||
</Item26>
|
||||
<Item27>
|
||||
<Filename Value="fpwebnewhtmllistunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item27>
|
||||
<Item28>
|
||||
<Filename Value="fpwebnewhtmllistunit.pas"/>
|
||||
<UnitName Value="fpwebNewHTMLListUnit"/>
|
||||
</Item28>
|
||||
<Item29>
|
||||
<Filename Value="fpwebnewhtmltagtrunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item29>
|
||||
<Item30>
|
||||
<Filename Value="fpwebnewhtmltagtrunit.pas"/>
|
||||
<UnitName Value="fpwebNewHtmlTagTRUnit"/>
|
||||
</Item30>
|
||||
</Files>
|
||||
<i18n>
|
||||
<EnableI18N Value="True"/>
|
||||
<OutDir Value="languages"/>
|
||||
</i18n>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
<RequiredPkgs Count="2">
|
||||
<RequiredPkgs Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="weblaz"/>
|
||||
<PackageName Value="sqldblaz"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="weblaz"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="FCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item2>
|
||||
</Item3>
|
||||
</RequiredPkgs>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)/"/>
|
||||
|
||||
@ -6,10 +6,11 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fpwebdata,
|
||||
sqldbwebdata, LazIDEIntf,
|
||||
sqldbwebdata, LazIDEIntf,srceditorintf,idemsgintf,
|
||||
ProjectIntf, fpextjs,
|
||||
extjsjson, extjsxml,
|
||||
fpjsonrpc,
|
||||
fpjsonrpc, controls, dialogs, forms,
|
||||
jstree,jsparser,
|
||||
fpextdirect,
|
||||
webjsonrpc;
|
||||
|
||||
@ -49,6 +50,18 @@ Type
|
||||
function GetImplementationSource(const Filename, SourceName, ResourceName: string): string;override;
|
||||
end;
|
||||
|
||||
TJSSyntaxChecker = Class(TComponent)
|
||||
private
|
||||
FSFN: String;
|
||||
Public
|
||||
Procedure ShowMessage(Const Msg : String);
|
||||
Procedure ShowMessage(Const Fmt : String; Args : Array of const);
|
||||
Procedure ShowException(Const Msg : String; E : Exception);
|
||||
function CheckJavaScript (S : TStream): TModalResult;
|
||||
function CheckSource(Sender: TObject; var Handled: boolean): TModalResult;
|
||||
Property SourceFileName : String Read FSFN;
|
||||
end;
|
||||
|
||||
Procedure Register;
|
||||
|
||||
resourcestring
|
||||
@ -67,10 +80,12 @@ Var
|
||||
FileDescriptorWebProviderDataModule: TFileDescWebProviderDataModule;
|
||||
FileDescriptorJSONRPCModule : TFileDescWebJSONRPCModule;
|
||||
FileDescriptorExtDirectModule : TFileDescExtDirectModule;
|
||||
AChecker : TJSSyntaxChecker;
|
||||
|
||||
implementation
|
||||
|
||||
uses FormEditingIntf, controls, forms,frmrpcmoduleoptions;
|
||||
uses propedits,FormEditingIntf, frmrpcmoduleoptions,
|
||||
sqlstringspropertyeditordlg, registersqldb;
|
||||
|
||||
Procedure Register;
|
||||
|
||||
@ -91,6 +106,13 @@ begin
|
||||
FormEditingHook.RegisterDesignerBaseClass(TFPWebProviderDataModule);
|
||||
FormEditingHook.RegisterDesignerBaseClass(TJSONRPCModule);
|
||||
FormEditingHook.RegisterDesignerBaseClass(TExtDirectModule);
|
||||
AChecker:=TJSSyntaxChecker.Create(Nil);
|
||||
LazarusIDE.AddHandlerOnQuickSyntaxCheck(@AChecker.CheckSource,False);
|
||||
RegisterPropertyEditor(TStrings.ClassInfo, TSQLDBWebDataProvider, 'SelectSQL', TSQLStringsPropertyEditor);
|
||||
RegisterPropertyEditor(TStrings.ClassInfo, TSQLDBWebDataProvider, 'InsertSQL', TSQLStringsPropertyEditor);
|
||||
RegisterPropertyEditor(TStrings.ClassInfo, TSQLDBWebDataProvider, 'DeleteSQL', TSQLStringsPropertyEditor);
|
||||
RegisterPropertyEditor(TStrings.ClassInfo, TSQLDBWebDataProvider, 'UpdateSQL', TSQLStringsPropertyEditor);
|
||||
|
||||
end;
|
||||
|
||||
{ TFileDescWebProviderDataModule }
|
||||
@ -247,5 +269,91 @@ begin
|
||||
Result:=Result+' JSONRPCHandlerManager.RegisterDatamodule(T'+ResourceName+','''+HP+''',);'+LineEnding;
|
||||
end;
|
||||
|
||||
{ TJSSyntaxChecker }
|
||||
|
||||
|
||||
procedure TJSSyntaxChecker.ShowMessage(const Msg: String);
|
||||
begin
|
||||
IDEMessagesWindow.AddMsg(SourceFileName+' : '+Msg,'',0,Nil);
|
||||
end;
|
||||
|
||||
procedure TJSSyntaxChecker.ShowMessage(const Fmt: String;
|
||||
Args: array of const);
|
||||
begin
|
||||
ShowMessage(Format(Fmt,Args));
|
||||
end;
|
||||
|
||||
procedure TJSSyntaxChecker.ShowException(const Msg: String; E: Exception);
|
||||
begin
|
||||
If (Msg<>'') then
|
||||
ShowMessage(Msg+' : '+E.Message)
|
||||
else
|
||||
ShowMessage(Msg+' : '+E.Message);
|
||||
end;
|
||||
|
||||
function TJSSyntaxChecker.CheckJavaScript(S : TStream): TModalResult;
|
||||
|
||||
Var
|
||||
P : TJSParser;
|
||||
E : TJSElement;
|
||||
begin
|
||||
P:=TJSParser.Create(S);
|
||||
try
|
||||
try
|
||||
E:=P.Parse;
|
||||
E.Free;
|
||||
ShowMessage('Javascript syntax OK');
|
||||
except
|
||||
On E : Exception do
|
||||
ShowException('Javascript syntax error',E);
|
||||
end;
|
||||
finally
|
||||
P.free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TJSSyntaxChecker.CheckSource(Sender: TObject; var Handled: boolean
|
||||
): TModalResult;
|
||||
|
||||
Var
|
||||
AE : TSourceEditorInterface;
|
||||
E : String;
|
||||
S : TStringStream;
|
||||
|
||||
begin
|
||||
IDEMessagesWindow.BeginBlock(False);
|
||||
try
|
||||
try
|
||||
Handled:=False;
|
||||
result:=mrNone;
|
||||
AE:=SourceEditorManagerIntf.ActiveEditor;
|
||||
If (AE<>Nil) then
|
||||
begin
|
||||
E:=ExtractFileExt(AE.FileName);
|
||||
FSFN:=ExtractFileName(AE.FileName);
|
||||
Handled:=CompareText(E,'.js')=0;
|
||||
If Handled then
|
||||
begin
|
||||
S:=TStringStream.Create(AE.SourceText);
|
||||
try
|
||||
CheckJavaScript(S);
|
||||
Result:=mrOK;
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
except
|
||||
On E : Exception do
|
||||
ShowException('Error during syntax check',E);
|
||||
end;
|
||||
finally
|
||||
IDEMessagesWindow.EndBlock;
|
||||
end;
|
||||
end;
|
||||
|
||||
finalization
|
||||
FreeAndNil(AChecker);
|
||||
|
||||
end.
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user