From def95ce019365ee3a4c2ec564fbc02fb47268a3e Mon Sep 17 00:00:00 2001 From: michael Date: Sun, 12 Sep 2010 11:02:12 +0000 Subject: [PATCH] * Upgraded to version 0.5 git-svn-id: trunk@27324 - --- .gitattributes | 19 + .../fpideexteditorinsertfilenameunit.lfm | 86 ++ .../fpideexteditorinsertfilenameunit.pas | 110 +++ components/fpweb/fpweb_images.inc | 238 ++++-- components/fpweb/fpwebfieldsettagunit.lfm | 85 ++ components/fpweb/fpwebfieldsettagunit.pas | 78 ++ components/fpweb/fpwebhrefeditunit.lfm | 753 ++++++++++++++++++ components/fpweb/fpwebhrefeditunit.pas | 184 +++++ components/fpweb/fpwebhtmltaglegendunit.lfm | 138 ++++ components/fpweb/fpwebhtmltaglegendunit.pas | 83 ++ components/fpweb/fpwebnewhtmlfileunit.pas | 29 + components/fpweb/fpwebnewhtmlformunit.pas | 30 + components/fpweb/fpwebnewhtmlimgunit.pas | 29 + components/fpweb/fpwebnewhtmlinputunit.lfm | 1 + components/fpweb/fpwebnewhtmlinputunit.pas | 53 +- components/fpweb/fpwebnewhtmllistunit.pas | 29 + components/fpweb/fpwebnewhtmltableunit.pas | 29 + components/fpweb/fpwebnewhtmltagtrunit.pas | 29 + components/fpweb/fpwebselectoptionsunit.lfm | 82 ++ components/fpweb/fpwebselectoptionsunit.pas | 75 ++ components/fpweb/fpwebselecttagunit.lfm | 301 +++++++ components/fpweb/fpwebselecttagunit.pas | 120 +++ components/fpweb/fpwebstrconsts.pas | 21 + components/fpweb/fpwebtoolsunit.pas | 242 ++++-- components/fpweb/images/button.png | Bin 0 -> 258 bytes components/fpweb/images/check.png | Bin 0 -> 293 bytes components/fpweb/images/make_img_list.sh | 2 +- components/fpweb/images/radio.png | Bin 0 -> 309 bytes components/fpweb/images/select.png | Bin 0 -> 325 bytes components/fpweb/images/tag_a.png | Bin 0 -> 359 bytes components/fpweb/images/tag_attribute.png | Bin 0 -> 124 bytes components/fpweb/images/tag_element.png | Bin 0 -> 184 bytes components/fpweb/languages/fpwebstrconsts.po | 80 ++ .../fpweb/languages/fpwebstrconsts.ru.po | 80 ++ components/fpweb/lazwebextra.lpk | 47 +- components/fpweb/reglazwebextra.pp | 54 ++ 36 files changed, 2975 insertions(+), 132 deletions(-) create mode 100644 components/fpweb/fpideexteditorinsertfilenameunit.lfm create mode 100644 components/fpweb/fpideexteditorinsertfilenameunit.pas create mode 100644 components/fpweb/fpwebfieldsettagunit.lfm create mode 100644 components/fpweb/fpwebfieldsettagunit.pas create mode 100644 components/fpweb/fpwebhrefeditunit.lfm create mode 100644 components/fpweb/fpwebhrefeditunit.pas create mode 100644 components/fpweb/fpwebhtmltaglegendunit.lfm create mode 100644 components/fpweb/fpwebhtmltaglegendunit.pas create mode 100644 components/fpweb/fpwebselectoptionsunit.lfm create mode 100644 components/fpweb/fpwebselectoptionsunit.pas create mode 100644 components/fpweb/fpwebselecttagunit.lfm create mode 100644 components/fpweb/fpwebselecttagunit.pas create mode 100644 components/fpweb/images/button.png create mode 100644 components/fpweb/images/check.png create mode 100644 components/fpweb/images/radio.png create mode 100644 components/fpweb/images/select.png create mode 100644 components/fpweb/images/tag_a.png create mode 100644 components/fpweb/images/tag_attribute.png create mode 100644 components/fpweb/images/tag_element.png diff --git a/.gitattributes b/.gitattributes index 15e77fbc97..f2bc56c35c 100644 --- a/.gitattributes +++ b/.gitattributes @@ -934,7 +934,15 @@ 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/fpideexteditorinsertfilenameunit.lfm svneol=native#text/plain +components/fpweb/fpideexteditorinsertfilenameunit.pas svneol=native#text/plain components/fpweb/fpweb_images.inc svneol=native#text/plain +components/fpweb/fpwebfieldsettagunit.lfm svneol=native#text/plain +components/fpweb/fpwebfieldsettagunit.pas svneol=native#text/plain +components/fpweb/fpwebhrefeditunit.lfm svneol=native#text/plain +components/fpweb/fpwebhrefeditunit.pas svneol=native#text/plain +components/fpweb/fpwebhtmltaglegendunit.lfm svneol=native#text/plain +components/fpweb/fpwebhtmltaglegendunit.pas 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 @@ -949,12 +957,18 @@ 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/fpwebselectoptionsunit.lfm svneol=native#text/plain +components/fpweb/fpwebselectoptionsunit.pas svneol=native#text/plain +components/fpweb/fpwebselecttagunit.lfm svneol=native#text/plain +components/fpweb/fpwebselecttagunit.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/button.png -text svneol=unset#image/png +components/fpweb/images/check.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 @@ -963,14 +977,19 @@ 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/radio.png -text svneol=unset#image/png components/fpweb/images/reset.png -text svneol=unset#image/png +components/fpweb/images/select.png -text svneol=unset#image/png components/fpweb/images/submit.png -text svneol=unset#image/png +components/fpweb/images/tag_a.png -text svneol=unset#image/png +components/fpweb/images/tag_attribute.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_element.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 diff --git a/components/fpweb/fpideexteditorinsertfilenameunit.lfm b/components/fpweb/fpideexteditorinsertfilenameunit.lfm new file mode 100644 index 0000000000..c15363d00f --- /dev/null +++ b/components/fpweb/fpideexteditorinsertfilenameunit.lfm @@ -0,0 +1,86 @@ +object fpIDEExtEditorInsertFileNameForm: TfpIDEExtEditorInsertFileNameForm + Left = 472 + Height = 406 + Top = 229 + Width = 503 + ActiveControl = CBFullPath + Caption = 'Select file...' + ClientHeight = 406 + ClientWidth = 503 + OnCreate = FormCreate + Position = poScreenCenter + LCLVersion = '0.9.29' + object EFileName: TEdit + AnchorSideLeft.Control = LEFileName + AnchorSideTop.Control = LEFileName + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + Left = 11 + Height = 22 + Top = 27 + Width = 486 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 0 + end + object LEFileName: TLabel + AnchorSideTop.Control = Owner + Left = 5 + Height = 15 + Top = 6 + Width = 57 + BorderSpacing.Around = 6 + Caption = '&Select file' + FocusControl = EFileName + ParentColor = False + end + object CBFullPath: TCheckBox + AnchorSideTop.Control = Owner + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + Left = 401 + Height = 21 + Top = 6 + Width = 96 + Anchors = [akTop, akRight] + BorderSpacing.Around = 6 + Caption = 'With full path' + TabOrder = 1 + end + object LBFiles: TListBox + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = EFileName + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = ButtonPanel1 + Left = 6 + Height = 305 + Top = 55 + Width = 491 + Anchors = [akTop, akLeft, akRight, akBottom] + BorderSpacing.Around = 6 + ItemHeight = 0 + OnDblClick = LBFilesDblClick + TabOrder = 2 + TopIndex = -1 + end + object ButtonPanel1: TButtonPanel + Left = 6 + Height = 34 + Top = 366 + Width = 491 + 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 = 3 + ShowButtons = [pbOK, pbCancel, pbHelp] + end +end diff --git a/components/fpweb/fpideexteditorinsertfilenameunit.pas b/components/fpweb/fpideexteditorinsertfilenameunit.pas new file mode 100644 index 0000000000..003c3e961f --- /dev/null +++ b/components/fpweb/fpideexteditorinsertfilenameunit.pas @@ -0,0 +1,110 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} +unit fpIDEExtEditorInsertFileNameUnit; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, + ButtonPanel; + +type + + { TfpIDEExtEditorInsertFileNameForm } + + TfpIDEExtEditorInsertFileNameForm = class(TForm) + ButtonPanel1: TButtonPanel; + CBFullPath: TCheckBox; + EFileName: TEdit; + LEFileName: TLabel; + LBFiles: TListBox; + procedure FormCreate(Sender: TObject); + procedure LBFilesDblClick(Sender: TObject); + private + procedure FillFilesList; + public + function SelectedFile:string; + end; + +var + fpIDEExtEditorInsertFileNameForm: TfpIDEExtEditorInsertFileNameForm; + +implementation +uses fpWebStrConsts, SrcEditorIntf, ProjectIntf, LazIDEIntf; + +{$R *.lfm} + +{ TfpIDEExtEditorInsertFileNameForm } + +procedure TfpIDEExtEditorInsertFileNameForm.FormCreate(Sender: TObject); +begin + FillFilesList; +end; + +procedure TfpIDEExtEditorInsertFileNameForm.LBFilesDblClick(Sender: TObject); +begin + ModalResult:=mrOk; +end; + +procedure TfpIDEExtEditorInsertFileNameForm.FillFilesList; +var + i:integer; + S, Ext:string; +begin + LBFiles.Items.Clear; + if Assigned(LazarusIDE) and Assigned(LazarusIDE.ActiveProject) then + begin + for i:=0 to LazarusIDE.ActiveProject.FileCount - 1 do + begin + if LazarusIDE.ActiveProject.Files[i].IsPartOfProject then + begin + S:=LazarusIDE.ActiveProject.Files[i].Filename; + LBFiles.Items.Add(S); + end; + end; + end; +end; + +function TfpIDEExtEditorInsertFileNameForm.SelectedFile: string; +begin + if (LBFiles.Items.Count>0) and (LBFiles.ItemIndex>-1) and (LBFiles.ItemIndex < LBFiles.Items.Count) then + begin + Result:=LBFiles.Items[LBFiles.ItemIndex]; + if not CBFullPath.Checked then + Result:=ExtractFileNameOnly(Result); + end + else + Result:=''; +end; + +end. + diff --git a/components/fpweb/fpweb_images.inc b/components/fpweb/fpweb_images.inc index 957ad0564a..0140c4a113 100644 --- a/components/fpweb/fpweb_images.inc +++ b/components/fpweb/fpweb_images.inc @@ -15,24 +15,24 @@ LazarusResources.Add('quick_table','PNG',[ +#15#199'T'#144'+'#7'+'#218'cJ'#192#18'eL'#9#246#193'n`r '#187#198'?'#177'E' +#140#159#180'Zv'#209'|'#243'x'#130'E'#220#157'W'#168#186#220'P'#213'X'#28#172 +#170#17#209#23#184#170#198'f'#163#241#159'f'#171'['#155#17'="c'#19#168'K'#211 - +'G0w'#151#187#224#12#7'h[0'#131#247#207'`'#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 + +'G0w'#151#187#224#12#7'h[0'#131#247#207'`'#128#221#17'v'#7#198#235#3#236#143 + +#191#5'[a'#24#134'X'#175#215#2#147'(r'#12#163#234'2'#155#193#199#215#252#216 + +'W'#183#161'}'#129'G'#128#136'\W>P'#5'c6"5"5'#219#183#147#227#182#165#192#199 + +'9'#202'0'#179#179#245'MpV'#164#134'>Q'#160'f 2'#14'3'#155#239'XU#R'#195#246 + +';'#145#203#205#184#235#232#145#4'('#208':'#157'n'#204'uhft]G~+'#136#212'D' + +#223#16'@Lef'#179#214'@t]'#23#238#142#187'S]:]JU'#157#206#191#152#165'$'#249 + +'tS'#213#152#155#235'TW'#25#231'LX:'#227#167#159#249#15#189#12'|'#150#241#179 + +#176'i'#198#229#216'tw'#25#134'a'#145#191#7'L'#28'/'#173#151'e'#252#3#137#175 + +')H'#225'qnK'#0#0#0#0'IEND'#174'B`'#130 ]); 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 + +#0#0'IDATx'#156'c'#188's'#231#14#3'-'#0#19'ML'#29#146#6#179#192#24'K'#150',' + +#249'O'#142#1'111'#140'x'#13'f```h'#184#225'@'#146#161#13#26#7'p'#202#209',(' + +#24'a'#201#141#220#160'@'#7#176#160'aA'#23#128#129'%K'#150#252#175'wp '#201 + +#208#198#3#7#224'l'#218#167#10'l'#160'a'#255'~'#162#12'ad'#196'L'#24#248#13 + +'vt$'#202'`'#24#24#13#10'8'#24#248#160'@v'#1#169#128'q'#180#160#31#186#6#3#0 + +'e'#195'%'#255']'#160#217#219#0#0#0#0'IEND'#174'B`'#130 ]); LazarusResources.Add('tag_dl','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0 @@ -67,9 +67,9 @@ LazarusResources.Add('tag_ol','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0 +#0#0#6'bKGD'#0#189#0#189#0#189'iB'#213#168#0#0#0'MIDATx'#218'c`'#24#5#3#4#234 +#255'Sj'#2#11#145#134#18'c'#17'#]\'#140#197#22'dC'#27#137'q'#197#128#131#250 - +#255#212#8#10#2#22#192#193#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 + +#255#212#8#10#2#22#192#193'"0'#201#134#146#5#134'^'#228#209#219#197#24'aL' + +#173#200#195'j85\K'#211't<'#10#168#4#0#250#202')`X'#245'k'#130#0#0#0'CtEXtSo' + +'ftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237 +#232#217#240#0#0#0'*tEXtSignature'#0'3f06b65fe0e883da551bde451b2d6272C'#12 +#166#209#0#0#0#0'IEND'#174'B`'#130 ]); @@ -134,8 +134,8 @@ LazarusResources.Add('tag_tr','PNG',[ +#221'QJ'#129#153#193'l='#219#230#222'4'#157#145's'#246#24#163#0#191#136#2#0 +'D'#228#221#185'f-*v'#247'y'#144'l'#242#155#224'oj'#24'X'#234#203#11'!8'#201 +#143'A$'#145'RB'#237#138#197#229#241't'#7#243#194'&'#191#214'?'#227'9c'#168 - +'*np'#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 + +'*np'#20#201'&'#15#192'SJ^y;'#207#184#23#246#178#143'UUr'#206#221#240'*'#217 + +#221#159'w'#5#157#244#211#13#173#130#177'9'#0#0#0#0'IEND'#174'B`'#130 ]); LazarusResources.Add('tag_table_data','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0 @@ -167,10 +167,10 @@ LazarusResources.Add('tag_h2','PNG',[ +#160#2#160#235#0'h'#132#0#16'B.'#202#197'Z'#25#198#242#162#140'e'#25'_;m'#23 +'Q'#128'"'#3#1#199#174#144'b'#214#221#172')'#215'2'#182#152#23'V'#203')'#166 +#24#253'R'#223#173#202#179']'#193#217#234#151#130#25' G0'#184','#30'x'#190 - +#243'A'#212#239#208'P'#149#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 + +#243'A'#212#239#208'P'#149''#24''''#20'Fz'#222#240#14'o'#0#0#0'CtEXtSoftwa' + +'re'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232 + +#217#240#0#0#0'*tEXtSignature'#0'e08a7db2d3f9a95c1e16ba30033e3b7cS'#218'@' + +#148#0#0#0#0'IEND'#174'B`'#130 ]); LazarusResources.Add('tag_h3','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164 @@ -253,13 +253,13 @@ LazarusResources.Add('submit','PNG',[ ]); LazarusResources.Add('tag_image','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0 - +#0#0#4'gAMA'#0#0#177#143#11#252'a'#5#0#0#0#6'bKGD'#0#0#0#0#0#0#249'C'#187#127 + +#0#0#4'gAMA'#0#0#177#143#11#252'a'#5#0#0#0#6'bKGD'#0#0#0#0#0#0#249'C'#187'' +#0#0#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 + +#14#31'+T5'#217#246#0#0#3#10'IDATx'#156#237#147'MLcU'#20#199''#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 + +#172'a'#164#140#201'DW'#254'77'#185#231#158#223'9'#247#222#255#129'I'#226 +#225#141'h4*'#31#23#26#139#197#132'zR`tt'#244'q'#217#242'D0'#192#185#203#175 +#161#232'^PT'#144'5<'#154#137#240'x'#142#157#9#249#13'4'#213#131'['#173'q' +#224#148#1#216#254#226'Cb'#177#24#13#193#138'7'#136#209#252#4#170'7xb'#188 @@ -267,28 +267,28 @@ LazarusResources.Add('tag_image','PNG',[ +'n`'#4#155'1'#130'-G'#133'^'#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 + +#28#153#189'"~'#175'Q'#207#247#0''#186#224#152#27't'#195'D'#21#30#14''#207 + +#147'x'#239#10#7#191#237#146#221'+P'#173#9#220'CA'#201#149#228#237#10'+'#219 + +'{'#228#237#10'%Wr(='#199#192#226#1'TH)'#235#240#144#223'$'#160#195#141#143 + +'^%'#30#143#147#252#236'M'#156#204'&'#251#251#247'H'#255#188'A&'#239#176'y' + +#219'f'#245'V'#129#205#219'6'#187#7'e'#238#149'j'#199#192'G'#237'J)'#133#16 + +'u_'#235#154'J|'#236'u'#134#135#135'I'#165'RLLL'#240#237'L'#20'Q'#185#203#141 + +#143#223#224#251#228'2'#235#233#2'k'#191#216#252#248'k'#145'[{'#21'tM{'#244 + +#27''#245#233'['#244#246#246#210#209#209#193#242#242'2'#138#162#208#215#215 + +#199'O'#27#27#188#195':K'#159'|'#192#208#251#159'Si}'#134'`(L'#192#208'9p' + +#253#216#182'}:'#24#160#191#191#159#249#249'y'#138#197'"'#154#166#145'H$'#24 + +#26#26'"'#18#137'022'#194#221't'#154'/WVx'#247#218#10'c3'#23#145'R'#146#201 + +'|w:'#184#187#187#155#165#165'%'#226#241'8'#0#3#3#3'X'#150'E8'#28'f||'#156 + +#197#197'E'#186#186#186'p]'#151#177#153#139#180#189#164#227#218#146'D"q:'#184 + +#242#242'6k'#206#22'===T'#171'U'#132#16'8'#142'C2'#153'dkk'#11#215'u'#201#158 + +'[''t'#201#228#210#253'W'#224#250'Q'#222#213'kW'#177','#171'1'#248#169#224#5 + +#204'N'#133#221#243'?p?W#5'#151#162'\.'#19#186'\'#229#204#21#147#231#194'>' + +#244#128#138'vV'#194'u'#152#157#157#5' '#18#137#144#205'f'#27#131'[|'#237#236 + +#6'V'#241#7#20#140'6'#193#153#183#21#192'G'#197#174#162#7'T'#164#233#162#249 + +'$'#229#253#191',6=='#205#194#194#2'sss'#2#30#26#144'h4*'#255#137#138#197#162 + +#220#217#217#145'SSS'#18#144#147#147#147#210#178#172#250#28#168'<'#24#12'!D}' + +#5'd,'#22'kt'#153#191'ipp'#144'\.W'#239#244''#253'7'#250#3#239#217']'#255 + +#128#210#173#232#0#0#0#0'IEND'#174'B`'#130 ]); LazarusResources.Add('tag_br','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0 @@ -318,46 +318,46 @@ LazarusResources.Add('tag_hr','PNG',[ +#18#1#210#221'~'#252#0#0#0#7'tIME'#7#212#4#2#18#6#31#222#2'G'#191#0#0#0'3IDA' +'Tx'#156#237#204'1'#10#0' '#16#3#193#203#207#247#231#177#19#175#16#139#171 +#132'L'#23#8'['#21#17'W:'#7#224'I'#12#216#189#22#182'='#10'K'#210#251#21#17 - +#31'Z'#1#21#8#3#127'G;'#233#0#0#0#0'IEND'#174'B`'#130 + +#31'Z'#1#21#8#3'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' + +#0#0#0#6'bKGD'#0#0#0#0#0#0#249'C'#187''#0#0#0#9'pHYs'#0#0#0'H'#0#0#0'H'#0'F' + +#201'k>'#0#0#0#9'vpAg'#0#0#0#16#0#0#0#16#0'\'#198#173#195#0#0#2#236'IDAT8' + +#203#149#211'Kh\U'#28#6#240#239''#206#185's'#231#149'I2y'#204'4'#163#181'i' +''''#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 + +#215#249#223#192#234#23'S'#24''#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 + +#168'~'#234#186#233#179'w'#140#233'G'#196#141'88}'#20#245#27#215#143'%)'#255 + +'L]'#203#251#18'F'#184#151')'#228't'#130'N'#172#209'si'#12#142#222#5#155'-' + +#176#218#230#8#219#238'W'#230#134'D'#240'y'#137#253#249'nm'#225#252'Y'#186 + +#246#217#201#217#193#129#129'OQr'#230#253#198'*'#214#227'.N'#20#198#240'^y' + +#10#194#26#128#8#188'8'#139#237'd'#28#31#206'k'#212'Z%'#236#203#239#224#205 + +#195#23'6K'#162'qJ'#16#247'N+'#139#153'{'#12'pJ'#20'p'#211#164'0'#195#7#224 + +#226#24#134'sP'#238'n'#240#252'ad'#214#207#225'D'#169#141'i'#155'F*'#237'#' + +#135#160'd'#29#189'.dO>'#202#161'1'#148'Qx~"'#15#217#31#134#182#12'Z'#27#200 + +'H'#194#31#158'Fw'#253'2'#182#214'~'#235#186'0^>6'#153#173'f'#253#212#24'1B' + +#216'3'#135'D7'#8'u'#185'(1'#146'YC'#18#181#145'$'#135#16#245'+'#128'Shl'#180 + +#17#215'?'#198'h'#145'@'#192#10#172#251'@)'#247#154#226#230#169'81'#246#143 + +'fxI4'#183#195#249#130#208'G['#134's'#235#198'!'#157#7#205'"'#192#1#153'4G' + +#222#147'.'#138#236#205'`7i'#129#232#197#173#142#244'Tb.'#182#2#185#240'{' + +#253#246''''#226#202#175#245#143#172'*'#205#149#139#149'g8#0N'#176'J'#3#4#164 + +'|'#15'J'#153#248#175#205#240#237'7'#206',u`'#12'<'#235#131'w"'#232'F'#27'1' + +#0#199'_x'#178#28','#174#182'~'#20#156#246#165'}Q'#133's'#194#26#11'g'#29#148 + +#178#0' '#10'9{'#238#200#200#249#167#31#154'H'#206#206'7'#147'PB'#255#251#27 + +#23#175#182'0{'#208'o]'#189#177's'#193#1#203'J;'#225#192'2J'#195'sDL'#25'GAO' + +#233'['#205#224#203'v '#229#15'K'#157';&N'#255#13'/'#31#207#226'r-'#206#204 + +'V'#7''''#199#134'sU?'#197#203#206'Z'#10'v'#229#226#149#197#173#159'F'#134'|' + +'{i)'#190#3#248#27'&'#134'm'#14#136#170#224#188#0#0#0'%tEXtdate:create'#0'20' + +'10-07-22T23:00:03+02:00'#164#158#27'U'#0#0#0'%tEXtdate:modify'#0'2010-07-22' + +'T23:00:03+02:00'#213#195#163#233#0#0#0#0'IEND'#174'B`'#130 ]); LazarusResources.Add('div_center','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164 @@ -380,9 +380,9 @@ LazarusResources.Add('div_left','PNG',[ #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164 +#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'''IDATx'#218'c`'#24'z'#128#17#206 +#250'O'#148'*j'#154'L'#142#169#132'M&'#215#212#225#25#26#180'p3%!'#136#7'p'#228#202 + +'[k'#246#129'p'#208'd^7'#249#242'o'#243#3#216#1#220'dt.(]Dm'#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'db5a479b1eac972c8efade198c996e80E'#2#230#174 + +#0#0#0#0'IEND'#174'B`'#130 +]); +LazarusResources.Add('tag_attribute','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'CIDATx'#156'c|'#247#238#25#3'-'#0#19'ML'#29#20#6#11']'#146#250#143'L'#19 + +'R3'#240'.'#30#254#6'3'#142#166'c'#154#27#204#130#204#17#18#194#158#248#223 + +#189'{'#198'H'#170#193'C/'#242'F'#131'b'#212'`:'#26#12#0#183#167#27')'#154'S' + +#208'~'#0#0#0#0'IEND'#174'B`'#130 +]); +LazarusResources.Add('tag_element','PNG',[ + #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0 + +#0#0'IDATx'#156#237#212#177#13#0'!'#8#5'P'#184#13#180't'#8#247#159#195'!(q' + +#4#175'V'#17#176'0'#185'K'#252#229'/^'#8'! 3'#193#137''#193'^'#212#194';x'#23#213#240#14#174'L(]'#129#149#18'S'#203#195'@'#211'*' + +'vq'#9#21#225#29'|'#133'.a'#15#174#161'*'#172#225#22#10#0#128#247#209#255#23 + +'~'#1#13#134'X'#232#178#205#252'a'#0#0#0#0'IEND'#174'B`'#130 +]); diff --git a/components/fpweb/fpwebfieldsettagunit.lfm b/components/fpweb/fpwebfieldsettagunit.lfm new file mode 100644 index 0000000000..e5b4e5dd73 --- /dev/null +++ b/components/fpweb/fpwebfieldsettagunit.lfm @@ -0,0 +1,85 @@ +object fpWebFieldSetTagForm: TfpWebFieldSetTagForm + Left = 657 + Height = 342 + Top = 269 + Width = 416 + ActiveControl = PageControl1 + Caption = 'Tag property: FieldSet' + ClientHeight = 342 + ClientWidth = 416 + LCLVersion = '0.9.29' + object PageControl1: TPageControl + Left = 0 + Height = 296 + Top = 0 + Width = 416 + ActivePage = TabSheet1 + Align = alClient + TabIndex = 0 + TabOrder = 0 + object TabSheet1: TTabSheet + Caption = 'Main' + ClientHeight = 268 + ClientWidth = 412 + object Label1: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = TabSheet1 + Left = 6 + Height = 15 + Top = 6 + Width = 42 + BorderSpacing.Around = 6 + Caption = '&Legend' + FocusControl = EdtLegend + ParentColor = False + end + object EdtLegend: TEdit + AnchorSideLeft.Control = Label1 + AnchorSideTop.Control = Label1 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 27 + Width = 394 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 0 + end + end + object TabSheet3: TTabSheet + Caption = 'Core' + ClientHeight = 268 + ClientWidth = 412 + object Label2: TLabel + Left = 12 + Height = 15 + Top = 15 + Width = 12 + Caption = 'ID' + ParentColor = False + end + end + object TabSheet2: TTabSheet + Caption = 'Events' + end + end + object ButtonPanel1: TButtonPanel + Left = 6 + Height = 34 + Top = 302 + Width = 404 + 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 = 1 + ShowButtons = [pbOK, pbCancel, pbHelp] + end +end diff --git a/components/fpweb/fpwebfieldsettagunit.pas b/components/fpweb/fpwebfieldsettagunit.pas new file mode 100644 index 0000000000..fcdf66f467 --- /dev/null +++ b/components/fpweb/fpwebfieldsettagunit.pas @@ -0,0 +1,78 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} + +unit fpWebFieldSetTagUnit; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, + ButtonPanel, StdCtrls; + +type + + { TfpWebFieldSetTagForm } + + TfpWebFieldSetTagForm = class(TForm) + ButtonPanel1: TButtonPanel; + EdtLegend: TEdit; + Label1: TLabel; + Label2: TLabel; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + TabSheet3: TTabSheet; + private + { private declarations } + public + function HtmlText(const S:string):string; + end; + +var + fpWebFieldSetTagForm: TfpWebFieldSetTagForm; + +implementation + +{$R *.lfm} + +{ TfpWebFieldSetTagForm } + +function TfpWebFieldSetTagForm.HtmlText(const S: string): string; +begin + Result:='
'+LineEnding; + if EdtLegend.Text<>'' then + Result:=Result + ' '+EdtLegend.Text+''+LineEnding; + Result:=Result + S+LineEnding + '
'; +end; + +end. + diff --git a/components/fpweb/fpwebhrefeditunit.lfm b/components/fpweb/fpwebhrefeditunit.lfm new file mode 100644 index 0000000000..a98123dd1d --- /dev/null +++ b/components/fpweb/fpwebhrefeditunit.lfm @@ -0,0 +1,753 @@ +object fpWebHREFEditForm: TfpWebHREFEditForm + Left = 516 + Height = 535 + Top = 121 + Width = 537 + ActiveControl = PageControl1 + Caption = 'Tag property: A' + ClientHeight = 535 + ClientWidth = 537 + OnCreate = FormCreate + Position = poScreenCenter + LCLVersion = '0.9.29' + object PageControl1: TPageControl + Left = 0 + Height = 489 + Top = 0 + Width = 537 + ActivePage = TabSheet1 + Align = alClient + TabIndex = 0 + TabOrder = 0 + object TabSheet1: TTabSheet + Caption = 'Main' + ClientHeight = 461 + ClientWidth = 533 + object Label1: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = TabSheet1 + Left = 6 + Height = 15 + Top = 6 + Width = 29 + BorderSpacing.Around = 6 + Caption = 'H&REF' + FocusControl = cbHREF + ParentColor = False + end + object cbHREF: TComboBox + AnchorSideLeft.Control = Label1 + AnchorSideTop.Control = Label1 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = SpeedButton1 + Left = 12 + Height = 23 + Top = 27 + Width = 492 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 6 + BorderSpacing.Top = 6 + ItemHeight = 0 + TabOrder = 0 + end + object SpeedButton1: TSpeedButton + AnchorSideTop.Control = cbHREF + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = cbHREF + AnchorSideBottom.Side = asrBottom + Left = 504 + Height = 23 + Top = 27 + Width = 23 + Anchors = [akTop, akRight, akBottom] + BorderSpacing.Right = 6 + Color = clBtnFace + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000000000060000 + 0013000000160000001600000016000000160000001600000016000000160000 + 0016000000160000001600000016000000160000001300000006BCA48D64B098 + 81B4AD957DB6AD957DB6AD957DB6AD957DB6AD957DB6AD957DB6AD957DB6AD95 + 7DB6AD957DB6AD957DB6AD957DB6AD957DB6B09880B4BCA48D65F8C194AAF9CD + A3FEF8CDA3FFF7CCA3FFF7CCA3FFF7CCA3FFF7CCA3FFF7CCA3FFF7CCA3FFF7CD + A3FFF8CDA3FFF9CDA3FFF9CDA3FFF9CDA3FFF9CCA2FFF7BF92ADF3B280B9FACE + A5FBF8CFA7FFF8D3AEFFF9D4AFFFF9D4AFFFF9D4AFFFF9D4AFFFF8D3AFFFF7D1 + ADFFF7CEA7FFFACFA6FFFACFA7FFFACFA7FFF9CDA3FFF3B27EBDEEAB77C7F8C6 + 9AF9F6C69CFFFBD0AAFFFDD3ADFFFCD3ADFFFDD3ADFFFCD2ACFFFBD1ABFFF9CF + A9FFF5CAA3FFF4C59BFFF7C69AFFF8C69AFFF8C599FEEEAB76CAE9A168D6F6B7 + 85F8F3B686FFF7BF93FFF9C196FFF9C196FFF9C196FFF8C195FFF8C094FFF6BE + 93FFF5BE92FFF3BA8DFFF1B484FFF5B684FFF5B684FCE9A168D8E4955AE1F1A7 + 70F6EFA671FFF3AF7EFFF4B180FFF4B180FFF4B281FFF4B180FFF3B07FFFF2AF + 7EFFF1AE7DFFF1AE7DFFEEA977FFEEA670FFF1A770FBE49559E3DD9860F3EAAF + 81F9E8AE81FFEAB287FFEBB388FFEBB388FFEBB388FFEBB388FFEBB388FFEAB2 + 87FFEAB287FFEAB287FFE9B186FFE8AE80FFEAAF81FCE09F6CF4D286498ED892 + 59EFCD905EFFE0BA9CFFE8C5A9FFE8C5A9FFE8C5A9FFE8C6AAFFE9C6AAFFE8C5 + A9FFE6C4A8FFE6C4A7FFDFB99BFFCD905EFFD89259EFD48A508EE3925A23E29F + 6CDFCCA07BFFECE8E5FFFCFDFDFFFCFCFDFFFDFDFEFFFDFEFFFFFEFFFFFFFEFF + FFFFFDFEFFFFFDFEFFFFEEEAE7FFCCA07BFFE29F6CDFE3925A23E3925923E4A6 + 76DFCFA888FFEBE7E4FFFAFBFBFFFBFBFBFFFBFBFBFFFCFCFCFFFDFDFDFFFDFD + FDFFFEFEFEFFFFFFFFFFF0ECE8FFD0A988FFE4A676DFE3915923E2905723E6AB + 7EDFD2B093FFEAE7E4FFF9F9F9FFFAFAFAFFFAFAFAFFFBFBFBFFFCFCFCFFFCFC + FCFFFCFCFCFFFDFEFEFFEFEBE8FFD2AB8CFFE6A879DEE3915822E2905722E8AC + 80DED3B195FFE9E6E3FFF7F7F7FFF8F8F8FFF9F9F9FFFAFAFAFFFBFBFBFFFBFB + FBFFFBFBFBFFFCFCFCFFEEEBE9F5C295759DE59A6569E3945C0DE3935B0CE59C + 6766C195769DE8E5E2F5F6F6F6FFF6F6F6FFF8F8F8FFF9F9F9FFFAFAFAFFFAFA + FAFFFAFAFAFFFBFBFBFFEEEEEEEA87878736BBBBBB000000000000000000B1B1 + B10080808031E0E0E0D6EDEDEDEAEEEEEDE9EFEFEEE9F0F0EFE9F0F0F0E9F1F1 + F1E9F1F1F1E9F2F2F2EAE6E6E6D67E7E7E33C0C0C00000000000000000008181 + 81005050500E9F9F9F36AAAAA93AAAAAAA3AAAAAAA3AABABAB3AABABAB3AABAB + AB3AACACAB3AACACAC3AA1A1A1365151510E8282820000000000 + } + NumGlyphs = 0 + OnClick = SpeedButton1Click + end + object Label2: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = edtLinkText + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 105 + Width = 34 + BorderSpacing.Around = 6 + Caption = '&Name' + FocusControl = edtLinkName + ParentColor = False + end + object Label3: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = edtLinkName + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 154 + Width = 18 + BorderSpacing.Around = 6 + Caption = 'R&el' + FocusControl = EdtRel + ParentColor = False + end + object Label4: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideLeft.Side = asrCenter + AnchorSideTop.Control = edtLinkName + AnchorSideTop.Side = asrBottom + Left = 256 + Height = 15 + Top = 154 + Width = 21 + BorderSpacing.Around = 6 + Caption = 'Rev' + FocusControl = EdtRev + ParentColor = False + end + object Label5: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = EdtRel + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 204 + Width = 26 + BorderSpacing.Around = 6 + Caption = 'T&ype' + FocusControl = cbType + ParentColor = False + end + object edtLinkName: TEdit + AnchorSideLeft.Control = Label2 + AnchorSideTop.Control = Label2 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 126 + Width = 515 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 1 + end + object Label6: TLabel + AnchorSideLeft.Control = Label4 + AnchorSideTop.Control = EdtRev + AnchorSideTop.Side = asrBottom + Left = 256 + Height = 15 + Top = 204 + Width = 36 + BorderSpacing.Top = 6 + Caption = 'T&arget' + FocusControl = cbTarg + ParentColor = False + end + object cbType: TComboBox + AnchorSideLeft.Control = Label5 + AnchorSideTop.Control = Label5 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label4 + Left = 12 + Height = 23 + Top = 225 + Width = 238 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + ItemIndex = 0 + Items.Strings = ( + '' + 'text/html' + 'image/jpeg' + 'image/gif' + 'image/png' + 'model/vrml' + 'video/quicktime' + 'application/java' + 'text/css' + 'text/javascript' + ) + TabOrder = 2 + end + object cbTarg: TComboBox + AnchorSideLeft.Control = Label6 + AnchorSideTop.Control = Label6 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 262 + Height = 23 + Top = 225 + Width = 265 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + Items.Strings = ( + '' + '_blank' + '_self' + '_parent' + '_top' + ) + TabOrder = 3 + end + object Label10: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = cbType + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 254 + Width = 50 + BorderSpacing.Around = 6 + Caption = 'OnFocus' + FocusControl = CBOnFocus + ParentColor = False + end + object Label11: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = CBOnFocus + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 304 + Width = 40 + BorderSpacing.Around = 6 + Caption = 'OnBlur' + FocusControl = CBOnBlur + ParentColor = False + end + object CBOnFocus: TComboBox + AnchorSideLeft.Control = Label10 + AnchorSideTop.Control = Label10 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 275 + Width = 515 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 4 + end + object CBOnBlur: TComboBox + AnchorSideLeft.Control = Label11 + AnchorSideTop.Control = Label11 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 325 + Width = 515 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 5 + end + object Label22: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = cbHREF + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 56 + Width = 48 + BorderSpacing.Around = 6 + Caption = '&Link text' + FocusControl = edtLinkText + ParentColor = False + end + object edtLinkText: TEdit + AnchorSideLeft.Control = Label22 + AnchorSideTop.Control = Label22 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 77 + Width = 515 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 6 + end + object EdtRel: TComboBox + AnchorSideLeft.Control = Label3 + AnchorSideTop.Control = Label3 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label4 + Left = 12 + Height = 23 + Top = 175 + Width = 238 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 7 + Text = 'EdtRel' + end + object EdtRev: TComboBox + AnchorSideLeft.Control = Label4 + AnchorSideTop.Control = Label4 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 262 + Height = 23 + Top = 175 + Width = 265 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 8 + end + end + object TabSheet2: TTabSheet + Caption = 'Core' + ClientHeight = 461 + ClientWidth = 533 + object Label7: 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 CBID: TComboBox + AnchorSideLeft.Control = Label7 + AnchorSideTop.Control = Label7 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet2 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 27 + Width = 515 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 0 + Text = 'CBID' + end + object Label8: 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 CBClass: TComboBox + AnchorSideLeft.Control = Label8 + AnchorSideTop.Control = Label8 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet2 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 77 + Width = 515 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 1 + Text = 'CBClass' + end + end + object TabSheet3: TTabSheet + Caption = 'Events' + ClientHeight = 461 + ClientWidth = 533 + object Label12: TLabel + AnchorSideRight.Side = asrCenter + AnchorSideBottom.Control = CBOnClick + AnchorSideBottom.Side = asrBottom + Left = 144 + Height = 15 + Top = 14 + Width = 43 + Anchors = [akRight, akBottom] + BorderSpacing.Right = 6 + Caption = 'OnClick' + ParentColor = False + end + object Label13: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CBOnDblClick + AnchorSideBottom.Side = asrBottom + Left = 126 + Height = 15 + Top = 43 + Width = 61 + Anchors = [akRight, akBottom] + Caption = 'OnDblClick' + ParentColor = False + end + object Label14: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = ComboBox10 + AnchorSideBottom.Side = asrBottom + Left = 102 + Height = 15 + Top = 72 + Width = 85 + Anchors = [akRight, akBottom] + Caption = 'OnMouseDown' + ParentColor = False + end + object Label15: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CBOnMouseUp + AnchorSideBottom.Side = asrBottom + Left = 118 + Height = 15 + Top = 101 + Width = 69 + Anchors = [akRight, akBottom] + Caption = 'OnMouseUp' + ParentColor = False + end + object Label16: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = ComboBox12 + AnchorSideBottom.Side = asrBottom + Left = 106 + Height = 15 + Top = 130 + Width = 81 + Anchors = [akRight, akBottom] + Caption = 'OnMouseOver' + ParentColor = False + end + object Label17: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CBOnMouseMove + AnchorSideBottom.Side = asrBottom + Left = 104 + Height = 15 + Top = 159 + Width = 83 + Anchors = [akRight, akBottom] + Caption = 'OnMouseMove' + ParentColor = False + end + object Label18: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CBOnMouseOut + AnchorSideBottom.Side = asrBottom + Left = 113 + Height = 15 + Top = 188 + Width = 74 + Anchors = [akRight, akBottom] + Caption = 'OnMouseOut' + ParentColor = False + end + object Label19: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CBOnKeyPress + AnchorSideBottom.Side = asrBottom + Left = 118 + Height = 15 + Top = 217 + Width = 69 + Anchors = [akRight, akBottom] + Caption = 'OnKeyPress' + ParentColor = False + end + object Label20: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CBOnKeyDown + AnchorSideBottom.Side = asrBottom + Left = 120 + Height = 15 + Top = 246 + Width = 67 + Anchors = [akRight, akBottom] + Caption = 'OnKeyDown' + ParentColor = False + end + object Label21: TLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Label12 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CBonKeyUp + AnchorSideBottom.Side = asrBottom + Left = 136 + Height = 15 + Top = 275 + Width = 51 + Anchors = [akRight, akBottom] + Caption = 'OnKeyUp' + ParentColor = False + end + object CBOnClick: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = TabSheet3 + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 6 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 0 + Text = 'CBOnClick' + end + object CBOnDblClick: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBOnClick + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 35 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 1 + Text = 'CBOnDblClick' + end + object ComboBox10: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBOnDblClick + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 64 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 2 + Text = 'CBOnMouseDown' + end + object CBOnMouseUp: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = ComboBox10 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 93 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 3 + Text = 'CBOnMouseUp' + end + object ComboBox12: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBOnMouseUp + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 122 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 4 + Text = 'CBOnMouseOver' + end + object CBOnMouseMove: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = ComboBox12 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 151 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 5 + Text = 'CBOnMouseMove' + end + object CBOnMouseOut: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBOnMouseMove + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 180 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 6 + Text = 'CBOnMouseOut' + end + object CBOnKeyPress: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBOnMouseOut + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 209 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 7 + Text = 'CBOnKeyPress' + end + object CBOnKeyDown: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBOnKeyPress + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 238 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 8 + Text = 'CBOnKeyDown' + end + object CBonKeyUp: TComboBox + AnchorSideLeft.Control = Label12 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBOnKeyDown + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + Left = 193 + Height = 23 + Top = 267 + Width = 334 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 9 + Text = 'CBonKeyUp' + end + end + end + object ButtonPanel1: TButtonPanel + Left = 6 + Height = 34 + Top = 495 + Width = 525 + 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 = 1 + ShowButtons = [pbOK, pbCancel, pbHelp] + end + object Label9: TLabel + Left = 22 + Height = 15 + Top = 12 + Width = 38 + Caption = 'Label9' + ParentColor = False + end + object OpenDialog1: TOpenDialog + left = 341 + top = 42 + end +end diff --git a/components/fpweb/fpwebhrefeditunit.pas b/components/fpweb/fpwebhrefeditunit.pas new file mode 100644 index 0000000000..1c484e5003 --- /dev/null +++ b/components/fpweb/fpwebhrefeditunit.pas @@ -0,0 +1,184 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} + +unit fpWebHREFEditUnit; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, + ButtonPanel, StdCtrls, Buttons; + +type + + { TfpWebHREFEditForm } + + TfpWebHREFEditForm = class(TForm) + ButtonPanel1: TButtonPanel; + cbHREF: TComboBox; + ComboBox10: TComboBox; + CBOnMouseUp: TComboBox; + ComboBox12: TComboBox; + CBOnMouseMove: TComboBox; + CBOnMouseOut: TComboBox; + CBOnKeyPress: TComboBox; + CBOnKeyDown: TComboBox; + CBonKeyUp: TComboBox; + cbType: TComboBox; + cbTarg: TComboBox; + CBID: TComboBox; + CBClass: TComboBox; + CBOnFocus: TComboBox; + CBOnBlur: TComboBox; + CBOnClick: TComboBox; + CBOnDblClick: TComboBox; + EdtRel: TComboBox; + EdtRev: TComboBox; + edtLinkName: TEdit; + edtLinkText: TEdit; + Label1: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label2: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + OpenDialog1: TOpenDialog; + PageControl1: TPageControl; + SpeedButton1: TSpeedButton; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + TabSheet3: TTabSheet; + procedure FormCreate(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + private + procedure FillRefList; + public + function HtmlText:string; + end; + +var + fpWebHREFEditForm: TfpWebHREFEditForm; + +implementation +uses fpWebStrConsts, SrcEditorIntf, ProjectIntf, LazIDEIntf, fpWeb; + +{$R *.lfm} + +{ TfpWebHREFEditForm } + +procedure TfpWebHREFEditForm.SpeedButton1Click(Sender: TObject); +begin + if OpenDialog1.Execute then + cbHREF.Text:=OpenDialog1.FileName; +end; + +procedure TfpWebHREFEditForm.FormCreate(Sender: TObject); +begin + FillRefList; +end; + +procedure TfpWebHREFEditForm.FillRefList; + +procedure DoFillProjectFiles; +var + i: integer; + S: string; +begin + if Assigned(LazarusIDE) and Assigned(LazarusIDE.ActiveProject) then + begin + for i:=0 to LazarusIDE.ActiveProject.FileCount - 1 do + begin + if LazarusIDE.ActiveProject.Files[i].IsPartOfProject then + begin + S:=LazarusIDE.ActiveProject.Files[i].Filename; + if Copy(UpperCase(ExtractFileExt(S)), 1, 4) = '.HTM' then + cbHREF.Items.Add(S); + end; + end; + end; +end; + +procedure DoFillProjectActions; +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 + cbHREF.Items.Add('?'+WD.ActionVar +'='+ WD.Actions[j].Name); + end; + end; +end; + +begin + cbHREF.Items.Clear; + //Fill files + DoFillProjectActions; + DoFillProjectFiles; +end; + +function TfpWebHREFEditForm.HtmlText: string; +begin + // + + Result:=' '' then + Result:=Result + ' type="'+cbType.Text+'"'; + if cbTarg.Text <> '' then + Result:=Result + ' target="'+cbTarg.Text+'"'; + Result:=Result + '">'+edtLinkText.Text+''; +end; + +end. + diff --git a/components/fpweb/fpwebhtmltaglegendunit.lfm b/components/fpweb/fpwebhtmltaglegendunit.lfm new file mode 100644 index 0000000000..7240ac0ca5 --- /dev/null +++ b/components/fpweb/fpwebhtmltaglegendunit.lfm @@ -0,0 +1,138 @@ +object fpWebHtmlTagLegendForm: TfpWebHtmlTagLegendForm + Left = 480 + Height = 342 + Top = 250 + Width = 446 + ActiveControl = PageControl1 + Caption = 'Tag property : Legend' + ClientHeight = 342 + ClientWidth = 446 + Position = poScreenCenter + LCLVersion = '0.9.29' + object PageControl1: TPageControl + Left = 0 + Height = 296 + Top = 0 + Width = 446 + ActivePage = TabSheet1 + Align = alClient + TabIndex = 0 + TabOrder = 0 + object TabSheet1: TTabSheet + Caption = 'Main' + ClientHeight = 268 + ClientWidth = 442 + object Label1: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = TabSheet1 + Left = 6 + Height = 15 + Top = 6 + Width = 44 + BorderSpacing.Around = 6 + Caption = '&Caption' + FocusControl = edtCaption + ParentColor = False + end + object Label2: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = edtCaption + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 55 + Width = 58 + BorderSpacing.Around = 6 + Caption = 'A&cess key' + FocusControl = EAccess + ParentColor = False + end + object Label3: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = EAccess + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 104 + Width = 28 + BorderSpacing.Around = 6 + Caption = 'A&lign' + FocusControl = edtAlign + ParentColor = False + end + object edtCaption: TEdit + AnchorSideLeft.Control = Label1 + AnchorSideTop.Control = Label1 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 27 + Width = 424 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 0 + end + object EAccess: TEdit + AnchorSideLeft.Control = Label2 + AnchorSideTop.Control = Label2 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 76 + Width = 424 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 1 + end + object edtAlign: TComboBox + AnchorSideLeft.Control = Label3 + AnchorSideTop.Control = Label3 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 125 + Width = 424 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + Items.Strings = ( + '' + 'left' + 'right' + 'top' + 'bottom' + ) + TabOrder = 2 + end + end + object TabSheet3: TTabSheet + Caption = 'Core' + end + object TabSheet2: TTabSheet + Caption = 'Events' + end + end + object ButtonPanel1: TButtonPanel + Left = 6 + Height = 34 + Top = 302 + Width = 434 + 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 = 1 + ShowButtons = [pbOK, pbCancel, pbHelp] + end +end diff --git a/components/fpweb/fpwebhtmltaglegendunit.pas b/components/fpweb/fpwebhtmltaglegendunit.pas new file mode 100644 index 0000000000..630570100d --- /dev/null +++ b/components/fpweb/fpwebhtmltaglegendunit.pas @@ -0,0 +1,83 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} + +unit fpWebHtmlTagLegendUnit; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, + ButtonPanel, StdCtrls; + +type + + { TfpWebHtmlTagLegendForm } + + TfpWebHtmlTagLegendForm = class(TForm) + ButtonPanel1: TButtonPanel; + edtAlign: TComboBox; + edtCaption: TEdit; + EAccess: TEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + TabSheet3: TTabSheet; + private + { private declarations } + public + function HtmlText:string; + end; + +var + fpWebHtmlTagLegendForm: TfpWebHtmlTagLegendForm; + +implementation + +{$R *.lfm} + +{ TfpWebHtmlTagLegendForm } + +function TfpWebHtmlTagLegendForm.HtmlText: string; +begin + Result:=''' then + Result := Result + ' accesskey="'+EAccess.Text+'"'; + if edtAlign.Text<>'' then + Result := Result + ' align="'+edtAlign.Text+'"'; + Result := Result + '>'+edtCaption.Text + ''; +end; + +end. + diff --git a/components/fpweb/fpwebnewhtmlfileunit.pas b/components/fpweb/fpwebnewhtmlfileunit.pas index 359f7afec6..06bd7e9d22 100644 --- a/components/fpweb/fpwebnewhtmlfileunit.pas +++ b/components/fpweb/fpwebnewhtmlfileunit.pas @@ -1,3 +1,32 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} unit fpWebNewHTMLFileUnit; {$mode objfpc}{$H+} diff --git a/components/fpweb/fpwebnewhtmlformunit.pas b/components/fpweb/fpwebnewhtmlformunit.pas index 8658ce6814..aa541d514f 100644 --- a/components/fpweb/fpwebnewhtmlformunit.pas +++ b/components/fpweb/fpwebnewhtmlformunit.pas @@ -1,3 +1,33 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} + unit fpwebNewHTMLFormUnit; {$mode objfpc}{$H+} diff --git a/components/fpweb/fpwebnewhtmlimgunit.pas b/components/fpweb/fpwebnewhtmlimgunit.pas index 6f240c63db..ea539316c9 100644 --- a/components/fpweb/fpwebnewhtmlimgunit.pas +++ b/components/fpweb/fpwebnewhtmlimgunit.pas @@ -1,3 +1,32 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} unit fpwebNewHTMLImgUnit; {$mode objfpc}{$H+} diff --git a/components/fpweb/fpwebnewhtmlinputunit.lfm b/components/fpweb/fpwebnewhtmlinputunit.lfm index f5056a8d7e..4217bbe79c 100644 --- a/components/fpweb/fpwebnewhtmlinputunit.lfm +++ b/components/fpweb/fpwebnewhtmlinputunit.lfm @@ -7,6 +7,7 @@ object fpwebNewHTMLInputForm: TfpwebNewHTMLInputForm Caption = 'Tag property: INPUT' ClientHeight = 476 ClientWidth = 628 + OnCreate = FormCreate Position = poScreenCenter LCLVersion = '0.9.29' object ButtonPanel1: TButtonPanel diff --git a/components/fpweb/fpwebnewhtmlinputunit.pas b/components/fpweb/fpwebnewhtmlinputunit.pas index f43fa5a1c1..568be5e1ca 100644 --- a/components/fpweb/fpwebnewhtmlinputunit.pas +++ b/components/fpweb/fpwebnewhtmlinputunit.pas @@ -1,3 +1,32 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} unit fpwebNewHTMLInputUnit; {$mode objfpc}{$H+} @@ -47,6 +76,7 @@ type TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; + procedure FormCreate(Sender: TObject); private { private declarations } public @@ -58,21 +88,38 @@ var implementation + +uses fpwebstrconsts; {$R *.lfm} { TfpwebNewHTMLInputForm } +procedure TfpwebNewHTMLInputForm.FormCreate(Sender: TObject); +begin + Caption:=SHTMLInputFormCaption; + Label1.Caption:=SHTMLInputFormType; + Label2.Caption:=SHTMLInputFormName; + Label3.Caption:=SHTMLInputFormValue; + Label4.Caption:=SHTMLInputFormSize; + Label5.Caption:=SHTMLInputFormMaxLen; + Label6.Caption:=SHTMLInputFormAlt; + Label7.Caption:=SHTMLInputFormImageSrc; + Label8.Caption:=SHTMLInputFormTabIndex; + Label9.Caption:=SHTMLInputFormAlign; + Label10.Caption:=SHTMLInputFormAccessKey; +end; + function TfpwebNewHTMLInputForm.HtmlText: string; begin { TODO : temp code - need rewrite } Result:=' '' then; + if edtValue.Text <> '' then Result:=Result + ' value="'+edtValue.Text+'" '; - if edtSize.Text <> '' then; - Result:=Result + ' size="'+edtSize.Text+'" '; + if (Trim(edtSize.Text) <> '') then + Result:=Result + ' size="'+trim(edtSize.Text)+'" '; if edtMaxLen.Text<>'' then Result:=Result + ' maxlength="'+edtMaxLen.Text+'"'; diff --git a/components/fpweb/fpwebnewhtmllistunit.pas b/components/fpweb/fpwebnewhtmllistunit.pas index c0d9d5cd28..56d7ccf4b3 100644 --- a/components/fpweb/fpwebnewhtmllistunit.pas +++ b/components/fpweb/fpwebnewhtmllistunit.pas @@ -1,3 +1,32 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} unit fpwebNewHTMLListUnit; {$mode objfpc}{$H+} diff --git a/components/fpweb/fpwebnewhtmltableunit.pas b/components/fpweb/fpwebnewhtmltableunit.pas index 5b29d72f2b..054da23342 100644 --- a/components/fpweb/fpwebnewhtmltableunit.pas +++ b/components/fpweb/fpwebnewhtmltableunit.pas @@ -1,3 +1,32 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} unit fpWebNewHtmlTableUnit; {$mode objfpc}{$H+} diff --git a/components/fpweb/fpwebnewhtmltagtrunit.pas b/components/fpweb/fpwebnewhtmltagtrunit.pas index ebdb8c7f30..bd462a1f2c 100644 --- a/components/fpweb/fpwebnewhtmltagtrunit.pas +++ b/components/fpweb/fpwebnewhtmltagtrunit.pas @@ -1,3 +1,32 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} unit fpwebNewHtmlTagTRUnit; {$mode objfpc}{$H+} diff --git a/components/fpweb/fpwebselectoptionsunit.lfm b/components/fpweb/fpwebselectoptionsunit.lfm new file mode 100644 index 0000000000..c3bd61a1f6 --- /dev/null +++ b/components/fpweb/fpwebselectoptionsunit.lfm @@ -0,0 +1,82 @@ +object fpWebSelectOptionsForm: TfpWebSelectOptionsForm + Left = 535 + Height = 240 + Top = 314 + Width = 320 + ActiveControl = edtCaption + Caption = 'Property for ' + ClientHeight = 240 + ClientWidth = 320 + Position = poScreenCenter + LCLVersion = '0.9.29' + object ButtonPanel1: TButtonPanel + Left = 6 + Height = 34 + Top = 200 + 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 + Left = 6 + Height = 15 + Top = 6 + Width = 44 + BorderSpacing.Around = 6 + Caption = '&Caption' + FocusControl = edtCaption + ParentColor = False + end + object Label2: TLabel + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = edtCaption + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 55 + Width = 31 + BorderSpacing.Around = 6 + Caption = '&Value' + FocusControl = edtValue + ParentColor = False + end + object edtCaption: TEdit + AnchorSideLeft.Control = Label1 + AnchorSideTop.Control = Label1 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 27 + Width = 302 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 1 + end + object edtValue: TEdit + AnchorSideLeft.Control = Label2 + AnchorSideTop.Control = Label2 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 76 + Width = 302 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 2 + end +end diff --git a/components/fpweb/fpwebselectoptionsunit.pas b/components/fpweb/fpwebselectoptionsunit.pas new file mode 100644 index 0000000000..8fba5b335c --- /dev/null +++ b/components/fpweb/fpwebselectoptionsunit.pas @@ -0,0 +1,75 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} + +unit fpWebSelectOptionsUnit; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel, + StdCtrls; + +type + + { TfpWebSelectOptionsForm } + + TfpWebSelectOptionsForm = class(TForm) + ButtonPanel1: TButtonPanel; + edtCaption: TEdit; + edtValue: TEdit; + Label1: TLabel; + Label2: TLabel; + private + { private declarations } + public + function HtmlText:string; + end; + +var + fpWebSelectOptionsForm: TfpWebSelectOptionsForm; + +implementation + +{$R *.lfm} + +{ TfpWebSelectOptionsForm } + +function TfpWebSelectOptionsForm.HtmlText: string; +begin + Result:=''; +end; + +end. + diff --git a/components/fpweb/fpwebselecttagunit.lfm b/components/fpweb/fpwebselecttagunit.lfm new file mode 100644 index 0000000000..046b2b3011 --- /dev/null +++ b/components/fpweb/fpwebselecttagunit.lfm @@ -0,0 +1,301 @@ +object fpWebSelectTagForm: TfpWebSelectTagForm + Left = 553 + Height = 455 + Top = 236 + Width = 497 + ActiveControl = PageControl1 + Caption = 'Tag property: SELECT' + ClientHeight = 455 + ClientWidth = 497 + OnCreate = FormCreate + Position = poScreenCenter + LCLVersion = '0.9.29' + object ButtonPanel1: TButtonPanel + Left = 6 + Height = 34 + Top = 415 + Width = 485 + 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 = 409 + Top = 0 + Width = 497 + ActivePage = TabSheet1 + Align = alClient + TabIndex = 0 + TabOrder = 1 + object TabSheet1: TTabSheet + Caption = 'Main' + ClientHeight = 381 + ClientWidth = 493 + object Label1: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = TabSheet1 + Left = 6 + Height = 15 + Top = 6 + Width = 34 + BorderSpacing.Around = 6 + Caption = 'Name' + FocusControl = edtName + ParentColor = False + end + object CBMultiple: TCheckBox + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = edtName + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 21 + Top = 55 + Width = 66 + BorderSpacing.Around = 6 + Caption = 'Multiple' + TabOrder = 0 + end + object edtName: TEdit + AnchorSideLeft.Control = Label1 + AnchorSideTop.Control = Label1 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 27 + Width = 475 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 1 + end + object CBDisabled: TCheckBox + AnchorSideLeft.Control = CBMultiple + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = edtName + AnchorSideTop.Side = asrBottom + Left = 78 + Height = 21 + Top = 55 + Width = 72 + BorderSpacing.Around = 6 + Caption = 'Disabled' + TabOrder = 2 + end + object Label2: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = CBMultiple + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 82 + Width = 54 + BorderSpacing.Around = 6 + Caption = 'Tab index' + FocusControl = EdtTab + ParentColor = False + end + object EdtTab: TEdit + AnchorSideLeft.Control = Label2 + AnchorSideTop.Control = Label2 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 22 + Top = 103 + Width = 184 + BorderSpacing.Around = 6 + TabOrder = 3 + end + object Label3: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = EdtTab + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 131 + Width = 52 + BorderSpacing.Around = 6 + Caption = 'On focus' + ParentColor = False + end + object Label4: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = CBOnFocus + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 181 + Width = 43 + BorderSpacing.Around = 6 + Caption = 'On blur' + ParentColor = False + end + object Label5: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = ComboBox2 + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 15 + Top = 231 + Width = 62 + BorderSpacing.Around = 6 + Caption = 'On change' + ParentColor = False + end + object CBOnFocus: TComboBox + AnchorSideLeft.Control = Label3 + AnchorSideTop.Control = Label3 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 152 + Width = 475 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 4 + Text = 'CBOnFocus' + end + object ComboBox2: TComboBox + AnchorSideLeft.Control = Label4 + AnchorSideTop.Control = Label4 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 202 + Width = 475 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 5 + Text = 'CBOnBlur' + end + object CBOnChange: TComboBox + AnchorSideLeft.Control = Label5 + AnchorSideTop.Control = Label5 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet1 + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 23 + Top = 252 + Width = 475 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + ItemHeight = 0 + TabOrder = 6 + Text = 'CBOnChange' + end + object Label7: TLabel + AnchorSideLeft.Control = EdtTab + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBMultiple + AnchorSideTop.Side = asrBottom + Left = 202 + Height = 15 + Top = 82 + Width = 24 + BorderSpacing.Around = 6 + Caption = 'Size' + FocusControl = edtSize + ParentColor = False + end + object edtSize: TSpinEdit + AnchorSideLeft.Control = Label7 + AnchorSideTop.Control = Label7 + AnchorSideTop.Side = asrBottom + Left = 208 + Height = 22 + Top = 103 + Width = 125 + BorderSpacing.Around = 6 + TabOrder = 7 + Value = 1 + end + end + object TabSheet2: TTabSheet + Caption = 'Items' + ClientHeight = 381 + ClientWidth = 493 + object Label6: TLabel + AnchorSideLeft.Control = TabSheet2 + AnchorSideTop.Control = TabSheet2 + Left = 6 + Height = 15 + Top = 6 + Width = 75 + BorderSpacing.Around = 6 + Caption = '&Count values' + FocusControl = SECount + ParentColor = False + end + object SECount: TSpinEdit + AnchorSideLeft.Control = Label6 + AnchorSideTop.Control = Label6 + AnchorSideTop.Side = asrBottom + Left = 12 + Height = 22 + Top = 27 + Width = 146 + BorderSpacing.Around = 6 + OnChange = SECountChange + TabOrder = 0 + end + object StringGrid1: TStringGrid + AnchorSideLeft.Control = TabSheet2 + AnchorSideTop.Control = SECount + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet2 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = TabSheet2 + AnchorSideBottom.Side = asrBottom + Left = 6 + Height = 320 + Top = 55 + Width = 481 + Anchors = [akTop, akLeft, akRight, akBottom] + AutoFillColumns = True + BorderSpacing.Around = 6 + ColCount = 2 + Columns = < + item + Title.Caption = 'Caption' + Width = 238 + end + item + Title.Caption = 'Value' + Width = 239 + end> + FixedCols = 0 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll] + RowCount = 1 + TabOrder = 1 + ColWidths = ( + 238 + 239 + ) + end + end + object TabSheet3: TTabSheet + Caption = 'Core' + end + object TabSheet4: TTabSheet + Caption = 'Events' + end + end +end diff --git a/components/fpweb/fpwebselecttagunit.pas b/components/fpweb/fpwebselecttagunit.pas new file mode 100644 index 0000000000..65c0b5f89a --- /dev/null +++ b/components/fpweb/fpwebselecttagunit.pas @@ -0,0 +1,120 @@ +{ Lazarus IDE wizard for fpweb package. + + Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +} + +unit fpWebSelectTagUnit; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel, + ComCtrls, StdCtrls, Spin, Grids; + +type + + { TfpWebSelectTagForm } + + TfpWebSelectTagForm = class(TForm) + ButtonPanel1: TButtonPanel; + CBMultiple: TCheckBox; + CBDisabled: TCheckBox; + CBOnFocus: TComboBox; + ComboBox2: TComboBox; + CBOnChange: TComboBox; + edtName: TEdit; + EdtTab: TEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + PageControl1: TPageControl; + edtSize: TSpinEdit; + SECount: TSpinEdit; + StringGrid1: TStringGrid; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + TabSheet3: TTabSheet; + TabSheet4: TTabSheet; + procedure FormCreate(Sender: TObject); + procedure SECountChange(Sender: TObject); + private + { private declarations } + public + function HtmlText:string; + end; + +var + fpWebSelectTagForm: TfpWebSelectTagForm; + +implementation + +{$R *.lfm} + +{ TfpWebSelectTagForm } + +procedure TfpWebSelectTagForm.FormCreate(Sender: TObject); +begin + SECountChange(nil); +end; + +procedure TfpWebSelectTagForm.SECountChange(Sender: TObject); +begin + StringGrid1.RowCount:=SECount.Value + 1; +end; + +function TfpWebSelectTagForm.HtmlText: string; +var + i:integer; +begin + Result:=''; +end; + +end. + diff --git a/components/fpweb/fpwebstrconsts.pas b/components/fpweb/fpwebstrconsts.pas index d139100e5d..e84dac2029 100644 --- a/components/fpweb/fpwebstrconsts.pas +++ b/components/fpweb/fpwebstrconsts.pas @@ -29,6 +29,7 @@ resourcestring SmiHTMLInsertHR = 'Insert horizontal line'; SmiHTMLInsertComment = 'Insert HTML comment'; SmiHTMLInsertIMG = 'Insert image'; + SmiHTMLInsertLink = 'Insert link (HREF)'; SmiHTMLTextAlignLeft = 'Text align left'; SmiHTMLTextAlignRight = 'Text align right'; SmiHTMLTextAlignCenter = 'Text align center'; @@ -57,9 +58,17 @@ resourcestring SmiHTMLInsertForm = 'Insert HTML Form'; + SmiHTMLFormSelect = 'Insert Select control'; + SmiHTMLFormSelectOpt = 'Insert Select options'; + SmiHTMLFormSelectOptWD = 'Insert Select options with dialog'; + SmiHTMLFormCheckBox = 'Insert CheckBox control'; + SmiHTMLFormRadioBtn = 'Insert RadioBtn control'; + SmiHTMLFormButtton = 'Insert Button control'; SmiHTMLInsertInput = 'Insert HTML Input tag'; SmiHTMLInsertInputSubmit = 'Insert "Submit" button '; SmiHTMLInsertInputReset = 'Insert "Reset" button'; + SmiHTMLFormFieldSet = 'Insert FieldSet'; + SmiHTMLFormLegend = 'Insert Legend'; SmiOtherInsertFN = 'Insert file name'; @@ -88,6 +97,18 @@ resourcestring SHTMLTableFormWidth = 'Width'; SHTMLTableFormHeaderBGColor= 'Header bg color'; + SHTMLInputFormCaption = 'Tag property: INPUT'; + SHTMLInputFormType = 'Type'; + SHTMLInputFormName = 'Name'; + SHTMLInputFormValue = 'Value'; + SHTMLInputFormSize = 'Size'; + SHTMLInputFormMaxLen = 'Max length'; + SHTMLInputFormAlt = 'Alt'; + SHTMLInputFormImageSrc = 'Image src'; + SHTMLInputFormTabIndex = 'Tab Index'; + SHTMLInputFormAlign = 'Align'; + SHTMLInputFormAccessKey = 'Access key'; + implementation diff --git a/components/fpweb/fpwebtoolsunit.pas b/components/fpweb/fpwebtoolsunit.pas index 4967c53d8e..4da1fb91ef 100644 --- a/components/fpweb/fpwebtoolsunit.pas +++ b/components/fpweb/fpwebtoolsunit.pas @@ -58,6 +58,7 @@ procedure ProcHTMLHR(Sender: TObject); procedure ProcHTMLBR(Sender: TObject); procedure ProcHTMLNBSP(Sender: TObject); procedure ProcHTMLComment(Sender: TObject); +procedure ProcHTMLLink(Sender: TObject); procedure ProcHTMLImageTag(Sender: TObject); procedure ProcHTMLTextAlignLeft(Sender: TObject); procedure ProcHTMLTextAlignRight(Sender: TObject); @@ -83,9 +84,18 @@ procedure ProcHTMLColor(Sender: TObject); procedure ProcHTMLForm(Sender: TObject); +procedure ProcHTMLSelect(Sender: TObject); +procedure ProcHTMLSelectOptions(Sender: TObject); +procedure ProcHTMLSelectOptionsWD(Sender: TObject); +procedure ProcHTMLCheckButton(Sender: TObject); +procedure ProcHTMLRadioButton(Sender: TObject); +procedure ProcHTMLButton(Sender: TObject); procedure ProcHTMLInputTag(Sender: TObject); procedure ProcHTMLInputSubmitTag(Sender: TObject); procedure ProcHTMLInputResetTag(Sender: TObject); +procedure ProcHTMLFormFieldSet(Sender: TObject); +procedure ProcHTMLFormLegend(Sender: TObject); + procedure ProcOtherInsertFileName(Sender: TObject); @@ -99,7 +109,10 @@ uses LResources, NewItemIntf, Forms, Controls, IDECommands, fpwebNewHTMLListUnit, fpwebNewHtmlTagTRUnit, fpwebNewHTMLFormUnit, fpwebNewHTMLInputUnit, fpwebNewHTMLImgUnit, //Other - fpIDEExtEditorInsertFileNameUnit; + fpIDEExtEditorInsertFileNameUnit, + fpWebHREFEditUnit, fpWebSelectOptionsUnit, + fpWebSelectTagUnit, fpWebHtmlTagLegendUnit, + fpWebFieldSetTagUnit; var //Standart items @@ -111,7 +124,7 @@ var //Paragraph CmdHTMLNBSP : TIDECommand; //---- - //Link + CmdHTMLLink : TIDECommand ; CmdHTMLIMG : TIDECommand; CmdHTMLHR : TIDECommand; CmdHTMLComment : TIDECommand; @@ -141,10 +154,18 @@ var - CmdHTMLFrom : TIDECommand; - CmdHTMLInput : TIDECommand; - CmdHTMLInputSubmit : TIDECommand; - CmdHTMLInputReset : TIDECommand; + CmdHTMLFrom : TIDECommand; + CmdHTMLFormSelect : TIDECommand; + CmdHTMLFormSelectOpt : TIDECommand; + CmdHTMLFormSelectOptWD : TIDECommand; + CmdHTMLFormCheckBtn : TIDECommand; + CmdHTMLFormRadioBtn : TIDECommand; + CmdHTMLFormButton : TIDECommand; + CmdHTMLInput : TIDECommand; + CmdHTMLInputSubmit : TIDECommand; + CmdHTMLInputReset : TIDECommand; + CmdHTMLFormFieldSet : TIDECommand; + CmdHTMLFormLegend : TIDECommand; CmdOtherInsFileName : TIDECommand; @@ -178,6 +199,7 @@ begin CmdHTMLHR := RegisterIDECommand(Cat, 'HTMLHR', SmiHTMLInsertHR, Key, nil, @ProcHTMLHR); CmdHTMLComment := RegisterIDECommand(Cat, 'HTMLComment', SmiHTMLInsertComment, Key, nil, @ProcHTMLComment); CmdHTMLIMG := RegisterIDECommand(Cat, 'HTMLIMG', SmiHTMLInsertIMG, Key, nil, @ProcHTMLImageTag); + CmdHTMLLink:= RegisterIDECommand(Cat, 'HTMLLink', SmiHTMLInsertLink, Key, nil, @ProcHTMLLink); CmdHTMLTextAlignLeft :=RegisterIDECommand(Cat, 'HTMLTextAlignLeft', SmiHTMLTextAlignLeft, Key, nil, @ProcHTMLTextAlignLeft); CmdHTMLTextAlignRight :=RegisterIDECommand(Cat, 'HTMLTextAlignRight', SmiHTMLTextAlignRight, Key, nil, @ProcHTMLTextAlignRight); @@ -202,6 +224,19 @@ begin CmdHTMLColor := RegisterIDECommand(Cat, 'HTMLColor', SmiHTMLInsertColor, Key, nil, @ProcHTMLColor); + //Forms--- + CmdHTMLFrom := RegisterIDECommand(Cat, 'HTMLForm', SmiHTMLInsertForm, Key, nil, @ProcHTMLForm); + CmdHTMLFormSelect := RegisterIDECommand(Cat, 'HTMLFormSelect', SmiHTMLFormSelect, Key, nil, @ProcHTMLSelect); + CmdHTMLFormSelectOpt := RegisterIDECommand(Cat, 'HTMLFormSelectOpt', SmiHTMLFormSelectOpt, Key, nil, @ProcHTMLSelectOptionsWD); + CmdHTMLFormSelectOptWD := RegisterIDECommand(Cat, 'HTMLFormSelectOptWD', SmiHTMLFormSelectOptWD, Key, nil, @ProcHTMLSelectOptions); + CmdHTMLFormCheckBtn := RegisterIDECommand(Cat, 'HTMLFormCheckBtn', SmiHTMLFormCheckBox, Key, nil, @ProcHTMLCheckButton); + CmdHTMLFormRadioBtn := RegisterIDECommand(Cat, 'HTMLFormRadioBtn', SmiHTMLFormRadioBtn, Key, nil, @ProcHTMLRadioButton); + CmdHTMLFormButton := RegisterIDECommand(Cat, 'HTMLFormButton', SmiHTMLFormButtton, Key, nil, @ProcHTMLButton); + CmdHTMLInput := RegisterIDECommand(Cat, 'HTMLInput', SmiHTMLInsertInput, Key, nil, @ProcHTMLInputTag); + CmdHTMLInputSubmit := RegisterIDECommand(Cat, 'HTMLInputSubmit', SmiHTMLInsertInputSubmit, Key, nil, @ProcHTMLInputSubmitTag); + CmdHTMLInputReset := RegisterIDECommand(Cat, 'HTMLInputReset', SmiHTMLInsertInputReset, Key, nil, @ProcHTMLInputResetTag); + CmdHTMLFormFieldSet := RegisterIDECommand(Cat, 'HTMLFormFieldSet', SmiHTMLFormFieldSet, Key, nil, @ProcHTMLFormFieldSet); + CmdHTMLFormLegend := RegisterIDECommand(Cat, 'HTMLFormLegend', SmiHTMLFormLegend, Key, nil, @ProcHTMLFormLegend); CmdHTMLFrom := RegisterIDECommand(Cat, 'HTMLForm', SmiHTMLInsertForm, Key, nil, @ProcHTMLForm); CmdHTMLInput:= RegisterIDECommand(Cat, 'HTMLInput', SmiHTMLInsertInput, Key, nil, @ProcHTMLInputTag); CmdHTMLInputSubmit := RegisterIDECommand(Cat, 'HTMLInputSubmit', SmiHTMLInsertInputSubmit, Key, nil, @ProcHTMLInputSubmitTag); @@ -223,7 +258,7 @@ begin //Paragraph RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLNBSP', SmiHTMLInsertNBSP, nil, nil, CmdHTMLNBSP, 'tag_nbsp'); RegisterIDEMenuCommand(mnuHTMLStandart, '', '-', nil, nil, nil, ''); - //Link + RegisterIDEMenuCommand(mnuHTMLStandart, 'HTMLLink', SmiHTMLInsertLink, nil, nil, CmdHTMLLink, 'tag_a'); 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'); @@ -269,16 +304,25 @@ begin CmdHTMLTableDataWD, 'tag_table_data'); + //Forms menu 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'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLForm', SmiHTMLInsertForm, nil, nil, CmdHTMLFrom, 'HTMLForm'); + RegisterIDEMenuCommand(mnuHTMLForms, '', '-', nil, nil, nil, ''); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormSelect', SmiHTMLFormSelect, nil, nil, CmdHTMLFormSelect, 'select'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormSelectOpt', SmiHTMLFormSelectOpt, nil, nil, CmdHTMLFormSelectOpt, 'tag_li'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormSelectOptWD', SmiHTMLFormSelectOptWD, nil, nil, CmdHTMLFormSelectOptWD, 'tag_li'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormCheckBtn', SmiHTMLFormCheckBox, nil, nil, CmdHTMLFormCheckBtn, 'check'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormRadioBtn', SmiHTMLFormRadioBtn, nil, nil, CmdHTMLFormRadioBtn, 'radio'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormButton', SmiHTMLFormButtton, nil, nil, CmdHTMLFormButton, 'button'); + RegisterIDEMenuCommand(mnuHTMLForms, '', '-', nil, nil, nil, ''); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLInput', SmiHTMLInsertInput, nil, nil, CmdHTMLInput, 'lineedit'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLInputSubmit', SmiHTMLInsertInputSubmit, nil, nil, CmdHTMLInputSubmit, 'submit'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLInputReset', SmiHTMLInsertInputReset, nil, nil, CmdHTMLInputReset, 'reset'); + RegisterIDEMenuCommand(mnuHTMLForms, '', '-', nil, nil, nil, ''); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormFieldSet', SmiHTMLFormFieldSet, nil, nil, CmdHTMLFormFieldSet, 'tag_element'); + RegisterIDEMenuCommand(mnuHTMLForms, 'HTMLFormLegend', SmiHTMLFormLegend, nil, nil, CmdHTMLFormLegend, 'tag_attribute'); + //Other tools mnuHTMLOther :=RegisterIDESubMenu(mnuHTMLSection, 'HTMLOther', SmiHTMLOther, nil, nil); RegisterIDEMenuCommand(mnuHTMLOther, 'OtherInsFN', SmiOtherInsertFN, nil, nil, CmdOtherInsFileName, ''); @@ -303,10 +347,16 @@ begin Selection:=AText; end; +Function CheckEditor : Boolean; + +begin + Result:=Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor); +end; + Procedure InsertHTMLTag(Const ATag : String; Const AAttribute : String = ''); begin - if Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor) then + If CheckEditor then With SourceEditorManagerIntf.ActiveEditor do if (AAttribute='') then Selection:='<'+ATag+'>'+Selection+'' @@ -314,6 +364,24 @@ begin Selection:='<'+ATag+' '+AAttribute+' >'+Selection+''; end; +function ShowEditInputTagForm(const ATagType:string; const ADefValue:string = ''):string; + +begin + If Not CheckEditor then Exit; + With TFpwebNewHTMLInputForm.Create(Application) do + try + cbType.Text:=ATagType; + if ADefValue<>'' then + edtValue.Text:=ADefValue + else + edtValue.Text:=SourceEditorManagerIntf.ActiveEditor.Selection; + if ShowModal = mrOk then + InsertHTMLSnippet(HtmlText); + finally + Free; + end; +end; + procedure ProcHTMLTableRow(Sender: TObject); begin InsertHTMLTag('tr'); @@ -402,15 +470,16 @@ end; procedure ProcHTMLComment(Sender: TObject); begin - if Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor) then - with SourceEditorManagerIntf.ActiveEditor do - Selection:=''; + If Not CheckEditor then Exit; + with SourceEditorManagerIntf.ActiveEditor do + Selection:=''; end; procedure ProcHTMLColor(Sender: TObject); var Dlg:TColorDialog; begin + If Not CheckEditor then Exit; Dlg:=TColorDialog.Create(Application); try if Dlg.Execute then @@ -422,6 +491,7 @@ end; procedure ProcHTMLTable(Sender: TObject); begin + If Not CheckEditor then Exit; With TfpWebNewHtmlTableForm.Create(Application) do try if ShowModal = mrOk then @@ -433,6 +503,7 @@ end; procedure ProcHTMLGenList(Sender: TObject); begin + If Not CheckEditor then Exit; With TfpWebNewHTMLListForm.Create(Application) do try if ShowModal = mrOk then @@ -444,6 +515,7 @@ end; procedure ProcHTMLTableRowWD(Sender: TObject); begin + If Not CheckEditor then Exit; With TfpWebNewHtmlTagTRForm.Create(Application) do try if ShowModal = mrOk then @@ -460,6 +532,7 @@ end; procedure ProcHTMLForm(Sender: TObject); begin + If Not CheckEditor then Exit; With TfpWebNewHTMLFormForm.Create(Application) do try InsertHTMLSnippet(HtmlText(SourceEditorManagerIntf.ActiveEditor.Selection)); @@ -468,8 +541,9 @@ begin end; end; -procedure ProcHTMLInputTag(Sender: TObject); +{procedure ProcHTMLInputTag(Sender: TObject); begin + If Not CheckEditor then Exit; With TfpWebNewHTMLInputForm.Create(Application) do try if ShowModal = mrOk then @@ -477,36 +551,12 @@ begin finally Free; end; -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 + If Not CheckEditor then Exit; With TfpWebNewHTMLImgForm.Create(Application) do try if ShowModal = mrOk then @@ -516,6 +566,106 @@ begin end; end; +procedure ProcHTMLSelect(Sender: TObject); +begin + If Not CheckEditor then Exit; + With TfpWebSelectTagForm.Create(Application) do + try + edtName.Text:=SourceEditorManagerIntf.ActiveEditor.Selection; + if ShowModal = mrOk then + InsertHTMLSnippet(HtmlText); + finally + Free; + end; +end; + +procedure ProcHTMLSelectOptions(Sender: TObject); +begin + InsertHTMLTag('option'); +end; + +procedure ProcHTMLSelectOptionsWD(Sender: TObject); +begin + If Not CheckEditor then exit; + With TfpWebSelectOptionsForm.Create(Application) do + try + edtCaption.Text:=SourceEditorManagerIntf.ActiveEditor.Selection; + if ShowModal = mrOk then + InsertHTMLSnippet(HtmlText); + finally + Free; + end; +end; + +procedure ProcHTMLCheckButton(Sender: TObject); +begin + ShowEditInputTagForm('checkbox'); +end; + +procedure ProcHTMLRadioButton(Sender: TObject); + +begin + ShowEditInputTagForm('radio'); +end; + +procedure ProcHTMLButton(Sender: TObject); +begin + ShowEditInputTagForm('button'); +end; + +procedure ProcHTMLInputTag(Sender: TObject); +begin + ShowEditInputTagForm(''); +end; + +procedure ProcHTMLInputSubmitTag(Sender: TObject); +begin + ShowEditInputTagForm('checkbox', SHTMLTagCaptionSubmit); +end; + +procedure ProcHTMLInputResetTag(Sender: TObject); +begin + ShowEditInputTagForm('checkbox', SHTMLTagCaptionReset); +end; + +procedure ProcHTMLFormFieldSet(Sender: TObject); +begin + If Not CheckEditor then exit; + With TfpWebFieldSetTagForm.Create(Application) do + try + if ShowModal = mrOk then + InsertHTMLSnippet(HtmlText(SourceEditorManagerIntf.ActiveEditor.Selection)); + Finally + Free; + end; +end; + +procedure ProcHTMLFormLegend(Sender: TObject); +begin + If Not CheckEditor then exit; + With TfpWebHtmlTagLegendForm.Create(Application) do + try + edtCaption.Text:=SourceEditorManagerIntf.ActiveEditor.Selection; + if ShowModal = mrOk then + InsertHTMLSnippet(HtmlText); + finally + Free; + end; +end; + +procedure ProcHTMLLink(Sender: TObject); +begin + If Not CheckEditor then exit; + With TfpWebHREFEditForm.Create(Application) do + try + edtLinkText.Text:=SourceEditorManagerIntf.ActiveEditor.Selection; + if ShowModal = mrOk then + InsertHTMLSnippet(HtmlText); + finally + Free; + end; +end; + procedure ProcOtherInsertFileName(Sender: TObject); begin diff --git a/components/fpweb/images/button.png b/components/fpweb/images/button.png new file mode 100644 index 0000000000000000000000000000000000000000..fb6f41cef06f202d50253c627ac3e80e55d16ee3 GIT binary patch literal 258 zcmeAS@N?(olHy`uVBq!ia0vp^Vj#@H3?x5i&EW)62?0JKuK&pbckbM2XlMXxJ$(4E zfq?-YGxUwOsIKKZ;W2&XRiN1np00i_>zopr09fjeMgRZ+ literal 0 HcmV?d00001 diff --git a/components/fpweb/images/check.png b/components/fpweb/images/check.png new file mode 100644 index 0000000000000000000000000000000000000000..52954660f049c648bc959380271fec1ae84b5834 GIT binary patch literal 293 zcmeAS@N?(olHy`uVBq!ia0vp^Vj#@H0wnYHF4+L2n3BBRT^RPt$G%|(@*+K5978H@ zJ-z77*Py_|av}5a-cI$yvwN-AS}3n8jredfTaocc#iJOrtW9keIV}=mT(#*D5=`+?J2{MFt`Q}{ z`DrEPiAAXl4jRgup1FzXslJKnnaSA-CVEDCmI{`Z`UXH`sE}NgSzJ=-kXu?&t;ucLK6TruVjz_ literal 0 HcmV?d00001 diff --git a/components/fpweb/images/make_img_list.sh b/components/fpweb/images/make_img_list.sh index 3122aa075c..c2f414adbf 100755 --- a/components/fpweb/images/make_img_list.sh +++ b/components/fpweb/images/make_img_list.sh @@ -1,7 +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 +../../../tools/lazres fpweb_images.inc HTMLList.png quick_table.png tag_dd.png tag_dl.png tag_dt.png tag_li.png tag_ol.png tag_ul.png tag_table_body.png tag_table_row.png tag_tbody.png tag_td.png tag_tr.png tag_table_data.png tag_h1.png tag_h2.png tag_h3.png tag_h4.png tag_h5.png HTMLForm.png lineedit.png reset.png submit.png tag_image.png tag_br.png tag_comm.png tag_hr.png color-picker.png div_center.png div_justify.png div_left.png div_right.png tag_bold.png tag_i.png tag_u.png tag_nbsp.png button.png check.png radio.png select.png tag_a.png tag_attribute.png tag_element.png diff --git a/components/fpweb/images/radio.png b/components/fpweb/images/radio.png new file mode 100644 index 0000000000000000000000000000000000000000..fdbfed2565cf58a49bd45a03f2b91cfce6890821 GIT binary patch literal 309 zcmeAS@N?(olHy`uVBq!ia0vp^Vj#@H0wnYHF4+L2n3BBRT^RPt$G%|(@-jVL978H@ zJq>W=Yf#{M-NFAky=D5t^RF6p&gDAo$E4lhqI!$5!{w%U!m$*ih1m~xflqVLYGB{``YkKA;rl&z<^-52tZo?b|lt_&lN6 zcbnJp9^BhBkCWd^(37P_!*G_m<}SwI`lP7~mucO(9ifsK7T@TQ=pn~GXOgGXu1|Z! zCuG;D9ah-IQ<}NwSE>9(#z`lfw%57m^Z*^Oq-UvMX{m1jM1~5FDWwJZc_n(u`MGaj-24DE zP77>YW_n&?Nh#1gGgE^^i)53uWW(fCv(%Kt6f*-$L*t~>6r+?BgT!RhOKp=Gfw~wx MUHx3vIVCg!06F$?-~a#s literal 0 HcmV?d00001 diff --git a/components/fpweb/images/tag_a.png b/components/fpweb/images/tag_a.png new file mode 100644 index 0000000000000000000000000000000000000000..2186bb5a6b3ba038d445b4e94e858b4f4981c371 GIT binary patch literal 359 zcmeAS@N?(olHy`uVBq!ia0vp^Vj#@H1|*Mc$*~4fY)RhkE)07?Fw^Pk3ZTezPZ!6K zid%0(4)PvQ;IOgoe*Ck5#r?y>ig!--w*k@1bnHDjUZFaNmG+!=9qa{9PDN*bYb>~s5@-JNQ~qb>8;o~S zO7t{hU2=g=bS`m?C<)F_D=AMbN@Z}+P}cO!O-xVqO-#>B&Q>tdGt#qEu(Z@S03t($ ztl1hi%%HopDWWCg4y_C{|{Javq sl3{9MvZc9EvPEiIVoIu^rA4x(rCF+lfh*IqbwFJVp00i_>zopr0B7cd_5c6? literal 0 HcmV?d00001 diff --git a/components/fpweb/images/tag_attribute.png b/components/fpweb/images/tag_attribute.png new file mode 100644 index 0000000000000000000000000000000000000000..0ac27604891d483407a79ff33464ab2ddd525b5f GIT binary patch literal 124 zcmeAS@N?(olHy`uVBq!ia0vp^Vj#@H1|*Mc$*~4f&YmugAr*6yYremeWY%R6_Vtk! zVdIXS^sC=TILP>ep4>k+l|H1Eg#z17D&RvmQK|K!%3bS1$`iictQ Xa%s(3!58X)#xZ!h`njxgN@xNAE*vM_ literal 0 HcmV?d00001 diff --git a/components/fpweb/images/tag_element.png b/components/fpweb/images/tag_element.png new file mode 100644 index 0000000000000000000000000000000000000000..e5d3e68ba47d1b7c656212d36b600490d64ac35b GIT binary patch literal 184 zcmeAS@N?(olHy`uVBq!ia0vp^Vj#@H1|*Mc$*~4f^`0({Ar*7pUfIaYpvb`*u!DC? z3CH*OhZQvnS=NUMZZO#C{pYEE9EYNU@xe|T_bc4>%zTDhH)=a=XKkMmm3nC7d7q4j z-W9D?g@W4x`0WnHT{&c3A%67(-#Q + @@ -23,7 +24,11 @@ - + + + + @@ -154,6 +159,46 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/components/fpweb/reglazwebextra.pp b/components/fpweb/reglazwebextra.pp index 73a066d804..8eefabde66 100644 --- a/components/fpweb/reglazwebextra.pp +++ b/components/fpweb/reglazwebextra.pp @@ -50,6 +50,21 @@ Type function GetImplementationSource(const Filename, SourceName, ResourceName: string): string;override; end; + { TSQLFileDescriptor } + + { 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; + TJSSyntaxChecker = Class(TComponent) private FSFN: String; @@ -352,6 +367,45 @@ begin end; end; +{ TJSFileDescriptor } + +constructor TJSFileDescriptor.Create; +begin + Name:='SQL Script file'; + DefaultFilename:='script.sql'; + DefaultResFileExt:=''; + DefaultFileExt:='.sql'; + VisibleInNewDialog:=true; +end; + +function TJSFileDescriptor.GetLocalizedName: string; +begin + Result:=inherited GetLocalizedName; +end; + +function TJSFileDescriptor.GetLocalizedDescription: string; +begin + Result:=inherited GetLocalizedDescription; +end; + +function TJSFileDescriptor.GetResourceSource(const ResourceName: string + ): string; +begin + Result:=inherited GetResourceSource(ResourceName); +end; + +function TJSFileDescriptor.CreateSource(const Filename, SourceName, + ResourceName: string): string; +begin + Result:=inherited CreateSource(Filename, SourceName, ResourceName); +end; + +procedure TJSFileDescriptor.UpdateDefaultPascalFileExtension( + const DefPasExt: string); +begin + inherited UpdateDefaultPascalFileExtension(DefPasExt); +end; + finalization FreeAndNil(AChecker);