├── .gitattributes ├── .gitignore ├── README.md └── source ├── fpc-res.or ├── fpc-res.res ├── frminsertbullet.lfm ├── frminsertbullet.lrs ├── frminsertbullet.o ├── frminsertbullet.pas ├── frminsertbullet.ppu ├── frminsertbutton.lfm ├── frminsertbutton.lrs ├── frminsertbutton.o ├── frminsertbutton.pas ├── frminsertbutton.ppu ├── frminsertcheckbox.lfm ├── frminsertcheckbox.lrs ├── frminsertcheckbox.o ├── frminsertcheckbox.pas ├── frminsertcheckbox.ppu ├── frminsertdiv.lfm ├── frminsertdiv.lrs ├── frminsertdiv.o ├── frminsertdiv.pas ├── frminsertdiv.ppu ├── frminsertfieldset.lfm ├── frminsertfieldset.lrs ├── frminsertfieldset.o ├── frminsertfieldset.pas ├── frminsertfieldset.ppu ├── frminsertflash.lfm ├── frminsertflash.lrs ├── frminsertflash.o ├── frminsertflash.pas ├── frminsertflash.ppu ├── frminsertform.lfm ├── frminsertform.lrs ├── frminsertform.o ├── frminsertform.pas ├── frminsertform.ppu ├── frminserthidden.lfm ├── frminserthidden.lrs ├── frminserthidden.o ├── frminserthidden.pas ├── frminserthidden.ppu ├── frminsertimage.lfm ├── frminsertimage.lrs ├── frminsertimage.o ├── frminsertimage.pas ├── frminsertimage.ppu ├── frminsertlink.lfm ├── frminsertlink.lrs ├── frminsertlink.o ├── frminsertlink.pas ├── frminsertlink.ppu ├── frminsertparagraph.lfm ├── frminsertparagraph.lrs ├── frminsertparagraph.o ├── frminsertparagraph.pas ├── frminsertparagraph.ppu ├── frminsertpassword.lfm ├── frminsertpassword.lrs ├── frminsertpassword.o ├── frminsertpassword.pas ├── frminsertpassword.ppu ├── frminsertradio.lfm ├── frminsertradio.lrs ├── frminsertradio.o ├── frminsertradio.pas ├── frminsertradio.ppu ├── frminsertspan.lfm ├── frminsertspan.lrs ├── frminsertspan.o ├── frminsertspan.pas ├── frminsertspan.ppu ├── frminserttable.lfm ├── frminserttable.lrs ├── frminserttable.o ├── frminserttable.pas ├── frminserttable.ppu ├── frminserttextarea.lfm ├── frminserttextarea.lrs ├── frminserttextarea.o ├── frminserttextarea.pas ├── frminserttextarea.ppu ├── frminserttextbox.lfm ├── frminserttextbox.lrs ├── frminserttextbox.o ├── frminserttextbox.pas ├── frminserttextbox.ppu ├── link.res ├── ppas.bat ├── project1.compiled ├── project1.ico ├── project1.lpi ├── project1.lpr ├── project1.lrs ├── project1.manifest ├── project1.o ├── project1.or ├── project1.pas ├── project1.rc ├── project1.res ├── unit1.lfm ├── unit1.lrs ├── unit1.o ├── unit1.pas ├── unit1.ppu ├── unit2.lfm ├── unit2.lrs ├── unit2.o ├── unit2.pas └── unit2.ppu /.gitattributes: -------------------------------------------------------------------------------- 1 | # Auto detect text files and perform LF normalization 2 | * text=auto 3 | 4 | # Custom for Visual Studio 5 | *.cs diff=csharp 6 | *.sln merge=union 7 | *.csproj merge=union 8 | *.vbproj merge=union 9 | *.fsproj merge=union 10 | *.dbproj merge=union 11 | 12 | # Standard to msysgit 13 | *.doc diff=astextplain 14 | *.DOC diff=astextplain 15 | *.docx diff=astextplain 16 | *.DOCX diff=astextplain 17 | *.dot diff=astextplain 18 | *.DOT diff=astextplain 19 | *.pdf diff=astextplain 20 | *.PDF diff=astextplain 21 | *.rtf diff=astextplain 22 | *.RTF diff=astextplain 23 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | ################# 2 | ## Eclipse 3 | ################# 4 | 5 | *.pydevproject 6 | .project 7 | .metadata 8 | bin/ 9 | tmp/ 10 | *.tmp 11 | *.bak 12 | *.swp 13 | *~.nib 14 | local.properties 15 | .classpath 16 | .settings/ 17 | .loadpath 18 | 19 | # External tool builders 20 | .externalToolBuilders/ 21 | 22 | # Locally stored "Eclipse launch configurations" 23 | *.launch 24 | 25 | # CDT-specific 26 | .cproject 27 | 28 | # PDT-specific 29 | .buildpath 30 | 31 | 32 | ################# 33 | ## Visual Studio 34 | ################# 35 | 36 | ## Ignore Visual Studio temporary files, build results, and 37 | ## files generated by popular Visual Studio add-ons. 38 | 39 | # User-specific files 40 | *.suo 41 | *.user 42 | *.sln.docstates 43 | 44 | # Build results 45 | 46 | [Dd]ebug/ 47 | [Rr]elease/ 48 | x64/ 49 | build/ 50 | [Bb]in/ 51 | [Oo]bj/ 52 | 53 | # MSTest test Results 54 | [Tt]est[Rr]esult*/ 55 | [Bb]uild[Ll]og.* 56 | 57 | *_i.c 58 | *_p.c 59 | *.ilk 60 | *.meta 61 | *.obj 62 | *.pch 63 | *.pdb 64 | *.pgc 65 | *.pgd 66 | *.rsp 67 | *.sbr 68 | *.tlb 69 | *.tli 70 | *.tlh 71 | *.tmp 72 | *.tmp_proj 73 | *.log 74 | *.vspscc 75 | *.vssscc 76 | .builds 77 | *.pidb 78 | *.log 79 | *.scc 80 | 81 | # Visual C++ cache files 82 | ipch/ 83 | *.aps 84 | *.ncb 85 | *.opensdf 86 | *.sdf 87 | *.cachefile 88 | 89 | # Visual Studio profiler 90 | *.psess 91 | *.vsp 92 | *.vspx 93 | 94 | # Guidance Automation Toolkit 95 | *.gpState 96 | 97 | # ReSharper is a .NET coding add-in 98 | _ReSharper*/ 99 | *.[Rr]e[Ss]harper 100 | 101 | # TeamCity is a build add-in 102 | _TeamCity* 103 | 104 | # DotCover is a Code Coverage Tool 105 | *.dotCover 106 | 107 | # NCrunch 108 | *.ncrunch* 109 | .*crunch*.local.xml 110 | 111 | # Installshield output folder 112 | [Ee]xpress/ 113 | 114 | # DocProject is a documentation generator add-in 115 | DocProject/buildhelp/ 116 | DocProject/Help/*.HxT 117 | DocProject/Help/*.HxC 118 | DocProject/Help/*.hhc 119 | DocProject/Help/*.hhk 120 | DocProject/Help/*.hhp 121 | DocProject/Help/Html2 122 | DocProject/Help/html 123 | 124 | # Click-Once directory 125 | publish/ 126 | 127 | # Publish Web Output 128 | *.Publish.xml 129 | *.pubxml 130 | 131 | # NuGet Packages Directory 132 | ## TODO: If you have NuGet Package Restore enabled, uncomment the next line 133 | #packages/ 134 | 135 | # Windows Azure Build Output 136 | csx 137 | *.build.csdef 138 | 139 | # Windows Store app package directory 140 | AppPackages/ 141 | 142 | # Others 143 | sql/ 144 | *.Cache 145 | ClientBin/ 146 | [Ss]tyle[Cc]op.* 147 | ~$* 148 | *~ 149 | *.dbmdl 150 | *.[Pp]ublish.xml 151 | *.pfx 152 | *.publishsettings 153 | 154 | # RIA/Silverlight projects 155 | Generated_Code/ 156 | 157 | # Backup & report files from converting an old project file to a newer 158 | # Visual Studio version. Backup files are not needed, because we have git ;-) 159 | _UpgradeReport_Files/ 160 | Backup*/ 161 | UpgradeLog*.XML 162 | UpgradeLog*.htm 163 | 164 | # SQL Server files 165 | App_Data/*.mdf 166 | App_Data/*.ldf 167 | 168 | ############# 169 | ## Windows detritus 170 | ############# 171 | 172 | # Windows image file caches 173 | Thumbs.db 174 | ehthumbs.db 175 | 176 | # Folder config file 177 | Desktop.ini 178 | 179 | # Recycle Bin used on file shares 180 | $RECYCLE.BIN/ 181 | 182 | # Mac crap 183 | .DS_Store 184 | 185 | 186 | ############# 187 | ## Python 188 | ############# 189 | 190 | *.py[co] 191 | 192 | # Packages 193 | *.egg 194 | *.egg-info 195 | dist/ 196 | build/ 197 | eggs/ 198 | parts/ 199 | var/ 200 | sdist/ 201 | develop-eggs/ 202 | .installed.cfg 203 | 204 | # Installer logs 205 | pip-log.txt 206 | 207 | # Unit test / coverage reports 208 | .coverage 209 | .tox 210 | 211 | #Translations 212 | *.mo 213 | 214 | #Mr Developer 215 | .mr.developer.cfg 216 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | W3Edit-HTML-Editor 2 | ================== 3 | 4 | W3Edit is a cross-platform editor for HTML, CSS, PHP. It supports syntax highlighting with easy to use HTML & CSS helpers, HTML DocType templates and clean and simple tabbed document interface. 5 | 6 | Main Features 7 | ============= 8 | 9 | - Syntax highlighting (HTML, CSS, PHP) 10 | - Easy to use HTML & CSS helpers 11 | - HTML DocType templates 12 | - Handy RGB to Hex Color maker tool 13 | - Shell integration with "Edit with W3Edit" 14 | - Tabbed document interface 15 | 16 | Development Notes 17 | ================= 18 | Compiled with Lazarus (x86). 19 | -------------------------------------------------------------------------------- /source/fpc-res.or: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/fpc-res.or -------------------------------------------------------------------------------- /source/fpc-res.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/fpc-res.res -------------------------------------------------------------------------------- /source/frminsertbullet.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertbullet.o -------------------------------------------------------------------------------- /source/frminsertbullet.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertBullet; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls, Spin, ExtDlgs; 10 | 11 | type 12 | 13 | { TfInsertBullet } 14 | 15 | TfInsertBullet = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | ComboBox1: TComboBox; 20 | Memo1: TMemo; 21 | tinline: TEdit; 22 | Image1: TImage; 23 | Label6: TLabel; 24 | Panel1: TPanel; 25 | tclass: TEdit; 26 | tid: TEdit; 27 | Label1: TLabel; 28 | Label2: TLabel; 29 | Label4: TLabel; 30 | Label5: TLabel; 31 | procedure bcancelClick(Sender: TObject); 32 | procedure BitBtn1Click(Sender: TObject); 33 | procedure bokClick(Sender: TObject); 34 | procedure CancelButtonClick(Sender: TObject); 35 | procedure FormActivate(Sender: TObject); 36 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 37 | procedure FormCreate(Sender: TObject); 38 | procedure FormShow(Sender: TObject); 39 | private 40 | { private declarations } 41 | public 42 | { public declarations } 43 | end; 44 | 45 | var 46 | fInsertBullet: TfInsertBullet; 47 | 48 | implementation 49 | 50 | uses unit1; 51 | 52 | procedure TfInsertBullet.FormCreate(Sender: TObject); 53 | begin 54 | 55 | end; 56 | 57 | procedure TfInsertBullet.FormActivate(Sender: TObject); 58 | begin 59 | combobox1.SetFocus; 60 | end; 61 | 62 | procedure TfInsertBullet.FormClose(Sender: TObject; var CloseAction: TCloseAction 63 | ); 64 | begin 65 | CloseAction := caFree; 66 | end; 67 | 68 | procedure TfInsertBullet.CancelButtonClick(Sender: TObject); 69 | begin 70 | Close; 71 | end; 72 | 73 | procedure TfInsertBullet.BitBtn1Click(Sender: TObject); 74 | begin 75 | 76 | end; 77 | 78 | procedure TfInsertBullet.bcancelClick(Sender: TObject); 79 | begin 80 | Close; 81 | end; 82 | 83 | procedure TfInsertBullet.bokClick(Sender: TObject); 84 | var 85 | c:string; 86 | i:integer; 87 | begin 88 | if combobox1.ItemIndex=0 then c:=''' then c:=c+' class="'+tclass.text+'"'; 90 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 91 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 92 | c:=c+'>'+#13#10; 93 | if trim(memo1.Text)<>'' then for i:=0 to memo1.lines.count-1 do if trim(memo1.lines[i])<>'' then c:=c+'
  • '+memo1.lines[i]+'
  • '+#13#10; 94 | if combobox1.ItemIndex=0 then c:=c+'' else c:=c+''; 95 | InsertEditor(c); 96 | Close; 97 | end; 98 | 99 | procedure TfInsertBullet.FormShow(Sender: TObject); 100 | begin 101 | 102 | end; 103 | 104 | initialization 105 | {$I frminsertbullet.lrs} 106 | 107 | end. 108 | 109 | -------------------------------------------------------------------------------- /source/frminsertbullet.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertbullet.ppu -------------------------------------------------------------------------------- /source/frminsertbutton.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertbutton.o -------------------------------------------------------------------------------- /source/frminsertbutton.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertButton; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertButton } 14 | 15 | TfInsertButton = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | CheckBox1: TCheckBox; 20 | ComboBox2: TComboBox; 21 | Edit1: TEdit; 22 | Edit5: TEdit; 23 | Label3: TLabel; 24 | Label8: TLabel; 25 | tinline: TEdit; 26 | Image1: TImage; 27 | Label6: TLabel; 28 | Panel1: TPanel; 29 | tclass: TEdit; 30 | tid: TEdit; 31 | Label1: TLabel; 32 | Label4: TLabel; 33 | Label5: TLabel; 34 | procedure bcancelClick(Sender: TObject); 35 | procedure BitBtn1Click(Sender: TObject); 36 | procedure bokClick(Sender: TObject); 37 | procedure CancelButtonClick(Sender: TObject); 38 | procedure ComboBox1Change(Sender: TObject); 39 | procedure Edit1Change(Sender: TObject); 40 | procedure FormActivate(Sender: TObject); 41 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 42 | procedure FormCreate(Sender: TObject); 43 | procedure FormShow(Sender: TObject); 44 | private 45 | { private declarations } 46 | public 47 | { public declarations } 48 | end; 49 | 50 | var 51 | fInsertButton: TfInsertButton; 52 | 53 | implementation 54 | 55 | uses unit1; 56 | 57 | procedure TfInsertButton.FormCreate(Sender: TObject); 58 | begin 59 | 60 | end; 61 | 62 | procedure TfInsertButton.FormActivate(Sender: TObject); 63 | begin 64 | edit1.SetFocus; 65 | end; 66 | 67 | procedure TfInsertButton.FormClose(Sender: TObject; var CloseAction: TCloseAction 68 | ); 69 | begin 70 | CloseAction := caFree; 71 | end; 72 | 73 | procedure TfInsertButton.CancelButtonClick(Sender: TObject); 74 | begin 75 | Close; 76 | end; 77 | 78 | procedure TfInsertButton.ComboBox1Change(Sender: TObject); 79 | begin 80 | 81 | end; 82 | 83 | procedure TfInsertButton.Edit1Change(Sender: TObject); 84 | begin 85 | tid.text := edit1.text; 86 | end; 87 | 88 | procedure TfInsertButton.BitBtn1Click(Sender: TObject); 89 | begin 90 | 91 | end; 92 | 93 | procedure TfInsertButton.bcancelClick(Sender: TObject); 94 | begin 95 | Close; 96 | end; 97 | 98 | procedure TfInsertButton.bokClick(Sender: TObject); 99 | var c:string; 100 | begin 101 | c:=c+''' then c:=c+' name="'+edit1.text+'"'; 103 | if edit5.text<>'' then c:=c+' value="'+edit5.text+'"'; 104 | if checkbox1.checked then c:=c+' disabled="disabled"'; 105 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 106 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 107 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 108 | c:=c+' />'; 109 | InsertEditor(c); 110 | Close; 111 | end; 112 | 113 | procedure TfInsertButton.FormShow(Sender: TObject); 114 | begin 115 | 116 | end; 117 | 118 | initialization 119 | {$I frminsertbutton.lrs} 120 | 121 | end. 122 | 123 | -------------------------------------------------------------------------------- /source/frminsertbutton.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertbutton.ppu -------------------------------------------------------------------------------- /source/frminsertcheckbox.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertcheckbox.o -------------------------------------------------------------------------------- /source/frminsertcheckbox.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertCheckbox; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertCheckbox } 14 | 15 | TfInsertCheckbox = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | CheckBox1: TCheckBox; 20 | CheckBox2: TCheckBox; 21 | ComboBox1: TComboBox; 22 | Edit1: TEdit; 23 | Edit5: TEdit; 24 | Edit6: TEdit; 25 | Label8: TLabel; 26 | Label9: TLabel; 27 | tinline: TEdit; 28 | Image1: TImage; 29 | Label6: TLabel; 30 | Panel1: TPanel; 31 | tclass: TEdit; 32 | tid: TEdit; 33 | Label1: TLabel; 34 | Label2: TLabel; 35 | Label4: TLabel; 36 | Label5: TLabel; 37 | procedure bcancelClick(Sender: TObject); 38 | procedure BitBtn1Click(Sender: TObject); 39 | procedure bokClick(Sender: TObject); 40 | procedure CancelButtonClick(Sender: TObject); 41 | procedure ComboBox1Change(Sender: TObject); 42 | procedure Edit1Change(Sender: TObject); 43 | procedure FormActivate(Sender: TObject); 44 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 45 | procedure FormCreate(Sender: TObject); 46 | procedure FormShow(Sender: TObject); 47 | private 48 | { private declarations } 49 | public 50 | { public declarations } 51 | end; 52 | 53 | var 54 | fInsertCheckbox: TfInsertCheckbox; 55 | 56 | implementation 57 | 58 | uses unit1; 59 | 60 | procedure TfInsertCheckbox.FormCreate(Sender: TObject); 61 | begin 62 | 63 | end; 64 | 65 | procedure TfInsertCheckbox.FormActivate(Sender: TObject); 66 | begin 67 | edit1.SetFocus; 68 | end; 69 | 70 | procedure TfInsertCheckbox.FormClose(Sender: TObject; var CloseAction: TCloseAction 71 | ); 72 | begin 73 | CloseAction := caFree; 74 | end; 75 | 76 | procedure TfInsertCheckbox.CancelButtonClick(Sender: TObject); 77 | begin 78 | Close; 79 | end; 80 | 81 | procedure TfInsertCheckbox.ComboBox1Change(Sender: TObject); 82 | begin 83 | if (combobox1.ItemIndex=1) or (combobox1.ItemIndex=2) then edit6.Enabled:=true else edit6.Enabled:=false; 84 | end; 85 | 86 | procedure TfInsertCheckbox.Edit1Change(Sender: TObject); 87 | begin 88 | tid.text := edit1.text; 89 | end; 90 | 91 | procedure TfInsertCheckbox.BitBtn1Click(Sender: TObject); 92 | begin 93 | 94 | end; 95 | 96 | procedure TfInsertCheckbox.bcancelClick(Sender: TObject); 97 | begin 98 | Close; 99 | end; 100 | 101 | procedure TfInsertCheckbox.bokClick(Sender: TObject); 102 | var c:string; 103 | begin 104 | c:=c+''' then c:=c+' name="'+edit1.text+'"'; 106 | if edit5.text<>'' then c:=c+' value="'+edit5.text+'"'; 107 | if checkbox1.checked then c:=c+' disabled="disabled"'; 108 | if checkbox2.checked then c:=c+' checked="checked"'; 109 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 110 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 111 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 112 | c:=c+' />'; 113 | if combobox1.ItemIndex=1 then c:=c+#13#10+''; 114 | if combobox1.ItemIndex=2 then c:=c+#13#10+''+#13#10; 115 | InsertEditor(c); 116 | Close; 117 | end; 118 | 119 | procedure TfInsertCheckbox.FormShow(Sender: TObject); 120 | begin 121 | 122 | end; 123 | 124 | initialization 125 | {$I frminsertcheckbox.lrs} 126 | 127 | end. 128 | 129 | -------------------------------------------------------------------------------- /source/frminsertcheckbox.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertcheckbox.ppu -------------------------------------------------------------------------------- /source/frminsertdiv.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertdiv.o -------------------------------------------------------------------------------- /source/frminsertdiv.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertDiv; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls, Spin, ExtDlgs; 10 | 11 | type 12 | 13 | { TfInsertDiv } 14 | 15 | TfInsertDiv = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | tinline: TEdit; 20 | Image1: TImage; 21 | Label6: TLabel; 22 | Panel1: TPanel; 23 | tclass: TEdit; 24 | tid: TEdit; 25 | Label4: TLabel; 26 | Label5: TLabel; 27 | procedure bcancelClick(Sender: TObject); 28 | procedure BitBtn1Click(Sender: TObject); 29 | procedure bokClick(Sender: TObject); 30 | procedure CancelButtonClick(Sender: TObject); 31 | procedure FormActivate(Sender: TObject); 32 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 33 | procedure FormCreate(Sender: TObject); 34 | procedure FormShow(Sender: TObject); 35 | private 36 | { private declarations } 37 | public 38 | { public declarations } 39 | end; 40 | 41 | var 42 | fInsertDiv: TfInsertDiv; 43 | 44 | implementation 45 | 46 | uses unit1; 47 | 48 | procedure TfInsertDiv.FormCreate(Sender: TObject); 49 | begin 50 | 51 | end; 52 | 53 | procedure TfInsertDiv.FormActivate(Sender: TObject); 54 | begin 55 | tclass.SetFocus; 56 | end; 57 | 58 | procedure TfInsertDiv.FormClose(Sender: TObject; var CloseAction: TCloseAction 59 | ); 60 | begin 61 | CloseAction := caFree; 62 | end; 63 | 64 | procedure TfInsertDiv.CancelButtonClick(Sender: TObject); 65 | begin 66 | Close; 67 | end; 68 | 69 | procedure TfInsertDiv.BitBtn1Click(Sender: TObject); 70 | begin 71 | 72 | end; 73 | 74 | procedure TfInsertDiv.bcancelClick(Sender: TObject); 75 | begin 76 | Close; 77 | end; 78 | 79 | procedure TfInsertDiv.bokClick(Sender: TObject); 80 | var c:string; 81 | begin 82 | c:=''' then c:=c+' class="'+tclass.text+'"'; 84 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 85 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 86 | c:=c+'>'; 87 | InsertEditor(c,''); 88 | Close; 89 | end; 90 | 91 | procedure TfInsertDiv.FormShow(Sender: TObject); 92 | begin 93 | 94 | end; 95 | 96 | initialization 97 | {$I frminsertdiv.lrs} 98 | 99 | end. 100 | 101 | -------------------------------------------------------------------------------- /source/frminsertdiv.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertdiv.ppu -------------------------------------------------------------------------------- /source/frminsertfieldset.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertfieldset.o -------------------------------------------------------------------------------- /source/frminsertfieldset.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertFieldset; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertFieldset } 14 | 15 | TfInsertFieldset = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | Edit1: TEdit; 20 | tinline: TEdit; 21 | Image1: TImage; 22 | Label6: TLabel; 23 | Panel1: TPanel; 24 | tclass: TEdit; 25 | tid: TEdit; 26 | Label1: TLabel; 27 | Label4: TLabel; 28 | Label5: TLabel; 29 | procedure bcancelClick(Sender: TObject); 30 | procedure BitBtn1Click(Sender: TObject); 31 | procedure bokClick(Sender: TObject); 32 | procedure CancelButtonClick(Sender: TObject); 33 | procedure ComboBox1Change(Sender: TObject); 34 | procedure Edit1Change(Sender: TObject); 35 | procedure FormActivate(Sender: TObject); 36 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 37 | procedure FormCreate(Sender: TObject); 38 | procedure FormShow(Sender: TObject); 39 | private 40 | { private declarations } 41 | public 42 | { public declarations } 43 | end; 44 | 45 | var 46 | fInsertFieldset: TfInsertFieldset; 47 | 48 | implementation 49 | 50 | uses unit1; 51 | 52 | procedure TfInsertFieldset.FormCreate(Sender: TObject); 53 | begin 54 | 55 | end; 56 | 57 | procedure TfInsertFieldset.FormActivate(Sender: TObject); 58 | begin 59 | edit1.SetFocus; 60 | end; 61 | 62 | procedure TfInsertFieldset.FormClose(Sender: TObject; var CloseAction: TCloseAction 63 | ); 64 | begin 65 | CloseAction := caFree; 66 | end; 67 | 68 | procedure TfInsertFieldset.CancelButtonClick(Sender: TObject); 69 | begin 70 | Close; 71 | end; 72 | 73 | procedure TfInsertFieldset.ComboBox1Change(Sender: TObject); 74 | begin 75 | 76 | end; 77 | 78 | procedure TfInsertFieldset.Edit1Change(Sender: TObject); 79 | begin 80 | tid.text := edit1.text; 81 | end; 82 | 83 | procedure TfInsertFieldset.BitBtn1Click(Sender: TObject); 84 | begin 85 | 86 | end; 87 | 88 | procedure TfInsertFieldset.bcancelClick(Sender: TObject); 89 | begin 90 | Close; 91 | end; 92 | 93 | procedure TfInsertFieldset.bokClick(Sender: TObject); 94 | var c:string; 95 | begin 96 | c:=c+''' then c:=c+' class="'+tclass.text+'"'; 98 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 99 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 100 | c:=c+'>'+#13#10; 101 | c:=c+''+edit1.text+''+#13#10; 102 | InsertEditor(c,''); 103 | Close; 104 | end; 105 | 106 | procedure TfInsertFieldset.FormShow(Sender: TObject); 107 | begin 108 | 109 | end; 110 | 111 | initialization 112 | {$I frminsertfieldset.lrs} 113 | 114 | end. 115 | 116 | -------------------------------------------------------------------------------- /source/frminsertfieldset.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertfieldset.ppu -------------------------------------------------------------------------------- /source/frminsertflash.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertflash.o -------------------------------------------------------------------------------- /source/frminsertflash.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertFlash; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls, Spin, ExtDlgs; 10 | 11 | type 12 | 13 | { TfInsertFlash } 14 | 15 | TfInsertFlash = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | BitBtn1: TBitBtn; 19 | bok: TBitBtn; 20 | Edit1: TEdit; 21 | Edit2: TEdit; 22 | Edit3: TEdit; 23 | Edit4: TEdit; 24 | Label3: TLabel; 25 | Label7: TLabel; 26 | OpenDialog1: TOpenDialog; 27 | tinline: TEdit; 28 | Image1: TImage; 29 | Label6: TLabel; 30 | Panel1: TPanel; 31 | tclass: TEdit; 32 | tid: TEdit; 33 | Label1: TLabel; 34 | Label2: TLabel; 35 | Label4: TLabel; 36 | Label5: TLabel; 37 | procedure bcancelClick(Sender: TObject); 38 | procedure BitBtn1Click(Sender: TObject); 39 | procedure bokClick(Sender: TObject); 40 | procedure CancelButtonClick(Sender: TObject); 41 | procedure FormActivate(Sender: TObject); 42 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 43 | procedure FormCreate(Sender: TObject); 44 | procedure FormShow(Sender: TObject); 45 | private 46 | { private declarations } 47 | public 48 | { public declarations } 49 | end; 50 | 51 | var 52 | fInsertFlash: TfInsertFlash; 53 | 54 | implementation 55 | 56 | uses unit1; 57 | 58 | procedure TfInsertFlash.FormCreate(Sender: TObject); 59 | begin 60 | 61 | end; 62 | 63 | procedure TfInsertFlash.FormActivate(Sender: TObject); 64 | begin 65 | edit1.SetFocus; 66 | end; 67 | 68 | procedure TfInsertFlash.FormClose(Sender: TObject; var CloseAction: TCloseAction 69 | ); 70 | begin 71 | CloseAction := caFree; 72 | end; 73 | 74 | procedure TfInsertFlash.CancelButtonClick(Sender: TObject); 75 | begin 76 | Close; 77 | end; 78 | 79 | procedure TfInsertFlash.BitBtn1Click(Sender: TObject); 80 | begin 81 | if opendialog1.Execute then 82 | begin 83 | if opendialog1.FileName<>'' then edit1.Text:='file:///'+opendialog1.FileName; 84 | end; 85 | end; 86 | 87 | procedure TfInsertFlash.bcancelClick(Sender: TObject); 88 | begin 89 | Close; 90 | end; 91 | 92 | procedure TfInsertFlash.bokClick(Sender: TObject); 93 | var c:string; 94 | begin 95 | c:=''' then c:=c+' width="'+edit3.text+'"'; 97 | if edit4.text<>'' then c:=c+' height="'+edit4.text+'"'; 98 | if edit2.text<>'' then c:=c+' title="'+edit2.text+'"'; 99 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 100 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 101 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 102 | c:=c+'>'+#13#10; 103 | c:=c+''+#13#10; 104 | c:=c+''+#13#10; 105 | c:=c+''+#13#10; 106 | c:=c+''; 107 | InsertEditor(c); 108 | Close; 109 | end; 110 | 111 | procedure TfInsertFlash.FormShow(Sender: TObject); 112 | begin 113 | 114 | end; 115 | 116 | initialization 117 | {$I frminsertflash.lrs} 118 | 119 | end. 120 | 121 | -------------------------------------------------------------------------------- /source/frminsertflash.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertflash.ppu -------------------------------------------------------------------------------- /source/frminsertform.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertform.o -------------------------------------------------------------------------------- /source/frminsertform.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertForm; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertForm } 14 | 15 | TfInsertForm = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | ComboBox1: TComboBox; 20 | ComboBox2: TComboBox; 21 | Edit1: TEdit; 22 | Edit5: TEdit; 23 | Label3: TLabel; 24 | Label8: TLabel; 25 | OpenDialog1: TOpenDialog; 26 | tinline: TEdit; 27 | Image1: TImage; 28 | Label6: TLabel; 29 | Panel1: TPanel; 30 | tclass: TEdit; 31 | tid: TEdit; 32 | Label1: TLabel; 33 | Label2: TLabel; 34 | Label4: TLabel; 35 | Label5: TLabel; 36 | procedure bcancelClick(Sender: TObject); 37 | procedure BitBtn1Click(Sender: TObject); 38 | procedure bokClick(Sender: TObject); 39 | procedure CancelButtonClick(Sender: TObject); 40 | procedure Edit1Change(Sender: TObject); 41 | procedure FormActivate(Sender: TObject); 42 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 43 | procedure FormCreate(Sender: TObject); 44 | procedure FormShow(Sender: TObject); 45 | private 46 | { private declarations } 47 | public 48 | { public declarations } 49 | end; 50 | 51 | var 52 | fInsertForm: TfInsertForm; 53 | 54 | implementation 55 | 56 | uses unit1; 57 | 58 | procedure TfInsertForm.FormCreate(Sender: TObject); 59 | begin 60 | 61 | end; 62 | 63 | procedure TfInsertForm.FormActivate(Sender: TObject); 64 | begin 65 | edit1.SetFocus; 66 | end; 67 | 68 | procedure TfInsertForm.FormClose(Sender: TObject; var CloseAction: TCloseAction 69 | ); 70 | begin 71 | CloseAction := caFree; 72 | end; 73 | 74 | procedure TfInsertForm.CancelButtonClick(Sender: TObject); 75 | begin 76 | Close; 77 | end; 78 | 79 | procedure TfInsertForm.Edit1Change(Sender: TObject); 80 | begin 81 | tid.text := edit1.text; 82 | end; 83 | 84 | procedure TfInsertForm.BitBtn1Click(Sender: TObject); 85 | begin 86 | 87 | end; 88 | 89 | procedure TfInsertForm.bcancelClick(Sender: TObject); 90 | begin 91 | Close; 92 | end; 93 | 94 | procedure TfInsertForm.bokClick(Sender: TObject); 95 | var c:string; 96 | begin 97 | c:=''' then c:=c+' name="'+edit1.text+'"'; 99 | if edit5.text<>'' then c:=c+' action="'+edit5.text+'"'; 100 | if combobox1.text<>'' then c:=c+' method="'+combobox1.text+'"'; 101 | if combobox2.text<>'' then c:=c+' enctype="'+combobox2.text+'"'; 102 | if tclass.text<>'' then c:=c+' id="'+tclass.text+'"'; 103 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 104 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 105 | c:=c+'>'; 106 | InsertEditor(c,''); 107 | Close; 108 | end; 109 | 110 | procedure TfInsertForm.FormShow(Sender: TObject); 111 | begin 112 | 113 | end; 114 | 115 | initialization 116 | {$I frminsertform.lrs} 117 | 118 | end. 119 | 120 | -------------------------------------------------------------------------------- /source/frminsertform.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertform.ppu -------------------------------------------------------------------------------- /source/frminserthidden.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserthidden.o -------------------------------------------------------------------------------- /source/frminserthidden.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertHidden; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertHidden } 14 | 15 | TfInsertHidden = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | Edit1: TEdit; 20 | Edit5: TEdit; 21 | Label8: TLabel; 22 | tinline: TEdit; 23 | Image1: TImage; 24 | Label6: TLabel; 25 | Panel1: TPanel; 26 | tclass: TEdit; 27 | tid: TEdit; 28 | Label1: TLabel; 29 | Label4: TLabel; 30 | Label5: TLabel; 31 | procedure bcancelClick(Sender: TObject); 32 | procedure BitBtn1Click(Sender: TObject); 33 | procedure bokClick(Sender: TObject); 34 | procedure CancelButtonClick(Sender: TObject); 35 | procedure ComboBox1Change(Sender: TObject); 36 | procedure Edit1Change(Sender: TObject); 37 | procedure FormActivate(Sender: TObject); 38 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 39 | procedure FormCreate(Sender: TObject); 40 | procedure FormShow(Sender: TObject); 41 | private 42 | { private declarations } 43 | public 44 | { public declarations } 45 | end; 46 | 47 | var 48 | fInsertHidden: TfInsertHidden; 49 | 50 | implementation 51 | 52 | uses unit1; 53 | 54 | procedure TfInsertHidden.FormCreate(Sender: TObject); 55 | begin 56 | 57 | end; 58 | 59 | procedure TfInsertHidden.FormActivate(Sender: TObject); 60 | begin 61 | edit1.SetFocus; 62 | end; 63 | 64 | procedure TfInsertHidden.FormClose(Sender: TObject; var CloseAction: TCloseAction 65 | ); 66 | begin 67 | CloseAction := caFree; 68 | end; 69 | 70 | procedure TfInsertHidden.CancelButtonClick(Sender: TObject); 71 | begin 72 | Close; 73 | end; 74 | 75 | procedure TfInsertHidden.ComboBox1Change(Sender: TObject); 76 | begin 77 | 78 | end; 79 | 80 | procedure TfInsertHidden.Edit1Change(Sender: TObject); 81 | begin 82 | tid.text := edit1.text; 83 | end; 84 | 85 | procedure TfInsertHidden.BitBtn1Click(Sender: TObject); 86 | begin 87 | 88 | end; 89 | 90 | procedure TfInsertHidden.bcancelClick(Sender: TObject); 91 | begin 92 | Close; 93 | end; 94 | 95 | procedure TfInsertHidden.bokClick(Sender: TObject); 96 | var c:string; 97 | begin 98 | c:=c+''' then c:=c+' name="'+edit1.text+'"'; 100 | if edit5.text<>'' then c:=c+' value="'+edit5.text+'"'; 101 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 102 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 103 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 104 | c:=c+' />'; 105 | InsertEditor(c); 106 | Close; 107 | end; 108 | 109 | procedure TfInsertHidden.FormShow(Sender: TObject); 110 | begin 111 | 112 | end; 113 | 114 | initialization 115 | {$I frminserthidden.lrs} 116 | 117 | end. 118 | 119 | -------------------------------------------------------------------------------- /source/frminserthidden.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserthidden.ppu -------------------------------------------------------------------------------- /source/frminsertimage.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertimage.o -------------------------------------------------------------------------------- /source/frminsertimage.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertImage; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls, Spin, ExtDlgs; 10 | 11 | type 12 | 13 | { TfInsertImage } 14 | 15 | TfInsertImage = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | BitBtn1: TBitBtn; 19 | bok: TBitBtn; 20 | Edit1: TEdit; 21 | Edit2: TEdit; 22 | Edit3: TEdit; 23 | Label3: TLabel; 24 | OpenPictureDialog1: TOpenPictureDialog; 25 | tinline: TEdit; 26 | Image1: TImage; 27 | Label6: TLabel; 28 | Panel1: TPanel; 29 | tclass: TEdit; 30 | tid: TEdit; 31 | Label1: TLabel; 32 | Label2: TLabel; 33 | Label4: TLabel; 34 | Label5: TLabel; 35 | procedure bcancelClick(Sender: TObject); 36 | procedure BitBtn1Click(Sender: TObject); 37 | procedure bokClick(Sender: TObject); 38 | procedure CancelButtonClick(Sender: TObject); 39 | procedure FormActivate(Sender: TObject); 40 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 41 | procedure FormCreate(Sender: TObject); 42 | procedure FormShow(Sender: TObject); 43 | private 44 | { private declarations } 45 | public 46 | { public declarations } 47 | end; 48 | 49 | var 50 | fInsertImage: TfInsertImage; 51 | 52 | implementation 53 | 54 | uses unit1; 55 | 56 | procedure TfInsertImage.FormCreate(Sender: TObject); 57 | begin 58 | 59 | end; 60 | 61 | procedure TfInsertImage.FormActivate(Sender: TObject); 62 | begin 63 | edit1.SetFocus; 64 | end; 65 | 66 | procedure TfInsertImage.FormClose(Sender: TObject; var CloseAction: TCloseAction 67 | ); 68 | begin 69 | CloseAction := caFree; 70 | end; 71 | 72 | procedure TfInsertImage.CancelButtonClick(Sender: TObject); 73 | begin 74 | Close; 75 | end; 76 | 77 | procedure TfInsertImage.BitBtn1Click(Sender: TObject); 78 | begin 79 | if openpicturedialog1.Execute then 80 | begin 81 | if openpicturedialog1.FileName<>'' then edit1.Text:='file:///'+openpicturedialog1.FileName; 82 | end; 83 | end; 84 | 85 | procedure TfInsertImage.bcancelClick(Sender: TObject); 86 | begin 87 | Close; 88 | end; 89 | 90 | procedure TfInsertImage.bokClick(Sender: TObject); 91 | var c:string; 92 | begin 93 | c:=''' then c:=c+' src="'+edit1.text+'"' else c:=c+' href="#"'; 95 | if edit2.text<>'' then c:=c+' alt="'+edit2.text+'"'; 96 | if edit3.text<>'' then c:=c+' border="'+edit3.text+'"'; 97 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 98 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 99 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 100 | c:=c+' />'; 101 | InsertEditor(c); 102 | Close; 103 | end; 104 | 105 | procedure TfInsertImage.FormShow(Sender: TObject); 106 | begin 107 | 108 | end; 109 | 110 | initialization 111 | {$I frminsertimage.lrs} 112 | 113 | end. 114 | 115 | -------------------------------------------------------------------------------- /source/frminsertimage.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertimage.ppu -------------------------------------------------------------------------------- /source/frminsertlink.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertlink.o -------------------------------------------------------------------------------- /source/frminsertlink.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertLink; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertLink } 14 | 15 | TfInsertLink = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | ComboBox1: TComboBox; 20 | Edit1: TEdit; 21 | Edit2: TEdit; 22 | tinline: TEdit; 23 | Image1: TImage; 24 | Label6: TLabel; 25 | Panel1: TPanel; 26 | tclass: TEdit; 27 | tid: TEdit; 28 | Label1: TLabel; 29 | Label2: TLabel; 30 | Label3: TLabel; 31 | Label4: TLabel; 32 | Label5: TLabel; 33 | procedure bcancelClick(Sender: TObject); 34 | procedure BitBtn1Click(Sender: TObject); 35 | procedure bokClick(Sender: TObject); 36 | procedure CancelButtonClick(Sender: TObject); 37 | procedure FormActivate(Sender: TObject); 38 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 39 | private 40 | { private declarations } 41 | public 42 | { public declarations } 43 | end; 44 | 45 | var 46 | fInsertLink: TfInsertLink; 47 | 48 | implementation 49 | 50 | uses unit1; 51 | 52 | procedure TfInsertLink.FormActivate(Sender: TObject); 53 | begin 54 | edit1.SetFocus; 55 | end; 56 | 57 | procedure TfInsertLink.FormClose(Sender: TObject; var CloseAction: TCloseAction 58 | ); 59 | begin 60 | CloseAction := caFree; 61 | end; 62 | 63 | procedure TfInsertLink.CancelButtonClick(Sender: TObject); 64 | begin 65 | Close; 66 | end; 67 | 68 | procedure TfInsertLink.BitBtn1Click(Sender: TObject); 69 | begin 70 | Close; 71 | end; 72 | 73 | procedure TfInsertLink.bcancelClick(Sender: TObject); 74 | begin 75 | Close; 76 | end; 77 | 78 | procedure TfInsertLink.bokClick(Sender: TObject); 79 | var c:string; 80 | begin 81 | c:=''' then c:=c+' href="'+edit1.text+'"' else c:=c+' href="#"'; 83 | if edit2.text<>'' then c:=c+' title="'+edit2.text+'"'; 84 | if combobox1.text<>'' then c:=c+' target="'+combobox1.text+'"'; 85 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 86 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 87 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 88 | c:=c+'>'; 89 | InsertEditor(c,''); 90 | Close; 91 | end; 92 | 93 | initialization 94 | {$I frminsertlink.lrs} 95 | 96 | end. 97 | 98 | -------------------------------------------------------------------------------- /source/frminsertlink.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertlink.ppu -------------------------------------------------------------------------------- /source/frminsertparagraph.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertparagraph.o -------------------------------------------------------------------------------- /source/frminsertparagraph.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertParagraph; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls, Spin, ExtDlgs; 10 | 11 | type 12 | 13 | { TfInsertParagraph } 14 | 15 | TfInsertParagraph = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | tinline: TEdit; 20 | Image1: TImage; 21 | Label6: TLabel; 22 | Panel1: TPanel; 23 | tclass: TEdit; 24 | tid: TEdit; 25 | Label4: TLabel; 26 | Label5: TLabel; 27 | procedure bcancelClick(Sender: TObject); 28 | procedure BitBtn1Click(Sender: TObject); 29 | procedure bokClick(Sender: TObject); 30 | procedure CancelButtonClick(Sender: TObject); 31 | procedure FormActivate(Sender: TObject); 32 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 33 | procedure FormCreate(Sender: TObject); 34 | procedure FormShow(Sender: TObject); 35 | private 36 | { private declarations } 37 | public 38 | { public declarations } 39 | end; 40 | 41 | var 42 | fInsertParagraph: TfInsertParagraph; 43 | 44 | implementation 45 | 46 | uses unit1; 47 | 48 | procedure TfInsertParagraph.FormCreate(Sender: TObject); 49 | begin 50 | 51 | end; 52 | 53 | procedure TfInsertParagraph.FormActivate(Sender: TObject); 54 | begin 55 | tclass.SetFocus; 56 | end; 57 | 58 | procedure TfInsertParagraph.FormClose(Sender: TObject; var CloseAction: TCloseAction 59 | ); 60 | begin 61 | CloseAction := caFree; 62 | end; 63 | 64 | procedure TfInsertParagraph.CancelButtonClick(Sender: TObject); 65 | begin 66 | Close; 67 | end; 68 | 69 | procedure TfInsertParagraph.BitBtn1Click(Sender: TObject); 70 | begin 71 | 72 | end; 73 | 74 | procedure TfInsertParagraph.bcancelClick(Sender: TObject); 75 | begin 76 | Close; 77 | end; 78 | 79 | procedure TfInsertParagraph.bokClick(Sender: TObject); 80 | var c:string; 81 | begin 82 | c:=''' then c:=c+' class="'+tclass.text+'"'; 84 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 85 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 86 | c:=c+'>'; 87 | InsertEditor(c,'

    '); 88 | Close; 89 | end; 90 | 91 | procedure TfInsertParagraph.FormShow(Sender: TObject); 92 | begin 93 | 94 | end; 95 | 96 | initialization 97 | {$I frminsertparagraph.lrs} 98 | 99 | end. 100 | 101 | -------------------------------------------------------------------------------- /source/frminsertparagraph.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertparagraph.ppu -------------------------------------------------------------------------------- /source/frminsertpassword.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertpassword.o -------------------------------------------------------------------------------- /source/frminsertpassword.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertPassword; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertPassword } 14 | 15 | TfInsertPassword = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | CheckBox1: TCheckBox; 20 | ComboBox1: TComboBox; 21 | Edit1: TEdit; 22 | Edit2: TEdit; 23 | Edit5: TEdit; 24 | Edit6: TEdit; 25 | Label3: TLabel; 26 | Label8: TLabel; 27 | Label9: TLabel; 28 | tinline: TEdit; 29 | Image1: TImage; 30 | Label6: TLabel; 31 | Panel1: TPanel; 32 | tclass: TEdit; 33 | tid: TEdit; 34 | Label1: TLabel; 35 | Label2: TLabel; 36 | Label4: TLabel; 37 | Label5: TLabel; 38 | procedure bcancelClick(Sender: TObject); 39 | procedure BitBtn1Click(Sender: TObject); 40 | procedure bokClick(Sender: TObject); 41 | procedure CancelButtonClick(Sender: TObject); 42 | procedure ComboBox1Change(Sender: TObject); 43 | procedure Edit1Change(Sender: TObject); 44 | procedure FormActivate(Sender: TObject); 45 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 46 | procedure FormCreate(Sender: TObject); 47 | procedure FormShow(Sender: TObject); 48 | private 49 | { private declarations } 50 | public 51 | { public declarations } 52 | end; 53 | 54 | var 55 | fInsertPassword: TfInsertPassword; 56 | 57 | implementation 58 | 59 | uses unit1; 60 | 61 | procedure TfInsertPassword.FormCreate(Sender: TObject); 62 | begin 63 | 64 | end; 65 | 66 | procedure TfInsertPassword.FormActivate(Sender: TObject); 67 | begin 68 | edit1.SetFocus; 69 | end; 70 | 71 | procedure TfInsertPassword.FormClose(Sender: TObject; var CloseAction: TCloseAction 72 | ); 73 | begin 74 | CloseAction := caFree; 75 | end; 76 | 77 | procedure TfInsertPassword.CancelButtonClick(Sender: TObject); 78 | begin 79 | Close; 80 | end; 81 | 82 | procedure TfInsertPassword.ComboBox1Change(Sender: TObject); 83 | begin 84 | if (combobox1.ItemIndex=1) or (combobox1.ItemIndex=2) then edit6.Enabled:=true else edit6.Enabled:=false; 85 | end; 86 | 87 | procedure TfInsertPassword.Edit1Change(Sender: TObject); 88 | begin 89 | tid.text := edit1.text; 90 | end; 91 | 92 | procedure TfInsertPassword.BitBtn1Click(Sender: TObject); 93 | begin 94 | 95 | end; 96 | 97 | procedure TfInsertPassword.bcancelClick(Sender: TObject); 98 | begin 99 | Close; 100 | end; 101 | 102 | procedure TfInsertPassword.bokClick(Sender: TObject); 103 | var c:string; 104 | begin 105 | if combobox1.ItemIndex=1 then c:=c+''; 117 | InsertEditor(c); 118 | Close; 119 | end; 120 | 121 | procedure TfInsertPassword.FormShow(Sender: TObject); 122 | begin 123 | 124 | end; 125 | 126 | initialization 127 | {$I frminsertpassword.lrs} 128 | 129 | end. 130 | 131 | -------------------------------------------------------------------------------- /source/frminsertpassword.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertpassword.ppu -------------------------------------------------------------------------------- /source/frminsertradio.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertradio.o -------------------------------------------------------------------------------- /source/frminsertradio.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertRadio; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertRadio } 14 | 15 | TfInsertRadio = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | CheckBox1: TCheckBox; 20 | CheckBox2: TCheckBox; 21 | ComboBox1: TComboBox; 22 | Edit1: TEdit; 23 | Edit5: TEdit; 24 | Edit6: TEdit; 25 | Label8: TLabel; 26 | Label9: TLabel; 27 | tinline: TEdit; 28 | Image1: TImage; 29 | Label6: TLabel; 30 | Panel1: TPanel; 31 | tclass: TEdit; 32 | tid: TEdit; 33 | Label1: TLabel; 34 | Label2: TLabel; 35 | Label4: TLabel; 36 | Label5: TLabel; 37 | procedure bcancelClick(Sender: TObject); 38 | procedure BitBtn1Click(Sender: TObject); 39 | procedure bokClick(Sender: TObject); 40 | procedure CancelButtonClick(Sender: TObject); 41 | procedure ComboBox1Change(Sender: TObject); 42 | procedure Edit1Change(Sender: TObject); 43 | procedure FormActivate(Sender: TObject); 44 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 45 | procedure FormCreate(Sender: TObject); 46 | procedure FormShow(Sender: TObject); 47 | private 48 | { private declarations } 49 | public 50 | { public declarations } 51 | end; 52 | 53 | var 54 | fInsertRadio: TfInsertRadio; 55 | 56 | implementation 57 | 58 | uses unit1; 59 | 60 | procedure TfInsertRadio.FormCreate(Sender: TObject); 61 | begin 62 | 63 | end; 64 | 65 | procedure TfInsertRadio.FormActivate(Sender: TObject); 66 | begin 67 | edit1.SetFocus; 68 | end; 69 | 70 | procedure TfInsertRadio.FormClose(Sender: TObject; var CloseAction: TCloseAction 71 | ); 72 | begin 73 | CloseAction := caFree; 74 | end; 75 | 76 | procedure TfInsertRadio.CancelButtonClick(Sender: TObject); 77 | begin 78 | Close; 79 | end; 80 | 81 | procedure TfInsertRadio.ComboBox1Change(Sender: TObject); 82 | begin 83 | if (combobox1.ItemIndex=1) or (combobox1.ItemIndex=2) then edit6.Enabled:=true else edit6.Enabled:=false; 84 | end; 85 | 86 | procedure TfInsertRadio.Edit1Change(Sender: TObject); 87 | begin 88 | tid.text := edit1.text; 89 | end; 90 | 91 | procedure TfInsertRadio.BitBtn1Click(Sender: TObject); 92 | begin 93 | 94 | end; 95 | 96 | procedure TfInsertRadio.bcancelClick(Sender: TObject); 97 | begin 98 | Close; 99 | end; 100 | 101 | procedure TfInsertRadio.bokClick(Sender: TObject); 102 | var c:string; 103 | begin 104 | c:=c+''' then c:=c+' name="'+edit1.text+'"'; 106 | if edit5.text<>'' then c:=c+' value="'+edit5.text+'"'; 107 | if checkbox1.checked then c:=c+' disabled="disabled"'; 108 | if checkbox2.checked then c:=c+' checked="checked"'; 109 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 110 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 111 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 112 | c:=c+' />'; 113 | if combobox1.ItemIndex=1 then c:=c+#13#10+''; 114 | if combobox1.ItemIndex=2 then c:=c+#13#10+''+#13#10; 115 | InsertEditor(c); 116 | Close; 117 | end; 118 | 119 | procedure TfInsertRadio.FormShow(Sender: TObject); 120 | begin 121 | 122 | end; 123 | 124 | initialization 125 | {$I frminsertradio.lrs} 126 | 127 | end. 128 | 129 | -------------------------------------------------------------------------------- /source/frminsertradio.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertradio.ppu -------------------------------------------------------------------------------- /source/frminsertspan.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertspan.o -------------------------------------------------------------------------------- /source/frminsertspan.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertSpan; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls, Spin, ExtDlgs; 10 | 11 | type 12 | 13 | { TfInsertSpan } 14 | 15 | TfInsertSpan = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | tinline: TEdit; 20 | Image1: TImage; 21 | Label6: TLabel; 22 | Panel1: TPanel; 23 | tclass: TEdit; 24 | tid: TEdit; 25 | Label4: TLabel; 26 | Label5: TLabel; 27 | procedure bcancelClick(Sender: TObject); 28 | procedure BitBtn1Click(Sender: TObject); 29 | procedure bokClick(Sender: TObject); 30 | procedure CancelButtonClick(Sender: TObject); 31 | procedure FormActivate(Sender: TObject); 32 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 33 | procedure FormCreate(Sender: TObject); 34 | procedure FormShow(Sender: TObject); 35 | private 36 | { private declarations } 37 | public 38 | { public declarations } 39 | end; 40 | 41 | var 42 | fInsertSpan: TfInsertSpan; 43 | 44 | implementation 45 | 46 | uses unit1; 47 | 48 | procedure TfInsertSpan.FormCreate(Sender: TObject); 49 | begin 50 | 51 | end; 52 | 53 | procedure TfInsertSpan.FormActivate(Sender: TObject); 54 | begin 55 | tclass.SetFocus; 56 | end; 57 | 58 | procedure TfInsertSpan.FormClose(Sender: TObject; var CloseAction: TCloseAction 59 | ); 60 | begin 61 | CloseAction := caFree; 62 | end; 63 | 64 | procedure TfInsertSpan.CancelButtonClick(Sender: TObject); 65 | begin 66 | Close; 67 | end; 68 | 69 | procedure TfInsertSpan.BitBtn1Click(Sender: TObject); 70 | begin 71 | 72 | end; 73 | 74 | procedure TfInsertSpan.bcancelClick(Sender: TObject); 75 | begin 76 | Close; 77 | end; 78 | 79 | procedure TfInsertSpan.bokClick(Sender: TObject); 80 | var c:string; 81 | begin 82 | c:=''' then c:=c+' class="'+tclass.text+'"'; 84 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 85 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 86 | c:=c+'>'; 87 | InsertEditor(c,''); 88 | Close; 89 | end; 90 | 91 | procedure TfInsertSpan.FormShow(Sender: TObject); 92 | begin 93 | 94 | end; 95 | 96 | initialization 97 | {$I frminsertspan.lrs} 98 | 99 | end. 100 | 101 | -------------------------------------------------------------------------------- /source/frminsertspan.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminsertspan.ppu -------------------------------------------------------------------------------- /source/frminserttable.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserttable.o -------------------------------------------------------------------------------- /source/frminserttable.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertTable; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls, Spin, ExtDlgs; 10 | 11 | type 12 | 13 | { TfInsertTable } 14 | 15 | TfInsertTable = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | ComboBox1: TComboBox; 20 | ComboBox2: TComboBox; 21 | Label10: TLabel; 22 | Label11: TLabel; 23 | Label12: TLabel; 24 | Label3: TLabel; 25 | Label7: TLabel; 26 | Label8: TLabel; 27 | Label9: TLabel; 28 | SpinEdit1: TSpinEdit; 29 | SpinEdit2: TSpinEdit; 30 | SpinEdit3: TSpinEdit; 31 | SpinEdit4: TSpinEdit; 32 | SpinEdit5: TSpinEdit; 33 | tclass1: TEdit; 34 | tinline: TEdit; 35 | Image1: TImage; 36 | Label6: TLabel; 37 | Panel1: TPanel; 38 | tclass: TEdit; 39 | tid: TEdit; 40 | Label4: TLabel; 41 | Label5: TLabel; 42 | procedure bcancelClick(Sender: TObject); 43 | procedure BitBtn1Click(Sender: TObject); 44 | procedure bokClick(Sender: TObject); 45 | procedure CancelButtonClick(Sender: TObject); 46 | procedure FormActivate(Sender: TObject); 47 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 48 | procedure FormCreate(Sender: TObject); 49 | procedure FormShow(Sender: TObject); 50 | private 51 | { private declarations } 52 | public 53 | { public declarations } 54 | end; 55 | 56 | var 57 | fInsertTable: TfInsertTable; 58 | 59 | implementation 60 | 61 | uses unit1; 62 | 63 | procedure TfInsertTable.FormCreate(Sender: TObject); 64 | begin 65 | 66 | end; 67 | 68 | procedure TfInsertTable.FormActivate(Sender: TObject); 69 | begin 70 | spinedit2.SetFocus; 71 | end; 72 | 73 | procedure TfInsertTable.FormClose(Sender: TObject; var CloseAction: TCloseAction 74 | ); 75 | begin 76 | CloseAction := caFree; 77 | end; 78 | 79 | procedure TfInsertTable.CancelButtonClick(Sender: TObject); 80 | begin 81 | Close; 82 | end; 83 | 84 | procedure TfInsertTable.BitBtn1Click(Sender: TObject); 85 | begin 86 | 87 | end; 88 | 89 | procedure TfInsertTable.bcancelClick(Sender: TObject); 90 | begin 91 | Close; 92 | end; 93 | 94 | procedure TfInsertTable.bokClick(Sender: TObject); 95 | var 96 | c:string; 97 | i,j:integer; 98 | begin 99 | c:=''' then c:=c+' width="'+tclass1.text+combobox1.text+'"'; 104 | if combobox2.text<>'' then c:=c+' align="'+combobox2.text+'"'; 105 | if tclass.text<>'' then c:=c+' class="'+tclass.text+'"'; 106 | if tid.text<>'' then c:=c+' id="'+tid.text+'"'; 107 | if tinline.text<>'' then c:=c+' style="'+tinline.text+'"'; 108 | c:=c+'>'+#13#10; 109 | 110 | for i:=1 to spinedit2.value do 111 | begin 112 | c:=c+''+#13#10; 113 | for j:=1 to spinedit3.value do 114 | begin 115 | c:=c+' '+#13#10; 116 | end; 117 | c:=c+''+#13#10; 118 | end; 119 | 120 | InsertEditor(c,''); 121 | Close; 122 | end; 123 | 124 | procedure TfInsertTable.FormShow(Sender: TObject); 125 | begin 126 | 127 | end; 128 | 129 | initialization 130 | {$I frminserttable.lrs} 131 | 132 | end. 133 | 134 | -------------------------------------------------------------------------------- /source/frminserttable.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserttable.ppu -------------------------------------------------------------------------------- /source/frminserttextarea.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserttextarea.o -------------------------------------------------------------------------------- /source/frminserttextarea.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertTextarea; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertTextarea } 14 | 15 | TfInsertTextarea = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | CheckBox1: TCheckBox; 20 | ComboBox1: TComboBox; 21 | Edit1: TEdit; 22 | Edit2: TEdit; 23 | Edit3: TEdit; 24 | Edit5: TEdit; 25 | Edit6: TEdit; 26 | Label3: TLabel; 27 | Label7: TLabel; 28 | Label8: TLabel; 29 | Label9: TLabel; 30 | tinline: TEdit; 31 | Image1: TImage; 32 | Label6: TLabel; 33 | Panel1: TPanel; 34 | tclass: TEdit; 35 | tid: TEdit; 36 | Label1: TLabel; 37 | Label2: TLabel; 38 | Label4: TLabel; 39 | Label5: TLabel; 40 | procedure bcancelClick(Sender: TObject); 41 | procedure BitBtn1Click(Sender: TObject); 42 | procedure bokClick(Sender: TObject); 43 | procedure CancelButtonClick(Sender: TObject); 44 | procedure ComboBox1Change(Sender: TObject); 45 | procedure Edit1Change(Sender: TObject); 46 | procedure FormActivate(Sender: TObject); 47 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 48 | procedure FormCreate(Sender: TObject); 49 | procedure FormShow(Sender: TObject); 50 | private 51 | { private declarations } 52 | public 53 | { public declarations } 54 | end; 55 | 56 | var 57 | fInsertTextarea: TfInsertTextarea; 58 | 59 | implementation 60 | 61 | uses unit1; 62 | 63 | procedure TfInsertTextarea.FormCreate(Sender: TObject); 64 | begin 65 | 66 | end; 67 | 68 | procedure TfInsertTextarea.FormActivate(Sender: TObject); 69 | begin 70 | edit1.SetFocus; 71 | end; 72 | 73 | procedure TfInsertTextarea.FormClose(Sender: TObject; var CloseAction: TCloseAction 74 | ); 75 | begin 76 | CloseAction := caFree; 77 | end; 78 | 79 | procedure TfInsertTextarea.CancelButtonClick(Sender: TObject); 80 | begin 81 | Close; 82 | end; 83 | 84 | procedure TfInsertTextarea.ComboBox1Change(Sender: TObject); 85 | begin 86 | if (combobox1.ItemIndex=1) or (combobox1.ItemIndex=2) then edit6.Enabled:=true else edit6.Enabled:=false; 87 | end; 88 | 89 | procedure TfInsertTextarea.Edit1Change(Sender: TObject); 90 | begin 91 | tid.text := edit1.text; 92 | end; 93 | 94 | procedure TfInsertTextarea.BitBtn1Click(Sender: TObject); 95 | begin 96 | 97 | end; 98 | 99 | procedure TfInsertTextarea.bcancelClick(Sender: TObject); 100 | begin 101 | Close; 102 | end; 103 | 104 | procedure TfInsertTextarea.bokClick(Sender: TObject); 105 | var c:string; 106 | begin 107 | if combobox1.ItemIndex=1 then c:=c+''; 120 | InsertEditor(c,''); 121 | Close; 122 | end; 123 | 124 | procedure TfInsertTextarea.FormShow(Sender: TObject); 125 | begin 126 | 127 | end; 128 | 129 | initialization 130 | {$I frminserttextarea.lrs} 131 | 132 | end. 133 | 134 | -------------------------------------------------------------------------------- /source/frminserttextarea.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserttextarea.ppu -------------------------------------------------------------------------------- /source/frminserttextbox.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserttextbox.o -------------------------------------------------------------------------------- /source/frminserttextbox.pas: -------------------------------------------------------------------------------- 1 | unit frmInsertTextbox; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ButtonPanel, Buttons, ExtCtrls; 10 | 11 | type 12 | 13 | { TfInsertTextbox } 14 | 15 | TfInsertTextbox = class(TForm) 16 | Bevel1: TBevel; 17 | bcancel: TBitBtn; 18 | bok: TBitBtn; 19 | CheckBox1: TCheckBox; 20 | ComboBox1: TComboBox; 21 | Edit1: TEdit; 22 | Edit2: TEdit; 23 | Edit5: TEdit; 24 | Edit6: TEdit; 25 | Label3: TLabel; 26 | Label8: TLabel; 27 | Label9: TLabel; 28 | tinline: TEdit; 29 | Image1: TImage; 30 | Label6: TLabel; 31 | Panel1: TPanel; 32 | tclass: TEdit; 33 | tid: TEdit; 34 | Label1: TLabel; 35 | Label2: TLabel; 36 | Label4: TLabel; 37 | Label5: TLabel; 38 | procedure bcancelClick(Sender: TObject); 39 | procedure BitBtn1Click(Sender: TObject); 40 | procedure bokClick(Sender: TObject); 41 | procedure CancelButtonClick(Sender: TObject); 42 | procedure ComboBox1Change(Sender: TObject); 43 | procedure Edit1Change(Sender: TObject); 44 | procedure FormActivate(Sender: TObject); 45 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 46 | procedure FormCreate(Sender: TObject); 47 | procedure FormShow(Sender: TObject); 48 | private 49 | { private declarations } 50 | public 51 | { public declarations } 52 | end; 53 | 54 | var 55 | fInsertTextbox: TfInsertTextbox; 56 | 57 | implementation 58 | 59 | uses unit1; 60 | 61 | procedure TfInsertTextbox.FormCreate(Sender: TObject); 62 | begin 63 | 64 | end; 65 | 66 | procedure TfInsertTextbox.FormActivate(Sender: TObject); 67 | begin 68 | edit1.SetFocus; 69 | end; 70 | 71 | procedure TfInsertTextbox.FormClose(Sender: TObject; var CloseAction: TCloseAction 72 | ); 73 | begin 74 | CloseAction := caFree; 75 | end; 76 | 77 | procedure TfInsertTextbox.CancelButtonClick(Sender: TObject); 78 | begin 79 | Close; 80 | end; 81 | 82 | procedure TfInsertTextbox.ComboBox1Change(Sender: TObject); 83 | begin 84 | if (combobox1.ItemIndex=1) or (combobox1.ItemIndex=2) then edit6.Enabled:=true else edit6.Enabled:=false; 85 | end; 86 | 87 | procedure TfInsertTextbox.Edit1Change(Sender: TObject); 88 | begin 89 | tid.text := edit1.text; 90 | end; 91 | 92 | procedure TfInsertTextbox.BitBtn1Click(Sender: TObject); 93 | begin 94 | 95 | end; 96 | 97 | procedure TfInsertTextbox.bcancelClick(Sender: TObject); 98 | begin 99 | Close; 100 | end; 101 | 102 | procedure TfInsertTextbox.bokClick(Sender: TObject); 103 | var c:string; 104 | begin 105 | if combobox1.ItemIndex=1 then c:=c+''; 117 | InsertEditor(c); 118 | Close; 119 | end; 120 | 121 | procedure TfInsertTextbox.FormShow(Sender: TObject); 122 | begin 123 | 124 | end; 125 | 126 | initialization 127 | {$I frminserttextbox.lrs} 128 | 129 | end. 130 | 131 | -------------------------------------------------------------------------------- /source/frminserttextbox.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/frminserttextbox.ppu -------------------------------------------------------------------------------- /source/link.res: -------------------------------------------------------------------------------- 1 | SEARCH_DIR(C:\Lazarus\components\synedit\units\i386-win32\) 2 | SEARCH_DIR(C:\Lazarus\ideintf\units\i386-win32\) 3 | SEARCH_DIR(C:\Lazarus\lcl\units\i386-win32\) 4 | SEARCH_DIR(C:\Lazarus\lcl\units\i386-win32\win32\) 5 | SEARCH_DIR(C:\Lazarus\packager\units\i386-win32\) 6 | SEARCH_DIR(.\) 7 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\) 8 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\zlib\) 9 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-jedi\) 10 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\) 11 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\winceunits\) 12 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\unzip\) 13 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\tcl\) 14 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\symbolic\) 15 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\sqlite\) 16 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\sdl\) 17 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\regexpr\) 18 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\pxlib\) 19 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\postgres\) 20 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\pcap\) 21 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\) 22 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\) 23 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\oracle\) 24 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\openssl\) 25 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\opengl\) 26 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\openal\) 27 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\oggvorbis\) 28 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\odbc\) 29 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\numlib\) 30 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\mysql\) 31 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\mad\) 32 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\libpng\) 33 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\libgd\) 34 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\lexyacc\) 35 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\imagemagick\) 36 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\ibase\) 37 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\httpd22\) 38 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\httpd20\) 39 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\httpd13\) 40 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\hash\) 41 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\gtk2\) 42 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\gtk1\) 43 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\graph\) 44 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\gdbint\) 45 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fv\) 46 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fppkg\) 47 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fpmkunit\) 48 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fpgtk\) 49 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fftw\) 50 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\) 51 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-web\) 52 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-registry\) 53 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-process\) 54 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-passrc\) 55 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-net\) 56 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-json\) 57 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\) 58 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-fpcunit\) 59 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-db\) 60 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\) 61 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\chm\) 62 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\cdrom\) 63 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\cairo\) 64 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\bfd\) 65 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\a52\) 66 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\units\i386-win32\) 67 | SEARCH_DIR(C:\Lazarus\fpc\2.2.4\bin\i386-win32\) 68 | INPUT( 69 | D:\Belgelerim\Projeler\Delphi\LHtml\project1.o 70 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\system.o 71 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\lineinfo.o 72 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\exeinfo.o 73 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\strings.o 74 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\windows.o 75 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\objpas.o 76 | C:\Lazarus\lcl\units\i386-win32\win32\interfaces.o 77 | C:\Lazarus\lcl\units\i386-win32\forms.o 78 | D:\Belgelerim\Projeler\Delphi\LHtml\unit1.o 79 | C:\Lazarus\lcl\units\i386-win32\lresources.o 80 | C:\Lazarus\lcl\units\i386-win32\interfacebase.o 81 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\types.o 82 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\classes.o 83 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\sysutils.o 84 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\math.o 85 | C:\Lazarus\lcl\units\i386-win32\lclstrconsts.o 86 | C:\Lazarus\lcl\units\i386-win32\lcltype.o 87 | C:\Lazarus\lcl\units\i386-win32\lclproc.o 88 | C:\Lazarus\lcl\units\i386-win32\lmessages.o 89 | C:\Lazarus\lcl\units\i386-win32\graphtype.o 90 | C:\Lazarus\lcl\units\i386-win32\graphmath.o 91 | C:\Lazarus\lcl\units\i386-win32\themes.o 92 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\rtlconsts.o 93 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\typinfo.o 94 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\sysconst.o 95 | C:\Lazarus\lcl\units\i386-win32\fpcadds.o 96 | C:\Lazarus\lcl\units\i386-win32\avglvltree.o 97 | C:\Lazarus\lcl\units\i386-win32\fileutil.o 98 | C:\Lazarus\lcl\units\i386-win32\wsreferences.o 99 | C:\Lazarus\lcl\units\i386-win32\masks.o 100 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\contnrs.o 101 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\gettext.o 102 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\messages.o 103 | C:\Lazarus\lcl\units\i386-win32\tmschema.o 104 | C:\Lazarus\lcl\units\i386-win32\lclintf.o 105 | C:\Lazarus\lcl\units\i386-win32\graphics.o 106 | C:\Lazarus\lcl\units\i386-win32\imglist.o 107 | C:\Lazarus\lcl\units\i386-win32\dynqueue.o 108 | C:\Lazarus\lcl\units\i386-win32\lazconfigstorage.o 109 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpimage.o 110 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpcanvas.o 111 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritebmp.o 112 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritepng.o 113 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\pngcomn.o 114 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadpnm.o 115 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritepnm.o 116 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadjpeg.o 117 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritejpeg.o 118 | C:\Lazarus\lcl\units\i386-win32\intfgraphics.o 119 | C:\Lazarus\lcl\units\i386-win32\lclrescache.o 120 | C:\Lazarus\lcl\units\i386-win32\icnstypes.o 121 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\clipping.o 122 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\bmpcomn.o 123 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpimgcmn.o 124 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\zstream.o 125 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\zbase.o 126 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\gzio.o 127 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\dos.o 128 | C:\Lazarus\fpc\2.2.4\units\i386-win32\hash\crc.o 129 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\zdeflate.o 130 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\zinflate.o 131 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\trees.o 132 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\adler.o 133 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\infblock.o 134 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\infutil.o 135 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\infcodes.o 136 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\inftrees.o 137 | C:\Lazarus\fpc\2.2.4\units\i386-win32\paszlib\inffast.o 138 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jpeglib.o 139 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdapimin.o 140 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdatasrc.o 141 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdapistd.o 142 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jmorecfg.o 143 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdeferr.o 144 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jinclude.o 145 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jerror.o 146 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jmemmgr.o 147 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmarker.o 148 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdinput.o 149 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcomapi.o 150 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jutils.o 151 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jmemnobs.o 152 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmaster.o 153 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdcolor.o 154 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdsample.o 155 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdpostct.o 156 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jddctmgr.o 157 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdphuff.o 158 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdhuff.o 159 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdcoefct.o 160 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmainct.o 161 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jquant1.o 162 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jquant2.o 163 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmerge.o 164 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdct.o 165 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctfst.o 166 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctint.o 167 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctflt.o 168 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctred.o 169 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcapistd.o 170 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcapimin.o 171 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdatadst.o 172 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcparam.o 173 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcinit.o 174 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcmarker.o 175 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcphuff.o 176 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jchuff.o 177 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcmaster.o 178 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jccolor.o 179 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcsample.o 180 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcprepct.o 181 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcdctmgr.o 182 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jccoefct.o 183 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcmainct.o 184 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jfdctint.o 185 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jfdctfst.o 186 | C:\Lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jfdctflt.o 187 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadbmp.o 188 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadpng.o 189 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\syncobjs.o 190 | C:\Lazarus\lcl\units\i386-win32\lclclasses.o 191 | C:\Lazarus\lcl\units\i386-win32\wslclclasses.o 192 | C:\Lazarus\lcl\units\i386-win32\wsimglist.o 193 | C:\Lazarus\lcl\units\i386-win32\wsproc.o 194 | C:\Lazarus\lcl\units\i386-win32\wsfactory.o 195 | C:\Lazarus\lcl\units\i386-win32\controls.o 196 | C:\Lazarus\lcl\units\i386-win32\menus.o 197 | C:\Lazarus\lcl\units\i386-win32\utrace.o 198 | C:\Lazarus\lcl\units\i386-win32\propertystorage.o 199 | C:\Lazarus\lcl\units\i386-win32\actnlist.o 200 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\rttiutils.o 201 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\strutils.o 202 | C:\Lazarus\lcl\units\i386-win32\wsmenus.o 203 | C:\Lazarus\lcl\units\i386-win32\maps.o 204 | C:\Lazarus\lcl\units\i386-win32\lclversion.o 205 | C:\Lazarus\lcl\units\i386-win32\customtimer.o 206 | C:\Lazarus\lcl\units\i386-win32\clipbrd.o 207 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\custapp.o 208 | C:\Lazarus\lcl\units\i386-win32\helpintfs.o 209 | C:\Lazarus\lcl\units\i386-win32\wscontrols.o 210 | C:\Lazarus\lcl\units\i386-win32\wsforms.o 211 | C:\Lazarus\lcl\units\i386-win32\win32\win32int.o 212 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\activex.o 213 | C:\Lazarus\lcl\units\i386-win32\translations.o 214 | C:\Lazarus\lcl\units\i386-win32\comctrls.o 215 | C:\Lazarus\lcl\units\i386-win32\buttons.o 216 | C:\Lazarus\lcl\units\i386-win32\extctrls.o 217 | C:\Lazarus\lcl\units\i386-win32\stdctrls.o 218 | C:\Lazarus\lcl\units\i386-win32\win32\win32def.o 219 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\commctrl.o 220 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\variants.o 221 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\ctypes.o 222 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\varutils.o 223 | C:\Lazarus\lcl\units\i386-win32\stringhashlist.o 224 | C:\Lazarus\lcl\units\i386-win32\lconvencoding.o 225 | C:\Lazarus\lcl\units\i386-win32\toolwin.o 226 | C:\Lazarus\lcl\units\i386-win32\extendedstrings.o 227 | C:\Lazarus\lcl\units\i386-win32\textstrings.o 228 | C:\Lazarus\lcl\units\i386-win32\wsstdctrls.o 229 | C:\Lazarus\lcl\units\i386-win32\popupnotifier.o 230 | C:\Lazarus\lcl\units\i386-win32\wsextctrls.o 231 | C:\Lazarus\lcl\units\i386-win32\imagelistcache.o 232 | C:\Lazarus\lcl\units\i386-win32\wsbuttons.o 233 | C:\Lazarus\lcl\units\i386-win32\wscomctrls.o 234 | C:\Lazarus\lcl\units\i386-win32\wstoolwin.o 235 | C:\Lazarus\lcl\units\i386-win32\win32\win32proc.o 236 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsfactory.o 237 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsbuttons.o 238 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsextctrls.o 239 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsmenus.o 240 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsspin.o 241 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsstdctrls.o 242 | C:\Lazarus\lcl\units\i386-win32\win32\win32themes.o 243 | C:\Lazarus\lcl\units\i386-win32\arrow.o 244 | C:\Lazarus\lcl\units\i386-win32\calendar.o 245 | C:\Lazarus\lcl\units\i386-win32\spin.o 246 | C:\Lazarus\lcl\units\i386-win32\checklst.o 247 | C:\Lazarus\lcl\units\i386-win32\win32\win32extra.o 248 | C:\Lazarus\lcl\units\i386-win32\lclmessageglue.o 249 | C:\Lazarus\lcl\units\i386-win32\dialogs.o 250 | C:\Lazarus\lcl\units\i386-win32\buttonpanel.o 251 | C:\Lazarus\lcl\units\i386-win32\wsdialogs.o 252 | C:\Lazarus\lcl\units\i386-win32\extdlgs.o 253 | C:\Lazarus\lcl\units\i386-win32\grids.o 254 | C:\Lazarus\lcl\units\i386-win32\wscalendar.o 255 | C:\Lazarus\lcl\units\i386-win32\wsarrow.o 256 | C:\Lazarus\lcl\units\i386-win32\wsspin.o 257 | C:\Lazarus\lcl\units\i386-win32\wsextdlgs.o 258 | C:\Lazarus\lcl\units\i386-win32\wschecklst.o 259 | C:\Lazarus\lcl\units\i386-win32\dynamicarray.o 260 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlcfg.o 261 | C:\Lazarus\lcl\units\i386-win32\maskedit.o 262 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\dom.o 263 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlread.o 264 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlwrite.o 265 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\avl_tree.o 266 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlutils.o 267 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\uriparser.o 268 | C:\Lazarus\lcl\units\i386-win32\wsgrids.o 269 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsarrow.o 270 | C:\Lazarus\lcl\units\i386-win32\win32\win32wscalendar.o 271 | C:\Lazarus\lcl\units\i386-win32\win32\win32wschecklst.o 272 | C:\Lazarus\lcl\units\i386-win32\win32\win32wscomctrls.o 273 | C:\Lazarus\lcl\units\i386-win32\win32\win32wscontrols.o 274 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsdialogs.o 275 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsextdlgs.o 276 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsforms.o 277 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsgrids.o 278 | C:\Lazarus\lcl\units\i386-win32\win32\win32wsimglist.o 279 | C:\Lazarus\lcl\units\i386-win32\win32\win32uxtheme.o 280 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\shlobj.o 281 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\shellapi.o 282 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\commdlg.o 283 | C:\Lazarus\components\synedit\units\i386-win32\synedit.o 284 | C:\Lazarus\components\synedit\units\i386-win32\synedittypes.o 285 | C:\Lazarus\components\synedit\units\i386-win32\syneditsearch.o 286 | C:\Lazarus\components\synedit\units\i386-win32\syneditkeycmds.o 287 | C:\Lazarus\components\synedit\units\i386-win32\syneditmousecmds.o 288 | C:\Lazarus\components\synedit\units\i386-win32\syneditmiscprocs.o 289 | C:\Lazarus\components\synedit\units\i386-win32\syneditpointclasses.o 290 | C:\Lazarus\components\synedit\units\i386-win32\synbeautifier.o 291 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarks.o 292 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarkup.o 293 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarkuphighall.o 294 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarkupbracket.o 295 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarkupwordgroup.o 296 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarkupctrlmouselink.o 297 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarkupspecialline.o 298 | C:\Lazarus\components\synedit\units\i386-win32\syneditmarkupselection.o 299 | C:\Lazarus\components\synedit\units\i386-win32\synedittextbase.o 300 | C:\Lazarus\components\synedit\units\i386-win32\synedittexttrimmer.o 301 | C:\Lazarus\components\synedit\units\i386-win32\syneditfoldedview.o 302 | C:\Lazarus\components\synedit\units\i386-win32\synedittexttabexpander.o 303 | C:\Lazarus\components\synedit\units\i386-win32\synedittextdoublewidthchars.o 304 | C:\Lazarus\components\synedit\units\i386-win32\syngutterbase.o 305 | C:\Lazarus\components\synedit\units\i386-win32\syngutter.o 306 | C:\Lazarus\components\synedit\units\i386-win32\synguttercodefolding.o 307 | C:\Lazarus\components\synedit\units\i386-win32\syngutterchanges.o 308 | C:\Lazarus\components\synedit\units\i386-win32\syngutterlinenumber.o 309 | C:\Lazarus\components\synedit\units\i386-win32\synguttermarks.o 310 | C:\Lazarus\components\synedit\units\i386-win32\syneditmiscclasses.o 311 | C:\Lazarus\components\synedit\units\i386-win32\synedittextbuffer.o 312 | C:\Lazarus\components\synedit\units\i386-win32\synedithighlighter.o 313 | C:\Lazarus\components\synedit\units\i386-win32\syntextdrawer.o 314 | C:\Lazarus\components\synedit\units\i386-win32\syneditlines.o 315 | C:\Lazarus\lcl\units\i386-win32\stdactns.o 316 | C:\Lazarus\components\synedit\units\i386-win32\synregexpr.o 317 | C:\Lazarus\components\synedit\units\i386-win32\syneditstrconst.o 318 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-registry\registry.o 319 | C:\Lazarus\fpc\2.2.4\units\i386-win32\fcl-base\inifiles.o 320 | C:\Lazarus\components\synedit\units\i386-win32\synedithighlighterfoldbase.o 321 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\sysinitpas.o 322 | ) 323 | GROUP( 324 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpsystem.a 325 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpwindows.a 326 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpsysutils.a 327 | C:\Lazarus\lcl\units\i386-win32\libimplclintf.a 328 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpdos.a 329 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpactivex.a 330 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpcommctrl.a 331 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpvarutils.a 332 | C:\Lazarus\lcl\units\i386-win32\win32\libimpwin32wsforms.a 333 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpshlobj.a 334 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpshellapi.a 335 | C:\Lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpcommdlg.a 336 | C:\Lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpsysinitpas.a 337 | ) 338 | SEARCH_DIR("/usr/i686-pc-cygwin/lib"); SEARCH_DIR("/usr/lib"); SEARCH_DIR("/usr/lib/w32api"); 339 | OUTPUT_FORMAT(pei-i386) 340 | ENTRY(_mainCRTStartup) 341 | SECTIONS 342 | { 343 | . = SIZEOF_HEADERS; 344 | . = ALIGN(__section_alignment__); 345 | .text __image_base__ + ( __section_alignment__ < 0x1000 ? . : __section_alignment__ ) : 346 | { 347 | *(.init) 348 | *(.text .stub .text.* .gnu.linkonce.t.*) 349 | *(SORT(.text$*)) 350 | ___CTOR_LIST__ = .; __CTOR_LIST__ = . ; 351 | LONG (-1);*(.ctors); *(.ctor); *(SORT(.ctors.*)); LONG (0); 352 | ___DTOR_LIST__ = .; __DTOR_LIST__ = . ; 353 | LONG (-1); *(.dtors); *(.dtor); *(SORT(.dtors.*)); LONG (0); 354 | *(.fini) 355 | PROVIDE (etext = .); 356 | *(.gcc_except_table) 357 | } 358 | .data BLOCK(__section_alignment__) : 359 | { 360 | __data_start__ = . ; 361 | *(.data .data.* .gnu.linkonce.d.* .fpc*) 362 | *(.data2) 363 | *(SORT(.data$*)) 364 | __data_end__ = . ; 365 | *(.data_cygwin_nocopy) 366 | } 367 | .rdata BLOCK(__section_alignment__) : 368 | { 369 | *(.rdata) 370 | *(.rodata .rodata.* .gnu.linkonce.r.*) 371 | *(SORT(.rdata$*)) 372 | *(.eh_frame) 373 | ___RUNTIME_PSEUDO_RELOC_LIST__ = .; 374 | __RUNTIME_PSEUDO_RELOC_LIST__ = .; 375 | *(.rdata_runtime_pseudo_reloc) 376 | ___RUNTIME_PSEUDO_RELOC_LIST_END__ = .; 377 | __RUNTIME_PSEUDO_RELOC_LIST_END__ = .; 378 | } 379 | .pdata BLOCK(__section_alignment__) : { *(.pdata) } 380 | .bss BLOCK(__section_alignment__) : 381 | { 382 | __bss_start__ = . ; 383 | *(.bss .bss.* .gnu.linkonce.b.*) 384 | *(SORT(.bss$*)) 385 | *(COMMON) 386 | __bss_end__ = . ; 387 | } 388 | .edata BLOCK(__section_alignment__) : { *(.edata) } 389 | .idata BLOCK(__section_alignment__) : 390 | { 391 | SORT(*)(.idata$2) 392 | SORT(*)(.idata$3) 393 | /* These zeroes mark the end of the import list. */ 394 | LONG (0); LONG (0); LONG (0); LONG (0); LONG (0); 395 | SORT(*)(.idata$4) 396 | SORT(*)(.idata$5) 397 | SORT(*)(.idata$6) 398 | SORT(*)(.idata$7) 399 | } 400 | .CRT BLOCK(__section_alignment__) : 401 | { 402 | ___crt_xc_start__ = . ; 403 | *(SORT(.CRT$XC*)) /* C initialization */ 404 | ___crt_xc_end__ = . ; 405 | ___crt_xi_start__ = . ; 406 | *(SORT(.CRT$XI*)) /* C++ initialization */ 407 | ___crt_xi_end__ = . ; 408 | ___crt_xl_start__ = . ; 409 | *(SORT(.CRT$XL*)) /* TLS callbacks */ 410 | /* ___crt_xl_end__ is defined in the TLS Directory support code */ 411 | ___crt_xp_start__ = . ; 412 | *(SORT(.CRT$XP*)) /* Pre-termination */ 413 | ___crt_xp_end__ = . ; 414 | ___crt_xt_start__ = . ; 415 | *(SORT(.CRT$XT*)) /* Termination */ 416 | ___crt_xt_end__ = . ; 417 | } 418 | .tls BLOCK(__section_alignment__) : 419 | { 420 | ___tls_start__ = . ; 421 | *(.tls .tls.*) 422 | *(.tls$) 423 | *(SORT(.tls$*)) 424 | ___tls_end__ = . ; 425 | } 426 | .rsrc BLOCK(__section_alignment__) : 427 | { 428 | *(.rsrc) 429 | *(SORT(.rsrc$*)) 430 | } 431 | .reloc BLOCK(__section_alignment__) : { *(.reloc) } 432 | .stab BLOCK(__section_alignment__) (NOLOAD) : { *(.stab) } 433 | .stabstr BLOCK(__section_alignment__) (NOLOAD) : { *(.stabstr) } 434 | .debug_aranges BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_aranges) } 435 | .debug_pubnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_pubnames) } 436 | .debug_info BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_info) *(.gnu.linkonce.wi.*) } 437 | .debug_abbrev BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_abbrev) } 438 | .debug_line BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_line) } 439 | .debug_frame BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_frame) } 440 | .debug_str BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_str) } 441 | .debug_loc BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_loc) } 442 | .debug_macinfo BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_macinfo) } 443 | .debug_weaknames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_weaknames) } 444 | .debug_funcnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_funcnames) } 445 | .debug_typenames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_typenames) } 446 | .debug_varnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_varnames) } 447 | .debug_ranges BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_ranges) } 448 | } 449 | -------------------------------------------------------------------------------- /source/ppas.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | C:\Lazarus\fpc\2.2.4\bin\i386-win32\windres.exe --include C:/Lazarus/fpc/22D83D~1.4/bin/I386-W~1/ -O res -o D:\Belgelerim\Projeler\Delphi\LHtml\project1.res D:/BELGEL~1/Projeler/Delphi/LHtml/project1.rc --preprocessor=C:\Lazarus\fpc\2.2.4\bin\i386-win32\cpp.exe 3 | if errorlevel 1 goto linkend 4 | SET THEFILE=D:\Belgelerim\Projeler\Delphi\LHtml\project1.exe 5 | echo Linking %THEFILE% 6 | C:\Lazarus\fpc\2.2.4\bin\i386-win32\ld.exe -b pe-i386 -m i386pe --gc-sections --subsystem windows --entry=_WinMainCRTStartup -o D:\Belgelerim\Projeler\Delphi\LHtml\project1.exe D:\Belgelerim\Projeler\Delphi\LHtml\link.res 7 | if errorlevel 1 goto linkend 8 | C:\Lazarus\fpc\2.2.4\bin\i386-win32\postw32.exe --subsystem gui --input D:\Belgelerim\Projeler\Delphi\LHtml\project1.exe --stack 16777216 9 | if errorlevel 1 goto linkend 10 | goto end 11 | :asmend 12 | echo An error occured while assembling %THEFILE% 13 | goto end 14 | :linkend 15 | echo An error occured while linking %THEFILE% 16 | :end 17 | -------------------------------------------------------------------------------- /source/project1.compiled: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /source/project1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/project1.ico -------------------------------------------------------------------------------- /source/project1.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | <Icon Value="0"/> 11 | <UseXPManifest Value="True"/> 12 | <ActiveEditorIndexAtStart Value="0"/> 13 | </General> 14 | <VersionInfo> 15 | <UseVersionInfo Value="True"/> 16 | <AutoIncrementBuild Value="True"/> 17 | <CurrentVersionNr Value="1"/> 18 | <CurrentBuildNr Value="587"/> 19 | <ProjectVersion Value="1.0.0.124"/> 20 | </VersionInfo> 21 | <PublishOptions> 22 | <Version Value="2"/> 23 | <IgnoreBinaries Value="False"/> 24 | <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> 25 | <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> 26 | </PublishOptions> 27 | <RunParams> 28 | <local> 29 | <FormatVersion Value="1"/> 30 | <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> 31 | </local> 32 | </RunParams> 33 | <RequiredPackages Count="2"> 34 | <Item1> 35 | <PackageName Value="SynEdit"/> 36 | <MinVersion Major="1" Valid="True"/> 37 | </Item1> 38 | <Item2> 39 | <PackageName Value="LCL"/> 40 | </Item2> 41 | </RequiredPackages> 42 | <Units Count="51"> 43 | <Unit0> 44 | <Filename Value="project1.pas"/> 45 | <IsPartOfProject Value="True"/> 46 | <UnitName Value="project1"/> 47 | <CursorPos X="35" Y="11"/> 48 | <TopLine Value="1"/> 49 | <UsageCount Value="170"/> 50 | </Unit0> 51 | <Unit1> 52 | <Filename Value="unit1.pas"/> 53 | <IsPartOfProject Value="True"/> 54 | <ComponentName Value="Form1"/> 55 | <ResourceBaseClass Value="Form"/> 56 | <UnitName Value="Unit1"/> 57 | <CursorPos X="1" Y="359"/> 58 | <TopLine Value="357"/> 59 | <EditorIndex Value="0"/> 60 | <UsageCount Value="170"/> 61 | <Loaded Value="True"/> 62 | </Unit1> 63 | <Unit2> 64 | <Filename Value="C:\Lazarus\lcl\buttons.pp"/> 65 | <UnitName Value="Buttons"/> 66 | <CursorPos X="12" Y="552"/> 67 | <TopLine Value="536"/> 68 | <UsageCount Value="34"/> 69 | </Unit2> 70 | <Unit3> 71 | <Filename Value="C:\Lazarus\lcl\controls.pp"/> 72 | <UnitName Value="Controls"/> 73 | <CursorPos X="1" Y="1"/> 74 | <TopLine Value="11"/> 75 | <UsageCount Value="38"/> 76 | </Unit3> 77 | <Unit4> 78 | <Filename Value="C:\Lazarus\lcl\stdctrls.pp"/> 79 | <UnitName Value="StdCtrls"/> 80 | <CursorPos X="15" Y="1505"/> 81 | <TopLine Value="1496"/> 82 | <UsageCount Value="34"/> 83 | </Unit4> 84 | <Unit5> 85 | <Filename Value="C:\Lazarus\lcl\include\custommemo.inc"/> 86 | <CursorPos X="1" Y="1"/> 87 | <TopLine Value="1"/> 88 | <UsageCount Value="34"/> 89 | </Unit5> 90 | <Unit6> 91 | <Filename Value="C:\Lazarus\lcl\include\bitbtn.inc"/> 92 | <CursorPos X="21" Y="261"/> 93 | <TopLine Value="241"/> 94 | <UsageCount Value="34"/> 95 | </Unit6> 96 | <Unit7> 97 | <Filename Value="C:\Lazarus\lcl\include\speedbutton.inc"/> 98 | <CursorPos X="105" Y="566"/> 99 | <TopLine Value="546"/> 100 | <UsageCount Value="34"/> 101 | </Unit7> 102 | <Unit8> 103 | <Filename Value="C:\Lazarus\lcl\comctrls.pp"/> 104 | <UnitName Value="ComCtrls"/> 105 | <CursorPos X="12" Y="2837"/> 106 | <TopLine Value="2832"/> 107 | <UsageCount Value="33"/> 108 | </Unit8> 109 | <Unit9> 110 | <Filename Value="C:\Lazarus\lcl\include\pagecontrol.inc"/> 111 | <CursorPos X="1" Y="1"/> 112 | <TopLine Value="1"/> 113 | <UsageCount Value="33"/> 114 | </Unit9> 115 | <Unit10> 116 | <Filename Value="unit1.lfm"/> 117 | <CursorPos X="1" Y="1"/> 118 | <TopLine Value="1"/> 119 | <UsageCount Value="33"/> 120 | <SyntaxHighlighter Value="LFM"/> 121 | </Unit10> 122 | <Unit11> 123 | <Filename Value="unit2.pas"/> 124 | <IsPartOfProject Value="True"/> 125 | <ComponentName Value="Form2"/> 126 | <ResourceBaseClass Value="Form"/> 127 | <UnitName Value="Unit2"/> 128 | <CursorPos X="35" Y="4"/> 129 | <TopLine Value="16"/> 130 | <UsageCount Value="142"/> 131 | </Unit11> 132 | <Unit12> 133 | <Filename Value="C:\Lazarus\components\synedit\synedit.pp"/> 134 | <UnitName Value="SynEdit"/> 135 | <CursorPos X="1" Y="1"/> 136 | <TopLine Value="7427"/> 137 | <UsageCount Value="34"/> 138 | </Unit12> 139 | <Unit13> 140 | <Filename Value="C:\Lazarus\lcl\graphics.pp"/> 141 | <UnitName Value="Graphics"/> 142 | <CursorPos X="20" Y="2326"/> 143 | <TopLine Value="2322"/> 144 | <UsageCount Value="19"/> 145 | </Unit13> 146 | <Unit14> 147 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\objpas\sysutils\sysstrh.inc"/> 148 | <CursorPos X="14" Y="108"/> 149 | <TopLine Value="101"/> 150 | <UsageCount Value="18"/> 151 | </Unit14> 152 | <Unit15> 153 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\objpas\sysutils\sysstr.inc"/> 154 | <CursorPos X="32" Y="752"/> 155 | <TopLine Value="732"/> 156 | <UsageCount Value="18"/> 157 | </Unit15> 158 | <Unit16> 159 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\inc\systemh.inc"/> 160 | <CursorPos X="14" Y="571"/> 161 | <TopLine Value="561"/> 162 | <UsageCount Value="11"/> 163 | </Unit16> 164 | <Unit17> 165 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\inc\sstrings.inc"/> 166 | <CursorPos X="3" Y="319"/> 167 | <TopLine Value="319"/> 168 | <UsageCount Value="11"/> 169 | </Unit17> 170 | <Unit18> 171 | <Filename Value="C:\Lazarus\lcl\dialogs.pp"/> 172 | <UnitName Value="Dialogs"/> 173 | <CursorPos X="10" Y="682"/> 174 | <TopLine Value="676"/> 175 | <UsageCount Value="15"/> 176 | </Unit18> 177 | <Unit19> 178 | <Filename Value="C:\Lazarus\lcl\include\colorbutton.inc"/> 179 | <CursorPos X="10" Y="178"/> 180 | <TopLine Value="162"/> 181 | <UsageCount Value="11"/> 182 | </Unit19> 183 | <Unit20> 184 | <Filename Value="C:\Lazarus\lcl\include\colordialog.inc"/> 185 | <CursorPos X="1" Y="1"/> 186 | <TopLine Value="1"/> 187 | <UsageCount Value="15"/> 188 | </Unit20> 189 | <Unit21> 190 | <Filename Value="C:\Lazarus\components\synedit\synedit.inc"/> 191 | <CursorPos X="1" Y="1"/> 192 | <TopLine Value="185"/> 193 | <UsageCount Value="11"/> 194 | </Unit21> 195 | <Unit22> 196 | <Filename Value="C:\Lazarus\components\synedit\syneditlines.pas"/> 197 | <UnitName Value="SynEditLines"/> 198 | <CursorPos X="1" Y="1"/> 199 | <TopLine Value="371"/> 200 | <UsageCount Value="11"/> 201 | </Unit22> 202 | <Unit23> 203 | <Filename Value="C:\Lazarus\components\synedit\syngutterlinenumber.pp"/> 204 | <UnitName Value="SynGutterLineNumber"/> 205 | <CursorPos X="55" Y="8"/> 206 | <TopLine Value="3"/> 207 | <UsageCount Value="11"/> 208 | </Unit23> 209 | <Unit24> 210 | <Filename Value="C:\Lazarus\components\synedit\syngutterbase.pp"/> 211 | <UnitName Value="SynGutterBase"/> 212 | <CursorPos X="1" Y="1"/> 213 | <TopLine Value="410"/> 214 | <UsageCount Value="11"/> 215 | </Unit24> 216 | <Unit25> 217 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\win\sysutils.pp"/> 218 | <UnitName Value="sysutils"/> 219 | <CursorPos X="1" Y="1"/> 220 | <TopLine Value="1"/> 221 | <UsageCount Value="13"/> 222 | </Unit25> 223 | <Unit26> 224 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\objpas\sysutils\osutilsh.inc"/> 225 | <CursorPos X="10" Y="21"/> 226 | <TopLine Value="1"/> 227 | <UsageCount Value="9"/> 228 | </Unit26> 229 | <Unit27> 230 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\packages\winceunits\src\shellapi.pp"/> 231 | <UnitName Value="shellapi"/> 232 | <CursorPos X="8" Y="180"/> 233 | <TopLine Value="171"/> 234 | <UsageCount Value="9"/> 235 | </Unit27> 236 | <Unit28> 237 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\win32\windows.pp"/> 238 | <UnitName Value="windows"/> 239 | <CursorPos X="7" Y="45"/> 240 | <TopLine Value="48"/> 241 | <UsageCount Value="9"/> 242 | </Unit28> 243 | <Unit29> 244 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\win\wininc\base.inc"/> 245 | <CursorPos X="1" Y="1"/> 246 | <TopLine Value="1"/> 247 | <UsageCount Value="9"/> 248 | </Unit29> 249 | <Unit30> 250 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\win\wininc\func.inc"/> 251 | <CursorPos X="1" Y="1"/> 252 | <TopLine Value="226"/> 253 | <UsageCount Value="9"/> 254 | </Unit30> 255 | <Unit31> 256 | <Filename Value="insertlink.pas"/> 257 | <ComponentName Value="insertLink"/> 258 | <ResourceBaseClass Value="Form"/> 259 | <UnitName Value="frmInsertLink"/> 260 | <CursorPos X="20" Y="34"/> 261 | <TopLine Value="16"/> 262 | <UsageCount Value="14"/> 263 | </Unit31> 264 | <Unit32> 265 | <Filename Value="frminsertlink.pas"/> 266 | <IsPartOfProject Value="True"/> 267 | <ComponentName Value="fInsertLink"/> 268 | <HasResources Value="True"/> 269 | <ResourceBaseClass Value="Form"/> 270 | <UnitName Value="frmInsertLink"/> 271 | <CursorPos X="20" Y="32"/> 272 | <TopLine Value="23"/> 273 | <UsageCount Value="81"/> 274 | </Unit32> 275 | <Unit33> 276 | <Filename Value="frminsertlink.lfm"/> 277 | <CursorPos X="1" Y="1"/> 278 | <TopLine Value="1"/> 279 | <UsageCount Value="11"/> 280 | <SyntaxHighlighter Value="LFM"/> 281 | </Unit33> 282 | <Unit34> 283 | <Filename Value="frminsertparagraph.pas"/> 284 | <IsPartOfProject Value="True"/> 285 | <ComponentName Value="fInsertParagraph"/> 286 | <ResourceBaseClass Value="Form"/> 287 | <UnitName Value="frmInsertParagraph"/> 288 | <CursorPos X="20" Y="87"/> 289 | <TopLine Value="79"/> 290 | <UsageCount Value="87"/> 291 | </Unit34> 292 | <Unit35> 293 | <Filename Value="C:\Lazarus\lcl\include\customform.inc"/> 294 | <CursorPos X="1" Y="325"/> 295 | <TopLine Value="315"/> 296 | <UsageCount Value="11"/> 297 | </Unit35> 298 | <Unit36> 299 | <Filename Value="C:\Lazarus\lcl\forms.pp"/> 300 | <UnitName Value="Forms"/> 301 | <CursorPos X="10" Y="1802"/> 302 | <TopLine Value="1766"/> 303 | <UsageCount Value="15"/> 304 | </Unit36> 305 | <Unit37> 306 | <Filename Value="frminsertimage.lfm"/> 307 | <CursorPos X="1" Y="1"/> 308 | <TopLine Value="1"/> 309 | <UsageCount Value="8"/> 310 | <SyntaxHighlighter Value="LFM"/> 311 | </Unit37> 312 | <Unit38> 313 | <Filename Value="frminserttable.pas"/> 314 | <ComponentName Value="fInsertTable"/> 315 | <HasResources Value="True"/> 316 | <ResourceBaseClass Value="Form"/> 317 | <UnitName Value="frmInsertTable"/> 318 | <CursorPos X="15" Y="115"/> 319 | <TopLine Value="103"/> 320 | <UsageCount Value="31"/> 321 | </Unit38> 322 | <Unit39> 323 | <Filename Value="frminsertimage.lrs"/> 324 | <CursorPos X="1" Y="1"/> 325 | <TopLine Value="1"/> 326 | <UsageCount Value="6"/> 327 | </Unit39> 328 | <Unit40> 329 | <Filename Value="frminsertbullet.pas"/> 330 | <ComponentName Value="fInsertBullet"/> 331 | <HasResources Value="True"/> 332 | <ResourceBaseClass Value="Form"/> 333 | <UnitName Value="frmInsertBullet"/> 334 | <CursorPos X="9" Y="95"/> 335 | <TopLine Value="84"/> 336 | <UsageCount Value="30"/> 337 | </Unit40> 338 | <Unit41> 339 | <Filename Value="frminserttextarea.pas"/> 340 | <ComponentName Value="fInsertTextarea"/> 341 | <HasResources Value="True"/> 342 | <ResourceBaseClass Value="Form"/> 343 | <UnitName Value="frmInsertTextarea"/> 344 | <CursorPos X="21" Y="112"/> 345 | <TopLine Value="104"/> 346 | <UsageCount Value="21"/> 347 | </Unit41> 348 | <Unit42> 349 | <Filename Value="frminsertfieldset.pas"/> 350 | <ComponentName Value="fInsertFieldset"/> 351 | <HasResources Value="True"/> 352 | <ResourceBaseClass Value="Form"/> 353 | <UnitName Value="frmInsertFieldset"/> 354 | <CursorPos X="28" Y="102"/> 355 | <TopLine Value="93"/> 356 | <UsageCount Value="10"/> 357 | </Unit42> 358 | <Unit43> 359 | <Filename Value="frminsertradio.pas"/> 360 | <ComponentName Value="fInsertRadio"/> 361 | <HasResources Value="True"/> 362 | <ResourceBaseClass Value="Form"/> 363 | <UnitName Value="frmInsertRadio"/> 364 | <CursorPos X="13" Y="108"/> 365 | <TopLine Value="101"/> 366 | <UsageCount Value="9"/> 367 | </Unit43> 368 | <Unit44> 369 | <Filename Value="frminsertcheckbox.pas"/> 370 | <ComponentName Value="fInsertCheckbox"/> 371 | <HasResources Value="True"/> 372 | <ResourceBaseClass Value="Form"/> 373 | <UnitName Value="frmInsertCheckbox"/> 374 | <CursorPos X="13" Y="108"/> 375 | <TopLine Value="101"/> 376 | <UsageCount Value="9"/> 377 | </Unit44> 378 | <Unit45> 379 | <Filename Value="C:\Lazarus\fpc\2.2.4\source\rtl\win32\classes.pp"/> 380 | <UnitName Value="Classes"/> 381 | <CursorPos X="1" Y="1"/> 382 | <TopLine Value="31"/> 383 | <UsageCount Value="13"/> 384 | </Unit45> 385 | <Unit46> 386 | <Filename Value="C:\Lazarus\lcl\spin.pp"/> 387 | <UnitName Value="Spin"/> 388 | <CursorPos X="1" Y="1"/> 389 | <TopLine Value="31"/> 390 | <UsageCount Value="13"/> 391 | </Unit46> 392 | <Unit47> 393 | <Filename Value="C:\Lazarus\lcl\include\commondialog.inc"/> 394 | <CursorPos X="1" Y="1"/> 395 | <TopLine Value="111"/> 396 | <UsageCount Value="13"/> 397 | </Unit47> 398 | <Unit48> 399 | <Filename Value="C:\Lazarus\lcl\fileutil.pas"/> 400 | <UnitName Value="FileUtil"/> 401 | <CursorPos X="1" Y="1"/> 402 | <TopLine Value="201"/> 403 | <UsageCount Value="13"/> 404 | </Unit48> 405 | <Unit49> 406 | <Filename Value="C:\Lazarus\lcl\lresources.pp"/> 407 | <UnitName Value="LResources"/> 408 | <CursorPos X="13" Y="467"/> 409 | <TopLine Value="586"/> 410 | <UsageCount Value="13"/> 411 | </Unit49> 412 | <Unit50> 413 | <Filename Value="C:\Lazarus\lcl\include\application.inc"/> 414 | <CursorPos X="21" Y="1823"/> 415 | <TopLine Value="1976"/> 416 | <UsageCount Value="13"/> 417 | </Unit50> 418 | </Units> 419 | <JumpHistory Count="30" HistoryIndex="29"> 420 | <Position1> 421 | <Filename Value="unit1.pas"/> 422 | <Caret Line="563" Column="20" TopLine="554"/> 423 | </Position1> 424 | <Position2> 425 | <Filename Value="unit1.pas"/> 426 | <Caret Line="564" Column="20" TopLine="554"/> 427 | </Position2> 428 | <Position3> 429 | <Filename Value="unit1.pas"/> 430 | <Caret Line="715" Column="1" TopLine="702"/> 431 | </Position3> 432 | <Position4> 433 | <Filename Value="unit1.pas"/> 434 | <Caret Line="564" Column="1" TopLine="561"/> 435 | </Position4> 436 | <Position5> 437 | <Filename Value="unit1.pas"/> 438 | <Caret Line="565" Column="1" TopLine="561"/> 439 | </Position5> 440 | <Position6> 441 | <Filename Value="unit1.pas"/> 442 | <Caret Line="566" Column="1" TopLine="561"/> 443 | </Position6> 444 | <Position7> 445 | <Filename Value="unit1.pas"/> 446 | <Caret Line="567" Column="1" TopLine="561"/> 447 | </Position7> 448 | <Position8> 449 | <Filename Value="unit1.pas"/> 450 | <Caret Line="568" Column="1" TopLine="561"/> 451 | </Position8> 452 | <Position9> 453 | <Filename Value="unit1.pas"/> 454 | <Caret Line="490" Column="3" TopLine="488"/> 455 | </Position9> 456 | <Position10> 457 | <Filename Value="unit1.pas"/> 458 | <Caret Line="489" Column="3" TopLine="488"/> 459 | </Position10> 460 | <Position11> 461 | <Filename Value="unit1.pas"/> 462 | <Caret Line="490" Column="3" TopLine="488"/> 463 | </Position11> 464 | <Position12> 465 | <Filename Value="unit1.pas"/> 466 | <Caret Line="654" Column="1" TopLine="651"/> 467 | </Position12> 468 | <Position13> 469 | <Filename Value="unit1.pas"/> 470 | <Caret Line="665" Column="84" TopLine="657"/> 471 | </Position13> 472 | <Position14> 473 | <Filename Value="unit1.pas"/> 474 | <Caret Line="497" Column="48" TopLine="495"/> 475 | </Position14> 476 | <Position15> 477 | <Filename Value="unit1.pas"/> 478 | <Caret Line="670" Column="56" TopLine="668"/> 479 | </Position15> 480 | <Position16> 481 | <Filename Value="unit1.pas"/> 482 | <Caret Line="666" Column="1" TopLine="658"/> 483 | </Position16> 484 | <Position17> 485 | <Filename Value="unit1.pas"/> 486 | <Caret Line="646" Column="63" TopLine="638"/> 487 | </Position17> 488 | <Position18> 489 | <Filename Value="unit1.pas"/> 490 | <Caret Line="641" Column="26" TopLine="639"/> 491 | </Position18> 492 | <Position19> 493 | <Filename Value="unit1.pas"/> 494 | <Caret Line="511" Column="38" TopLine="509"/> 495 | </Position19> 496 | <Position20> 497 | <Filename Value="unit1.pas"/> 498 | <Caret Line="637" Column="54" TopLine="622"/> 499 | </Position20> 500 | <Position21> 501 | <Filename Value="unit1.pas"/> 502 | <Caret Line="504" Column="1" TopLine="502"/> 503 | </Position21> 504 | <Position22> 505 | <Filename Value="unit1.pas"/> 506 | <Caret Line="673" Column="55" TopLine="666"/> 507 | </Position22> 508 | <Position23> 509 | <Filename Value="unit1.pas"/> 510 | <Caret Line="730" Column="8" TopLine="722"/> 511 | </Position23> 512 | <Position24> 513 | <Filename Value="unit1.pas"/> 514 | <Caret Line="741" Column="1" TopLine="722"/> 515 | </Position24> 516 | <Position25> 517 | <Filename Value="unit1.pas"/> 518 | <Caret Line="731" Column="19" TopLine="728"/> 519 | </Position25> 520 | <Position26> 521 | <Filename Value="unit1.pas"/> 522 | <Caret Line="726" Column="3" TopLine="724"/> 523 | </Position26> 524 | <Position27> 525 | <Filename Value="unit1.pas"/> 526 | <Caret Line="495" Column="3" TopLine="493"/> 527 | </Position27> 528 | <Position28> 529 | <Filename Value="unit1.pas"/> 530 | <Caret Line="363" Column="8" TopLine="354"/> 531 | </Position28> 532 | <Position29> 533 | <Filename Value="unit1.pas"/> 534 | <Caret Line="364" Column="23" TopLine="354"/> 535 | </Position29> 536 | <Position30> 537 | <Filename Value="unit1.pas"/> 538 | <Caret Line="176" Column="61" TopLine="166"/> 539 | </Position30> 540 | </JumpHistory> 541 | </ProjectOptions> 542 | <CompilerOptions> 543 | <Version Value="8"/> 544 | <PathDelim Value="\"/> 545 | <Target> 546 | <Filename Value="w3edit"/> 547 | </Target> 548 | <SearchPaths> 549 | <IncludeFiles Value="$(ProjOutDir)\"/> 550 | </SearchPaths> 551 | <Linking> 552 | <Options> 553 | <Win32> 554 | <GraphicApplication Value="True"/> 555 | </Win32> 556 | </Options> 557 | </Linking> 558 | <Other> 559 | <CompilerPath Value="$(CompPath)"/> 560 | </Other> 561 | </CompilerOptions> 562 | <Debugging> 563 | <Exceptions Count="3"> 564 | <Item1> 565 | <Name Value="EAbort"/> 566 | </Item1> 567 | <Item2> 568 | <Name Value="ECodetoolError"/> 569 | </Item2> 570 | <Item3> 571 | <Name Value="EFOpenError"/> 572 | </Item3> 573 | </Exceptions> 574 | </Debugging> 575 | </CONFIG> 576 | -------------------------------------------------------------------------------- /source/project1.lpr: -------------------------------------------------------------------------------- 1 | program project1; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | {$IFDEF UNIX}{$IFDEF UseCThreads} 7 | cthreads, 8 | {$ENDIF}{$ENDIF} 9 | Interfaces, // this includes the LCL widgetset 10 | Forms, Unit1, LResources, Unit2; 11 | 12 | {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} 13 | 14 | begin 15 | Application.Title:='W3Edit'; 16 | {$I project1.lrs} 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | 22 | -------------------------------------------------------------------------------- /source/project1.lrs: -------------------------------------------------------------------------------- 1 | LazarusResources.Add('MAINICON','ICO',[ 2 | #0#0#1#0#1#0' '#0#0#1#0' '#0#168#16#0#0#22#0#0#0'('#0#0#0' '#0#0#0'@'#0#0#0#1 3 | +#0' '#0#0#0#0#0#0#16#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255 4 | +#255#255#0#0#0#0#4#0#0#0#10#0#0#0#3#255#255#255#0#255#255#255#0#255#255#255#0 5 | +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255 6 | +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255 7 | +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0 8 | +#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#2#0#0#0#12#0#0#0#10#0#0#0#4 9 | +#255#255#255#0#255#255#255#0'}}}]'#148#148#148#235#147#147#147#255#147#147 10 | +#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147 11 | +#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255 12 | +#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147 13 | +#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147 14 | +#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147 15 | +#147#147#255#148#148#148#237'jjjn'#0#0#0#22#255#255#255#0#150#150#150#232#237 16 | +#237#237#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 17 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 18 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 19 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 20 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 21 | +#255#255#255#255#255#255#255#255#255#255#255#255#243#243#243#255#150#150#150 22 | +#234#0#0#0#13#255#255#255#0#147#147#147#255#255#255#255#255#235#235#235#255 23 | +#235#235#235#255#236#236#236#255#237#237#237#255#238#238#238#255#239#239#239 24 | +#255#240#240#240#255#241#241#241#255#241#241#241#255#242#242#242#255#243#243 25 | +#243#255#244#244#244#255#245#245#245#255#246#246#246#255#247#247#247#255#247 26 | +#247#247#255#248#248#248#255#249#249#249#255#250#250#250#255#251#251#251#255 27 | +#252#252#252#255#253#253#253#255#253#253#253#255#254#254#254#255#255#255#255 28 | +#255#255#255#255#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255 29 | +#255#0#147#147#147#255#255#255#255#255#234#234#234#255#235#235#235#255#236 30 | +#236#236#255#237#237#237#255#238#238#238#255#238#238#238#255#239#239#239#255 31 | +#240#240#240#255#241#241#241#255#242#242#242#255#243#243#243#255#243#243#243 32 | +#255#244#244#244#255#245#245#245#255#246#246#246#255#247#247#247#255#248#248 33 | +#248#255#249#249#249#255#249#249#249#255#250#250#250#255#251#251#251#255#252 34 | +#252#252#255#253#253#253#255#254#254#254#255#255#255#255#255#255#255#255#255 35 | +#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255 36 | +#255#255#255#255#234#234#234#255#234#234#234#255#235#235#235#255#236#236#236 37 | +#255#237#237#237#255#238#238#238#255#239#239#239#255#240#240#240#255#240#240 38 | +#240#255#241#241#241#255#242#242#242#255#243#243#243#255#244#244#244#255#245 39 | +#245#245#255#246#246#246#255#246#246#246#255#247#247#247#255#248#248#248#255 40 | +#249#249#249#255#250#250#250#255#251#251#251#255#252#252#252#255#252#252#252 41 | +#255#253#253#253#255#254#254#254#255#255#255#255#255#255#255#255#255#147#147 42 | +#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255#255#255#233#233 43 | +#233#255#234#234#234#255#235#235#235#255#141#141#141#255#141#141#141#255#142 44 | +#142#142#255#142#142#142#255#143#143#143#255#144#144#144#255#144#144#144#255 45 | +#145#145#145#255#242#242#242#255#243#243#243#255#244#244#244#255#245#245#245 46 | +#255#246#246#246#255#247#247#247#255#248#248#248#255#248#248#248#255#249#249 47 | +#249#255#250#250#250#255#251#251#251#255#252#252#252#255#253#253#253#255#254 48 | +#254#254#255#254#254#254#255#255#255#255#255#147#147#147#255#255#255#255#0 49 | +#255#255#255#0#147#147#147#255#255#255#255#255#232#232#232#255#233#233#233 50 | +#255#234#234#234#255#235#235#235#255#236#236#236#255#237#237#237#255#238#238 51 | +#238#255#238#238#238#255#239#239#239#255#240#240#240#255#241#241#241#255#242 52 | +#242#242#255#243#243#243#255#244#244#244#255#244#244#244#255#245#245#245#255 53 | +#246#246#246#255#247#247#247#255#248#248#248#255#249#249#249#255#250#250#250 54 | +#255#250#250#250#255#251#251#251#255#252#252#252#255#253#253#253#255#254#254 55 | +#254#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147 56 | +#147#255#255#255#255#255#232#232#232#255#233#233#233#255#234#234#234#255#235 57 | +#235#235#255#235#235#235#255#236#236#236#255#237#237#237#255#238#238#238#255 58 | +#239#239#239#255#240#240#240#255#241#241#241#255#241#241#241#255#242#242#242 59 | +#255#243#243#243#255#244#244#244#255#245#245#245#255#246#246#246#255#246#246 60 | +#246#255#247#247#247#255#248#248#248#255#249#249#249#255#250#250#250#255#251 61 | +#251#251#255#252#252#252#255#252#252#252#255#253#253#253#255#255#255#255#255 62 | +#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255#255#255 63 | +#231#231#231#255#232#232#232#255#233#233#233#255#234#234#234#255#235#235#235 64 | +#255#236#236#236#255#237#237#237#255#237#237#237#255#238#238#238#255#239#239 65 | +#239#255#240#240#240#255#241#241#241#255#242#242#242#255#243#243#243#255#243 66 | ,#243#243#255#244#244#244#255#245#245#245#255#246#246#246#255#247#247#247#255 67 | +#248#248#248#255#249#249#249#255#249#249#249#255#250#250#250#255#251#251#251 68 | +#255#252#252#252#255#253#253#253#255#255#255#255#255#147#147#147#255#255#255 69 | +#255#0#255#255#255#0#147#147#147#255#255#255#255#255#231#231#231#255#232#232 70 | +#232#255#233#233#233#255#148#148#148#255#148#148#148#255#149#149#149#255#149 71 | +#149#149#255#150#150#150#255#151#151#151#255#151#151#151#255#151#151#151#255 72 | +#152#152#152#255#153#153#153#255#153#153#153#255#154#154#154#255#155#155#155 73 | +#255#155#155#155#255#155#155#155#255#246#246#246#255#247#247#247#255#248#248 74 | +#248#255#249#249#249#255#250#250#250#255#251#251#251#255#251#251#251#255#252 75 | +#252#252#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147 76 | +#147#147#255#255#255#255#255#230#230#230#255#231#231#231#255#232#232#232#255 77 | +#233#233#233#255#234#234#234#255#235#235#235#255#235#235#235#255#236#236#236 78 | +#255#237#237#237#255#238#238#238#255#239#239#239#255#240#240#240#255#241#241 79 | +#241#255#241#241#241#255#242#242#242#255#243#243#243#255#244#244#244#255#245 80 | +#245#245#255#246#246#246#255#247#247#247#255#247#247#247#255#248#248#248#255 81 | +#249#249#249#255#250#250#250#255#251#251#251#255#252#252#252#255#255#255#255 82 | +#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255#255 83 | +#255#230#230#230#255#231#231#231#255#232#232#232#255#232#232#232#255#233#233 84 | +#233#255#234#234#234#255#235#235#235#255#236#236#236#255#237#237#237#255#238 85 | +#238#238#255#238#238#238#255#239#239#239#255#240#240#240#255#241#241#241#255 86 | +#242#242#242#255#243#243#243#255#243#243#243#255#244#244#244#255#245#245#245 87 | +#255#246#246#246#255#247#247#247#255#248#248#248#255#249#249#249#255#249#249 88 | +#249#255#250#250#250#255#251#251#251#255#255#255#255#255#147#147#147#255#255 89 | +#255#255#0#255#255#255#0#147#147#147#255#255#255#255#255#229#229#229#255#230 90 | +#230#230#255#231#231#231#255#232#232#232#255#233#233#233#255#234#234#234#255 91 | +#234#234#234#255#235#235#235#255#236#236#236#255#237#237#237#255#238#238#238 92 | +#255#239#239#239#255#240#240#240#255#240#240#240#255#241#241#241#255#242#242 93 | +#242#255#243#243#243#255#244#244#244#255#245#245#245#255#246#246#246#255#246 94 | +#246#246#255#247#247#247#255#248#248#248#255#249#249#249#255#250#250#250#255 95 | +#251#251#251#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0 96 | +#147#147#147#255#255#255#255#255#229#229#229#255#230#230#230#255#230#230#230 97 | +#255#138#138#138#255#139#139#139#255#139#139#139#255#140#140#140#255#141#141 98 | +#141#255#141#141#141#255#141#141#141#255#142#142#142#255#142#142#142#255#143 99 | +#143#143#255#240#240#240#255#241#241#241#255#242#242#242#255#242#242#242#255 100 | +#243#243#243#255#244#244#244#255#245#245#245#255#246#246#246#255#247#247#247 101 | +#255#248#248#248#255#248#248#248#255#249#249#249#255#250#250#250#255#255#255 102 | +#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255 103 | +#255#255#228#228#228#255#229#229#229#255#230#230#230#255#231#231#231#255#232 104 | +#232#232#255#232#232#232#255#233#233#233#255#234#234#234#255#235#235#235#255 105 | +#236#236#236#255#237#237#237#255#238#238#238#255#238#238#238#255#239#239#239 106 | +#255#240#240#240#255#241#241#241#255#242#242#242#255#243#243#243#255#244#244 107 | +#244#255#244#244#244#255#245#245#245#255#246#246#246#255#247#247#247#255#248 108 | +#248#248#255#249#249#249#255#250#250#250#255#255#255#255#255#147#147#147#255 109 | +#255#255#255#0#255#255#255#0#147#147#147#255#255#255#255#255#228#228#228#255 110 | +#229#229#229#255#229#229#229#255#230#230#230#255#231#231#231#255#232#232#232 111 | +#255#233#233#233#255#234#234#234#255#235#235#235#255#235#235#235#255#236#236 112 | +#236#255#237#237#237#255#238#238#238#255#239#239#239#255#240#240#240#255#241 113 | +#241#241#255#241#241#241#255#242#242#242#255#243#243#243#255#244#244#244#255 114 | +#245#245#245#255#246#246#246#255#246#246#246#255#247#247#247#255#248#248#248 115 | +#255#249#249#249#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255 116 | +#255#0#147#147#147#255#255#255#255#255#227#227#227#255#228#228#228#255#229 117 | +#229#229#255#230#230#230#255#231#231#231#255#231#231#231#255#232#232#232#255 118 | +#233#233#233#255#234#234#234#255#235#235#235#255#236#236#236#255#237#237#237 119 | +#255#237#237#237#255#238#238#238#255#239#239#239#255#240#240#240#255#241#241 120 | +#241#255#242#242#242#255#243#243#243#255#243#243#243#255#244#244#244#255#245 121 | +#245#245#255#246#246#246#255#247#247#247#255#248#248#248#255#249#249#249#255 122 | +#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255 123 | +#255#255#255#255#227#227#227#255#227#227#227#255#228#228#228#255#137#137#137 124 | +#255#138#138#138#255#138#138#138#255#139#139#139#255#139#139#139#255#139#139 125 | +#139#255#140#140#140#255#141#141#141#255#141#141#141#255#142#142#142#255#142 126 | +#142#142#255#143#143#143#255#143#143#143#255#144#144#144#255#144#144#144#255 127 | +#145#145#145#255#145#145#145#255#244#244#244#255#245#245#245#255#245#245#245 128 | +#255#246#246#246#255#247#247#247#255#248#248#248#255#255#255#255#255#147#147 129 | +#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255#255#255#226#226 130 | ,#226#255#227#227#227#255#228#228#228#255#229#229#229#255#230#230#230#255#230 131 | +#230#230#255#231#231#231#255#232#232#232#255#233#233#233#255#234#234#234#255 132 | +#235#235#235#255#235#235#235#255#236#236#236#255#237#237#237#255#238#238#238 133 | +#255#239#239#239#255#240#240#240#255#241#241#241#255#241#241#241#255#242#242 134 | +#242#255#243#243#243#255#244#244#244#255#245#245#245#255#246#246#246#255#247 135 | +#247#247#255#247#247#247#255#255#255#255#255#147#147#147#255#255#255#255#0 136 | +#255#255#255#0#147#147#147#255#255#255#255#255#226#226#226#255#226#226#226 137 | +#255#227#227#227#255#228#228#228#255#229#229#229#255#230#230#230#255#231#231 138 | +#231#255#232#232#232#255#232#232#232#255#233#233#233#255#234#234#234#255#235 139 | +#235#235#255#236#236#236#255#237#237#237#255#238#238#238#255#238#238#238#255 140 | +#239#239#239#255#240#240#240#255#241#241#241#255#242#242#242#255#243#243#243 141 | +#255#244#244#244#255#244#244#244#255#245#245#245#255#246#246#246#255#247#247 142 | +#247#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147 143 | +#147#255#255#255#255#255#225#225#225#255#226#226#226#255#227#227#227#255#228 144 | +#228#228#255#228#228#228#255#229#229#229#255#230#230#230#255#231#231#231#255 145 | +#232#232#232#255#233#233#233#255#234#234#234#255#234#234#234#255#235#235#235 146 | +#255#236#236#236#255#237#237#237#255#238#238#238#255#239#239#239#255#240#240 147 | +#240#255#240#240#240#255#241#241#241#255#242#242#242#255#243#243#243#255#244 148 | +#244#244#255#245#245#245#255#246#246#246#255#246#246#246#255#255#255#255#255 149 | +#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255#255#255 150 | +#224#224#224#255#225#225#225#255#226#226#226#255#136#136#136#255#136#136#136 151 | +#255#137#137#137#255#138#138#138#255#138#138#138#255#138#138#138#255#139#139 152 | +#139#255#139#139#139#255#140#140#140#255#141#141#141#255#141#141#141#255#141 153 | +#141#141#255#142#142#142#255#142#142#142#255#143#143#143#255#144#144#144#255 154 | +#144#144#144#255#145#145#145#255#145#145#145#255#145#145#145#255#244#244#244 155 | +#255#245#245#245#255#246#246#246#255#255#255#255#255#147#147#147#255#255#255 156 | +#255#0#255#255#255#0#147#147#147#255#255#255#255#255#224#224#224#255#225#225 157 | +#225#255#226#226#226#255#227#227#227#255#227#227#227#255#228#228#228#255#229 158 | +#229#229#255#230#230#230#255#231#231#231#255#232#232#232#255#232#232#232#255 159 | +#233#233#233#255#234#234#234#255#235#235#235#255#236#236#236#255#237#237#237 160 | +#255#238#238#238#255#239#239#239#255#239#239#239#255#240#240#240#255#241#241 161 | +#241#255#242#242#242#255#243#243#243#255#244#244#244#255#244#244#244#255#245 162 | +#245#245#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147 163 | +#147#147#255#255#255#255#255#223#223#223#255#224#224#224#255#225#225#225#255 164 | +#226#226#226#255#227#227#227#255#228#228#228#255#229#229#229#255#229#229#229 165 | +#255#230#230#230#255#231#231#231#255#232#232#232#255#233#233#233#255#234#234 166 | +#234#255#235#235#235#255#235#235#235#255#236#236#236#255#237#237#237#255#238 167 | +#238#238#255#239#239#239#255#240#240#240#255#241#241#241#255#241#241#241#255 168 | +#242#242#242#255#243#243#243#255#244#244#244#255#245#245#245#255#255#255#255 169 | +#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255#255 170 | +#255#223#223#223#255#224#224#224#255#225#225#225#255#219#219#219#255#220#220 171 | +#220#255#221#221#221#255#222#222#222#255#223#223#223#255#224#224#224#255#225 172 | +#225#225#255#225#225#225#255#226#226#226#255#227#227#227#255#228#228#228#255 173 | +#229#229#229#255#236#236#236#255#237#237#237#255#237#237#237#255#238#238#238 174 | +#255#239#239#239#255#240#240#240#255#241#241#241#255#242#242#242#255#243#243 175 | +#243#255#243#243#243#255#244#244#244#255#255#255#255#255#147#147#147#255#255 176 | +#255#255#0#255#255#255#0#147#147#147#255#255#255#255#255#222#222#222#255#223 177 | +#223#223#255#224#224#224#255#135#135#135#255#135#135#135#255#136#136#136#255 178 | +#136#136#136#255#136#136#136#255#137#137#137#255#138#138#138#255#138#138#138 179 | +#255#139#139#139#255#139#139#139#255#139#139#139#255#140#140#140#255#235#235 180 | +#235#255#236#236#236#255#237#237#237#255#238#238#238#255#239#239#239#255#239 181 | +#239#239#255#240#240#240#255#241#241#241#255#242#242#242#255#243#243#243#255 182 | +#244#244#244#255#255#255#255#255#147#147#147#255#255#255#255#0#255#255#255#0 183 | +#147#147#147#255#255#255#255#255#222#222#222#255#223#223#223#255#224#224#224 184 | +#255#224#224#224#255#225#225#225#255#226#226#226#255#227#227#227#255#228#228 185 | +#228#255#229#229#229#255#230#230#230#255#230#230#230#255#231#231#231#255#232 186 | +#232#232#255#233#233#233#255#234#234#234#255#235#235#235#255#236#236#236#255 187 | +#236#236#236#255#237#237#237#255#238#238#238#255#239#239#239#255#240#240#240 188 | +#255#241#241#241#255#242#242#242#255#242#242#242#255#243#243#243#255#255#255 189 | +#255#255#147#147#147#255#255#255#255#0#255#255#255#0#147#147#147#255#255#255 190 | +#255#255#222#222#222#255#222#222#222#255#223#223#223#255#224#224#224#255#225 191 | +#225#225#255#226#226#226#255#226#226#226#255#227#227#227#255#228#228#228#255 192 | +#229#229#229#255#230#230#230#255#231#231#231#255#232#232#232#255#232#232#232 193 | +#255#233#233#233#255#234#234#234#255#235#235#235#255#236#236#236#255#237#237 194 | ,#237#255#238#238#238#255#238#238#238#255#239#239#239#255#240#240#240#255#241 195 | +#241#241#255#242#242#242#255#243#243#243#255#255#255#255#255#147#147#147#255 196 | +#255#255#255#0#255#255#255#0#150#150#150#231#233#233#233#255#255#255#255#255 197 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 198 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 199 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 200 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 201 | +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 202 | +#255#255#255#255#255#239#239#239#255#151#151#151#231#255#255#255#0#255#255 203 | +#255#0#150#150#150'N'#150#150#150#231#147#147#147#255#147#147#147#255#147#147 204 | +#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147 205 | +#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255 206 | +#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147 207 | +#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147 208 | +#147#255#147#147#147#255#147#147#147#255#147#147#147#255#147#147#147#255#151 209 | +#151#151#231#150#150#150'N'#255#255#255#0#255#255#255#0#255#255#255#0#255#255 210 | +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0 211 | +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255 212 | +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255 213 | +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0 214 | +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255 215 | +#255#255#0#255#255#255#0#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 216 | +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 217 | +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 218 | +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 219 | ]); 220 | 221 | -------------------------------------------------------------------------------- /source/project1.manifest: -------------------------------------------------------------------------------- 1 | <?xml version="1.0" encoding="UTF-8" standalone="yes"?> 2 | <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 3 | <assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/> 4 | <description>Your application description here.</description> 5 | <dependency> 6 | <dependentAssembly> 7 | <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/> 8 | </dependentAssembly> 9 | </dependency> 10 | <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"> 11 | <security> 12 | <requestedPrivileges> 13 | <requestedExecutionLevel level="asInvoker" uiAccess="false"/> 14 | </requestedPrivileges> 15 | </security> 16 | </trustInfo> 17 | </assembly> -------------------------------------------------------------------------------- /source/project1.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/project1.o -------------------------------------------------------------------------------- /source/project1.or: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/project1.or -------------------------------------------------------------------------------- /source/project1.pas: -------------------------------------------------------------------------------- 1 | program project1; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | {$IFDEF UNIX}{$IFDEF UseCThreads} 7 | cthreads, 8 | {$ENDIF}{$ENDIF} 9 | Interfaces, // this includes the LCL widgetset 10 | Forms, Unit1, LResources, Unit2, frmInsertParagraph, frmInsertLink; 11 | 12 | {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} 13 | 14 | begin 15 | {$I project1.lrs} 16 | Application.Title:='W3Edit'; 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | 22 | -------------------------------------------------------------------------------- /source/project1.rc: -------------------------------------------------------------------------------- 1 | 1 VERSIONINFO 2 | FILEVERSION 1,0,0,587 3 | PRODUCTVERSION 1,0,0,124 4 | { 5 | BLOCK "StringFileInfo" 6 | { 7 | BLOCK "040904E4" 8 | { 9 | VALUE "Comments", "\000" 10 | VALUE "CompanyName", "\000" 11 | VALUE "FileDescription", "\000" 12 | VALUE "FileVersion", "1.0.0.587\000" 13 | VALUE "InternalName", "\000" 14 | VALUE "LegalCopyright", "\000" 15 | VALUE "LegalTrademarks", "\000" 16 | VALUE "OriginalFilename", "\000" 17 | VALUE "ProductName", "\000" 18 | VALUE "ProductVersion", "1.0.0.124\000" 19 | } 20 | } 21 | BLOCK "VarFileInfo" 22 | { 23 | VALUE "Translation", 0x0409, 0x04E4 24 | } 25 | } 26 | 27 | #define RT_MANIFEST 24 28 | #define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 29 | #define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2 30 | #define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3 31 | 32 | CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest" 33 | MAINICON ICON "project1.ico" 34 | -------------------------------------------------------------------------------- /source/project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/project1.res -------------------------------------------------------------------------------- /source/unit1.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/unit1.o -------------------------------------------------------------------------------- /source/unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | ButtonPanel, ComCtrls, ExtCtrls, StdCtrls, Buttons, ColorBox, Menus, SynEdit, 10 | SynHighlighterHTML, SynEditKeyCmds, ShellAPI, LCLType, Spin, Unit2; 11 | 12 | type 13 | 14 | { TForm1 } 15 | 16 | TForm1 = class(TForm) 17 | BaseEditor: TSynEdit; 18 | ColorButton1: TColorButton; 19 | Edit1: TEdit; 20 | Image1: TImage; 21 | Image2: TImage; 22 | Image3: TImage; 23 | Image4: TImage; 24 | ImageList1: TImageList; 25 | Label1: TLabel; 26 | Label2: TLabel; 27 | Label3: TLabel; 28 | Label4: TLabel; 29 | Label5: TLabel; 30 | Label6: TLabel; 31 | MenuItem1: TMenuItem; 32 | MenuItem10: TMenuItem; 33 | MenuItem11: TMenuItem; 34 | MenuItem12: TMenuItem; 35 | MenuItem13: TMenuItem; 36 | MenuItem14: TMenuItem; 37 | MenuItem15: TMenuItem; 38 | MenuItem16: TMenuItem; 39 | MenuItem17: TMenuItem; 40 | MenuItem18: TMenuItem; 41 | MenuItem19: TMenuItem; 42 | MenuItem2: TMenuItem; 43 | MenuItem20: TMenuItem; 44 | MenuItem21: TMenuItem; 45 | MenuItem22: TMenuItem; 46 | MenuItem23: TMenuItem; 47 | MenuItem3: TMenuItem; 48 | MenuItem4: TMenuItem; 49 | MenuItem5: TMenuItem; 50 | MenuItem6: TMenuItem; 51 | MenuItem7: TMenuItem; 52 | MenuItem8: TMenuItem; 53 | MenuItem9: TMenuItem; 54 | PageControl1: TPageControl; 55 | Panel1: TPanel; 56 | Panel2: TPanel; 57 | Panel3: TPanel; 58 | Panel4: TPanel; 59 | PopupMenu1: TPopupMenu; 60 | PopupMenu2: TPopupMenu; 61 | PopupMenu3: TPopupMenu; 62 | PopupMenu4: TPopupMenu; 63 | SaveDialog1: TSaveDialog; 64 | ScrollBox1: TScrollBox; 65 | ScrollBox2: TScrollBox; 66 | SpeedButton10: TSpeedButton; 67 | SpeedButton11: TSpeedButton; 68 | SpeedButton12: TSpeedButton; 69 | SpeedButton13: TSpeedButton; 70 | SpeedButton14: TSpeedButton; 71 | SpeedButton15: TSpeedButton; 72 | SpeedButton16: TSpeedButton; 73 | SpeedButton17: TSpeedButton; 74 | SpeedButton18: TSpeedButton; 75 | SpeedButton19: TSpeedButton; 76 | SpeedButton20: TSpeedButton; 77 | SpeedButton21: TSpeedButton; 78 | SpeedButton22: TSpeedButton; 79 | SpeedButton23: TSpeedButton; 80 | SpeedButton24: TSpeedButton; 81 | SpeedButton25: TSpeedButton; 82 | SpeedButton26: TSpeedButton; 83 | SpeedButton27: TSpeedButton; 84 | SpeedButton28: TSpeedButton; 85 | SpeedButton29: TSpeedButton; 86 | SpeedButton30: TSpeedButton; 87 | SpeedButton31: TSpeedButton; 88 | SpeedButton32: TSpeedButton; 89 | SpeedButton33: TSpeedButton; 90 | SpeedButton34: TSpeedButton; 91 | SpeedButton35: TSpeedButton; 92 | SpeedButton36: TSpeedButton; 93 | SpeedButton37: TSpeedButton; 94 | SpeedButton5: TSpeedButton; 95 | SpeedButton7: TSpeedButton; 96 | SpeedButton8: TSpeedButton; 97 | SpeedButton9: TSpeedButton; 98 | SpinEdit1: TSpinEdit; 99 | SpinEdit2: TSpinEdit; 100 | SpinEdit3: TSpinEdit; 101 | Splitter1: TSplitter; 102 | Splitter2: TSplitter; 103 | StatusBar1: TStatusBar; 104 | SynHTMLSyn1: TSynHTMLSyn; 105 | tmrPanel: TTimer; 106 | tool1: TPanel; 107 | tool1c: TPanel; 108 | tool1c1: TPanel; 109 | tool1c2: TPanel; 110 | tool1c3: TPanel; 111 | tool2: TPanel; 112 | tool3: TPanel; 113 | tool4: TPanel; 114 | ToolBar1: TToolBar; 115 | ToolButton1: TToolButton; 116 | ToolButton10: TToolButton; 117 | ToolButton11: TToolButton; 118 | ToolButton12: TToolButton; 119 | ToolButton2: TToolButton; 120 | ToolButton3: TToolButton; 121 | ToolButton4: TToolButton; 122 | ToolButton5: TToolButton; 123 | ToolButton6: TToolButton; 124 | ToolButton7: TToolButton; 125 | ToolButton8: TToolButton; 126 | ToolButton9: TToolButton; 127 | procedure BaseEditorClick(Sender: TObject); 128 | procedure BaseEditorKeyDown(Sender: TObject; var Key: Word; 129 | Shift: TShiftState); 130 | procedure BaseEditorProcessCommand(Sender: TObject; 131 | var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer); 132 | procedure BaseEditorStatusChange(Sender: TObject; Changes: TSynStatusChanges 133 | ); 134 | procedure Button1Click(Sender: TObject); 135 | procedure ColorButton1ColorChanged(Sender: TObject); 136 | procedure FormCreate(Sender: TObject); 137 | procedure FormShow(Sender: TObject); 138 | procedure Label5Click(Sender: TObject); 139 | procedure Label6Click(Sender: TObject); 140 | procedure MenuItem18Click(Sender: TObject); 141 | procedure MenuItem5Click(Sender: TObject); 142 | procedure MenuItem6Click(Sender: TObject); 143 | procedure MenuItem8Click(Sender: TObject); 144 | procedure ScrollBox1Click(Sender: TObject); 145 | procedure SpeedButton10Click(Sender: TObject); 146 | procedure SpeedButton11Click(Sender: TObject); 147 | procedure SpeedButton12Click(Sender: TObject); 148 | procedure SpeedButton13Click(Sender: TObject); 149 | procedure SpeedButton14Click(Sender: TObject); 150 | procedure SpeedButton15Click(Sender: TObject); 151 | procedure SpeedButton16Click(Sender: TObject); 152 | procedure SpeedButton19Click(Sender: TObject); 153 | procedure SpeedBu(Sender: TObject); 154 | procedure SpeedButton1Click(Sender: TObject); 155 | procedure SpeedButton20Click(Sender: TObject); 156 | procedure SpeedButton21Click(Sender: TObject); 157 | procedure SpeedButton22Click(Sender: TObject); 158 | procedure SpeedButton23Click(Sender: TObject); 159 | procedure SpeedButton24Click(Sender: TObject); 160 | procedure SpeedButton25Click(Sender: TObject); 161 | procedure SpeedButton26Click(Sender: TObject); 162 | procedure SpeedButton27Click(Sender: TObject); 163 | procedure SpeedButton2Click(Sender: TObject); 164 | procedure SpeedButton36Click(Sender: TObject); 165 | procedure SpeedButton37Click(Sender: TObject); 166 | procedure SpeedButton3Click(Sender: TObject); 167 | procedure SpeedButton4Click(Sender: TObject); 168 | procedure SpeedButton6Click(Sender: TObject); 169 | procedure SpeedButton7Click(Sender: TObject); 170 | procedure SpeedButton8Click(Sender: TObject); 171 | procedure SpeedButton9Click(Sender: TObject); 172 | procedure SpinEdit1Change(Sender: TObject); 173 | procedure onEditorChange(Sender: TObject); 174 | procedure onEditorKeydown(Sender: TObject); 175 | procedure BaseEditorCommandProcessed(Sender: TObject; 176 | var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer); 177 | procedure tmrPanelTimer(Sender: TObject); 178 | procedure tool1c1Click(Sender: TObject); 179 | procedure tool1c2Click(Sender: TObject); 180 | procedure tool1c3Click(Sender: TObject); 181 | procedure tool1cClick(Sender: TObject); 182 | procedure PanelToggle(Panel:TPanel); 183 | procedure tool2Click(Sender: TObject); 184 | procedure ToolBar1Click(Sender: TObject); 185 | procedure ToolButton10Click(Sender: TObject); 186 | procedure ToolButton12Click(Sender: TObject); 187 | procedure ToolButton1Click(Sender: TObject); 188 | procedure ToolButton2Click(Sender: TObject); 189 | procedure ToolButton7Click(Sender: TObject); 190 | procedure ToolButton8Click(Sender: TObject); 191 | private 192 | { private declarations } 193 | public 194 | { public declarations } 195 | end; 196 | 197 | type TOS = (Win, Lin, Mac); 198 | 199 | var 200 | Form1: TForm1; 201 | cPanel : TPanel; 202 | wPanel : integer; 203 | fCount : integer; 204 | pBuild : string; 205 | pTempPath : string; 206 | OS:TOS; 207 | procedure InsertEditor(StartTag : String; EndTag : String = ''); 208 | 209 | implementation 210 | 211 | uses frmInsertLink, frmInsertImage, frmInsertDiv, 212 | frmInsertSpan, frmInsertParagraph, frmInsertTable, 213 | frmInsertBullet, frmInsertFlash, frmInsertForm, 214 | frmInsertTextBox, frmInsertTextarea, frmInsertPassword, 215 | frmInsertCheckBox, frmInsertRadio, frmInsertButton, 216 | frmInsertHidden, frmInsertFieldset; 217 | 218 | procedure PreviewDocument; 219 | begin 220 | 221 | if TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Hint='' then 222 | begin 223 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).lines.savetofile(pTempPath+form1.pagecontrol1.ActivePage.caption+'.html'); 224 | ShellExecute(0, nil, PChar('file:///'+pTempPath+form1.pagecontrol1.ActivePage.caption+'.html'),nil,nil,SW_SHOWNORMAL); 225 | end 226 | else 227 | ShellExecute(0, nil, PChar('file:///'+TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Hint),nil,nil,SW_SHOWNORMAL); 228 | begin 229 | end; 230 | 231 | end; 232 | 233 | procedure UpdateCursorPos; 234 | begin 235 | form1.statusbar1.Panels[0].Text := 'Row: '+inttostr(TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).CaretX)+' Col: '+inttostr(TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).CaretY); 236 | end; 237 | 238 | procedure SaveDocument; 239 | begin 240 | 241 | if TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Hint='' then 242 | begin 243 | form1.SaveDialog1.FileName := form1.pagecontrol1.ActivePage.Caption; 244 | if form1.savedialog1.Execute then 245 | begin 246 | if form1.savedialog1.FileName<>'' then 247 | begin 248 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Lines.SaveToFile(form1.savedialog1.FileName); 249 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Hint := form1.savedialog1.FileName; 250 | form1.pagecontrol1.ActivePage.Caption:=extractfilename(form1.savedialog1.FileName); 251 | form1.pagecontrol1.ActivePage.ImageIndex:=7; 252 | end; 253 | end; 254 | end 255 | else 256 | begin 257 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Lines.SaveToFile(TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Hint); 258 | form1.pagecontrol1.ActivePage.ImageIndex:=7; 259 | end; 260 | 261 | end; 262 | 263 | procedure NewDocument(content:string = ''); 264 | var 265 | tab : TTabSheet; 266 | editor : TSynEdit; 267 | begin 268 | 269 | tab := TTabsheet.Create(form1.PageControl1); 270 | tab.PageControl := form1.PageControl1; 271 | tab.ImageIndex:=7; 272 | tab.Caption:='Untitled-' + inttostr(fCount); 273 | inc(fCount,1); 274 | 275 | editor := TSynEdit.Create(tab); 276 | editor.Parent := tab; 277 | 278 | editor.Align := Form1.BaseEditor.Align; 279 | editor.Font := Form1.BaseEditor.Font; 280 | editor.Highlighter := Form1.BaseEditor.Highlighter; 281 | editor.Options := Form1.BaseEditor.Options; 282 | editor.Options2 := Form1.BaseEditor.Options2; 283 | editor.Gutter.Parts.Delete(0); 284 | editor.Gutter.Parts.Delete(1); 285 | editor.Gutter.Parts.Delete(2); 286 | editor.Gutter.AutoSize := true; 287 | editor.Gutter.LeftOffset:=5; 288 | editor.BookmarkOptions := Form1.BaseEditor.BookmarkOptions; 289 | editor.OnChange := Form1.BaseEditor.OnChange; 290 | editor.OnKeydown := Form1.BaseEditor.OnKeydown; 291 | editor.OnClick := Form1.BaseEditor.OnClick; 292 | editor.Lines.Text := Content; 293 | editor.DoubleBuffered := true; 294 | editor.ScrollBars := ssBoth; 295 | editor.Visible := true; 296 | form1.pagecontrol1.ActivePage := tab; 297 | 298 | end; 299 | 300 | procedure TForm1.PanelToggle(Panel:TPanel); 301 | begin 302 | cPanel := Panel; 303 | cPanel.AutoSize:=true; 304 | wPanel := cPanel.Height; 305 | cPanel.AutoSize:=false; 306 | tmrPanel.Enabled := true; 307 | end; 308 | 309 | procedure TForm1.tool2Click(Sender: TObject); 310 | begin 311 | 312 | end; 313 | 314 | procedure TForm1.ToolBar1Click(Sender: TObject); 315 | begin 316 | 317 | end; 318 | 319 | procedure TForm1.ToolButton10Click(Sender: TObject); 320 | begin 321 | 322 | end; 323 | 324 | procedure TForm1.ToolButton12Click(Sender: TObject); 325 | begin 326 | PreviewDocument; 327 | end; 328 | 329 | procedure TForm1.ToolButton1Click(Sender: TObject); 330 | begin 331 | 332 | end; 333 | 334 | procedure TForm1.ToolButton2Click(Sender: TObject); 335 | begin 336 | 337 | end; 338 | 339 | procedure TForm1.ToolButton7Click(Sender: TObject); 340 | begin 341 | NewDocument; 342 | end; 343 | 344 | procedure TForm1.ToolButton8Click(Sender: TObject); 345 | begin 346 | SaveDocument; 347 | end; 348 | 349 | procedure onEditorSave; 350 | begin 351 | form1.pagecontrol1.ActivePage.ImageIndex:=6; 352 | end; 353 | 354 | procedure TForm1.FormCreate(Sender: TObject); 355 | begin 356 | {$IFDEF WIN32} OS:=Win; {$ENDIF} 357 | {$IFDEF UNIX} OS:=Lin; {$ENDIF} 358 | {$IFDEF DARWIN} OS:=Mac; {$ENDIF} 359 | tool2.AutoSize:=true; 360 | tool3.Height:=tool1c2.Height+2; 361 | tool3.tag := 1; 362 | tool1.Height:=tool1c.Height+2; 363 | tool1.tag := 1; 364 | pTempPath := GetTempDir; 365 | fCount := 0; 366 | inc(fcount,1); 367 | NewDocument; 368 | end; 369 | 370 | procedure TForm1.FormShow(Sender: TObject); 371 | begin 372 | 373 | end; 374 | 375 | procedure TForm1.Label5Click(Sender: TObject); 376 | begin 377 | edit1.CopyToClipboard; 378 | end; 379 | 380 | procedure TForm1.Label6Click(Sender: TObject); 381 | begin 382 | InsertEditor(edit1.text); 383 | end; 384 | 385 | procedure TForm1.MenuItem18Click(Sender: TObject); 386 | begin 387 | SaveDocument; 388 | end; 389 | 390 | procedure TForm1.ColorButton1ColorChanged(Sender: TObject); 391 | var 392 | c : TColor; 393 | s, t1, t2, t3, t4: shortstring; 394 | r, g, b : integer; 395 | begin 396 | 397 | c := colorbutton1.ButtonColor; 398 | r := red(c); 399 | g := green(c); 400 | b := blue(c); 401 | 402 | s := '#' + copy(colortostring(c), 4, 6); 403 | 404 | t1 := copy(s, 2, 1); 405 | t2 := copy(s, 3, 1); 406 | t3 := copy(s, 6, 1); 407 | t4 := copy(s, 7, 1); 408 | s[2] := t3[1]; 409 | s[3] := t4[1]; 410 | s[6] := t1[1]; 411 | s[7] := t2[1]; 412 | 413 | edit1.Text := s; 414 | 415 | if colorbutton1.tag = 0 then 416 | begin 417 | spinedit1.value := r; 418 | spinedit2.value := g; 419 | spinedit3.value := b; 420 | end; 421 | 422 | end; 423 | 424 | procedure TForm1.Button1Click(Sender: TObject); 425 | begin 426 | end; 427 | 428 | procedure TForm1.BaseEditorStatusChange(Sender: TObject; 429 | Changes: TSynStatusChanges); 430 | begin 431 | 432 | end; 433 | 434 | procedure TForm1.BaseEditorProcessCommand(Sender: TObject; 435 | var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer); 436 | begin 437 | 438 | end; 439 | 440 | procedure TForm1.BaseEditorKeyDown(Sender: TObject; var Key: Word; 441 | Shift: TShiftState); 442 | begin 443 | UpdateCursorPos; 444 | end; 445 | 446 | procedure TForm1.BaseEditorClick(Sender: TObject); 447 | begin 448 | UpdateCursorPos; 449 | end; 450 | 451 | procedure TForm1.SpinEdit1Change(Sender: TObject); 452 | var 453 | r, g, b : integer; 454 | t : string; 455 | begin 456 | if (spinedit1.Text='') or (spinedit2.Text='') or (spinedit3.Text='') then abort; 457 | colorbutton1.Tag := 1; 458 | r := spinedit1.value; 459 | g := spinedit2.value; 460 | b := spinedit3.value; 461 | colorbutton1.ButtonColor := rgbtocolor(r,g,b); 462 | colorbutton1.Tag := 0; 463 | end; 464 | 465 | procedure TForm1.onEditorKeydown(Sender: TObject); 466 | begin 467 | UpdateCursorPos; 468 | end; 469 | 470 | procedure TForm1.onEditorChange(Sender: TObject); 471 | begin 472 | 473 | if TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Modified then 474 | begin 475 | form1.PageControl1.ActivePage.ImageIndex := 6; 476 | statusbar1.Panels[1].Text := 'Chars: '+inttostr(length(TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Text))+' Lines: '+inttostr(TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).Lines.Count); 477 | end; 478 | 479 | end; 480 | 481 | procedure TForm1.MenuItem5Click(Sender: TObject); 482 | begin 483 | TSynEdit(pagecontrol1.ActivePage.Controls[0]).SelectAll; 484 | end; 485 | 486 | procedure TForm1.MenuItem6Click(Sender: TObject); 487 | var f2:tform2; 488 | begin 489 | f2:=tform2.Create(application); 490 | f2.show; 491 | end; 492 | 493 | procedure TForm1.MenuItem8Click(Sender: TObject); 494 | begin 495 | NewDocument; 496 | end; 497 | 498 | procedure TForm1.ScrollBox1Click(Sender: TObject); 499 | begin 500 | 501 | end; 502 | 503 | procedure TForm1.SpeedButton10Click(Sender: TObject); 504 | begin 505 | InsertEditor('<meta name="keywords" content="" />'); 506 | end; 507 | 508 | procedure TForm1.SpeedButton11Click(Sender: TObject); 509 | begin 510 | InsertEditor('<link rel="icon" href="" />'); 511 | end; 512 | 513 | procedure TForm1.SpeedButton12Click(Sender: TObject); 514 | begin 515 | InsertEditor('<link rel="alternate" type="application/rss+xml" href="" title="" />'); 516 | end; 517 | 518 | procedure TForm1.SpeedButton13Click(Sender: TObject); 519 | begin 520 | InsertEditor('<em>', '</em>'); 521 | end; 522 | 523 | procedure TForm1.SpeedButton14Click(Sender: TObject); 524 | var f:tfinsertimage; 525 | begin 526 | f:=tfinsertimage.Create(application); 527 | f.Show; 528 | end; 529 | 530 | procedure TForm1.SpeedButton15Click(Sender: TObject); 531 | begin 532 | InsertEditor('<br />'); 533 | end; 534 | 535 | procedure TForm1.SpeedButton16Click(Sender: TObject); 536 | begin 537 | InsertEditor('<u>', '</u>'); 538 | end; 539 | 540 | procedure TForm1.SpeedButton19Click(Sender: TObject); 541 | var f:tfinsertlink; 542 | begin 543 | f:=tfinsertlink.Create(application); 544 | f.Show; 545 | end; 546 | 547 | procedure InsertEditor(StartTag : String; EndTag : String = ''); 548 | var 549 | s:string; 550 | begin 551 | 552 | if TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).SelText='' then 553 | begin 554 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).InsertTextAtCaret(StartTag + EndTag); 555 | end 556 | else 557 | begin 558 | s := TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).SelText; 559 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).ClearSelection; 560 | 561 | if EndTag<>'' then 562 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).InsertTextAtCaret(StartTag + s + EndTag) 563 | else 564 | TSynEdit(form1.pagecontrol1.ActivePage.Controls[0]).InsertTextAtCaret(StartTag); 565 | 566 | end; 567 | end; 568 | 569 | procedure TForm1.SpeedBu(Sender: TObject); 570 | var f:tfinsertdiv; 571 | begin 572 | f:=tfinsertdiv.Create(application); 573 | f.Show; 574 | end; 575 | 576 | procedure TForm1.SpeedButton1Click(Sender: TObject); 577 | var f:tfinsertcheckbox; 578 | begin 579 | f:=tfinsertcheckbox.Create(application); 580 | f.Show; 581 | end; 582 | 583 | procedure TForm1.SpeedButton20Click(Sender: TObject); 584 | begin 585 | InsertEditor('<strong>', '</strong>'); 586 | end; 587 | 588 | procedure TForm1.SpeedButton21Click(Sender: TObject); 589 | var f:tfinsertparagraph; 590 | begin 591 | f:=tfinsertparagraph.Create(application); 592 | f.Show; 593 | end; 594 | 595 | procedure TForm1.SpeedButton22Click(Sender: TObject); 596 | var f:tfinsertdiv; 597 | begin 598 | f:=tfinsertdiv.Create(application); 599 | f.Show; 600 | end; 601 | 602 | procedure TForm1.SpeedButton23Click(Sender: TObject); 603 | var f:tfinsertflash; 604 | begin 605 | f:=tfinsertflash.Create(application); 606 | f.Show; 607 | end; 608 | 609 | procedure TForm1.SpeedButton24Click(Sender: TObject); 610 | var f:tfinsertbullet; 611 | begin 612 | f:=tfinsertbullet.Create(application); 613 | f.Show; 614 | end; 615 | 616 | procedure TForm1.SpeedButton25Click(Sender: TObject); 617 | var f:tfinserttable; 618 | begin 619 | f:=tfinserttable.Create(application); 620 | f.Show; 621 | end; 622 | 623 | procedure TForm1.SpeedButton26Click(Sender: TObject); 624 | var f:tfinsertspan; 625 | begin 626 | f:=tfinsertspan.Create(application); 627 | f.Show; 628 | end; 629 | 630 | procedure TForm1.SpeedButton27Click(Sender: TObject); 631 | begin 632 | InsertEditor('<!-- ', ' -->'); 633 | end; 634 | procedure TForm1.SpeedButton2Click(Sender: TObject); 635 | var f:tfinserttextbox; 636 | begin 637 | f:=tfinserttextbox.Create(application); 638 | f.Show; 639 | end; 640 | 641 | procedure TForm1.SpeedButton36Click(Sender: TObject); 642 | begin 643 | InsertEditor('<script type="text/javascript" src="">', '</script>'); 644 | end; 645 | 646 | procedure TForm1.SpeedButton37Click(Sender: TObject); 647 | begin 648 | InsertEditor('<link rel="stylesheet" type="text/css" href="" media="all" />'); 649 | end; 650 | 651 | procedure TForm1.SpeedButton3Click(Sender: TObject); 652 | var f:tfinsertpassword; 653 | begin 654 | f:=tfinsertpassword.Create(application); 655 | f.Show; 656 | end; 657 | 658 | procedure TForm1.SpeedButton4Click(Sender: TObject); 659 | var f:tfinsertradio; 660 | begin 661 | f:=tfinsertradio.Create(application); 662 | f.Show; 663 | end; 664 | 665 | procedure TForm1.SpeedButton6Click(Sender: TObject); 666 | var f:tfinsertbutton; 667 | begin 668 | f:=tfinsertbutton.Create(application); 669 | f.Show; 670 | end; 671 | 672 | procedure TForm1.SpeedButton7Click(Sender: TObject); 673 | begin 674 | InsertEditor('<title>', ''); 675 | end; 676 | 677 | procedure TForm1.SpeedButton8Click(Sender: TObject); 678 | begin 679 | InsertEditor(''); 680 | end; 681 | 682 | procedure TForm1.SpeedButton9Click(Sender: TObject); 683 | begin 684 | InsertEditor(''); 685 | end; 686 | 687 | procedure TForm1.BaseEditorCommandProcessed(Sender: TObject; 688 | var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer); 689 | begin 690 | 691 | end; 692 | 693 | procedure TForm1.tmrPanelTimer(Sender: TObject); 694 | begin 695 | 696 | if cPanel.Tag =0 then 697 | begin 698 | 699 | if cPanel.Height > 22 then 700 | begin 701 | cPanel.Height := cPanel.Height - 20; 702 | end 703 | else 704 | begin 705 | cPanel.Height := 22; 706 | cPanel.Tag := 1; 707 | tmrPanel.Enabled := false; 708 | end; 709 | 710 | end 711 | else 712 | begin 713 | 714 | if cPanel.Height < wPanel then 715 | begin 716 | cPanel.Height := cPanel.Height + 10; 717 | end 718 | else 719 | begin 720 | cPanel.Height := wPanel; 721 | cPanel.Tag := 0; 722 | tmrPanel.Enabled := false; 723 | end; 724 | 725 | end; 726 | 727 | end; 728 | 729 | procedure TForm1.tool1c1Click(Sender: TObject); 730 | begin 731 | PanelToggle(tool2); 732 | end; 733 | 734 | procedure TForm1.tool1c2Click(Sender: TObject); 735 | begin 736 | PanelToggle(tool3); 737 | end; 738 | 739 | procedure TForm1.tool1c3Click(Sender: TObject); 740 | begin 741 | PanelToggle(tool4); 742 | end; 743 | 744 | procedure TForm1.tool1cClick(Sender: TObject); 745 | begin 746 | PanelToggle(tool1); 747 | end; 748 | 749 | initialization 750 | {$I unit1.lrs} 751 | 752 | end. 753 | 754 | -------------------------------------------------------------------------------- /source/unit1.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/unit1.ppu -------------------------------------------------------------------------------- /source/unit2.lfm: -------------------------------------------------------------------------------- 1 | object Form2: TForm2 2 | Left = 276 3 | Height = 111 4 | Top = 209 5 | Width = 332 6 | BorderIcons = [biSystemMenu] 7 | BorderStyle = bsSingle 8 | Caption = 'About W3Edit' 9 | ClientHeight = 111 10 | ClientWidth = 332 11 | Font.CharSet = TURKISH_CHARSET 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Pitch = fpVariable 15 | Font.Quality = fqCleartypeNatural 16 | Position = poScreenCenter 17 | LCLVersion = '0.9.28.2' 18 | object Bevel1: TBevel 19 | Left = 10 20 | Height = 92 21 | Top = 9 22 | Width = 92 23 | end 24 | object Image1: TImage 25 | Left = 11 26 | Height = 90 27 | Top = 10 28 | Width = 90 29 | Picture.Data = { 30 | 0A544A706567496D6167653D2C0000FFD8FFE000104A46494600010101012C01 31 | 2C0000FFDB004300010101010101010101010101010101010101010101010101 32 | 0101010101010101010101010101010101010101010101010101010101010101 33 | 0101010101010101FFDB00430101010101010101010101010101010101010101 34 | 0101010101010101010101010101010101010101010101010101010101010101 35 | 01010101010101010101010101FFC0001108005A005A03011100021101031101 36 | FFC4001F0000020300020301010000000000000000070806090A020500030401 37 | 0BFFC4003B100002020103030303020305060700000002030104050611120713 38 | 210014220815312341093251162433426125343562719143525372A1D1F0FFC4 39 | 001D010002020203010000000000000000000006070405020300010809FFC400 40 | 4111000103020403040804050205050000000102031104210005123113415106 41 | 226171142332428191A1F00752B1D1083362C1F1157216243492E117275382A2 42 | FFDA000C03010002110311003F00A0FEA2E8ECD6BD1C5234931F39DD25A874CE 43 | BFA5EC168B390FF61645C9B658CA570D54EE64C2AD8F7546ADC72ABB994814E6 44 | 703DA74BF40ACC5BE125C4B6AD6342D4AD290E75538414A444CC89BCF2C5B677 45 | 58862A08D2B5EB6385613A49B9518B0022FCEF3E38E9E7EA93A8DA6B214F460E 46 | 5FA8FD3EC9D10CA5CC958D63D13D3794A9A9EEDCB1390B194AA81C9D61C6B58D 47 | 65AE78AC3586512EE47B6503A38327E69D947DBA76EA92597F4701871CA2AC5A 48 | 9254E010A1EAB42B46AF58A5C011B88C09B6B1A885020152BA82799DF6FBDE0E 49 | 009D7EEAAF54BACB949D0BAA35C8E6346E0AB60353DB455D145A014C6D866EAB 50 | B91C23D8DCC41D6C79C5D3A790776EB5AB1CD0820429DE83E8A82B69AA6AFF00 51 | D4182C3ED54BAD536AAB6EA4394CDE9E13E5484A4256B56A0947E50177C5D21A 52 | A70DB6A688512DEB57774949DD4264795F7B1C0EF44E9FC97502DE2B0DA23016 53 | EF53432C6361B4504CC85FB4230CBD65453028C5A8E6C5709B2C6F71B0C6CCBE 54 | 17C80A6D4548A63A5C8041EF4DB79EF1FBF8E2DF2BCA2B738525144D29648592 55 | 6094808E648B47C7723962C53E9FFE9AECE1AED0D47AA7015B1F8CB1A7615F6E 56 | C9385B7EB654A5D5CE6DAA77F08183701FE0D6D588C4FCB60ECCB31E3C32924F 57 | 7CAA0DC69BDCF323A781C373B35D96565EB62A6A5A6E432428240542D5EF8912 58 | 17B4F51874AA8E2F1B5BD850107942A1724A46FDC150FF0089253BEE313BC0EF 59 | B9C798DF6DBD0F9493B2A001ECF8780DEDD3C70C4A740D013A126279478F97D3 60 | 025EA369D8C860F2A16AA8761B4DBFA32B9601A6626644BF9B8C90498FC876F3 61 | E67D6B425D6DD43AD49293325378F7BBA67EFEB4999A5809735A42925252A47C 62 | 607C2F7FB8A32EB8742034CE54B52E1DBC34D5E2DEA0774DED0B20A9B0556780 63 | 0C73B5307EDE38C00EE4267051E58793665E96CA9B5CF14595FD27CBFB749C21 64 | 33FCA1342E97904A587092013DE0A24EC6208D8266FB5F9600BAA30214B0ABF8 65 | 8C0CB29DDA164239772BDC51458AA4C81DC605D29E7CBFC36C9C6C31231EAF58 66 | 49D63BC122609369E827C6F16F9E065D4C444F3B7CB031DA23C47E23C7FDBD4F 67 | 88B7EB8D18F3D731CC79EB98E634BBA16B8235ADBB7C545D945202857C790B55 68 | 68181BC4CEE2405B7F5FE5FF004F52E9A349FF00703F3DF7F2E5D76C59672A87 69 | 17A5475691A8CCDF99378C17B50E37EC9728E7A88BE6BCC83844A65A92918E44 70 | A6EF13B393C375946D26A2862BBB2B624A5C44E91A750D2BD2480B4DE7589850 71 | F84DF030A74AD37042802907C0EE74F8F4F3C528F5832D39DEA56BDD438B73EE 72 | 653319DFEFD56C3FE766A0DAED1834B7196261222B095C7E9440CCC40896C2F5 73 | 6A4A14EA1300B7A83681703483091E03C6D17C5FD022D4E820A82DD4B666D293 74 | 1BCC5A4999DC5BC31671F4F7A770DA1F4CE36969CAEBABEE50776E114831D361 75 | F112FEED9881E615CBF41232453DA5AE379DBD2C1C75FAE75D71D5FBFC34EFAA 76 | 04F77A69B74C7A2F214D1E5AC229A91086F5419494C24100920DCDCF8EC6270D 77 | 9699C5DDCA9FB8BF944B9CC0784A9366BCA44037E2D98230DC8A03720E3C87E5 78 | B94FADC8A45C8526640212BE9F9B7F95E6769C12B954804052E4EDA47C2E9007 79 | E871EAEAFEA6D37D25D3CF4E3319633DAC0E0A71ABA4871D29078CB3F50D53B9 80 | 8F723693998817715171835915BD2D0B1C2E23CB091A6EAE63C86D3D05B02F9A 81 | 7695FA271C6A8E9CADC4C0485A6C667BBB796DDE89C57EEA1EA77513317AAE33 82 | 56BF1D82CD64683AF2B4BE3AEC3B3E8A085BAE3F24DA7558C657056396C7C899 83 | 4306B2D96260801B012BD0A9C325E4D3BAE3201F585025607B5DEDADE1CAC701 84 | 5519966EF2FF00E62AA9A996E182DA560AA499D3A44E9EB7B9C087AA3D3ECF5A 85 | E9DE651F724E571B9C596471570096F6506042AE2888D4B010AF6BB6C0F82F7A 86 | A53B14F13398ADA0A9A4A6CC4AE98B89438801D6D52024A88EF69E6444723738 87 | 8B9CD0D6BB963A8782D6A1DF42F46A12932489DBC8EDBE12FD0BD06EACF5971B 88 | AC8F058BFEE386B19457BE7CC57C5FDDD38DBB9B7E0AB130A07BEF2A49858AF9 89 | F6CEED7E531F28F45CED7D2B154C30B720AB43824801293B6AE93B0D51F1C0CE 90 | 5BD99CDF37A6AAAAA46416A9F5E92B07D61420AD404D85818FAE13F312122060 91 | C8302641A05E081A1322C028FD880E244A3FAC4FABC40205CEAB9BF51C8C72F2 92 | C0AAECAD25212522081F9B657C411B7EF8E3EB2C618F3D731CC6967489FB6764 93 | B2124B26A6E529990912F857ED1446F1F18E5B3467699FCCFA98DA12120D8C1E 94 | 5F7F0C4CCCFF0098B306E44279F29F961A34C2AD635B50C02CD72882043A2094 95 | EAE63CB844CFE1A3E241BE369809F131EA5832011CC4DF03AE28051331D07DDB 96 | 1415F537A28B466BDD66F60BAC1D0BC7728B024A8D8A28BE6CBD5CB88308ECC4 97 | C0DAACFDC76392138DBE7E87AB9003CA6EDA5682A04C6A2544EAFDBC862EA8AA 98 | 94A6DB330A438142371A55BFCB7FF18607A75AF759E6B10FAD87BC74F1F18FD3 99 | AD4E4A07F0596426175D03C27F5ECDE38A7226C502A637860CC99FA09451D3B2 100 | E7AD8D6A59096B6BC989B6D169EB1861B55F5D56CEA617A1084779690751D29F 101 | E93727C849E583DF4CF4DEA60A1AE7227A835EAF27A332EDA5697A8B1F5274F6 102 | 77228B993A572B606EE31B66C33D858A456D972CD98AACC6DBC6E457DCA97573 103 | 332B1B0CB77E1A014857AA5F105F64AF9052626013BDED8B5CAC3C568714ED7B 104 | 84A389A9E3A1B03F29D95E02C7CEF865B25AA2E6B3C2695C84D7AC5694AA9DF1 105 | 3DDD06EA65CF66CCC489ACE0205C3B6D331C8FE33E03FD39C4ADE4289D00A526 106 | FC89E69DAC7FB6D8653F469A8A7A179A40E22F4A560C00B8F1EA7A93FBE3EB66 107 | 89A7AAAD52D436F44AB23A8A963D18CC7EA27A71E7771F42BC5E1189AB8EB555 108 | 166E10E4B2099C9DBAF6320CA36D947DC9532EC458AB38ADA86134A14B5D3B60 109 | A510529307793A84F888B5C49B62BD9EC9D3B352E547A2E9E3BBC45CB9C5EF8B 110 | 2552ABA0ED3A67A63A2D43D3525616D4DF0B2A5822562A90108E4525106C5F71 111 | 83DA68CCC33E3B7C666769F55ADB0A4BC95E993224A8FD641E5CB12B3BA147A3 112 | 29B1AF4E9D3736B8E5704EC2E6310EE91611788E95E734AE1D4BAF390D43AE55 113 | 92BBD9802C735D79C9AD620F9F23B289B35050DF163DB00FF9103332CD43AE55 114 | 852C052F8CCB681CD406C47873DF6E58ACECE14D3D03B4BAB42353A849980971 115 | 41402CFBA00D4428EF720038CD96704AA6A0CDD51705A5A337964F78227668A7 116 | 236550D5CCF9E2C118608FE3CF8F1E9AC8052845A3B8927C779231E7EAB4A4D4 117 | D4A8477AA1F2143650E2100FC4C91E78F944A0A3947E27F1FF00EFFEFD6CC442 118 | 2091D31FBEB98EB1A4D278E2EDDDAD133D8BD4BDCEED810E2EAC522D11ED440C 119 | 4401F2988188F86F1B6FBC48696025493CE3F537F862FB3BA621E0E894B6B94C 120 | F8916E9BEDE3F4C323A5EECDBC3D131609F2AE9E3F9F23DBF1F9FCF98DA77F1F 121 | 8FCCFA9A88D22300B5053C45249F64C4F5DBE5FF009C57A7D5DF4CE9E7BAABD3 122 | BB39B658C6E8CD6B95C568CD559D4843471A76AE7B5A179BCA455FDDE6E4CC43 123 | 0844C370228DF78A7CED4A629D554DB5C453092A223748DFE97FED8BFECEB34D 124 | 595D4F44F3BC36EA1C4B65C9D8AAC3FF00D40F19C49FA2DD1FC874EDB97E95EA 125 | 528BB3A7AF537D4BF610553EE9879DAFE0331DB7F778C312E9430489929B555A 126 | A8F21E95799BCEBF50DD4D295A5B799D412B8833055A7A41B73DC9E518746479 127 | 3AB2CAA7B2D7B492DBC08752756941F65507DE88B491798C36F98C4644F4EDDB 128 | 169EFA5A6B174D8DF6DC88C6CF6B72058A950224863A47822046099E59F189DE 129 | 3B49A91095294049244CCFE6B1FA7D70C6A8CBA9851D43CA407384CCA5246995 130 | 6C9528A62D378F66F8E7A1740DDBFD299CBB6E151F61BDFEEEE85A6AD7B05CD7 131 | 11BC8C9CACD80974EFCCB9442A276298C850ADF53874EB015A8A53636E7FD5E5 132 | D7129A729D19452B4F2D2959D4BD404440E6A9277113207863DBA3BA855F14A6 133 | 7DE32F12BDE174DA18FA6CDDAB16FB85F718BE4E5C980027B9B721939E7FBC66 134 | 8A171B54A12A41316224F818DBA7F9188EDE754C96CA0AD1DD51D0402AD5D448 135 | F9F3DB1EFCCEB60D596CB1D52B00CC4ED618BE3D82A6E2529C6A509976DB00DE 136 | 70B8DD51105107051B7AE55871B29E25EE263B849DB972F85FF4A5ABCE98CC4A 137 | 9967405252A99514EDBA8738DBC7E0315DBD76FA9757D3EE3BA95D394E9ACBE4 138 | B53EB745C6698CEAAF56AF84C135F4D786C85ABEA647BE75D5928EFA02AEE2E7 139 | 1A85A4918229BDCA32715354DD697929453A93A9A99714A8B083CA2FABF4C2E3 140 | 34ED2272DA4ADCBDB415D554A95A5C025A690ADF541172363D7E2714A53B4F8D 141 | B79DFF002511253BCFEE5F9999FDE67CEFE7D1DC729240D84EC3A1EBF1F9615D 142 | 2600E9CEF27CF97C80F9E3849447FD7FA7ACB6C758E7B4FF0049FF00B7AC7527 143 | AFEB8E6340F99BB69EBAB6449AE6C2DE4B5B4A4F8942590D47CE47623816AB97 144 | 1992200E13E787AE36BEF419BD844C7DFDF2C5A55BEE5427D638B5A53DE2922D 145 | 37F9DA7074E8A6AA5E630CDC5B0E0AF6394BB2B4C4C737639FCE208378DCE6AB 146 | C588608ED21C57BF8282F562D2F4F7483757FE302B5480091A6D3BDFF5FBFAE3 147 | A8FA8ED1E9D7BD32D45A7C489361950AF50794941AAF5219B15FFD4372471831 148 | 983832DC623C4FAD8FA438D38DAB65A4A0DA7DA118D0C2CD3B88741BA149583C 149 | C149911F1C06FA4DD41CD6BEE99E9FEAEBEF5FCDE5340D6C7F4E7A99518C5D8B 150 | 75CB13214A866802061B1022759D64DBB7B8AB6BDCF3E75DD24A0ABA2553D4BB 151 | 48B1A1C42D4A6503DF64AB94F2493B5CDCCE3D079566EE565053672AF59E8E1B 152 | 66AA00D4BDBBCB02F31304FE8307DD55D6BAD1A6598D1A87B5BAA13520EB18FB 153 | 8870981B04E0770116FE81F737E3F289DB944FAD54A85BAB52B5690C26F6267C 154 | 3E877F09C1B5676AE878029D0970F1DA1222C50606827F51CB7C7C9D1FC4E633 155 | A0EC1FB8D579F5DA28B7FD90D3C0794A099099329B6DFD1AD40E7E3DCA9393AF 156 | 045FCCA922F96FF4AA36DE4CA836E3842A41277DBB80C7FF0051BE2902D4CD2E 157 | ACC336452512C95A6952A150E290A3011A132EDAFA92081327C7130EACE8ACAF 158 | 4F714ECBE631385C345E2C6C60F1E0D66A9C85E7E52AFB8AC9737152AC1E336A 159 | F236180766E7B710B5DCE0C4C03704BA5FA92DB61E48D3AD4F170251A07F40EF 160 | 6DF198DB118D7D0D7E8A1C8A89FAFA9F651AF532D220C29C57301BBAE0C48C76 161 | 9D31D3A9A5A46A65F383119CC812D96990429553F7D91AF0BAEA010089AF5D5C 162 | 4222060DB33DC6ED3F1F515E5A1E9D04B884592A2954B9A4813E17E66DB78637 163 | D4B34F40E202786342743AE2121295BEE085C01780640B993BE155D57F4DDA1F 164 | EA7FAE7A3B4FEB59CD57D3FA9354E5B4FA32982C9D7C3E4AA5CBDB2716F45AB3 165 | 4F21578D8C825750D2EA8C5B556BB91312ADFD5EE5D9AFA154B0C2D0101F5B41 166 | C4CC046B4802E9EA4C0D5BABC70B1CE72E5D5B15B985310A5528716352484ADA 167 | 6E6577F6E00DC585CE257D57FE0578DC4279F4DFAB7A9F0F798BEED6A3D4ED37 168 | 432B89730C3755766A0D2854EC57864C8C459662AC76D7FA869DA246187A1831 169 | FCF46A1ED1507122662411AE363631800455AFB814D832994E930637E7B9F2B6 170 | 2A23EA07E85FEA63E9CF9DDEA2F4CB265A7064C57AD748C16ABD22C112919376 171 | 5716B366324A3628565EA63CB8F9F3C676D6A61D090B6CA1E07927B8A4906F29 172 | 549223A0E631310E2546C60A615A55650E7067978F3F3C27FB71F8CB99123E26 173 | 360F131E263F3FB7A82586C924F1679FAA737C7648249D5B99F77F6C68033733 174 | 59F5C8E365B6D2A38C47CA0991C1D011E7B72441DC3E25C4848A3C179F521202 175 | 4CE2C96BD6D05CAA09D3A57A42E7CBDA022675244F29C2A14FEA5737D35EB05B 176 | C0A349DBC8B7059FF6496E2EDA04F2B87BD59161D5DB4EDCD6086BEB91B17DAB 177 | 6712410F20E233C78BAD698235EA4AA0910356DCC81B0F1D8F2B838A57E986A2 178 | 75EAD64E9493001FBFBDF056EA67D7C74E32BA68E343E0F5565334FB0B96D2CA 179 | D25606AD552CB94A6DDF37598E6D1F89FB445AFD3EE302423CC64BCD699094FB 180 | 4E154C74902609E56F84D8F4C41F4652548E229280B98B933BEDD7C7F78C5556 181 | 57A81AFF001D9BD539BD3F98CB68EAFAC6C133358BD2B98C8E3B0B6D22CEE271 182 | B7A9AECC7DCEA56E2B888B80C276C447F1771F5592C5712E38D36577085293DE 183 | 6E6C44F231CEFE58BDA6A97E99A5354D54FA104A4B8428F0A53EEE81BCFCAFE1 184 | 8BB4E9366F2F8BC4696A3D66D25674A6AABBA67177727A7F374496E2C767AAAE 185 | CE3F394D4F001953618A65CAB02C85C31E83FD6AEDE21F5B4CED12D7C30AD0B7 186 | 25B591A350F8EF1D0E18391E60D55069C5A82DC693045A267F298F8E9DFE182C 187 | 682D3999D1B9EB47A5F21F6AC7B25C74AA26B439955166065CB42ACCD8C796F0 188 | 02C530D24705B39652C8867A86F2DBAF4A52F32D288225494F0B591F9CA12994 189 | C6F6DB07B4194E42A5BB595796D7BEE3FA55C365E70D3EA0757742569299D882 190 | 7494F2C1A72350F3695DFBC9B991B94F787DFB53633D6C38F9F9358538DC72F8 191 | F195A6BCC87E3F44082394B2C70E94848653B684D3A6E001B28AAE413ED6E4F4 192 | C5AA7317D92B62968DACA298D927D5A6A0B7174928038863F3CEF33388B65F37 193 | 6EDAE8E13120EEED8B0AAC9A851FAEEB325073624A36215AE15EE1E6CDFB6983 194 | 29F970DE052B0B6DA72A9F0131AE5310DDA4E913CEC08B4F31B4E02B3AA915B5 195 | D4F9765DC45AB536164244856A126D3693249BF5E58EEBFB2B7B02CD1B6317CD 196 | 592D3BA9F4C65B1B67791EFDDAB9BA2D9226F8E046646473331F0FF92368A2E2 197 | A96F38B4D89719D2AE7FCE6F4C74222DB47CB17B59963347953D4DA44354B52D 198 | 91BF165A595926F267DA9DF95B1A76EABE8AA9630C540910A7D8C7A613C53064 199 | D77DCAD836102B229858A84E25913B0ED1FB89443CD83AA9A9CFBDC24EAEB3F1 200 | C799C7F389D8071CE7EC89803C2DD30A5BB4C2871AEA775617B1B5D2750A9B55 201 | DC5056F941A2C0109D73EECCC84AA61A4C3938203FCFAEBBE4CEC7607A0FD7E7 202 | CBA637B89EF95A57074C4723E7D45E70BEBBA07D036B9AD774C341F798D631BC 203 | F4F53E5DC32923E5F8F97299DFC479FDA3D65EB3F323FEC18C3D6FE647FDA314 204 | 03AA0E4716A3389E4B7A99CCFE33322D186102E47CECB633CFCE76899D8A2378 205 | D58235E90DA7B89DE12A1CEDD26D03C049EBCABFBA8DA76FE63EA6711F6337D6 206 | BD7B4896661D552160FBB8FC6E53116090B60B9216DB5482AA2CB52D5D77382D 207 | 944A9713303329453A8A4A21402547C26DAAD3A77FADB101435EF31B5BA7F913 208 | FAE235AC7A536F0AED558A5557863F496866EAE18AD6FBEB564DCD81A9708FDB 209 | 20B38EABBBA96466C49BA2995AB8A045742AB80F53D4A5D750C15A15AFD5AB48 210 | 82133AAD799E7B4D8DF1A421216B1A4A84089E46419B9B797D3122FA07E8F23E 211 | A3BEB23E9FBA636F13EF702DD758BD57AEEB6E6DAA9D1DA35A3A9F3E0F2F1329 212 | B89C72B1330CE504DCA250327CC226F19A75376528AB53800D20130551D2C426 213 | 648BFEA30755C142D52403B69DF57D06D3FA78E365FF00531F497D3DFA86D195 214 | 119CA23A7F55E3F1D83FEC8EBBC452516634AC649795B4FA9DBE6B0BFA7ECD99 215 | 18BB8679406E06CAACAD6766FAB97A9D879A0CBA90B4249D0AF7931E60DBE3E3 216 | 881455D5148EF19A54756CCE933CFCE3EB8A51D7DA0FABFF004BDAB0FA7FD6DC 217 | 259B209790E92D79A769E42E697D73895099AAC632CC24DD4EF2D43017B0D908 218 | 55AAF6B823638ED31C175FD9C530F875A2A2DB8551064691E093BFCF0D8C83B7 219 | 8A43694BA48094C1922DB7F50FB077C77988EA86B2D5F8420D03A73ED7860E70 220 | DCF6A2B418EA76D2A925B6118E58BB2769B3CA600E2AA95271B732F8CFA84E54 221 | 53509E0A8ACB89DDA09BEA8F789DAFBE08D1559A6721C7299B6831A42D6FBA4A 222 | 8E92621B836917E9F5C4AB4956A3A78D994CDDA8CC6A4CAAFB6FC9B55DBAF5D2 223 | 5C7951C653F98D2ADB8FEBB098CB564C609EE2811058DE63595156E0E2694322 224 | 74B482609B4294444AA27E6704391E5B4F40B538AF5952BFE63CAEA40B213EE8 225 | 92399DB9ED8617A75815F52B5C685D154C21B6B546AED3B8C54016E700CCAD56 226 | 5C6F0F97C1141566C30BC6CA51494440CED029D82F5530D244EB75A840E612A9 227 | 23ADA011E38DDDA2AB4D265198549D9AA57419BC952148117B924F38B4DCE348 228 | 9D4A77DB9973283B8A703A7040788ECC5DAC943AE555F38FC4A5571632BF9473 229 | 64C48CCEC5E9F0841434D093DC6C588B8B4C63CB217C454180A714481CA3FC61 230 | 26CD38939CCA5480204A948B16604A3E3658951CD7E3131BBA58E5F18DB97223 231 | 99F31B7AECCEE7A624B7251AB949F80DB1C21191DA3FE1A1E3F908CF90FF00CA 232 | 5B5598DE3F13B4CC6FF899F58E32EEFE64FD7F6C7F38F2C966ECB175BEE199B3 233 | CD909AF5FEE37AD438FB500035025AD37B9AC288E2B0DC88A0606778DAA8BDDD 234 | 5952D23489BAB488E73CA07DED8B8489212DA16A528FB281AD4A3FDE2637C19F 235 | 48E87D7427A36CA709ABE95A7EBDC555B1955E3F2CAB986C5D82C6576B6E5B21 236 | 4F6E931EE3357374543045A1BDE005535CF55D1A90E4D652B8B28EE212E05156 237 | 90661103AFD7AC1C495D15621975C550D506DB1DF5F04F767A8F9E1EFEB5C0E2 238 | 349F53E8E5ADAAB5A668FCBBAA24100D2B68B38C682C26C10B65050E268B16B2 239 | 51894ADE25F89F5494258FF536595293C6284B88F6A74441F026361E588210A2 240 | 90B4894AB9D86E2533F76C59CFF038FA6AC068CC68FD45BD876333D46D3786D3 241 | 98527AA5BF6EA586C7372FAC7B37277190C8E61B8D582940B6D7FB7D8AAD7BF6 242 | 46C6340B2EA9E7370D3A5B45AE950DE79EC3FCC9C55660F14FA911DE4F7AD707 243 | 9C1FBDFC71A40CF61A634FB2103C17F6DB3577E24300CC45F79A2778DE77E04E 244 | 88DE67E33B7E2663D59253ACC6DBF97CB1588202BCC581E781A75565237308C7 245 | A97D9760156B674410F743238878908CFC1451CBB92703063B7898F96FDB8042 246 | 06DA07404248D88FD3C8632092A0ECF70A7623A1F96C71487F5A7D3DCE745BA8 247 | 190EA4686A5B74E7A8C7F7CD458CAD50BD8692D4990B0F55EB0B557985D6C766 248 | 6EA19620B80AAAE4DA55F65FBAAB0C13ED2E5CD11E9E84CB8EC25DD037513759 249 | 03AF4F961A3D87ED054361596295A92A084A759922C76F38B6D691852F4C7501 250 | 19E2760E67DF5F36A0F1AB4C36C5AB5DF2F0BA895FEBB190CDD5DA50B0C8F844 251 | 0CC98FA5DD42205A091B25461C549E49373BEF3D30D8A5A828492E10DE8EF294 252 | E0294809DFBE5316066C4ED6B8C5FBFF000F5FA60CDE92CA2BAC7D55C7330D9F 253 | 0C6395A534D5D1EDE4F4EE27228ECE4B50E7133F2C6E6F334CCB1183C5BA62ED 254 | 0A36EF64EF0546CA52B32ECBE42FB6EFFA956361037A36DC8048FF00E423717D 255 | A2E799C2AFB7BDAE66B52728CB5DE2D3267D36A53AB84B720A52DB4A98710999 256 | 2A160A0411AAF8B38D706ACD635A82DCA7506ACC6D72FCEC55AB426CBF8CCC6F 257 | 0BECD2948EF1B0AB6F8C4F8960CC851D8584F8A8C01138552484BA851BA50930 258 | 3AB9B245BAFDED840751661D8ED5392B574E253946373751853022EACDC93E92 259 | 20368F3359BBEF01CB87645733E3D71D1B2BAC081CB1352E71068480984EA294 260 | D86D3F3917F9E0D74FA699FBB52ADCFED03EAFBBAE9B5EDA111B57EFAC5BD88D 261 | CE276572EDFE23F97D75C33E3F2C47E3B7CCDF1884FA18E80E2ED63B0FD797E4 262 | 6966F52D3BF9FA986D1F0BAF76AD35D593A36F27698DDCD59E19327631420B52 263 | 170A8D9ADB00D5297B559B3A16ACB584114DEAD4A59494BC52B9252481749D3C 264 | F0E6EC7650CAD2D660EADB76A941D0D37B34929375049B95C191E18B33D58BC0 265 | 694C6D8D7992C7B6DE97B49A6BBA746895946332175834DCECC857535B155F1C 266 | 26AA3B5F0B4C287CC94A47D0B53E999252813DD71642528163ED12003BD8F238 267 | 653F4FC2650E291C44B8D292B4368D7ACAA7DA40998E4237C22FF51D8DE91F50 268 | F44EADC9F4DF5942AEAB1A188B98CCDD1CBD0ABC4E56D558C4E40A84A9CF0AB2 269 | C59629CC8B16216C722006959ED10E5D594ED56335AF176A0B28D2DA19696E17 270 | 00954F1100A128D37066E36BE14FDA1CAA878AD0CB54B429C28E2B4E34E21295 271 | AE01514C0B83F01F1C5B5FF0FEFA9FE9CF4EBA63D05E846434CE7F10BD1916B4 272 | BDBD6AA3A792C0E6339AAED0BE18615FB77F143CAFAEACAAC05D2E2C4B3B8230 273 | 4025190769F2CAA65B652A738CB79654626CE28946BD3B280EEC9DF637C0BE6D 274 | D8CCC184D45771E9DC432D2545B4EB0B311A8051EEF77751C681B0D62333A4F2 275 | 2110276F116AFD5B9B4C94110A61DDCDB79DBB8BB016078C719864944C8F9F47 276 | 4DDA7FA85BC475FAE011C477844C11E063C279F49C2F9D75316E370171673205 277 | A52C30262246206B62D3647CC7E77B294FF48D8662636DFD74B364A7A4DFCB7F 278 | 95A71B9BDD5E1FB1FB8C01B585256A6BD8DA4FAE1651DE4ABB7DCAC2D2A99FC5 279 | C5DAE909BABB18F7036E56B15E69E410CC7DC861D4B423CC1CBD252971252A01 280 | 4950B8DC1C4A696A695AD254DA85F52652AF0BFED7DBA6275D23E96749744651 281 | F95C1699D35A6F53839A9BD6F05D2EC160F5357696CDE1F72A4992AD2FF050EA 282 | 1686B384A1A1B890CFAD2D5053257AD14D4E9304CF0D0A5EFC94B074FCB718DD 283 | 559A57D42421DACAB750001A1752EABC811A848F33F0C3634B57C3955B0387AC 284 | 752B58307E40DAEEFDEB9CCD805376C8CC4436D4AE60131BC761852331FE69E1 285 | 29B0D333607A11F41BED1FA62B4CC5EDD07DDEDE37C4FADE4CAC637197923C86 286 | 96A1C8BD92BE3B18AAD5BA45231B44EE3C6771F1F0FF00A4EDB128484E9B2BBD 287 | ABC414F2B631C265ADB1839CD37D26B70B2327EA68C3B5B111B0D4B9A986D887 288 | F97746C868904CCED2C28DBE7E7A590AA47B690E21495751EC917E667E23E929 289 | B56852E4721F71E3FD8E1BE1708088C71D8460636AAEDB688DA36D99B7AB1432 290 | CE844AAFA53EF0E9886549937C633BE967A713D2ED0B5F41D9C6E3F03D47A17A 291 | DE5B2B91AB62DDCC4EB47DBB3129ECDC058AAC540C6851A2CF689EEE32D57E7D 292 | B6A8CFB880CEAA457D43CF1735F1540321653EAD00196FB9CF9C9F863D17D9BA 293 | 1732F6A898699436F214A5EA1AD414955A10A50893693C86D1867339D4BF6DD3 294 | 8EAAE274BFDBF0BD4BCA692D498E1D11A9298DDC7656D3313708F398E05CF154 295 | 50AA913A79CA8CE2C644459209920086AA6A47280523A43D4B52F35E98CAC58E 296 | 82088D1DFEE83B129DE4E182E294D203CDBA1AAA68809EF47AD92A6A652A9EFD 297 | AC22D8CE1DCCDF523255ACDC726C59EDC08DFB5653B96DDB892B4D61B06B4379 298 | 773660EED22616DC788CC96D251767E9436CB3E8E19D434A4256B2D220C2483A 299 | B64D84EC6F85F67AC66B5754F55573CEB15E93EC2DE553FA44DD4EB61284A149 300 | 57BD007875C6953F861F41F5B6ABA1D3ACDEBACD602E69473731AFB138CF7319 301 | 0BF635960EE5DC763B0362CD436A69D148634B332C9B365F0F4D54CF112602BB 302 | ECEE474D55568CE29086A94A9D6FD1787C21A9A5A933A0849F674906C255D701 303 | DDAAED2D63197BFD987599532E35AAA8BABE3292F3487BBA55BA614537EF19E9 304 | 8D07745B55133239EC05FD8AF53E09BA2523DCB055DEFA24CB0AF8483CEB4D50 305 | 717125B2056696703805B0D3DC369E97BF9C6154A93DE4FB22E3C3EFFC6051D7 306 | 4C8BEBF4C31794AEB169AB1F571310D867080B7694A6EE4BF23CABD7F6DDC19D 307 | A64E623F131E85BB71DA077B2FD98AFCF18659AA5E5EB68861FE225B7BD21E4A 308 | 149538DFB094824151FF0070C5964D488AECC1AA75A969E26B57AB014BEEA46C 309 | 93D266264ED85728F506965ADD749B230565DA6B1A54DB67F5EB8663019407D3 310 | 71340792D4052BEEF7803644B0A67C4F259F657F1F3B1F9D214DE6C87FB34FB0 311 | E269DC5561151972DDF780AD644532B56C8A945D26E64CE08731EC8E614C3551 312 | AD398A17A9412DF75E4241B92951483C3829500A9B4C4461CDD2BAD34D6BCD3F 313 | 5B515155545D663A5191F6723DFAF95A332A663986AF102B709AD525C67B5204 314 | BFD32F0F3A7A9454B687295C69F69C6C2DB758525D6DC6D63505A1C49295248F 315 | 7A6301AF214CBAA4380A569511A540A55DDB1EE9BC0362769C4C3020CC763ACD 316 | F280764EBA5B95B890919632D8AA595AA2B7DC602A80A92023B0EEB9FDCE7790 317 | D2B52BAF973EA276B7EF18C54ADBAC4F9831D3E38E7A3F5705CD05928971CD8A 318 | 09BD6C98CDC0E4CACB5EDE5B6D10724C39F3FCBB6D3EB341BAC4FBC6D2264DC4 319 | 09B483F3C604E92352480ADA01EB16F2F8E2218DE0DD15D338772E2AD53A6ACC 320 | C917C45962FB088A226226379746FF00E59DE277DB7DB06FFE997A44E95827E0 321 | BFEDF7B636EBF5CA4CF216F0822DF3186B3DA6FE609BB4F98D84F6DBF6DBD5D2 322 | 4F753646C3A74F3C68E1FF00BBEFE18C69FD40755F547424B1DA71FA4713AF70 323 | F7956319A6B2439E5E9EBFA6F2E0B3652B17AE921A2226C3E277AB98B2C33856 324 | 35BC9A0A9523DD9761B53AB4BB087DCEF0D1A8A7A69E9B136E9874653F886EA2 325 | 8D14951401D75845AA1A7385A8EA90A505A547E00EDE267027E9C7D613BAB5D3 326 | EBEC3E9FFDAF2DA6F0B93D399AC88E46B5816DAC8628C10E420FDBB2308F6AD8 327 | C97919126F822BB57C9B5CEDD2D7E4FE86E310EA5CDC9D08D27860FBE9BCAF9C 328 | DA6636182BA3ED9B59BB2CD29A6522B90EB4757714956A581A1011ED106EA3BC 329 | 7CCD59D0C5E032BA67A917F3B959C767B13A6E86434951F778FAF5F319076B4D 330 | 3F8CC963995AE903F207574F64F2993AB4F0C0CC80BA8959B0A8C653BCC595F6 331 | 7D8654DE60AD600A66788DE953614E2C94885249041824F7526FB9E7823FC48A 332 | 5AB73FD25C5214B7832EB350B6C5996E37D42133EF5FBD322DB634B1FC1DF58E 333 | 4751FD33EA32C725ACBDD18D5F87C88F0199E78ED4945B90B1538EDFCC363119 334 | 8291192D82F0336E71BCCCC9DC429DAFA7428C31545C337528B9A8E827A0D8F5 335 | 8F8E133DBBA0712FE4D983AA485669968909BEA5D12BD1B5954F7B5B68428AA0 336 | 4A94768C5E4A6DE3ABEA7C06BFC548EDA81218DCA768865379771036B1D70046 337 | 23F5BBF4E2BB771DF9B63E23311EAF49C2DFD90A4A8DCA8E9FF6EC26F6E7816F 338 | 50730AC974AAF63A59067F78B18B05CFCB735E66D6F1C79721E09A93F8DB682D 339 | E2636F496FE207331957E1B6662DC5AACC682852898D643DC577CD21A4924C11 340 | 3169B82BEC6D18773F6546C1869464110A2EC04C4C8246FF00AF4C5476675966 341 | F4AEADB15C2D95AAF432D91AFECEC930D70A63A79C2CF7E68988D86362E1FB48 342 | EDE9A14DFC3E7E1FFE24FE16763AA9EA1FF867B4198F66F2772A3B459334D22A 343 | AA6A3D0DA4A975B4AEFA8CC52AD2645425B25360AB894F2FF14FB4FD94ED9768 344 | A99158ACD72DA6CCEB50DD0E60F3AA425A4D4292380F27BC846927409294ED18 345 | 36F473AC4BC7EA4CF457CDBF4D8D85D6B762A3766D73B41CB9357B258B64C89C 346 | C4C3170CE7E76F48DED67E0E7F111F869E8994FE1F3B9B76AE80296B454766E9 347 | DB5B45A528A596AAB2BAD2AF45790900B8A6B534924F0E13BB5322FC4DFC38ED 348 | 1B4BA9ED21A0C89D328F45CD1D75456ADF88C5536C1D40F7A10A12445ED73FE4 349 | FAFC87C18B753E5EDFE9EDFDD06DA93C223693E2A1AA3C627FA44F298FE5FEA3 350 | 4AFC10FE33FB56DA6B1FA6CF2813A8452D4F6AF29C89FD49BFFD0D355A16981F 351 | 9C09E9A81C597FEACFE07650A4D28ADA57FBC841729324ACCC11A9721292E2D8 352 | B011B8EEF4DB126E96F506EA53AE28DBBAEB74727A46F5EC7FB829DA1E623DB2 353 | DCA39F2643C3972E45F18DA77F57FF00815DA7ED6B9DA0ED2F657B6198D456D6 354 | 6474CEB619AB79BAB5D254D2562E92B5915001E2AD2E8890B5A74F7810713BB6 355 | 141968A3CA73ACA996914B5FC37D971A4680EB2FB7A9054C2A785DD3ECAD208D 356 | C48BE19DCF5CFB2F4F70851321388B5A4EE47C662062ADFA1DCF94C178981999 357 | FE91FBFE7D7A65128A77A3DAE12D462F783E1CB7C2F48978AFC140F59EB1D30D 358 | 727555484AA256B99852E267B2B9DE606379DF8F9DFF00AFEFEB6B6B496D0487 359 | 24A124D87418D7ABC15F2C6263EB5889BAA680B48990AC27526D2A193270BB34 360 | B4AE46C53B0105BF07D4B0B5BEB3476621CB06A884C44A07B31243747048D4FA 361 | B5418980A89EBF1C13E5401E2C807BF17136836F2C241F49F3335F335A667DBB 362 | 15A8A0D1FF00827115716D88357F2144340591B8CECC113FE6889F43199DD6A9 363 | BFFCBB9BE0B722EED7D2A93DD50A84C293622E9D88B8C00F5DD4AAAD75AB29AA 364 | B575D4AF9EB8B4555A561592B8B07B2D4811852C23FF00280C0FFA7A8B476612 365 | 458CAAE37F67AFC0619D9CBEFBC8683CF3AE8E328438E2D62EABFB44EF8D5C7F 366 | 038C7D0AFF004F3D432AF4AA20ADF531A8B449AC954D9457D11A76509B120112 367 | E5226CD994AD9C817361F2111DD67227C85223305C0D6A7D1A971DE55B9AB73F 368 | 1C293B78E2D4FE4A82B5943596AB8482A252DEA7D5AB4266113CF4C4F3C59269 369 | B228D1B546266051AB2C2903133C52A5EA60105AA3F0B001991000D846276888 370 | 8F440A1EA55E63F5380658122C3657E9805F502C584E97D56697B9449D6DAD25 371 | 44B69812A46DDC9195C8CC4848C9948C8EDB4916DF99F5E7DFC7765AAA6BB0F4 372 | D52D37514EE768DF0E53BE84BCCAC0A451016D38148541B8D4930706DD8A31E9 373 | AB1EDA29D1A15EF26EBF64EE3E18A86EB4647209CD69F255FB8A2B99289B92BB 374 | 4F09B52566A414D9913897C944CC4F7796F133BFE7D7A47B2F5F5C8C832B6915 375 | 956969B6291B6DB4D43C96DB424A02508405E94A122C94A4000580C2DB38CB32 376 | D72AABDC732FA171C50AE529C5D230A5957154751529B2A2A9BC93389FF4F488 377 | EFD93329332AD5B9114C914F928F333E67C44479FDA223F6F5E9DECDB8B524AD 378 | 4B5A96428151512AD9AF7899C7993B46DB69AD284B684A12D929425290904055 379 | C240807CB066FF00233FF60FFF003B6FE8C924875B0090245A7024DDD2D13732 380 | C99373FCC779E180D2053EDABCEF3BCE1298CCEFE6624B1BBC4FFA4EF3BC7EFE 381 | BE3CF602DFC417E2BA45826B3B55A40D93A7B44B0981CA05846C36C7D13CC4FF 382 | 00EDDF623C72DA207C629ADF2E5D30F7755A663A697E626627D952F313E7FC44 383 | FEFEBD5883EAD3E2983E373BF5C2F556518B7F8C19E8917B2A7F22FF0075AFFB 384 | CFFE907ACA48B038C71FFFD9 385 | } 386 | end 387 | object Label2: TLabel 388 | Left = 113 389 | Height = 14 390 | Top = 7 391 | Width = 142 392 | Caption = 'Developed by Murat Cileli' 393 | Font.CharSet = TURKISH_CHARSET 394 | Font.Color = 4539717 395 | Font.Height = -11 396 | Font.Name = 'Tahoma' 397 | Font.Pitch = fpVariable 398 | Font.Quality = fqCleartypeNatural 399 | Font.Style = [fsBold] 400 | ParentColor = False 401 | ParentFont = False 402 | end 403 | object Label3: TLabel 404 | Left = 113 405 | Height = 43 406 | Top = 22 407 | Width = 211 408 | AutoSize = False 409 | Caption = 'For feature request, bug report, suggestion or anything else really then send an email to' 410 | Font.CharSet = TURKISH_CHARSET 411 | Font.Color = 2763306 412 | Font.Height = -11 413 | Font.Name = 'Tahoma' 414 | Font.Pitch = fpVariable 415 | Font.Quality = fqCleartypeNatural 416 | ParentColor = False 417 | ParentFont = False 418 | ShowAccelChar = False 419 | WordWrap = True 420 | end 421 | object Label4: TLabel 422 | Left = 200 423 | Height = 14 424 | Top = 48 425 | Width = 118 426 | Caption = 'murat.cileli@gmail.com' 427 | Font.CharSet = TURKISH_CHARSET 428 | Font.Color = 8149072 429 | Font.Height = -11 430 | Font.Name = 'Tahoma' 431 | Font.Pitch = fpVariable 432 | Font.Quality = fqCleartypeNatural 433 | Font.Style = [fsUnderline] 434 | ParentColor = False 435 | ParentFont = False 436 | end 437 | object Label5: TLabel 438 | Left = 113 439 | Height = 14 440 | Top = 72 441 | Width = 48 442 | Caption = 'Caution!' 443 | Font.CharSet = TURKISH_CHARSET 444 | Font.Color = 5592405 445 | Font.Height = -11 446 | Font.Name = 'Tahoma' 447 | Font.Pitch = fpVariable 448 | Font.Quality = fqCleartypeNatural 449 | Font.Style = [fsBold] 450 | ParentColor = False 451 | ParentFont = False 452 | end 453 | object Label6: TLabel 454 | Left = 113 455 | Height = 13 456 | Top = 87 457 | Width = 211 458 | AutoSize = False 459 | Caption = 'Do not use W3Edit on live animals.' 460 | Font.CharSet = TURKISH_CHARSET 461 | Font.Color = 5592405 462 | Font.Height = -11 463 | Font.Name = 'Tahoma' 464 | Font.Pitch = fpVariable 465 | Font.Quality = fqCleartypeNatural 466 | ParentColor = False 467 | ParentFont = False 468 | WordWrap = True 469 | end 470 | object Image2: TImage 471 | Left = 302 472 | Height = 16 473 | Top = 7 474 | Width = 16 475 | AutoSize = True 476 | Picture.Data = { 477 | 1754506F727461626C654E6574776F726B47726170686963B202000089504E47 478 | 0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000000 479 | 2A744558744372656174696F6E2054696D650046722032204170722032303034 480 | 2031313A31343A3333202B30313030FE7675A70000000774494D4507D4070708 481 | 1D1B1196E478000000097048597300000AF000000AF00142AC34980000000467 482 | 414D410000B18F0BFC61050000020B4944415478DA9D534D6B1441107DDDD36B 483 | 76D9A898C37A5A0541C45C1445D46B4E1E02FA13FC0B7AF096AB7F41F4E63117 484 | 1121E24DF4220AB908825F1009248291AC61B33B3BD31FE5EBEE31E351D35074 485 | 4F4F55BD57AFAA15F25238DC12652F1753E9F74D885FC9342404EE0A21EEFC21 486 | 41203C880FBC139465BD3FFC2417E8FEC3B8FEBCE92E9EEF40174051347C4828 487 | 78C039C0DAC62AA0AA817A86CD6F3F0D2F6ED1F3A9F64165ECBA841C5D800CCF 488 | 9297CE55254A92F7949807AD50BB54F190D6358EB4E06AC89D07088B5781178F 489 | 81C169E8F7AFA1BCCD6CA2898E1527F32207BA196749EBC6ED14ACEF2E112424 490 | 443173C0FC09C8CE163D6340C8216461E54078A54345944B4BC09BE750937142 491 | 8802FAEBCB98ACACC29DBB0278DF96C2DDBBB669C6C68B5949CD1C8A2896A949 492 | 9D019B9FE17EEDC2CC66048FC164401FB601552CBB59DAA303F5EA09AA6BCB59 493 | F5E9948256D01B1F707CE5268E7C594F41703E33E1D9FA76108C6302FD7215C5 494 | 998BD8BDBF86EEDA23C8780FBD8FEF1864A1227AB039794A62E183B409BC8BE2 495 | 18F41EDEC3DCC249F8630374B6BF668D826FD06D6BC1712CFE4AE0527DCC5E18 496 | E8F1087A7FD4F69DCE8976448F3EE2930E363348929AEFA3AADC7BBB6D6D488D 497 | A25E4D9F23733AC66F6192A49B6431B726326B12A45EC6898A63792A8AFA0F0F 498 | AB190A6CD09E45674E0C06B4DEFFBC425A49DBF98376E8E7FC1BFB242ECBE4DC 499 | EAFE0000000049454E44AE426082 500 | } 501 | Transparent = True 502 | end 503 | end 504 | -------------------------------------------------------------------------------- /source/unit2.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/unit2.o -------------------------------------------------------------------------------- /source/unit2.pas: -------------------------------------------------------------------------------- 1 | unit Unit2; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | ExtCtrls, StdCtrls; 10 | 11 | type 12 | 13 | { TForm2 } 14 | 15 | TForm2 = class(TForm) 16 | Bevel1: TBevel; 17 | Image1: TImage; 18 | Image2: TImage; 19 | Label2: TLabel; 20 | Label3: TLabel; 21 | Label4: TLabel; 22 | Label5: TLabel; 23 | Label6: TLabel; 24 | private 25 | { private declarations } 26 | public 27 | { public declarations } 28 | end; 29 | 30 | var 31 | Form2: TForm2; 32 | 33 | implementation 34 | 35 | initialization 36 | {$I unit2.lrs} 37 | 38 | end. 39 | 40 | -------------------------------------------------------------------------------- /source/unit2.ppu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ozok/W3Edit-HTML-Editor/f2b58c69ea9b147f177df0d30f9141fabd338ec4/source/unit2.ppu --------------------------------------------------------------------------------