mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-02 22:27:30 +01:00
* Upgraded to version 0.5
git-svn-id: trunk@27324 -
This commit is contained in:
michael
parent
233cbd23c3
commit
def95ce019
19
.gitattributes
vendored
19
.gitattributes
vendored
@ -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
|
||||
|
||||
86
components/fpweb/fpideexteditorinsertfilenameunit.lfm
Normal file
86
components/fpweb/fpideexteditorinsertfilenameunit.lfm
Normal file
@ -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
|
||||
110
components/fpweb/fpideexteditorinsertfilenameunit.pas
Normal file
110
components/fpweb/fpideexteditorinsertfilenameunit.pas
Normal file
@ -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.
|
||||
|
||||
@ -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'<G'#223'qX'#147'<'#221#214#194#11#207#182#242#252
|
||||
+#133#179#180'7y'#185'S('#177#150#222#199#249'z'#245#209'`UQ'#209'5'#3'o'#160
|
||||
+#25#0#179'V'#162')'#20'BW'#21#20#1'!'#191#201#147#205'>^'#236#12#243#205#205
|
||||
+#28#153#189'"~'#175'Q'#207#247#0#127#186#224#152#27't'#195'D'#21#30#14#127
|
||||
+#207#147'x'#239#10#7#191#237#146#221'+P'#173#9#220'CA'#201#149#228#237#10'+'
|
||||
+#219'{'#228#237#10'%Wr(='#199#192#226#1'TH)'#235#240#144#223'$'#160#195#141
|
||||
+#143'^%'#30#143#147#252#236'M'#156#204'&'#251#251#247'H'#255#188'A&'#239#176
|
||||
+'y'#219'f'#245'V'#129#205#219'6'#187#7'e'#238#149'j'#199#192'G'#237'J)'#133
|
||||
+#16'u_'#235#154'J|'#236'u'#134#135#135'I'#165'RLLL'#240#237'L'#20'Q'#185#203
|
||||
+#141#143#223#224#251#228'2'#235#233#2'k'#191#216#252#248'k'#145'[{'#21'tM{'
|
||||
+#244#27#127#245#233'['#244#246#246#210#209#209#193#242#242'2'#138#162#208#215
|
||||
+#215#199'O'#27#27#188#195':K'#159'|'#192#208#251#159'Si}'#134'`(L'#192#208'9'
|
||||
+'p'#253#216#182'}:'#24#160#191#191#159#249#249'y'#138#197'"'#154#166#145'H$'
|
||||
+#24#26#26'"'#18#137'022'#194#221't'#154'/WVx'#247#218#10'c3'#23#145'R'#146
|
||||
+#201'|w:'#184#187#187#155#165#165'%'#226#241'8'#0#3#3#3'X'#150'E8'#28'f||'
|
||||
+#156#197#197'E'#186#186#186'p]'#151#177#153#139#180#189#164#227#218#146'D"q:'
|
||||
+#184#242#242'6k'#206#22'===T'#171'U'#132#16'8'#142'C2'#153'dkk'#11#215'u'#201
|
||||
+#158'[''t'#201#228#210#253'W'#224#250'Q'#222#213'kW'#177','#171'1'#248#169
|
||||
+#224#5#204'N'#133#221#243'?p?W#5'#151#162'\.'#19#186'\'#229#204#21#147#231
|
||||
+#194'>'#244#128#138'vV'#194'u'#152#157#157#5' '#18#137#144#205'f'#27#131'[|'
|
||||
+#237#236#6'V'#241#7#20#140'6'#193#153#183#21#192'G'#197#174#162#7'T'#164#233
|
||||
+#162#249'$'#229#253#191',6=='#205#194#194#2'sss'#2#30#26#144'h4*'#255#137#138
|
||||
+#197#162#220#217#217#145'SSS'#18#144#147#147#147#210#178#172#250#28#168'<'#24
|
||||
+#12'!D}'#5'd,'#22'kt'#153#191'ipp'#144'\.W'#239#244#127#253'7'#250#3#239#217
|
||||
+']'#255#128#210#173#232#0#0#0#0'IEND'#174'B`'#130
|
||||
+#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%!<t'#1#0#144
|
||||
+#206#7#8#127'E'#198'H'#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01'
|
||||
+' cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'#0'cbf96'
|
||||
+'4ca356fa7e72bb78b373195df0fp2 !'#0#0#0#0'IEND'#174'B`'#130
|
||||
+#206#7#8'E'#198'H'#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cr'
|
||||
+'isty@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'#0'cbf964ca'
|
||||
+'356fa7e72bb78b373195df0fp2 !'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('div_right','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
|
||||
@ -420,7 +420,7 @@ LazarusResources.Add('tag_u','PNG',[
|
||||
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'[IDATx'#218#237#145'I'#14#128'0'
|
||||
+#12#3#199#188#180'O'#203'O'#205#1#137#180')'#139#184#129#132's'#169#163#169
|
||||
+#19')'#240'='#169'{'#187#244']'#169#30'&'#220#128#0#160'i'#243#233'f'#25'G?a'
|
||||
+'p'#203#147#157#127#248#10#22#180'tFw'#1#222#139#225'@'#199'?'#19#25#207#172
|
||||
+'p'#203#147#157''#248#10#22#180'tFw'#1#222#139#225'@'#199'?'#19#25#207#172
|
||||
+')'#181'J'#231'p'#25'<'#167#191'@+'#228#21#27'L<'#146'm'#134#0#0#0'CtEXtSoft'
|
||||
+'ware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232
|
||||
+#217#240#0#0#0'*tEXtSignature'#0'f45a92f5f7a07b359b5b2dd2d0073c34'#12#2#220
|
||||
@ -438,3 +438,79 @@ LazarusResources.Add('tag_nbsp','PNG',[
|
||||
+'*tEXtSignature'#0'820a5626c5c024fc4580ba9292bc8b65'#170#242#9#21#0#0#0#0'IE'
|
||||
+'ND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('button','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#3#0#0#0#243'j'#156#9
|
||||
+#0#0#0'`PLTE'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#220#220#220#128#128#128#255#255#255#195#195#195'000'#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255'.b'#207'a'#0#0#0#1'tRNS'#0'@'#230#216'f'#0#0#0'PIDAT'#24#149'c`'#24
|
||||
+#16#192#200#196#204#194#202#198#206#193#201#197#205#195#203#199'/'#0#21#22#20
|
||||
+'B'#1#194'Pa'#17'!Q$ '#6#19#22#199'.,'#129']X'#18#187#176#20'vai'#236#194'2'
|
||||
+#216#133'e'#177#11#203#9#137'!'#3#152#176#188'0*'#160'b'#184#146#0#0'%'#173
|
||||
+#14#200'H'#151#169#213#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('check','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
|
||||
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'YIDATx'#218#229#209'K'#14#128' '
|
||||
+#12#4#208'i'#227#189#137''''#195#155#141';'#173'8#'#174'uX'#240#201'k!'#1#248
|
||||
+'x'#226'\6j'#178#134'8l'#132#24#189#180#200'k'#193']'#215'$'#30'2'#222#159
|
||||
+#239#169#192'a'#169#236#28#7#229#28';*0'#135'y'#210#153#134#154'g'#152#175
|
||||
+#196'R7'#29#27'~'#157#29#145#137' '#192'$'#239'J'#19#0#0#0'CtEXtSoftware'#0
|
||||
+'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240
|
||||
+#0#0#0'*tEXtSignature'#0'798c846ac43354ee482a45a17d81e65c'#167#224'R'#8#0#0#0
|
||||
+#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('radio','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
|
||||
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'iIDATx'#218#229'PA'#14#128' '#12
|
||||
+#235#136#15#243'g'#132#151#225#207#234#129','#206'mB'#188'j/4'#163'm'#186#1
|
||||
+#31#135#196'Q'#229'x'#155','#196#149'@S'#158#26#172#148#160'bp'#251#191'y'#3
|
||||
+#13';0'#205#181#153'$'#217'o'#217#229'i'#231#172'l'#193#11'$b'#186#238#203
|
||||
+#214'Y'#227#144#220#205#5#226'-'#220#30#228'%'#218#1#136'L'#196'j@'#16#254#2
|
||||
+'''$'#158'F'#214#131#15#135''#0#0#0'CtEXtSoftware'#0'@(#)ImageMagick 4.2.9 '
|
||||
+'99/09/01 cristy@mystic.es.dupont.com'#237#232#217#240#0#0#0'*tEXtSignature'
|
||||
+#0'bac89082d8493ef20c24665b6dbcc528[u'#254'j'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('select','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#4#0#0#0'n'#189#164
|
||||
+#176#0#0#0#2'bKGD'#0#189#31']'#236#3#0#0#0'yIDATx'#218#213#146'A'#18#128' '
|
||||
+#12#3'S'#135#143#249#178#242'3'#158#22'/'#136#165'@'#213#155#134#3#211'!,m'#6
|
||||
+#224''#146#186#243#137'/a'#225#150#11#213#142#182#144#199#158#18#155#221#131
|
||||
+#173#13#193#189#130#158#9#15'J'#17'I'#4#132'(1'#154''')'#186#1'Sb'#149#161
|
||||
+#166'*'#220#219'X$aV_'#129'@aH'#30#7#156#146'I'#26#186#242#188#23#144'k~&'
|
||||
+#195' '#186#12'ui'#188#250'u'#31#209#1#146#200'B'#183'~Gl'#140#0#0#0'CtEXtSo'
|
||||
+'ftware'#0'@(#)ImageMagick 4.2.9 99/09/01 cristy@mystic.es.dupont.com'#237
|
||||
+#232#217#240#0#0#0'*tEXtSignature'#0'650a8c4fc1ce6edad60913bed2dd0ac5'#210
|
||||
+#134#147#1#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tag_a','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#22#0#0#0#22#8#6#0#0#0#196#180'l;'#0
|
||||
+#0#0#6'bKGD'#0#189#0#189#0#189'iB'#213#168#0#0#0#151'IDATx'#218#237'T'#193#13
|
||||
+#192' '#8'<;'#139#227#249'p'#4'G'#240#225'x'#238'B?'#218#16#139'V'#173'M'#31
|
||||
+#237'%&'#4#225#196#3#5'~L'#128#210'ZN*'#217'Ulo'#203'0,'#197'vA'#212#132's'
|
||||
+#174#26#163#238#16'wptU#I'#177'dJ'#198'4'#182'&'#30#193#201'&f'#163#211#166
|
||||
+#210#175#184#3#0'|'#208#176'&'#158'*'#240'A'#231'$q'#175#244'??'#199#185#242
|
||||
+#212'4'#170'H$'#202#144#27']'#222#30#13#18'~@'#169'?'#9'>'#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'<G'#212#11''#3#14'1'
|
||||
+#181#177'+B'#183#5#135#152'Ze'#194#177#207'Lh'#225'Kx'#133'zq'#17#182'P'#15
|
||||
+'>'#193'^'#212#194';x'#23#213#240#14#174'L(]'#129#149#18'S'#203#195'@'#211'*'
|
||||
+'vq'#9#21#225#29'|'#133'.a'#15#174#161'*'#172#225#22#10#0#128#247#209#255#23
|
||||
+'~'#1#13#134'X'#232#178#205#252'a'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
|
||||
85
components/fpweb/fpwebfieldsettagunit.lfm
Normal file
85
components/fpweb/fpwebfieldsettagunit.lfm
Normal file
@ -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
|
||||
78
components/fpweb/fpwebfieldsettagunit.pas
Normal file
78
components/fpweb/fpwebfieldsettagunit.pas
Normal file
@ -0,0 +1,78 @@
|
||||
{ Lazarus IDE wizard for fpweb package.
|
||||
|
||||
Copyright (C) 2010 Lagunov Aleksey alexs75@hotbox.ru
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
under the terms of the GNU Library General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or (at your
|
||||
option) any later version with the following modification:
|
||||
|
||||
As a special exception, the copyright holders of this library give you
|
||||
permission to link this library with independent modules to produce an
|
||||
executable, regardless of the license terms of these independent modules,and
|
||||
to copy and distribute the resulting executable under terms of your choice,
|
||||
provided that you also meet, for each linked independent module, the terms
|
||||
and conditions of the license of that module. An independent module is a
|
||||
module which is not derived from or based on this library. If you modify
|
||||
this library, you may extend this exception to your version of the library,
|
||||
but you are not obligated to do so. If you do not wish to do so, delete this
|
||||
exception statement from your version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
||||
for more details.
|
||||
|
||||
You should have received a copy of the GNU Library General Public License
|
||||
along with this library; if not, write to the Free Software Foundation,
|
||||
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
}
|
||||
|
||||
unit 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:='<fieldset>'+LineEnding;
|
||||
if EdtLegend.Text<>'' then
|
||||
Result:=Result + ' <LEGEND >'+EdtLegend.Text+'</LEGEND>'+LineEnding;
|
||||
Result:=Result + S+LineEnding + '</fieldset>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
753
components/fpweb/fpwebhrefeditunit.lfm
Normal file
753
components/fpweb/fpwebhrefeditunit.lfm
Normal file
@ -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
|
||||
184
components/fpweb/fpwebhrefeditunit.pas
Normal file
184
components/fpweb/fpwebhrefeditunit.pas
Normal file
@ -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
|
||||
//<A href="work/ProgectManager/www_ui/html_template/pmQuestionStatusEdit.html" name="srger" rel="Contents" type="text/html" target="_self"></A>
|
||||
|
||||
Result:='<a href="'+cbHREF.Text;
|
||||
if edtLinkName.Text <> '' then
|
||||
Result:=Result + ' name="'+edtLinkName.Text+'"';
|
||||
if cbType.Text <> '' then
|
||||
Result:=Result + ' type="'+cbType.Text+'"';
|
||||
if cbTarg.Text <> '' then
|
||||
Result:=Result + ' target="'+cbTarg.Text+'"';
|
||||
Result:=Result + '">'+edtLinkText.Text+'</a>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
138
components/fpweb/fpwebhtmltaglegendunit.lfm
Normal file
138
components/fpweb/fpwebhtmltaglegendunit.lfm
Normal file
@ -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
|
||||
83
components/fpweb/fpwebhtmltaglegendunit.pas
Normal file
83
components/fpweb/fpwebhtmltaglegendunit.pas
Normal file
@ -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:='<LEGEND ';
|
||||
if EAccess.Text<>'' then
|
||||
Result := Result + ' accesskey="'+EAccess.Text+'"';
|
||||
if edtAlign.Text<>'' then
|
||||
Result := Result + ' align="'+edtAlign.Text+'"';
|
||||
Result := Result + '>'+edtCaption.Text + '</LEGEND>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -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+}
|
||||
|
||||
@ -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+}
|
||||
|
||||
@ -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+}
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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:='<INPUT type="' + cbType.Text + '" ' +
|
||||
'name="'+edtName.Text+'"';
|
||||
|
||||
if edtValue.Text <> '' 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+'"';
|
||||
|
||||
@ -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+}
|
||||
|
||||
@ -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+}
|
||||
|
||||
@ -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+}
|
||||
|
||||
82
components/fpweb/fpwebselectoptionsunit.lfm
Normal file
82
components/fpweb/fpwebselectoptionsunit.lfm
Normal file
@ -0,0 +1,82 @@
|
||||
object fpWebSelectOptionsForm: TfpWebSelectOptionsForm
|
||||
Left = 535
|
||||
Height = 240
|
||||
Top = 314
|
||||
Width = 320
|
||||
ActiveControl = edtCaption
|
||||
Caption = 'Property for <Options>'
|
||||
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
|
||||
75
components/fpweb/fpwebselectoptionsunit.pas
Normal file
75
components/fpweb/fpwebselectoptionsunit.pas
Normal file
@ -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:='<option ';
|
||||
if edtValue.Text <> '' then
|
||||
Result:=Result + ' value="'+edtValue.Text+'"';
|
||||
Result:=Result + '>'+edtCaption.Text+'</option>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
301
components/fpweb/fpwebselecttagunit.lfm
Normal file
301
components/fpweb/fpwebselecttagunit.lfm
Normal file
@ -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
|
||||
120
components/fpweb/fpwebselecttagunit.pas
Normal file
120
components/fpweb/fpwebselecttagunit.pas
Normal file
@ -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:='<SELECT name="'+edtName.Text+'"';
|
||||
if EdtTab.Text <> '' then
|
||||
Result:=Result + ' tabindex="'+EdtTab.Text+'"';
|
||||
|
||||
if edtSize.Value > 1 then
|
||||
Result:=Result + ' size="'+IntToStr(edtSize.Value)+'"';
|
||||
|
||||
Result:=Result + '>'+LineEnding;
|
||||
|
||||
for i:=0 to SECount.Value - 1 do
|
||||
begin
|
||||
Result:=Result + ' <option';
|
||||
if StringGrid1.Cells[1, i+1]<>'' then
|
||||
Result:=Result + ' value="'+StringGrid1.Cells[1, i+1]+'"';
|
||||
Result:=Result + '>'+StringGrid1.Cells[0, i+1]+'</option>'+LineEnding;
|
||||
end;
|
||||
Result:=Result + '</SELECT>';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -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+'</'+ATag+'>'
|
||||
@ -314,6 +364,24 @@ begin
|
||||
Selection:='<'+ATag+' '+AAttribute+' >'+Selection+'</'+ATag+'>';
|
||||
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:='<!-- '+Selection+' -->';
|
||||
If Not CheckEditor then Exit;
|
||||
with SourceEditorManagerIntf.ActiveEditor do
|
||||
Selection:='<!-- '+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
|
||||
|
||||
BIN
components/fpweb/images/button.png
Normal file
BIN
components/fpweb/images/button.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 258 B |
BIN
components/fpweb/images/check.png
Normal file
BIN
components/fpweb/images/check.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 293 B |
@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
BIN
components/fpweb/images/radio.png
Normal file
BIN
components/fpweb/images/radio.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 309 B |
BIN
components/fpweb/images/select.png
Normal file
BIN
components/fpweb/images/select.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 325 B |
BIN
components/fpweb/images/tag_a.png
Normal file
BIN
components/fpweb/images/tag_a.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 359 B |
BIN
components/fpweb/images/tag_attribute.png
Normal file
BIN
components/fpweb/images/tag_attribute.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 124 B |
BIN
components/fpweb/images/tag_element.png
Normal file
BIN
components/fpweb/images/tag_element.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 184 B |
@ -51,6 +51,50 @@ msgctxt "fpwebstrconsts.shtmlfiledesc"
|
||||
msgid "Create new HTML file..."
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformaccesskey
|
||||
msgid "Access key"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformalign
|
||||
msgid "Align"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformalt
|
||||
msgid "Alt"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformcaption
|
||||
msgid "Tag property: INPUT"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformimagesrc
|
||||
msgid "Image src"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformmaxlen
|
||||
msgid "Max length"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformname
|
||||
msgid "Name"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformsize
|
||||
msgid "Size"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformtabindex
|
||||
msgid "Tab Index"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformtype
|
||||
msgid "Type"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformvalue
|
||||
msgid "Value"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmljsfile
|
||||
msgid "&Javascript file"
|
||||
msgstr ""
|
||||
@ -129,11 +173,43 @@ msgctxt "fpwebstrconsts.smihtmleditor"
|
||||
msgid "HTML Editor"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformbuttton
|
||||
msgid "Insert Button control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformcheckbox
|
||||
msgid "Insert CheckBox control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformfieldset
|
||||
msgid "Insert FieldSet"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformlegend
|
||||
msgid "Insert Legend"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformradiobtn
|
||||
msgid "Insert RadioBtn control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlforms
|
||||
msgctxt "fpwebstrconsts.smihtmlforms"
|
||||
msgid "Forms"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformselect
|
||||
msgid "Insert Select control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformselectopt
|
||||
msgid "Insert Select options"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformselectoptwd
|
||||
msgid "Insert Select options with dialog"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertbr
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertbr"
|
||||
msgid "Insert new line"
|
||||
@ -197,6 +273,10 @@ msgstr ""
|
||||
msgid "Insert \"Submit\" button "
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertlink
|
||||
msgid "Insert link (HREF)"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertlist
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertlist"
|
||||
msgid "Insert HTML list"
|
||||
|
||||
@ -51,6 +51,50 @@ msgctxt "fpwebstrconsts.shtmlfiledesc"
|
||||
msgid "Create new HTML file..."
|
||||
msgstr "Создать новый HTML файл..."
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformaccesskey
|
||||
msgid "Access key"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformalign
|
||||
msgid "Align"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformalt
|
||||
msgid "Alt"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformcaption
|
||||
msgid "Tag property: INPUT"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformimagesrc
|
||||
msgid "Image src"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformmaxlen
|
||||
msgid "Max length"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformname
|
||||
msgid "Name"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformsize
|
||||
msgid "Size"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformtabindex
|
||||
msgid "Tab Index"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformtype
|
||||
msgid "Type"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmlinputformvalue
|
||||
msgid "Value"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.shtmljsfile
|
||||
msgid "&Javascript file"
|
||||
msgstr ""
|
||||
@ -129,11 +173,43 @@ msgctxt "fpwebstrconsts.smihtmleditor"
|
||||
msgid "HTML Editor"
|
||||
msgstr "Редактор HTML"
|
||||
|
||||
#: fpwebstrconsts.smihtmlformbuttton
|
||||
msgid "Insert Button control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformcheckbox
|
||||
msgid "Insert CheckBox control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformfieldset
|
||||
msgid "Insert FieldSet"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformlegend
|
||||
msgid "Insert Legend"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformradiobtn
|
||||
msgid "Insert RadioBtn control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlforms
|
||||
msgctxt "fpwebstrconsts.smihtmlforms"
|
||||
msgid "Forms"
|
||||
msgstr "Формы"
|
||||
|
||||
#: fpwebstrconsts.smihtmlformselect
|
||||
msgid "Insert Select control"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformselectopt
|
||||
msgid "Insert Select options"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlformselectoptwd
|
||||
msgid "Insert Select options with dialog"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertbr
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertbr"
|
||||
msgid "Insert new line"
|
||||
@ -197,6 +273,10 @@ msgstr ""
|
||||
msgid "Insert \"Submit\" button "
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertlink
|
||||
msgid "Insert link (HREF)"
|
||||
msgstr ""
|
||||
|
||||
#: fpwebstrconsts.smihtmlinsertlist
|
||||
msgctxt "fpwebstrconsts.smihtmlinsertlist"
|
||||
msgid "Insert HTML list"
|
||||
|
||||
@ -3,6 +3,7 @@
|
||||
<Package Version="3">
|
||||
<Name Value="lazwebextra"/>
|
||||
<AddToProjectUsesSection Value="False"/>
|
||||
<Author Value="Michael Van Canneyt"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="9"/>
|
||||
<SearchPaths>
|
||||
@ -23,7 +24,11 @@
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Files Count="30">
|
||||
<Description Value="Extra Web functionality for Lazarus. Only install with FPC 2.5.1 or higher.
|
||||
HTML editing functionality by Alexei Lagunov"/>
|
||||
<License Value="LGPL"/>
|
||||
<Version Minor="9"/>
|
||||
<Files Count="40">
|
||||
<Item1>
|
||||
<Filename Value="reglazwebextra.pp"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
@ -154,6 +159,46 @@
|
||||
<Filename Value="fpwebnewhtmltagtrunit.pas"/>
|
||||
<UnitName Value="fpwebNewHtmlTagTRUnit"/>
|
||||
</Item30>
|
||||
<Item31>
|
||||
<Filename Value="fpwebfieldsettagunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item31>
|
||||
<Item32>
|
||||
<Filename Value="fpwebfieldsettagunit.pas"/>
|
||||
<UnitName Value="fpWebFieldSetTagUnit"/>
|
||||
</Item32>
|
||||
<Item33>
|
||||
<Filename Value="fpwebhrefeditunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item33>
|
||||
<Item34>
|
||||
<Filename Value="fpwebhrefeditunit.pas"/>
|
||||
<UnitName Value="fpWebHREFEditUnit"/>
|
||||
</Item34>
|
||||
<Item35>
|
||||
<Filename Value="fpwebhtmltaglegendunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item35>
|
||||
<Item36>
|
||||
<Filename Value="fpwebhtmltaglegendunit.pas"/>
|
||||
<UnitName Value="fpWebHtmlTagLegendUnit"/>
|
||||
</Item36>
|
||||
<Item37>
|
||||
<Filename Value="fpwebselectoptionsunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item37>
|
||||
<Item38>
|
||||
<Filename Value="fpwebselectoptionsunit.pas"/>
|
||||
<UnitName Value="fpWebSelectOptionsUnit"/>
|
||||
</Item38>
|
||||
<Item39>
|
||||
<Filename Value="fpwebselecttagunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item39>
|
||||
<Item40>
|
||||
<Filename Value="fpwebselecttagunit.pas"/>
|
||||
<UnitName Value="fpWebSelectTagUnit"/>
|
||||
</Item40>
|
||||
</Files>
|
||||
<i18n>
|
||||
<EnableI18N Value="True"/>
|
||||
|
||||
@ -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);
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user