You've already forked lazarus-ccr
Adds lazedit, a text editor
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2289 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
59
applications/lazedit/EPlus.ini
Normal file
59
applications/lazedit/EPlus.ini
Normal file
@ -0,0 +1,59 @@
|
|||||||
|
[Editor]
|
||||||
|
FontName=
|
||||||
|
FontSize=0
|
||||||
|
|
||||||
|
[MainForm]
|
||||||
|
Left=634
|
||||||
|
Top=143
|
||||||
|
Width=575
|
||||||
|
Height=418
|
||||||
|
InitialDir=
|
||||||
|
|
||||||
|
[NewHtmlDlg]
|
||||||
|
Top=-1
|
||||||
|
Left=-1
|
||||||
|
InitialDir=
|
||||||
|
|
||||||
|
[AnchorDlg]
|
||||||
|
Top=-1
|
||||||
|
Left=-1
|
||||||
|
|
||||||
|
[CharMapDlg]
|
||||||
|
Top=122
|
||||||
|
Left=775
|
||||||
|
|
||||||
|
[PictureDlg]
|
||||||
|
Top=-1
|
||||||
|
Left=-1
|
||||||
|
InitialDir=
|
||||||
|
DefaultFolderPrefix=
|
||||||
|
|
||||||
|
[TableDlg]
|
||||||
|
Top=-1
|
||||||
|
Left=-1
|
||||||
|
|
||||||
|
[RecentFiles]
|
||||||
|
File_0=
|
||||||
|
File_1=
|
||||||
|
File_2=
|
||||||
|
File_3=
|
||||||
|
File_4=
|
||||||
|
File_5=
|
||||||
|
|
||||||
|
[FileTypes]
|
||||||
|
eftNone=.txt
|
||||||
|
eftHtml=.htm;.html;.xhtml;.xhtm;.htmlt;.hks;
|
||||||
|
eftXml=.xml;.adfx
|
||||||
|
eftCSS=.css;.csst
|
||||||
|
eftJS=.js;.jst
|
||||||
|
eftFpc=.pp;.pas;.inc;.lpr;.dpr;.lrs;.lpk;.dpk
|
||||||
|
eftLfm=.lfm;.dfm
|
||||||
|
eftC=.c;.cpp;.h;.hpp;.hh;.gcc;.cc;.c++
|
||||||
|
eftPy=.py
|
||||||
|
eftPhp=.php
|
||||||
|
eftPerl=.pl
|
||||||
|
eftUnixShell=.sh
|
||||||
|
eftBat=.bat
|
||||||
|
eftDiff=.diff;.patch
|
||||||
|
eftIni=.ini;.conf;.cfg
|
||||||
|
eftPo=.po
|
||||||
136
applications/lazedit/anchordlgform.lfm
Normal file
136
applications/lazedit/anchordlgform.lfm
Normal file
@ -0,0 +1,136 @@
|
|||||||
|
object AnchorDlgForm: TAnchorDlgForm
|
||||||
|
Left = 781
|
||||||
|
Height = 377
|
||||||
|
Top = 138
|
||||||
|
Width = 320
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Hyperlink'
|
||||||
|
ClientHeight = 377
|
||||||
|
ClientWidth = 320
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.31'
|
||||||
|
object OkBtn: TBitBtn
|
||||||
|
Left = 237
|
||||||
|
Height = 30
|
||||||
|
Top = 336
|
||||||
|
Width = 75
|
||||||
|
Default = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkOK
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object CancelBtn: TBitBtn
|
||||||
|
Left = 152
|
||||||
|
Height = 30
|
||||||
|
Top = 336
|
||||||
|
Width = 75
|
||||||
|
Cancel = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkCancel
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 61
|
||||||
|
Caption = 'Omschrijving'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object DescrEdit: TEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 21
|
||||||
|
Top = 24
|
||||||
|
Width = 304
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'DescrEdit'
|
||||||
|
end
|
||||||
|
object UrlLabel: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 56
|
||||||
|
Width = 14
|
||||||
|
Caption = 'Url'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object UrlEdit: TEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 21
|
||||||
|
Top = 72
|
||||||
|
Width = 304
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object AnchorTypeGroup: TRadioGroup
|
||||||
|
Left = 8
|
||||||
|
Height = 81
|
||||||
|
Top = 104
|
||||||
|
Width = 304
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Type hyperlink'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 63
|
||||||
|
ClientWidth = 300
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'Url'
|
||||||
|
'Lokaal anker maken'
|
||||||
|
'Naar lokaal anker verwijzen'
|
||||||
|
)
|
||||||
|
OnClick = AnchorTypeGroupClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 192
|
||||||
|
Width = 21
|
||||||
|
Caption = 'Titel'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object TitleEdit: TEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 21
|
||||||
|
Top = 208
|
||||||
|
Width = 304
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 240
|
||||||
|
Width = 12
|
||||||
|
Caption = 'ID'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object IdEdit: TEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 21
|
||||||
|
Top = 256
|
||||||
|
Width = 304
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 288
|
||||||
|
Width = 26
|
||||||
|
Caption = 'Class'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ClassEdit: TEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 21
|
||||||
|
Top = 304
|
||||||
|
Width = 304
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
end
|
||||||
144
applications/lazedit/anchordlgform.pp
Normal file
144
applications/lazedit/anchordlgform.pp
Normal file
@ -0,0 +1,144 @@
|
|||||||
|
unit AnchorDlgForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,
|
||||||
|
StdCtrls, ExtCtrls, HtmlCode;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
TAnchorType = (atUrl, atMakeLocalAnchor, atRefLocalAnchor);
|
||||||
|
|
||||||
|
{ TAnchorDlgForm }
|
||||||
|
|
||||||
|
TAnchorDlgForm = class(TForm)
|
||||||
|
CancelBtn: TBitBtn;
|
||||||
|
DescrEdit: TEdit;
|
||||||
|
AnchorTypeGroup: TRadioGroup;
|
||||||
|
ClassEdit: TEdit;
|
||||||
|
IdEdit: TEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
TitleEdit: TEdit;
|
||||||
|
Label3: TLabel;
|
||||||
|
UrlEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
UrlLabel: TLabel;
|
||||||
|
OkBtn: TBitBtn;
|
||||||
|
procedure AnchorTypeGroupClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
function GetAnchorType: TAnchorType;
|
||||||
|
function GetDescription: String;
|
||||||
|
function GetDomClass: String;
|
||||||
|
function GetDomId: String;
|
||||||
|
function GetTitle: String;
|
||||||
|
function GetUrl: String;
|
||||||
|
procedure SetDescription(AValue: String);
|
||||||
|
procedure SetDomClass(AValue: String);
|
||||||
|
procedure SetDomId(AValue: String);
|
||||||
|
procedure SetTitle(AValue: String);
|
||||||
|
procedure SetUrl(AValue: String);
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
property AnchorType: TAnchorType read GetAnchorType;
|
||||||
|
property Description: String read GetDescription write SetDescription;
|
||||||
|
property Url: String read GetUrl write SetUrl;
|
||||||
|
property Title: String read GetTitle write SetTitle;
|
||||||
|
property DomId: String read GetDomId write SetDomId;
|
||||||
|
property DomClass: String read GetDomClass write SetDomClass;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
const
|
||||||
|
idxUrl = 0;
|
||||||
|
idxMakeLocalAnchor = 1;
|
||||||
|
idxRefLocalAnchor = 2;
|
||||||
|
|
||||||
|
{ TAnchorDlgForm }
|
||||||
|
|
||||||
|
procedure TAnchorDlgForm.AnchorTypeGroupClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case AnchorTypeGroup.ItemIndex of
|
||||||
|
idxUrl: UrlLabel.Caption := 'Url';
|
||||||
|
idxMakeLocalAnchor: UrlLabel.Caption := 'Anker naam';
|
||||||
|
idxRefLocalAnchor: UrlLabel.Caption := 'Anker naam';
|
||||||
|
else UrlLabel.Caption := 'Url';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlgForm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ActiveControl := DescrEdit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlgForm.GetAnchorType: TAnchorType;
|
||||||
|
begin
|
||||||
|
case AnchorTypeGroup.ItemIndex of
|
||||||
|
idxUrl: Result := atUrl;
|
||||||
|
idxMakeLocalAnchor: Result := atMakeLocalAnchor;
|
||||||
|
idxRefLocalAnchor: Result := atRefLocalAnchor;
|
||||||
|
else Result := atUrl;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlgForm.GetDescription: String;
|
||||||
|
begin
|
||||||
|
Result := DescrEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlgForm.GetDomClass: String;
|
||||||
|
begin
|
||||||
|
Result := ClassEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlgForm.GetDomId: String;
|
||||||
|
begin
|
||||||
|
Result := IdEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlgForm.GetTitle: String;
|
||||||
|
begin
|
||||||
|
Result := TitleEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlgForm.GetUrl: String;
|
||||||
|
begin
|
||||||
|
Result := UrlEscape(UrlEdit.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlgForm.SetDescription(AValue: String);
|
||||||
|
begin
|
||||||
|
DescrEdit.Text := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlgForm.SetDomClass(AValue: String);
|
||||||
|
begin
|
||||||
|
ClassEdit.Text := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlgForm.SetDomId(AValue: String);
|
||||||
|
begin
|
||||||
|
IdEdit.Text := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlgForm.SetTitle(AValue: String);
|
||||||
|
begin
|
||||||
|
TitleEdit.Text := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlgForm.SetUrl(AValue: String);
|
||||||
|
begin
|
||||||
|
UrlEdit.Text := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
59
applications/lazedit/copyleft.pp
Normal file
59
applications/lazedit/copyleft.pp
Normal file
@ -0,0 +1,59 @@
|
|||||||
|
unit CopyLeft;
|
||||||
|
|
||||||
|
{
|
||||||
|
EPlus: a text editor with built-in features for HTML editing and
|
||||||
|
Syntax Highlighting for several text formats
|
||||||
|
(html, xml, css, javascript, pascal, c/c++, perl, python, php, bat, ini, diff)
|
||||||
|
|
||||||
|
Copyright (C) 2011 by Bart Broersma & Flying Sheep Inc.
|
||||||
|
http://home.tiscali.nl/~knmg0017/software.htm
|
||||||
|
|
||||||
|
This library is free software; you can redistribute it and/or modify it
|
||||||
|
under the terms of the GNU Library General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or (at your
|
||||||
|
option) any later version with the following modification:
|
||||||
|
|
||||||
|
As a special exception, the copyright holders of this library give you
|
||||||
|
permission to link this library with independent modules to produce an
|
||||||
|
executable, regardless of the license terms of these independent modules,and
|
||||||
|
to copy and distribute the resulting executable under terms of your choice,
|
||||||
|
provided that you also meet, for each linked independent module, the terms
|
||||||
|
and conditions of the license of that module. An independent module is a
|
||||||
|
module which is not derived from or based on this library. If you modify
|
||||||
|
this library, you may extend this exception to your version of the library,
|
||||||
|
but you are not obligated to do so. If you do not wish to do so, delete this
|
||||||
|
exception statement from your version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||||
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
||||||
|
for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU Library General Public License
|
||||||
|
along with this library; if not, write to the Free Software Foundation,
|
||||||
|
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
//uses GPL;
|
||||||
|
|
||||||
|
const
|
||||||
|
AppName = 'EPlus';
|
||||||
|
AboutTitle = 'Over ' + AppName;
|
||||||
|
AppVersion = 'Versie 1.0.0 RC1';
|
||||||
|
CopyLeftStatement = 'Copyright (c) 2011, 2012 by Bart Broersma & FlyingSheep Inc.';
|
||||||
|
MetaGeneratorName = AppName + #32 + AppVersion + ' by Bart Broersma and Flying Sheep Inc.';
|
||||||
|
AuthorWebName = 'Bart & Mariska''s Webstek';
|
||||||
|
AuthorWebUrl = 'http://home.tiscali.nl/~knmg0017/';
|
||||||
|
LicenseText = ''; //LGPL_Text;
|
||||||
|
LicenseUrl = '';//LGPL_Url;
|
||||||
|
LicenseName = 'Gnu LGPL';
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1068
applications/lazedit/editorpagecontrol.pp
Normal file
1068
applications/lazedit/editorpagecontrol.pp
Normal file
File diff suppressed because it is too large
Load Diff
128
applications/lazedit/eplus_commons.pp
Normal file
128
applications/lazedit/eplus_commons.pp
Normal file
@ -0,0 +1,128 @@
|
|||||||
|
unit EPlus_Commons;
|
||||||
|
|
||||||
|
{
|
||||||
|
EPlus: a text editor with built-in features for HTML editing and
|
||||||
|
Syntax Highlighting for several text formats
|
||||||
|
(html, xml, css, javascript, pascal, c/c++, perl, python, php, bat, ini, diff)
|
||||||
|
|
||||||
|
Copyright (C) 2011 by Bart Broersma & Flying Sheep Inc.
|
||||||
|
http://home.tiscali.nl/~knmg0017/software.htm
|
||||||
|
|
||||||
|
This library is free software; you can redistribute it and/or modify it
|
||||||
|
under the terms of the GNU Library General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or (at your
|
||||||
|
option) any later version with the following modification:
|
||||||
|
|
||||||
|
As a special exception, the copyright holders of this library give you
|
||||||
|
permission to link this library with independent modules to produce an
|
||||||
|
executable, regardless of the license terms of these independent modules,and
|
||||||
|
to copy and distribute the resulting executable under terms of your choice,
|
||||||
|
provided that you also meet, for each linked independent module, the terms
|
||||||
|
and conditions of the license of that module. An independent module is a
|
||||||
|
module which is not derived from or based on this library. If you modify
|
||||||
|
this library, you may extend this exception to your version of the library,
|
||||||
|
but you are not obligated to do so. If you do not wish to do so, delete this
|
||||||
|
exception statement from your version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||||
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
||||||
|
for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU Library General Public License
|
||||||
|
along with this library; if not, write to the Free Software Foundation,
|
||||||
|
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
{ *********************************************************************
|
||||||
|
|
||||||
|
Common type and variable definitions for the EPlus program
|
||||||
|
Some of these can be configurable at runtime
|
||||||
|
|
||||||
|
*********************************************************************** }
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Type
|
||||||
|
|
||||||
|
TEditorFileType = (eftNone, eftHtml, eftXml, eftCSS, eftJS, eftFpc, eftLfm, eftC, eftPy, eftPhp,
|
||||||
|
eftPerl, eftUnixShell, eftBat, eftDiff, eftIni, eftPo);
|
||||||
|
TFileTypeMaskList = array[TEditorFileType] of string;
|
||||||
|
|
||||||
|
const
|
||||||
|
HtmlTemplateExt = '.htmlt;.hks;';
|
||||||
|
CssTemplateExt = '.csst';
|
||||||
|
JavaTemplateExt = '.jst';
|
||||||
|
STemplate = 'Sjablonen';
|
||||||
|
|
||||||
|
eftNames: array[TEditorFileType] of string = ('eftNone', 'eftHtml', 'eftXml', 'eftCSS',
|
||||||
|
'eftJS', 'eftFpc', 'eftLfm', 'eftC' , 'eftPy', 'eftPhp',
|
||||||
|
'eftPerl', 'eftUnixShell', 'eftBat', 'eftDiff', 'eftIni', 'eftPo');
|
||||||
|
|
||||||
|
|
||||||
|
eftFilterNames: array[TEditorFileType] of string = ('', 'Html bestanden', 'XML bestanden', 'CSS bestanden',
|
||||||
|
'Javascript bestanden', 'Pascal bronbestanden', 'Lazarus en Delphi forms', 'C en C++ bronbestanden' ,
|
||||||
|
'Python bronbestanden', 'PHP bronbestanden',
|
||||||
|
'Perl bronbestanden', 'Unix shellscripts', 'Batch bestanden', 'Diff''s en patches',
|
||||||
|
'Configuratie bestanden', 'po language files');
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
AllFilesMask = '*.*';
|
||||||
|
{$ENDIF}
|
||||||
|
FilterText = 'Tekst bestanden (*.txt)|*.txt';
|
||||||
|
FilterAll = 'Alle bestanden ('+ AllFilesMask + ')|' + AllFilesMask;
|
||||||
|
|
||||||
|
//Filter indexes
|
||||||
|
fiEftFirst = Ord(Low(TEditorFileType)) + 1;
|
||||||
|
fiHtml = Ord(eftHtml);
|
||||||
|
fiXml = Ord(eftXml);
|
||||||
|
fiCss = Ord(eftCss);
|
||||||
|
fiJS = Ord(eftJS);
|
||||||
|
fiFpc = Ord(eftFpc);
|
||||||
|
fiLfm = Ord(eftLfm);
|
||||||
|
fiC = Ord(eftC);
|
||||||
|
fiPy = Ord(eftPy);
|
||||||
|
fiPhp = Ord(eftPhp);
|
||||||
|
fiPerl = Ord(eftPerl);
|
||||||
|
fiUnixShell = Ord(eftUnixShell);
|
||||||
|
fiBat = Ord(eftBat);
|
||||||
|
fiDiff = Ord(eftDiff);
|
||||||
|
fiIni = Ord(eftIni);
|
||||||
|
fiPo = Ord(eftPo);
|
||||||
|
fiEftLast = Ord(High(TEditorFileType));
|
||||||
|
|
||||||
|
fiText = fiEftLast + 1;
|
||||||
|
fiAll = fiEftLast + 2;
|
||||||
|
|
||||||
|
DefaultFiletypeMaskList: TFileTypeMaskList = ('.txt',//eftNone (no need to guess syntax for .txt files)
|
||||||
|
'.htm;.html;.xhtml;.xhtm;' + HtmlTemplateExt, //eftHtml
|
||||||
|
'.xml;.adfx', //eftXml
|
||||||
|
'.css;' + CssTemplateExt, //eftCss
|
||||||
|
'.js;' + JavaTemplateExt, //eftJava
|
||||||
|
'.pp;.pas;.inc;.lpr;.dpr;.lrs;.lpk;.dpk', //eftFpc
|
||||||
|
'.lfm;.dfm', //eftLfm
|
||||||
|
'.c;.cpp;.h;.hpp;.hh;.gcc;.cc;.c++', //eftC
|
||||||
|
'.py', //eftPython
|
||||||
|
'.php', //eftPhp
|
||||||
|
'.pl', //eftPerl
|
||||||
|
'.sh', //eftUnixShell
|
||||||
|
'.bat', //eftBat
|
||||||
|
'.diff;.patch', //eftDiff
|
||||||
|
'.ini;.conf;.cfg', //eftIni
|
||||||
|
'.po'); //eftPo
|
||||||
|
|
||||||
|
DefaultTemplateMaskList = HtmlTemplateExt + ';' + CssTemplateExt + ';' + JavaTemplateExt;
|
||||||
|
|
||||||
|
MruEntries = 6;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
265
applications/lazedit/eplus_config.pp
Normal file
265
applications/lazedit/eplus_config.pp
Normal file
@ -0,0 +1,265 @@
|
|||||||
|
{
|
||||||
|
EPlus: a text editor with built-in features for HTML editing and
|
||||||
|
Syntax Highlighting for several text formats
|
||||||
|
(html, xml, css, javascript, pascal, c/c++, perl, python, php, bat, ini, diff)
|
||||||
|
|
||||||
|
Copyright (C) 2011 by Bart Broersma & Flying Sheep Inc.
|
||||||
|
http://home.tiscali.nl/~knmg0017/software.htm
|
||||||
|
|
||||||
|
This library is free software; you can redistribute it and/or modify it
|
||||||
|
under the terms of the GNU Library General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or (at your
|
||||||
|
option) any later version with the following modification:
|
||||||
|
|
||||||
|
As a special exception, the copyright holders of this library give you
|
||||||
|
permission to link this library with independent modules to produce an
|
||||||
|
executable, regardless of the license terms of these independent modules,and
|
||||||
|
to copy and distribute the resulting executable under terms of your choice,
|
||||||
|
provided that you also meet, for each linked independent module, the terms
|
||||||
|
and conditions of the license of that module. An independent module is a
|
||||||
|
module which is not derived from or based on this library. If you modify
|
||||||
|
this library, you may extend this exception to your version of the library,
|
||||||
|
but you are not obligated to do so. If you do not wish to do so, delete this
|
||||||
|
exception statement from your version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||||
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
||||||
|
for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU Library General Public License
|
||||||
|
along with this library; if not, write to the Free Software Foundation,
|
||||||
|
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
}
|
||||||
|
|
||||||
|
unit EPlus_Config;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, EditorPageControl, EPlus_COmmons, CopyLeft, Forms,{FCL_Misc,} IniFiles,
|
||||||
|
LCLProc;
|
||||||
|
|
||||||
|
type
|
||||||
|
//globale type for all configurable options
|
||||||
|
TEPlusOptions = record
|
||||||
|
EditorOptions: TEditorOptions;
|
||||||
|
MainForm: record
|
||||||
|
Position: TRect; //used as Left, Top, Widht, Height
|
||||||
|
InitialDir: String;
|
||||||
|
end;
|
||||||
|
HtmlCharMapDlg: record
|
||||||
|
Position: TPoint;
|
||||||
|
end;
|
||||||
|
NewHtmlDlg: record
|
||||||
|
Position: TPoint;
|
||||||
|
InitialDir: String;
|
||||||
|
end;
|
||||||
|
AnchorDlg: record
|
||||||
|
Position: TPoint;
|
||||||
|
end;
|
||||||
|
PictureDlg: record
|
||||||
|
Position: TPoint;
|
||||||
|
InitialDir: String;
|
||||||
|
DefaultFolderPrefix: String;
|
||||||
|
end;
|
||||||
|
TableDlg: record
|
||||||
|
Position: TPoint;
|
||||||
|
end;
|
||||||
|
FileTypeMaskList: TFileTypeMaskList;
|
||||||
|
TemplateMaskList: String;
|
||||||
|
RecentFiles: Array[0..MruEntries - 1] of String;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function LoadOptions(var Options: TEPlusOptions; FileName: String): Boolean;
|
||||||
|
function SaveOptions(const Options: TEPlusOptions; FileName: String): Boolean;
|
||||||
|
function GetDefaultIniNameOnly: String;
|
||||||
|
function GetDefaultIniDir: String;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
const
|
||||||
|
scMainForm = 'MainForm';
|
||||||
|
idTop = 'Top';
|
||||||
|
idLeft = 'Left';
|
||||||
|
idWidth = 'Width';
|
||||||
|
idHeight = 'Height';
|
||||||
|
idInitialDir = 'InitialDir'; //Last opened folder
|
||||||
|
scHtmlCharMapDlg = 'CharMapDlg';
|
||||||
|
scNewHtmlDlg = 'NewHtmlDlg';
|
||||||
|
scAnchorDlg = 'AnchorDlg';
|
||||||
|
scPictureDlg = 'PictureDlg';
|
||||||
|
idDefaultFolderPrefix = 'DefaultFolderPrefix'; //prefix for <.. src=SomeFolder/name.jpg ...>
|
||||||
|
scTableDlg = 'TableDlg';
|
||||||
|
scFileTypes = 'FileTypes';
|
||||||
|
scEditor = 'Editor';
|
||||||
|
idFontSize = 'FontSize';
|
||||||
|
idFontName = 'FontName';
|
||||||
|
scRecentFiles = 'RecentFiles';
|
||||||
|
idFilePrefix = 'File_%d';
|
||||||
|
|
||||||
|
|
||||||
|
function LoadOptions(var Options: TEPlusOptions; FileName: String): Boolean;
|
||||||
|
var
|
||||||
|
Ini: TIniFile;
|
||||||
|
ftIndex: TEditorFileType;
|
||||||
|
S: String;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
try
|
||||||
|
Ini := Nil;
|
||||||
|
Ini := TIniFile.Create(FileName);
|
||||||
|
try
|
||||||
|
Result := True; //Return true if opening the Ini file is successfull
|
||||||
|
|
||||||
|
Options.EditorOptions.FontName := Ini.ReadString(scEditor, idFontName, '');
|
||||||
|
Options.EditorOptions.FontSize := Ini.ReadInteger(scEditor, idFontSize, 0);
|
||||||
|
|
||||||
|
Options.MainForm.Position.Left := Ini.ReadInteger(scMainForm, idLeft, -1);
|
||||||
|
Options.MainForm.Position.Top := Ini.ReadInteger(scMainForm, idTop, -1);
|
||||||
|
Options.MainForm.Position.Right := Ini.ReadInteger(scMainForm, idWidth, -1);
|
||||||
|
Options.MainForm.Position.Bottom := Ini.ReadInteger(scMainForm, idHeight, -1);
|
||||||
|
Options.MainForm.InitialDir := Ini.ReadString(scMainForm, idInitialDir, '');
|
||||||
|
|
||||||
|
//Dialogs
|
||||||
|
Options.NewHtmlDlg.Position.y := Ini.ReadInteger(scNewHtmlDlg, idTop, -1);
|
||||||
|
Options.NewHtmlDlg.Position.x := Ini.ReadInteger(scNewHtmlDlg, idLeft, -1);
|
||||||
|
Options.NewHtmlDlg.InitialDir := Ini.ReadString(scNewHtmlDlg, idInitialDir, '');
|
||||||
|
|
||||||
|
Options.AnchorDlg.Position.y := Ini.ReadInteger(scAnchorDlg, idTop, -1);
|
||||||
|
Options.AnchorDlg.Position.x := Ini.ReadInteger(scAnchorDlg, idLeft, -1);
|
||||||
|
|
||||||
|
Options.HtmlCharMapDlg.Position.y := Ini.ReadInteger(scHtmlCharmapDlg, idTop, -1);
|
||||||
|
Options.HtmlCharMapDlg.Position.x := Ini.ReadInteger(scHtmlCharmapDlg, idLeft, -1);
|
||||||
|
|
||||||
|
Options.PictureDlg.Position.y := Ini.ReadInteger(scPictureDlg, idTop, -1);
|
||||||
|
Options.PictureDlg.Position.x := Ini.ReadInteger(scPictureDlg, idLeft, -1);
|
||||||
|
Options.PictureDlg.InitialDir := Ini.ReadString(scPictureDlg, idInitialDir, '');
|
||||||
|
Options.PictureDlg.DefaultFolderPrefix := Ini.ReadString(scPictureDlg, idDefaultFolderPrefix, '');
|
||||||
|
|
||||||
|
Options.TableDlg.Position.y := Ini.ReadInteger(scTableDlg, idTop, -1);
|
||||||
|
Options.TableDlg.Position.x := Ini.ReadInteger(scTableDlg, idLeft, -1);
|
||||||
|
|
||||||
|
|
||||||
|
//Recent files
|
||||||
|
for i := 0 to MruEntries -1 do
|
||||||
|
begin
|
||||||
|
Options.RecentFiles[i] := Ini.ReadString(scRecentFiles, Format(idFilePrefix,[i]), '');
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//Filters
|
||||||
|
for ftIndex := Low(TEditorFileType) to High(TEditorFileType) do
|
||||||
|
begin
|
||||||
|
S := Ini.ReadString(scFileTypes, eftNames[ftIndex], '');
|
||||||
|
if (S <> '') then Options.FileTypeMaskList[ftIndex] := S;
|
||||||
|
end;
|
||||||
|
|
||||||
|
finally
|
||||||
|
Ini.Free;
|
||||||
|
Ini := Nil;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
//Only handle read errors here!
|
||||||
|
on E: EStreamError do
|
||||||
|
begin
|
||||||
|
Result := false;
|
||||||
|
if Assigned(Ini) then Ini.Free;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SaveOptions(const Options: TEPlusOptions; FileName: String): Boolean;
|
||||||
|
var
|
||||||
|
Ini: TIniFile;
|
||||||
|
ftIndex: TEditorFileType;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
try
|
||||||
|
Ini := Nil;
|
||||||
|
Ini := TIniFile.Create(FileName);
|
||||||
|
try
|
||||||
|
Ini.CacheUpdates := True;
|
||||||
|
|
||||||
|
Ini.WriteString(scEditor, idFontName, Options.EditorOptions.FontName);
|
||||||
|
Ini.WriteInteger(scEditor, idFontSize, Options.EditorOptions.FontSize);
|
||||||
|
|
||||||
|
Ini.WriteInteger(scMainForm, idLeft, Options.MainForm.Position.Left);
|
||||||
|
Ini.WriteInteger(scMainForm, idTop, Options.MainForm.Position.Top);
|
||||||
|
Ini.WriteInteger(scMainForm, idWidth, Options.MainForm.Position.Right);
|
||||||
|
Ini.WriteInteger(scMainForm, idHeight, Options.MainForm.Position.Bottom);
|
||||||
|
Ini.WriteString(scMainForm, idInitialDir, Options.MainForm.InitialDir);
|
||||||
|
|
||||||
|
//Dialogs
|
||||||
|
Ini.WriteInteger(scNewHtmlDlg, idTop, Options.NewHtmlDlg.Position.y);
|
||||||
|
Ini.WriteInteger(scNewHtmlDlg, idLeft, Options.NewHtmlDlg.Position.x);
|
||||||
|
Ini.WriteString(scNewHtmlDlg, idInitialDir, Options.NewHtmlDlg.InitialDir);
|
||||||
|
|
||||||
|
Ini.WriteInteger(scAnchorDlg, idTop, Options.AnchorDlg.Position.y);
|
||||||
|
Ini.WriteInteger(scAnchorDlg, idLeft, Options.AnchorDlg.Position.x);
|
||||||
|
|
||||||
|
Ini.WriteInteger(scHtmlCharMapDlg, idTop, Options.HtmlCharMapDlg.Position.y);
|
||||||
|
Ini.WriteInteger(scHtmlCharMapDlg, idLeft, Options.HtmlCharMapDlg.Position.x);
|
||||||
|
|
||||||
|
Ini.WriteInteger(scPictureDlg, idTop, Options.PictureDlg.Position.y);
|
||||||
|
Ini.WriteInteger(scPictureDlg, idLeft, Options.PictureDlg.Position.x);
|
||||||
|
Ini.WriteString(scPictureDlg, idInitialDir, Options.PictureDlg.InitialDir);
|
||||||
|
Ini.WriteString(scPictureDlg, idDefaultFolderPrefix, Options.PictureDlg.DefaultFolderPrefix);
|
||||||
|
|
||||||
|
Ini.WriteInteger(scTableDlg, idTop, Options.TableDlg.Position.y);
|
||||||
|
Ini.WriteInteger(scTableDlg, idLeft, Options.TableDlg.Position.x);
|
||||||
|
|
||||||
|
//Recent Files
|
||||||
|
for i := 0 to MruEntries - 1 do
|
||||||
|
begin
|
||||||
|
Ini.WriteString(scRecentFiles, Format(idFilePrefix,[i]), Options.RecentFiles[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//Filters
|
||||||
|
for ftIndex := Low(TEditorFileType) to High(TEditorFileType) do
|
||||||
|
begin
|
||||||
|
Ini.WriteString(scFileTypes, eftNames[ftIndex], Options.FileTypeMaskList[ftIndex]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
Ini.UpdateFile;
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
Result := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
finally
|
||||||
|
Ini.Free;
|
||||||
|
Ini := Nil;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
//Only handle write errors
|
||||||
|
on E: EStreamError do
|
||||||
|
begin
|
||||||
|
debugln('Error creating/writing configfile: ',FileName);
|
||||||
|
Result := false;
|
||||||
|
if Assigned(Ini) then Ini.Free;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetDefaultIniNameOnly: String;
|
||||||
|
begin
|
||||||
|
Result := AppName + '.ini';//IniExt;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetDefaultIniDir: String;
|
||||||
|
begin
|
||||||
|
Result := ExcludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
320
applications/lazedit/history.htm
Normal file
320
applications/lazedit/history.htm
Normal file
@ -0,0 +1,320 @@
|
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
|
||||||
|
"http://www.w3.org/TR/html4/strict.dtd">
|
||||||
|
<html>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
|
||||||
|
<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
|
||||||
|
<meta name="generator" content="HTML KLadblok Versie 3.0.1 by Flying Sheep Inc.">
|
||||||
|
|
||||||
|
<title>EPlus historie informatie</title>
|
||||||
|
|
||||||
|
|
||||||
|
<style type="text/css">
|
||||||
|
body{
|
||||||
|
background-color: #ffffff;
|
||||||
|
color: #000000;
|
||||||
|
}
|
||||||
|
a:link {color: #0000ff;}
|
||||||
|
a:visited {color: #ff00ff;}
|
||||||
|
|
||||||
|
table{
|
||||||
|
border-collapse: collapse;
|
||||||
|
}
|
||||||
|
|
||||||
|
td, th{
|
||||||
|
border-style: inset;
|
||||||
|
border-color: gray;
|
||||||
|
border-width: 2px;
|
||||||
|
padding: 5px;
|
||||||
|
text-align: left;
|
||||||
|
}
|
||||||
|
|
||||||
|
td{
|
||||||
|
vertical-align: top;
|
||||||
|
}
|
||||||
|
|
||||||
|
</style>
|
||||||
|
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
|
||||||
|
<h1>EPlus</h1>
|
||||||
|
|
||||||
|
|
||||||
|
<p>
|
||||||
|
EPlus is de opvolger van Html Kladblok.<br>
|
||||||
|
De historie informatie van Html Kladblok is helaas nogal onvolledig, omdat ik niet alle wijzigingen heb bijgehouden
|
||||||
|
in het verleden en derhalve niet alle jaartallen en versienummers kan reproduceren.<br>
|
||||||
|
Vanaf Html Kladblok versie 3.0.0 is de versie historie compleet.<br>
|
||||||
|
Vanaf het verschijnen van EPlus start de versienummering weer bij 1.0.0.
|
||||||
|
</p>
|
||||||
|
|
||||||
|
<h3>Overzicht</h3>
|
||||||
|
|
||||||
|
<table summary="Historische informatie betreffende de ontwikkeling van HTML Kladblok">
|
||||||
|
|
||||||
|
<tr>
|
||||||
|
<th>Jaar
|
||||||
|
</th>
|
||||||
|
<th>Versie
|
||||||
|
</th>
|
||||||
|
<th>Opmerkingen
|
||||||
|
</th>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>2012
|
||||||
|
</td>
|
||||||
|
<td>1.0.0 RC1
|
||||||
|
</td>
|
||||||
|
<td>Eerste versie van EPlus.<br>
|
||||||
|
Het programma is volledig van de grond af opnieuw opgebouwd met Lazarus/FreePascal.<br>
|
||||||
|
De broncode is volledig cross-platform en kan gecompileerd worden voor Windows, Linus of MacOS (Darwin).<br>
|
||||||
|
Character encoding (ook intern) is UTF-8.
|
||||||
|
Forse uitbreiding van het aantal ondersteunde bestandstypen voor syntax highlighting, o.a. Pascal, C, Php,
|
||||||
|
Perl, Python, Linux shell scripts, Dos/Windows batch bestanden, Ini bestanden, po taalbestanden.
|
||||||
|
Menu's zijn herzien.
|
||||||
|
Charactermap voor invoegen van speciale tekens als html-entiteit (bijv. &nbsp;).
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
|
||||||
|
<tr>
|
||||||
|
<td>2011
|
||||||
|
</td>
|
||||||
|
<td>3.0.1.6
|
||||||
|
</td>
|
||||||
|
<td>Minor bugfix (bug 005). Laatse versie van Html Kladblok
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>2008
|
||||||
|
</td>
|
||||||
|
<td>3.0.1.5
|
||||||
|
</td>
|
||||||
|
<td>Minor bugfix (bug 004).
|
||||||
|
</td>
|
||||||
|
<tr>
|
||||||
|
<td>2007
|
||||||
|
</td>
|
||||||
|
<td>3.0.1.4
|
||||||
|
</td>
|
||||||
|
<td>Bugfix van bug 003. Bij openen van sjabloon of "nieuw van sjabloon" wordt nu HTML als highlighter ingesteld.
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>2006
|
||||||
|
</td>
|
||||||
|
<td>3.0.1.003
|
||||||
|
</td>
|
||||||
|
<td>Optie "Geen highlighter" toegevoegd aan Menu --> Beeld --> Highlighter.<br>
|
||||||
|
Geen highlighter is de standaard instelling voor bestanden die geen htm(l), css of js extensie hebben.
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>3.0.1.002
|
||||||
|
</td>
|
||||||
|
<td>Workaround bug 002: bij sluiten van tabbladen worden tabs nu niet meer
|
||||||
|
"onzichtbaar". Tabs nu weer op 1 regel.<br>
|
||||||
|
Spaties in bestandsnamen van plaatjes worden vervangen door "%20"
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>3.0.1
|
||||||
|
</td>
|
||||||
|
<td>Schermafhandeling bij cre�ren en sluiten van nieuwe tabbladen
|
||||||
|
aangepast, zodat er minder flikkeringen ontstaan<br>
|
||||||
|
Tabs op meerdere regels als scherm vol is (i.p.v. scrolllen),
|
||||||
|
vanwege bug in schermafhandeling na verwijderen tab (worden "onzichtbaar")<br>
|
||||||
|
Venstergrootte en -positie worden nu standaard bewaard
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>3.0.0
|
||||||
|
</td>
|
||||||
|
<td>MDI interface vervangen door Tabbed Document Interface (TDI)
|
||||||
|
Highlighters voor Css en JavaScript toegevoegd
|
||||||
|
Regelnummering (op verticale liniaal) als optie
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>2.0.5
|
||||||
|
</td>
|
||||||
|
<td>Laatste bugfixes van MDI versie
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>2005
|
||||||
|
</td>
|
||||||
|
<td>2.0.0
|
||||||
|
</td>
|
||||||
|
<td>Syntax highlighting toegevoegd middels SynEdit componenenten<br>
|
||||||
|
Licentie nu Open Source middels MPL 1.1
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>??
|
||||||
|
</td>
|
||||||
|
<td>"Drag and drop" geimplementeerd
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>??
|
||||||
|
</td>
|
||||||
|
<td>Gegenereerde code is nu in pricipe Html 4.01 Strict
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>2004
|
||||||
|
</td>
|
||||||
|
<td>??
|
||||||
|
</td>
|
||||||
|
<td>Opties voor bewaren van venstergroote en -plaats en fontgrootte toegevoegd<br>
|
||||||
|
Automatische detectie van plaatjesgrootte (jpg, bmp, gif) toegevoegd<br>
|
||||||
|
Sjablonen toegevoegd
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>1.1.0
|
||||||
|
</td>
|
||||||
|
<td>Multiple Document Interface (MDI) ge�mplementeerd
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>2001
|
||||||
|
</td>
|
||||||
|
<td>0.9.1
|
||||||
|
</td>
|
||||||
|
<td>Zoek en vervang functie toegevoegd
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
<td>0.9
|
||||||
|
</td>
|
||||||
|
<td>Eerste Win32 versie<br>
|
||||||
|
TMemo component vervangen door TRichedit zodat ook
|
||||||
|
bestanden > 64 K verwerkt kunnen worden
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>2000
|
||||||
|
</td>
|
||||||
|
<td>0.1
|
||||||
|
</td>
|
||||||
|
<td>Eerste versie gemaakt met Delphi 1.0 onder Windows 3.10<br>
|
||||||
|
Html code in principe 4.01 transitional
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
|
||||||
|
<h3>Bekende bugs sinds 2006</h3>
|
||||||
|
<table summary="">
|
||||||
|
<tr>
|
||||||
|
<th>Nr.
|
||||||
|
</th>
|
||||||
|
<th>Vanaf versie
|
||||||
|
</th>
|
||||||
|
<th>OS
|
||||||
|
</th>
|
||||||
|
<th>Omschrijving
|
||||||
|
</th>
|
||||||
|
<th>Status
|
||||||
|
</th>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>005
|
||||||
|
</td>
|
||||||
|
<td>?
|
||||||
|
</td>
|
||||||
|
<td>Win 9x/XP/2K
|
||||||
|
</td>
|
||||||
|
<td>Bestanden geopend via opdrachtregel worden niet correct opegslagen in MRU lijst
|
||||||
|
</td>
|
||||||
|
<td>Fix in 3.0.1.6
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>004
|
||||||
|
</td>
|
||||||
|
<td>?
|
||||||
|
</td>
|
||||||
|
<td>Win 9x/XP/2K
|
||||||
|
</td>
|
||||||
|
<td>Functie IsASCIIFile geeft fout resultaat als bestand Tab-tekens bevat
|
||||||
|
</td>
|
||||||
|
<td>Fix in 3.0.1.5
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>003
|
||||||
|
</td>
|
||||||
|
<td>3.0.1.003
|
||||||
|
</td>
|
||||||
|
<td>Win 9x/XP/2K
|
||||||
|
</td>
|
||||||
|
<td>Bij openen van sjabloon of "nieuw van sjabloon" wordt geen highlighter ingesteld.
|
||||||
|
</td>
|
||||||
|
<td>Fix in 3.0.1.4
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>002
|
||||||
|
</td>
|
||||||
|
<td>3.0.0
|
||||||
|
</td>
|
||||||
|
<td>Win 9x/XP/2K
|
||||||
|
</td>
|
||||||
|
<td>Op niet reproduceerbare wijze ontstaat er soms bij het afsluiten van het programma een Access Violation (AV) exceptie
|
||||||
|
in de code die alle editor bestanden sluit. (Het opslaan van gewijzigde bestanden is dan reeds veilig voltooid.)
|
||||||
|
De betreffende code staat vol met debug code die bij een foutmelding getoond word.<br>
|
||||||
|
NB. De laaste ca 150x dat ik de laatste versie heb gedraaid deed de bug zich niet voor (vandaar dus: niet reproduceerbaar ...)
|
||||||
|
</td>
|
||||||
|
<td>Onduidelijk
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>001
|
||||||
|
</td>
|
||||||
|
<td>3.0.0
|
||||||
|
</td>
|
||||||
|
<td>Win 9x/XP/2K
|
||||||
|
</td>
|
||||||
|
<td>Bij sluiten van tabbladen worden na het verdwijnen van de scroll-pijltjes
|
||||||
|
de overige tabbladen onzichtbaar, maar ze zijn wel aanklikbaar.<br>
|
||||||
|
Dit probleem lijkt niet rerpoduceerbaar in Delphi 5.
|
||||||
|
</td>
|
||||||
|
<td>Workaround in 3.0.1<br>
|
||||||
|
Nieuwe workaround in 3.0.1.002
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h3>ToDo lijstje</h3>
|
||||||
|
|
||||||
|
|
||||||
|
<ul>
|
||||||
|
<li>Opties voor gebruiker om kleurgebruik van de highlighters aan te passen</li>
|
||||||
|
<li>Macro voor datum/tijd (als in: Dit bestand is het laats bijgewerkt op ...) ???</li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
96
applications/lazedit/htmlcharmap.lfm
Normal file
96
applications/lazedit/htmlcharmap.lfm
Normal file
@ -0,0 +1,96 @@
|
|||||||
|
object HtmlCharmapForm: THtmlCharmapForm
|
||||||
|
Left = 775
|
||||||
|
Height = 227
|
||||||
|
Top = 122
|
||||||
|
Width = 431
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Speciale tekens'
|
||||||
|
ClientHeight = 227
|
||||||
|
ClientWidth = 431
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.31'
|
||||||
|
object EntityGrid: TStringGrid
|
||||||
|
Left = 0
|
||||||
|
Height = 160
|
||||||
|
Top = 0
|
||||||
|
Width = 431
|
||||||
|
Align = alTop
|
||||||
|
AlternateColor = 16774367
|
||||||
|
AutoEdit = False
|
||||||
|
AutoFillColumns = True
|
||||||
|
Color = 15138815
|
||||||
|
ExtendedSelect = False
|
||||||
|
FixedCols = 0
|
||||||
|
FixedRows = 0
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
RowCount = 7
|
||||||
|
ScrollBars = ssNone
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 0
|
||||||
|
OnKeyPress = EntityGridKeyPress
|
||||||
|
OnMouseDown = EntityGridMouseDown
|
||||||
|
OnMouseMove = EntityGridMouseMove
|
||||||
|
OnPrepareCanvas = EntityGridPrepareCanvas
|
||||||
|
ColWidths = (
|
||||||
|
85
|
||||||
|
85
|
||||||
|
85
|
||||||
|
85
|
||||||
|
87
|
||||||
|
)
|
||||||
|
end
|
||||||
|
object SelectionBox: TComboBox
|
||||||
|
Left = 0
|
||||||
|
Height = 21
|
||||||
|
Top = 160
|
||||||
|
Width = 431
|
||||||
|
Align = alTop
|
||||||
|
ItemHeight = 13
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'Divers'
|
||||||
|
'Grieks'
|
||||||
|
'Wiskunde en rekenen'
|
||||||
|
'Pijltjes'
|
||||||
|
)
|
||||||
|
OnChange = SelectionBoxChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'Divers'
|
||||||
|
end
|
||||||
|
object CloseBtn: TBitBtn
|
||||||
|
Left = 304
|
||||||
|
Height = 30
|
||||||
|
Top = 192
|
||||||
|
Width = 123
|
||||||
|
Cancel = True
|
||||||
|
Caption = '&Sluiten'
|
||||||
|
Kind = bkClose
|
||||||
|
ModalResult = 11
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ExampleLabel: TLabel
|
||||||
|
Left = 80
|
||||||
|
Height = 14
|
||||||
|
Top = 200
|
||||||
|
Width = 80
|
||||||
|
Caption = 'ExampleLabel'
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowAccelChar = False
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 12
|
||||||
|
Height = 14
|
||||||
|
Top = 201
|
||||||
|
Width = 63
|
||||||
|
Caption = 'Voorbeeld:'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
319
applications/lazedit/htmlcharmap.pp
Normal file
319
applications/lazedit/htmlcharmap.pp
Normal file
@ -0,0 +1,319 @@
|
|||||||
|
unit HtmlCharMap;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
|
||||||
|
StdCtrls, LCLProc, Buttons;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
THtmlCharClickEvent = procedure(AHtmlEntity: String) of object;
|
||||||
|
|
||||||
|
{ THtmlCharmapForm }
|
||||||
|
|
||||||
|
THtmlCharmapForm = class(TForm)
|
||||||
|
CloseBtn: TBitBtn;
|
||||||
|
ExampleLabel: TLabel;
|
||||||
|
Label1: TLabel;
|
||||||
|
SelectionBox: TComboBox;
|
||||||
|
EntityGrid: TStringGrid;
|
||||||
|
procedure EntityGridKeyPress(Sender: TObject; var Key: char);
|
||||||
|
procedure EntityGridMouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure EntityGridMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||||
|
Y: Integer);
|
||||||
|
procedure EntityGridPrepareCanvas(sender: TObject; aCol, aRow: Integer;
|
||||||
|
aState: TGridDrawState);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure SelectionBoxChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
FOnHtmlCharClick: THtmlCharClickEvent;
|
||||||
|
procedure DoOnHtmlCharClick(AValue: String);
|
||||||
|
procedure FillMisc;
|
||||||
|
procedure FillGreek;
|
||||||
|
procedure FillMath;
|
||||||
|
procedure FillArrow;
|
||||||
|
procedure ClearEntityGrid;
|
||||||
|
function RowColToIndex(const Row, Col: Integer): Integer;
|
||||||
|
function HtmlEntityFromIndex(SelectionIndex, CellIndex: Integer): String;
|
||||||
|
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
property OnHtmlCharClick: THtmlCharClickEvent read FOnHtmlCharClick write FOnHtmlCharClick;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
const
|
||||||
|
idxMisc = 0;
|
||||||
|
idxGreek = 1;
|
||||||
|
idxMath = 2;
|
||||||
|
idxArrow = 3;
|
||||||
|
|
||||||
|
SHint = 'Klik op het teken om het als HTML-entiteit in te voegen.'^m+
|
||||||
|
'De HTML-entiteit die ingevoegd zal worden staat in het voorbeeld';
|
||||||
|
|
||||||
|
MiscCount = 24;
|
||||||
|
MiscCaptions: Array[0..MiscCount-1] of String = ('CopyRight','Registered','Trademark','Paragraaf','Sectie',
|
||||||
|
'Ampersand (&)','Harde spatie','Zacht koppelteken','Euro','Pond','Yen','Gulden','Micro','AE ligatuur','ae ligatuur',
|
||||||
|
'OE ligatuur','oe ligatuur','O slash','o slash','<<','>>','! omgekeerd','? omgekeerd','Bullet');
|
||||||
|
|
||||||
|
MiscEntities: Array[0..MiscCount-1] of String = ('©','®','™','¶','§',
|
||||||
|
'&',' ','­','€','£','¥','ƒ','µ','&Aelig;','æ',
|
||||||
|
'&Oelig;','œ','Ø','ø','«','»','&iexlc;','¿','&bull');
|
||||||
|
|
||||||
|
GreekCount = 33;
|
||||||
|
GreekCaptions: Array[0..GreekCount -1] of String = ('alpha','beta','gamma','delta','epsilon','zeta','eta','theta',
|
||||||
|
'kappa','lambda','mu','nu','xi','pi','rho','sigma','sigma (als laatste)','tau','upsilon','phi',
|
||||||
|
'chi','psi','omega','GAMMA','DELTA','THETA','THETA symbol','XI','RHO','SIGMA','PHI','PSI','OMEGA');
|
||||||
|
|
||||||
|
GreekEntities: Array[0..GreekCount -1] of String = ('α','β','γ','δ','ε','ζ','η','θ',
|
||||||
|
'κ','λ','μ','ν','ξ','π','ρ','σ','ς','τ','υ','φ',
|
||||||
|
'χ','ψ','ω','Γ','&Delta','Θ','&thetatsym;','Ξ','Ρ','Σ','&Phi','Ψ','Ω');
|
||||||
|
|
||||||
|
MathCount = 14;
|
||||||
|
MathCaptions: Array[0..MathCount - 1] of String = ('Kleiner dan','Groter dan','Kleiner of gelijk','Groter of gelijk',
|
||||||
|
'Plusminus','Kwart','Half','Driekwart','Kwadraat','Derde macht','Gedeeld door','Graden','Wortelteken','Oneindig');
|
||||||
|
|
||||||
|
MathEntities: Array[0..MathCount - 1] of String = ('<','>','≤','≥',
|
||||||
|
'&plusmin;','¼','½','¾','²','³','÷','°','√','&inf;');
|
||||||
|
|
||||||
|
ArrowCount = 10;
|
||||||
|
ArrowCaptions: Array[0..ArrowCount -1] of String = ('Links','Rechts','Op','Neer','LinksRechts',
|
||||||
|
'Dubbel links','Dubbel rechts','Dubbel op','Dubbel neer','Dubbel LR');
|
||||||
|
|
||||||
|
ArrowEntities: Array[0..ArrowCount -1] of String = ('←','→','↑','&darr','&harr',
|
||||||
|
'⇐','⇒','⇓','⇑','⇔');
|
||||||
|
|
||||||
|
|
||||||
|
{ THtmlCharmapForm }
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.SelectionBoxChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case SelectionBox.ItemIndex of
|
||||||
|
idxMisc: FillMisc;
|
||||||
|
idxGreek: FillGreek;
|
||||||
|
idxMath: FillMath;
|
||||||
|
idxArrow: FillArrow;
|
||||||
|
else FillMisc;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.DoOnHtmlCharClick(AValue: String);
|
||||||
|
begin
|
||||||
|
if (AValue <> '') and Assigned(FOnHtmlCharClick) then FOnHtmlCharClick(AValue);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelectionBox.ItemIndex := idxMisc;
|
||||||
|
EntityGrid.Hint := SHint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.EntityGridKeyPress(Sender: TObject; var Key: char);
|
||||||
|
var
|
||||||
|
Idx: Integer;
|
||||||
|
S: String;
|
||||||
|
begin
|
||||||
|
if (Key = #13) then
|
||||||
|
begin
|
||||||
|
Key := #0;
|
||||||
|
Idx := RowColToIndex(EntityGrid.Row, EntityGrid.Col);
|
||||||
|
S := HtmlEntityFromIndex(SelectionBox.ItemIndex, Idx);
|
||||||
|
DoOnHtmlCharClick(S);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.EntityGridMouseDown(Sender: TObject;
|
||||||
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
var
|
||||||
|
Row, Col, Idx: Integer;
|
||||||
|
S: String;
|
||||||
|
begin
|
||||||
|
//debugln('THtmlCharmapForm.EntityGridMouseDown');
|
||||||
|
if (Button = mbLeft) and (EntityGrid.MouseToGridZone(X, Y) = gzNormal) then
|
||||||
|
begin
|
||||||
|
EntityGrid.MouseToCell(X, Y, Col, Row);
|
||||||
|
//debugln(' Col = ',dbgs(col),' Row = ',dbgs(row));
|
||||||
|
Idx := RowColToIndex(Row, Col);
|
||||||
|
//debugln(' Idx = ',dbgs(idx));
|
||||||
|
S := HtmlEntityFromIndex(SelectionBox.ItemIndex, Idx);
|
||||||
|
//debugln(' S = ',S);
|
||||||
|
DoOnHtmlCharClick(S);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.EntityGridMouseMove(Sender: TObject;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
var
|
||||||
|
Row, Col, Idx: Integer;
|
||||||
|
S: String;
|
||||||
|
begin
|
||||||
|
//debugln('THtmlCharmapForm.EntityGridMouseMove');
|
||||||
|
if (EntityGrid.MouseToGridZone(X, Y) = gzNormal) then
|
||||||
|
begin
|
||||||
|
EntityGrid.MouseToCell(X, Y, Col, Row);
|
||||||
|
//debugln(' Col = ',dbgs(col),' Row = ',dbgs(row));
|
||||||
|
Idx := RowColToIndex(Row, Col);
|
||||||
|
//debugln(' Idx = ',dbgs(idx));
|
||||||
|
S := HtmlEntityFromIndex(SelectionBox.ItemIndex, Idx);
|
||||||
|
//debugln(' S = ',S);
|
||||||
|
EntityGrid.Row := Row;
|
||||||
|
EntityGrid.Col := Col;
|
||||||
|
ExampleLabel.Caption := S;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.EntityGridPrepareCanvas(sender: TObject; aCol,
|
||||||
|
aRow: Integer; aState: TGridDrawState);
|
||||||
|
begin
|
||||||
|
if (gdSelected in aState) then
|
||||||
|
begin
|
||||||
|
EntityGrid.Canvas.Brush.Color := clLime;
|
||||||
|
end
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelectionBoxChange(Self);
|
||||||
|
ExampleLabel.Caption := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.FillMisc;
|
||||||
|
var
|
||||||
|
Col, Row, i: Integer;
|
||||||
|
begin
|
||||||
|
//debugln('FillMisc');
|
||||||
|
ClearEntityGrid;
|
||||||
|
i := (MiscCount div EntityGrid.ColCount);
|
||||||
|
if (MiscCount mod EntityGrid.ColCount) <> 0 then Inc(i);
|
||||||
|
EntityGrid.RowCount := i;
|
||||||
|
Col := 0;
|
||||||
|
Row := 0;
|
||||||
|
for i := 0 to MiscCount - 1 do
|
||||||
|
begin
|
||||||
|
EntityGrid.Cells[Col, Row] := MiscCaptions[i];
|
||||||
|
Inc(Col);
|
||||||
|
if (Col > EntityGrid.ColCount - 1) then
|
||||||
|
begin
|
||||||
|
Col := 0;
|
||||||
|
Inc(Row);
|
||||||
|
if (Row > EntityGrid.RowCount - 1) then Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.FillGreek;
|
||||||
|
var
|
||||||
|
Col, Row, i: Integer;
|
||||||
|
begin
|
||||||
|
//debugln('FillGreek');
|
||||||
|
ClearEntityGrid;
|
||||||
|
i := (GreekCount div EntityGrid.ColCount);
|
||||||
|
if (GreekCount mod EntityGrid.ColCount) <> 0 then Inc(i);
|
||||||
|
EntityGrid.RowCount := i;
|
||||||
|
Col := 0;
|
||||||
|
Row := 0;
|
||||||
|
for i := 0 to GreekCount - 1 do
|
||||||
|
begin
|
||||||
|
EntityGrid.Cells[Col, Row] := GreekCaptions[i];
|
||||||
|
Inc(Col);
|
||||||
|
if (Col > EntityGrid.ColCount - 1) then
|
||||||
|
begin
|
||||||
|
Col := 0;
|
||||||
|
Inc(Row);
|
||||||
|
if (Row > EntityGrid.RowCount - 1) then Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.FillMath;
|
||||||
|
var
|
||||||
|
Col, Row, i: Integer;
|
||||||
|
begin
|
||||||
|
//debugln('FillMath');
|
||||||
|
ClearEntityGrid;
|
||||||
|
i := (MathCount div EntityGrid.ColCount);
|
||||||
|
if (MathCount mod EntityGrid.ColCount) <> 0 then Inc(i);
|
||||||
|
EntityGrid.RowCount := i;
|
||||||
|
Col := 0;
|
||||||
|
Row := 0;
|
||||||
|
for i := 0 to MathCount - 1 do
|
||||||
|
begin
|
||||||
|
EntityGrid.Cells[Col, Row] := MathCaptions[i];
|
||||||
|
Inc(Col);
|
||||||
|
if (Col > EntityGrid.ColCount - 1) then
|
||||||
|
begin
|
||||||
|
Col := 0;
|
||||||
|
Inc(Row);
|
||||||
|
if (Row > EntityGrid.RowCount - 1) then Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharmapForm.FillArrow;
|
||||||
|
var
|
||||||
|
Col, Row, i: Integer;
|
||||||
|
begin
|
||||||
|
//debugln('FillArrow');
|
||||||
|
ClearEntityGrid;
|
||||||
|
i := (ArrowCount div EntityGrid.ColCount);
|
||||||
|
if (ArrowCount mod EntityGrid.ColCount) <> 0 then Inc(i);
|
||||||
|
EntityGrid.RowCount := i;
|
||||||
|
Col := 0;
|
||||||
|
Row := 0;
|
||||||
|
for i := 0 to ArrowCount - 1 do
|
||||||
|
begin
|
||||||
|
EntityGrid.Cells[Col, Row] := ArrowCaptions[i];
|
||||||
|
Inc(Col);
|
||||||
|
if (Col > EntityGrid.ColCount - 1) then
|
||||||
|
begin
|
||||||
|
Col := 0;
|
||||||
|
Inc(Row);
|
||||||
|
if (Row > EntityGrid.RowCount - 1) then Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
procedure THtmlCharmapForm.ClearEntityGrid;
|
||||||
|
begin
|
||||||
|
EntityGrid.Clean(0,0,EntityGrid.ColCount-1,EntityGrid.RowCount-1, [gzNormal, gzFixedCols, gzFixedRows, gzFixedCells]);
|
||||||
|
EntityGrid.Col := 0;
|
||||||
|
EntityGrid.Row := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function THtmlCharmapForm.RowColToIndex(const Row, Col: Integer): Integer;
|
||||||
|
begin
|
||||||
|
Result := Row * EntityGrid.ColCount + Col;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function THtmlCharmapForm.HtmlEntityFromIndex(SelectionIndex, CellIndex: Integer): String;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
if (CellIndex < 0) then exit;
|
||||||
|
case SelectionIndex of
|
||||||
|
idxMisc: if (CellIndex < MiscCount) then Result := MiscEntities[CellIndex];
|
||||||
|
idxGreek: if (CellIndex < GreekCount) then Result := GreekEntities[CellIndex];
|
||||||
|
idxMath: if (CellIndex < MathCount) then Result := MathEntities[CellIndex];
|
||||||
|
idxArrow: if (CellIndex < ArrowCount) then result := ArrowEntities[CellIndex];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
417
applications/lazedit/htmlcode.pp
Normal file
417
applications/lazedit/htmlcode.pp
Normal file
@ -0,0 +1,417 @@
|
|||||||
|
{ HtmlCode unit
|
||||||
|
|
||||||
|
Copyright (C) 2012 by Bart Broersma
|
||||||
|
|
||||||
|
This library is free software; you can redistribute it and/or modify it
|
||||||
|
under the terms of the GNU Library General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or (at your
|
||||||
|
option) any later version with the following modification:
|
||||||
|
|
||||||
|
As a special exception, the copyright holders of this library give you
|
||||||
|
permission to link this library with independent modules to produce an
|
||||||
|
executable, regardless of the license terms of these independent modules,and
|
||||||
|
to copy and distribute the resulting executable under terms of your choice,
|
||||||
|
provided that you also meet, for each linked independent module, the terms
|
||||||
|
and conditions of the license of that module. An independent module is a
|
||||||
|
module which is not derived from or based on this library. If you modify
|
||||||
|
this library, you may extend this exception to your version of the library,
|
||||||
|
but you are not obligated to do so. If you do not wish to do so, delete this
|
||||||
|
exception statement from your version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||||
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
||||||
|
for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU Library General Public License
|
||||||
|
along with this library; if not, write to the Free Software Foundation,
|
||||||
|
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
}
|
||||||
|
unit HtmlCode;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses {CopyLeft,} Classes, SysUtils, Graphics, StdCtrls, fpimage{, LCL_Misc};
|
||||||
|
|
||||||
|
type
|
||||||
|
THtmlDocType = (DocType_Html_401_Strict, DocType_Html_401_TR, DocType_Html_5, DocType_None);
|
||||||
|
THtmlDocTypeStrings = Array[THtmlDocType] of String;
|
||||||
|
|
||||||
|
const
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
SDocType_Html401_Strict = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"' + LineEnding +
|
||||||
|
' "http://www.w3.org/TR/html4/strict.dtd">';
|
||||||
|
SDocType_Html401_TR = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"'+ LineEnding +
|
||||||
|
'"http://www.w3.org/TR/html4/loose.dtd">';
|
||||||
|
|
||||||
|
SDocType_Html_5 = '<!DOCTYPE html>';
|
||||||
|
SDocType_None = '';
|
||||||
|
HtmlDocTypeStrings: THtmlDocTypeStrings = (SDocType_Html401_Strict, SDocType_Html401_TR, SDocType_Html_5, SDocType_None);
|
||||||
|
|
||||||
|
html_start = '<html>';
|
||||||
|
html_end = '</html>';
|
||||||
|
head_start = '<head>';
|
||||||
|
head_end = '</head>';
|
||||||
|
|
||||||
|
meta_content_charset_utf8 = '<meta http-equiv="content-type" content="text/html; charset=utf8">';
|
||||||
|
meta_content_style_type = '<meta http-equiv="content-style-type" content="text/css">';
|
||||||
|
meta_content_script_type = '<meta http-equiv="content-script-type" content="text/javascript">';
|
||||||
|
meta_name_author = '<meta name="author" content="%s">';
|
||||||
|
meta_name_generator = '<meta name="generator" content="%s">';
|
||||||
|
|
||||||
|
title_start = '<title>';
|
||||||
|
title_end = '</title>';
|
||||||
|
|
||||||
|
|
||||||
|
anchor_end = '</a>';
|
||||||
|
|
||||||
|
bold_start= '<b>';
|
||||||
|
bold_end= '</b>';
|
||||||
|
italic_start= '<i>';
|
||||||
|
italic_end= '</i>';
|
||||||
|
underline_start= '<span style="text-decoration: underline;">';
|
||||||
|
underline_end= '</span>';
|
||||||
|
sub_start= '<sub>';
|
||||||
|
sub_end= '</sub>';
|
||||||
|
sup_start= '<sup>';
|
||||||
|
sup_end= '</sup>';
|
||||||
|
emphasis_start = '<em>';
|
||||||
|
emphasis_end = '</em>';
|
||||||
|
Strong_start = '<strong>';
|
||||||
|
Strong_end = '</strong>';
|
||||||
|
Code_start = '<code>';
|
||||||
|
Code_end = '</code>';
|
||||||
|
Quote_start = '<q>';
|
||||||
|
Quote_end = '</q>';
|
||||||
|
BlockQuote_start = '<blockquote>';
|
||||||
|
BlockQuote_end = '</blockquote>';
|
||||||
|
PRE_start = '<pre>';
|
||||||
|
PRE_end = '</pre>';
|
||||||
|
|
||||||
|
Comment_start= '<!-- ';
|
||||||
|
Comment_end= '// -->';
|
||||||
|
|
||||||
|
Script_start = '<script type="text/JavaScript">' + LineEnding ;
|
||||||
|
Script_end = LineEnding + '</script>';
|
||||||
|
Style_start = '<style type="text/css">' ;
|
||||||
|
Style_end = '</style>';
|
||||||
|
|
||||||
|
Font_end='</span>';
|
||||||
|
|
||||||
|
CenterAlign_start= '<div style="text-align: center;">';
|
||||||
|
CenterAlign_end= '</div>';
|
||||||
|
LeftAlign_start= '<div style="text-align: left;">';
|
||||||
|
LeftAlign_end= '</div>';
|
||||||
|
RightAlign_start= '<div style="text-align: right;">';
|
||||||
|
RightAlign_end= '</div>';
|
||||||
|
JustifyAlign_start = '<div style="text-align: justify;">';
|
||||||
|
JustifyAlign_end= '</div>';
|
||||||
|
|
||||||
|
Row_start = '<tr>';
|
||||||
|
Row_end = '</tr>';
|
||||||
|
Col_start = '<td>';
|
||||||
|
Col_end = '</td>';
|
||||||
|
ColHeading_start = '<th>';
|
||||||
|
ColHeading_end = '</th>';
|
||||||
|
|
||||||
|
Table_end = '</table>';
|
||||||
|
|
||||||
|
|
||||||
|
UnnumberedList_start= '<ul>'; UnnumberedList_end= '</ul>';
|
||||||
|
NumberedList_start= '<ol>'; NumberedList_end= '</ol>';
|
||||||
|
ListItem_start= '<li>'; ListItem_end= '</li>';
|
||||||
|
WordList_start= '<dl>'; WordList_end= '</dl>';
|
||||||
|
WordTerm_start= '<dt>'; WordTerm_end= '</dt>';
|
||||||
|
WordDef_start= '<dd>'; WordDef_end= '</dd>';
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Red_start = '<span style="color: red;">';
|
||||||
|
Green_start = '<span style="color: green;">';
|
||||||
|
Blue_start = '<span style="color: blue;">';
|
||||||
|
Purple_start = '<span style="color: purple;">';
|
||||||
|
Orange_start = '<span style="color: orange;">';
|
||||||
|
Yellow_start = '<span style="color: yellow;">';
|
||||||
|
Black_start = '<span style="color: black;">';
|
||||||
|
White_start = '<span style="color: white;">';
|
||||||
|
Gray_start = '<span style="color: gray;">';
|
||||||
|
Maroon_start = '<span style="color: maroon;">';
|
||||||
|
Olive_start = '<span style="color: olive;">';
|
||||||
|
Fuchsia_start = '<span style="color: fuchsia;">';
|
||||||
|
Lime_start = '<span style="color: lime;">';
|
||||||
|
Navy_start = '<span style="color: navy;">';
|
||||||
|
Aqua_start = '<span style="color: aqua;">';
|
||||||
|
Teal_start = '<span style="color: teal;">';
|
||||||
|
Silver_start = '<span style="color: silver;">';
|
||||||
|
|
||||||
|
|
||||||
|
Paragraph_start= '<p>'; Paragraph_end= '</p>';
|
||||||
|
Div_start = '<div>'; Div_end = '</div>';
|
||||||
|
Span_start = '<span>'; Span_end = '</span>';
|
||||||
|
LineBreak = '<br>' ;
|
||||||
|
|
||||||
|
CopyRight = '©';
|
||||||
|
Registered = '®';
|
||||||
|
Trademark = '™';
|
||||||
|
NbSpace = ' ';
|
||||||
|
Lesser = '<';
|
||||||
|
Greater = '>';
|
||||||
|
Ampersand = '&';
|
||||||
|
|
||||||
|
|
||||||
|
function Favicon(const ASource: String): String;
|
||||||
|
function StyleSheet(const ASource: String): String;
|
||||||
|
function StyleSheet(const ASource, AMedia: String): String;
|
||||||
|
function Table_Start(const AID, ACLass, ASummary: String): String;
|
||||||
|
function CreateTable(const AID, ACLass, ASummary: String; const ColCount, RowCount: Integer): String;
|
||||||
|
function TabbedTextToHtmlTableContent(const AText: String): String;
|
||||||
|
function Img(const ASource, AId, AClass, AFloatStyle, AWidth, AHeight, AAlt, ATitle: String): String;
|
||||||
|
function CreateHtml(const ADocType: THtmlDocType; const AAuthor, ATitle, AFavicon, AStyleSheet, AInlineStyle: String;
|
||||||
|
const AGeneratorName: String = ''): String;
|
||||||
|
|
||||||
|
function HtmlToColor(const Value: String): TColor;
|
||||||
|
function ColorToHtml(const AColor: TColor): String;
|
||||||
|
|
||||||
|
Procedure DoHtmlDirSeparators (Var FileName : String);
|
||||||
|
function UrlEscape(const Url: String): String;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
const
|
||||||
|
HtmlDirectorySeparator = '/';
|
||||||
|
|
||||||
|
function Favicon(const ASource: String): String;
|
||||||
|
begin
|
||||||
|
Result := Format('<link rel="icon" href="%s" type="image/x-icon">',[ASource]) + LineEnding +
|
||||||
|
Format('<link rel="shortcut icon" href="%s" type="image/x-icon">',[ASource]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function StyleSheet(const ASource: String): String;
|
||||||
|
begin
|
||||||
|
Result := Format('<link rel="stylesheet" href="%s" type="text/css">',[ASource]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function StyleSheet(const ASource, AMedia: String): String;
|
||||||
|
begin
|
||||||
|
Result := Format('<link rel="stylesheet" href="%s" type="text/css" media="%s">',[ASource, AMedia]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function Table_Start(const AID, ACLass, ASummary: String): String;
|
||||||
|
begin
|
||||||
|
Result := '<table';
|
||||||
|
if AID <> '' then Result := Result + ' id="' + AID + '"';
|
||||||
|
if AClass <> '' then Result := Result + ' class="' + AClass + '"';
|
||||||
|
if ASummary <> '' then Result := Result + ' summary="' + ASummary + '"';
|
||||||
|
Result := Result + '>';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CreateTable(const AID, ACLass, ASummary: String; const ColCount,
|
||||||
|
RowCount: Integer): String;
|
||||||
|
const
|
||||||
|
Ident = #32#32;
|
||||||
|
var
|
||||||
|
Row, Col: Integer;
|
||||||
|
begin
|
||||||
|
Result := Table_Start(AID, ACLass, ASummary) + LineEnding;
|
||||||
|
for Row := 1 to RowCount do
|
||||||
|
begin
|
||||||
|
Result := Result + row_start + LineEnding;
|
||||||
|
for Col := 1 to ColCount do
|
||||||
|
begin
|
||||||
|
if (Row = 1) then
|
||||||
|
Result := Result + Ident + ColHeading_start + LineEnding
|
||||||
|
else
|
||||||
|
Result := Result + Ident + Col_start + LineEnding;
|
||||||
|
|
||||||
|
if (Row = 1) then
|
||||||
|
Result := Result + Ident + ColHeading_end + LineEnding
|
||||||
|
else
|
||||||
|
Result := Result + Ident + Col_end + LineEnding;
|
||||||
|
end;
|
||||||
|
Result := Result + row_end + LineEnding;
|
||||||
|
end;
|
||||||
|
Result := Result + table_end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TabbedTextToHtmlTableContent(const AText: String): String;
|
||||||
|
const
|
||||||
|
Tab = #9;
|
||||||
|
var
|
||||||
|
SL: TStringList;
|
||||||
|
i, p: Integer;
|
||||||
|
Current, S: String;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
//workaround for bug in ClipBoard.GetAsText
|
||||||
|
if (Length(AText) = 0) then exit;
|
||||||
|
SL := TStringList.Create;
|
||||||
|
try
|
||||||
|
p := Pos(#0, AText);
|
||||||
|
if p > 0 then
|
||||||
|
begin
|
||||||
|
SL.Text := Copy(AText,1,p-1);
|
||||||
|
end
|
||||||
|
else SL.Text := AText;
|
||||||
|
for i := 0 to SL.Count - 1 do
|
||||||
|
begin
|
||||||
|
Current := SL.Strings[i];
|
||||||
|
//debugln('Current = "',Current,'" (',DbgS(Length(Current)),')');
|
||||||
|
if (Length({Trim}(Current)) > 0) then
|
||||||
|
begin
|
||||||
|
Result := Result + row_start + LineEnding;
|
||||||
|
repeat
|
||||||
|
p := Pos(Tab, Current);
|
||||||
|
if p = 0 then
|
||||||
|
S := Current
|
||||||
|
else
|
||||||
|
S := Copy(Current,1,p-1);
|
||||||
|
if (p > 0) then System.Delete(Current,1,p);
|
||||||
|
//debugln('S = "',S,'" p = ',DbgS(p));
|
||||||
|
Result := Result + ' ' + col_start + S + col_end + LineEnding;
|
||||||
|
until (p = 0) or (Length(Current) = 0);
|
||||||
|
Result := Result + row_end + LineEnding;
|
||||||
|
end;//Length(Current) > 0
|
||||||
|
end;//for
|
||||||
|
finally
|
||||||
|
Sl.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function Img(const ASource, AId, AClass, AFloatStyle, AWidth, AHeight, AAlt,
|
||||||
|
ATitle: String): String;
|
||||||
|
var
|
||||||
|
_Alt, _Title: String;
|
||||||
|
begin
|
||||||
|
//<img src="_lazarus.gif" ID="id" class="class" style="float: left;" width="24" height="24" ALT="alt" title="title">
|
||||||
|
_Alt := AAlt;
|
||||||
|
_Title := ATitle;
|
||||||
|
if _Alt = '' then _Alt := _Title;
|
||||||
|
if (_Title = '') and (_Alt <> '') then _Title := _Alt;
|
||||||
|
Result := '<img src="' + ASource + '"';
|
||||||
|
if AId <> '' then Result := Result + ' id="' + AId + '"';
|
||||||
|
if AClass <> '' then Result := Result + ' class="' + AClass + '"';
|
||||||
|
if AFloatStyle <> '' then Result := Result + ' style="float:' + AFloatStyle + ';"';
|
||||||
|
if AWidth <> '' then Result := Result + ' width="' + AWidth + '"';
|
||||||
|
if AHeight <> '' then Result := Result + ' height="' + AHeight + '"';
|
||||||
|
if _Alt <> '' then Result := Result + ' alt="' + _Alt + '"';
|
||||||
|
if _Title <> '' then Result := Result + ' title ="' + _Title + '"';
|
||||||
|
Result := Result + '>';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CreateHtml(const ADocType: THtmlDocType; const AAuthor, ATitle, AFavicon, AStyleSheet, AInlineStyle: String;
|
||||||
|
const AGeneratorName: String = ''): String;
|
||||||
|
begin
|
||||||
|
Result := HtmlDocTypeStrings[ADocType];
|
||||||
|
if (Result <> '') then Result := Result + LineEnding;
|
||||||
|
Result := Result + Html_Start + LineEnding;
|
||||||
|
Result := Result + Head_Start + LineEnding + LineEnding;
|
||||||
|
|
||||||
|
|
||||||
|
Result := Result + meta_content_charset_utf8 + LineEnding;
|
||||||
|
Result := Result + meta_content_style_type + LineEnding;
|
||||||
|
Result := Result + meta_content_script_type + LineEnding;
|
||||||
|
if (AAuthor <> '') then Result := Result + Format(meta_name_author,[AAuthor]) + LineEnding;
|
||||||
|
if (AGeneratorName <> '') then
|
||||||
|
Result := Result + Format(meta_name_generator,[AGeneratorName]) + LineEnding;
|
||||||
|
Result := Result + LineEnding;
|
||||||
|
|
||||||
|
Result := Result + Title_Start + ATitle + Title_End + LineEnding + LineEnding;
|
||||||
|
|
||||||
|
{
|
||||||
|
<link rel="icon" href="pictures/favicon.ico" type="image/x-icon">
|
||||||
|
<link rel="shortcut icon" href="pictures/favicon.ico" type="image/x-icon">
|
||||||
|
|
||||||
|
<link rel="stylesheet" href="standaard.css" type="text/css">
|
||||||
|
<link rel="stylesheet" href="print.css" type="text/css" media="print">
|
||||||
|
}
|
||||||
|
|
||||||
|
if (AFavicon <> '') then Result := Result + Favicon(AFavicon) + LineEnding;
|
||||||
|
if (AStyleSheet <> '') then Result := Result + AStyleSheet + LineEnding;
|
||||||
|
|
||||||
|
if (AInlineStyle <> '') then Result := Result + LineEnding + AInlineStyle + LineEnding + LineEnding;
|
||||||
|
|
||||||
|
Result := Result + LineEnding + LineEnding + Head_End + LineEnding;
|
||||||
|
Result := Result + LineEnding + Html_End;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HtmlToColor(const Value: String): TColor;
|
||||||
|
begin
|
||||||
|
//ToDo
|
||||||
|
Result := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
function ColorToHtml(const AColor: TColor): String;
|
||||||
|
const
|
||||||
|
//uses unthemed original values for this
|
||||||
|
clBlack = TColor($000000);
|
||||||
|
clMaroon = TColor($000080);
|
||||||
|
clGreen = TColor($008000);
|
||||||
|
clOlive = TColor($008080);
|
||||||
|
clNavy = TColor($800000);
|
||||||
|
clPurple = TColor($800080);
|
||||||
|
clTeal = TColor($808000);
|
||||||
|
clGray = TColor($808080);
|
||||||
|
clSilver = TColor($C0C0C0);
|
||||||
|
clRed = TColor($0000FF);
|
||||||
|
clLime = TColor($00FF00);
|
||||||
|
clYellow = TColor($00FFFF);
|
||||||
|
clBlue = TColor($FF0000);
|
||||||
|
clFuchsia = TColor($FF00FF);
|
||||||
|
clAqua = TColor($FFFF00);
|
||||||
|
clLtGray = TColor($C0C0C0); // clSilver alias
|
||||||
|
clDkGray = TColor($808080); // clGray alias
|
||||||
|
clWhite = TColor($FFFFFF);
|
||||||
|
var
|
||||||
|
RgbTriple: TFPColor;
|
||||||
|
begin
|
||||||
|
case AColor of
|
||||||
|
clRed: Result := 'red';
|
||||||
|
clGreen: Result := 'green';
|
||||||
|
clBlue: Result := 'blue';
|
||||||
|
clPurple: Result := 'purple';
|
||||||
|
clYellow: Result := 'yellow';
|
||||||
|
clBlack: Result := 'black';
|
||||||
|
clWhite: Result := 'white';
|
||||||
|
clGray: Result := 'gray';
|
||||||
|
clMaroon: Result := 'maroon';
|
||||||
|
clFuchsia: Result := 'fuchsia';
|
||||||
|
clLime: Result := 'lime';
|
||||||
|
clNavy: Result := 'navy';
|
||||||
|
clAqua: Result := 'aqua';
|
||||||
|
clTeal: Result := 'teal';
|
||||||
|
clSilver: Result := 'silver';
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
RgbTriple := TColorToFPColor(AColor);
|
||||||
|
Result := '#'+ IntToHex(RgbTriple.Red div $FF,2) + IntToHex(RgbTriple.Green div $FF,2) + IntToHex(RgbTriple.Blue div $FF,2);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Procedure DoHtmlDirSeparators (Var FileName : String);
|
||||||
|
Var I : longint;
|
||||||
|
begin
|
||||||
|
For I:=1 to Length(FileName) do
|
||||||
|
If FileName[I] in AllowDirectorySeparators then
|
||||||
|
FileName[i] := HtmlDirectorySeparator;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function UrlEscape(const Url: String): String;
|
||||||
|
//see: http://en.wikipedia.org/wiki/Percent-encoding
|
||||||
|
begin
|
||||||
|
Result := StringReplace(Url, #32, '%20', [rfReplaceAll]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
553
applications/lazedit/htmldialogs.pp
Normal file
553
applications/lazedit/htmldialogs.pp
Normal file
@ -0,0 +1,553 @@
|
|||||||
|
{ HtmlDialogs unit
|
||||||
|
|
||||||
|
Copyright (C) 2012 by Bart Broersma & Flying Sheep Inc.
|
||||||
|
http://home.tiscali.nl/~knmg0017/
|
||||||
|
|
||||||
|
This library is free software; you can redistribute it and/or modify it
|
||||||
|
under the terms of the GNU Library General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or (at your
|
||||||
|
option) any later version with the following modification:
|
||||||
|
|
||||||
|
As a special exception, the copyright holders of this library give you
|
||||||
|
permission to link this library with independent modules to produce an
|
||||||
|
executable, regardless of the license terms of these independent modules,and
|
||||||
|
to copy and distribute the resulting executable under terms of your choice,
|
||||||
|
provided that you also meet, for each linked independent module, the terms
|
||||||
|
and conditions of the license of that module. An independent module is a
|
||||||
|
module which is not derived from or based on this library. If you modify
|
||||||
|
this library, you may extend this exception to your version of the library,
|
||||||
|
but you are not obligated to do so. If you do not wish to do so, delete this
|
||||||
|
exception statement from your version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||||
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
||||||
|
for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU Library General Public License
|
||||||
|
along with this library; if not, write to the Free Software Foundation,
|
||||||
|
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
}
|
||||||
|
unit HtmlDialogs;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, HtmlCode, Controls, Forms,
|
||||||
|
NewHtmlDlgForm, AnchorDlgForm, PictureDlgForm, HtmlCharMap, NewTableForm, CopyLeft;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TNewHtmlDlg }
|
||||||
|
|
||||||
|
TNewHtmlDlg = class
|
||||||
|
private
|
||||||
|
FTop: Integer;
|
||||||
|
FLeft: Integer;
|
||||||
|
FInitialDir: String;
|
||||||
|
FDocType: THtmlDocType;
|
||||||
|
FBackGroundColor: String;
|
||||||
|
FBackGroundImage: String;
|
||||||
|
FTextColor: String;
|
||||||
|
FLinkColor: String;
|
||||||
|
FVisitedColor: String;
|
||||||
|
FTitle: String;
|
||||||
|
FFavicon: String;
|
||||||
|
FUseStyleSheet: Boolean;
|
||||||
|
FDefaultStyleSheet: String;
|
||||||
|
FPrintStyleSheet: String;
|
||||||
|
//FInlineStyle: String;
|
||||||
|
FAuthor: String;
|
||||||
|
FHtmlText: String;
|
||||||
|
FDlg: TNewHtmlDlgForm;
|
||||||
|
protected
|
||||||
|
function GetInlineStyle: String;
|
||||||
|
function GetHtmlText: String;
|
||||||
|
procedure GetFormValues;
|
||||||
|
procedure SetFormValues;
|
||||||
|
public
|
||||||
|
function Execute: Boolean;
|
||||||
|
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
property Top: Integer read FTop write FTop;
|
||||||
|
property Left: Integer read FLeft write FLeft;
|
||||||
|
property InitialDir: string read FInitialDir write FInitialDir;
|
||||||
|
property Text: String read FHtmlText;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TAnchorDlg }
|
||||||
|
|
||||||
|
TAnchorDlg = class
|
||||||
|
private
|
||||||
|
FAnchorText: String;
|
||||||
|
FTop: Integer;
|
||||||
|
FLeft: Integer;
|
||||||
|
FUrl: String;
|
||||||
|
FDescription: String; //the visual text for the link
|
||||||
|
FTitle: String;
|
||||||
|
FId: String;
|
||||||
|
FClass: String;
|
||||||
|
FAnchorType: TAnchorType;
|
||||||
|
FDlg: TAnchorDlgForm;
|
||||||
|
function GetLinkRef: String; // the < a href=""> part
|
||||||
|
protected
|
||||||
|
function GetAnchorText: String;
|
||||||
|
procedure GetFormValues;
|
||||||
|
procedure SetFormValues;
|
||||||
|
public
|
||||||
|
function Execute: Boolean;
|
||||||
|
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
property Top: Integer read FTop write FTop;
|
||||||
|
property Left: Integer read FLeft write FLeft;
|
||||||
|
property Text: String read FAnchorText;
|
||||||
|
property LinkRef: String read GetLinkRef;
|
||||||
|
property Description: String read FDescription write FDescription;
|
||||||
|
property Title: String read FTitle;
|
||||||
|
property DomID: String read FId;
|
||||||
|
property DomClass: String read FClass;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ THtmlCharMapDlg }
|
||||||
|
|
||||||
|
THtmlCharMapDlg = class(TObject)
|
||||||
|
private
|
||||||
|
FCharMapForm: THtmlCharMapForm;
|
||||||
|
function GetLeft: Integer;
|
||||||
|
procedure SetLeft(AValue: Integer);
|
||||||
|
function GetTop: Integer;
|
||||||
|
procedure SetTop(AValue: Integer);
|
||||||
|
function GetCharClick: THtmlCharClickEvent;
|
||||||
|
procedure SetCharClick(AValue: THtmlCharClickEvent);
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
property Left: Integer read GetLeft write SetLeft;
|
||||||
|
property Top: Integer read GetTop write SetTop;
|
||||||
|
property OnHtmlCharClick: THtmlCharClickEvent read GetCharClick write SetCharClick;
|
||||||
|
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TPictureDlg }
|
||||||
|
|
||||||
|
TPictureDlg = class(TObject)
|
||||||
|
private
|
||||||
|
FDlg: TPictureDlgForm;
|
||||||
|
FTop: Integer;
|
||||||
|
TFop: Integer;
|
||||||
|
FLeft: Integer;
|
||||||
|
FFileName: String;
|
||||||
|
FInitialDir: String;
|
||||||
|
FDefaultFolderPrefix: String;
|
||||||
|
FPicWidth: String;
|
||||||
|
FPicHeight: String;
|
||||||
|
FTitle: String;
|
||||||
|
FAlt: String;
|
||||||
|
FFloatStyle: String;
|
||||||
|
FDomId: String;
|
||||||
|
FDomClass: String;
|
||||||
|
protected
|
||||||
|
procedure GetFormValues;
|
||||||
|
procedure SetFormValues;
|
||||||
|
public
|
||||||
|
function Execute: Boolean;
|
||||||
|
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
property Top: Integer read FTop write FTop;
|
||||||
|
property Left: Integer read FLeft write FLeft;
|
||||||
|
property InitialDir: string read FInitialDir write FInitialDir;
|
||||||
|
property DefaultFolderPrefix: String read FDefaultFolderPrefix write FDefaultFolderPrefix;
|
||||||
|
property FileName: String read FFileName write FFileName;
|
||||||
|
property Title: String read FTitle;
|
||||||
|
property Alt: String read FAlt;
|
||||||
|
property PicWidth: String read FPicWidth;
|
||||||
|
property PicHeight: String read FPicHeight;
|
||||||
|
property FloatStyle: String read FFloatStyle;
|
||||||
|
property DomID: String read FDomId;
|
||||||
|
property DomClass: String read FDomClass;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TTableDlg }
|
||||||
|
|
||||||
|
TTableDlg = class(TObject)
|
||||||
|
private
|
||||||
|
FDlg: TNewTableForm;
|
||||||
|
FTop: Integer;
|
||||||
|
TFop: Integer;
|
||||||
|
FLeft: Integer;
|
||||||
|
FDomId: String;
|
||||||
|
FDomClass: String;
|
||||||
|
FSummary: String;
|
||||||
|
FColCount: Integer;
|
||||||
|
FRowCount: Integer;
|
||||||
|
protected
|
||||||
|
procedure GetFormValues;
|
||||||
|
procedure SetFormValues;
|
||||||
|
public
|
||||||
|
function Execute: Boolean;
|
||||||
|
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
property Top: Integer read FTop write FTop;
|
||||||
|
property Left: Integer read FLeft write FLeft;
|
||||||
|
property DomID: String read FDomId;
|
||||||
|
property DomClass: String read FDomClass;
|
||||||
|
property Summary: String read FSummary;
|
||||||
|
property RowCount: Integer read FRowCount;
|
||||||
|
property ColCount: Integer read FColCount;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
NewHtmlDlg: TNewHtmlDlg;
|
||||||
|
AnchorDlg: TAnchorDlg;
|
||||||
|
HtmlCharMapDlg: THtmlCharMapDlg;
|
||||||
|
PictureDlg: TPictureDlg;
|
||||||
|
TableDlg: TTableDlg;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TTableDlg }
|
||||||
|
|
||||||
|
procedure TTableDlg.GetFormValues;
|
||||||
|
begin
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
FSummary := FDlg.Summary;
|
||||||
|
FDomID := FDlg.DomId;
|
||||||
|
FDomClass := FDlg.DomClass;
|
||||||
|
FRowCount := FDlg.RowCount;
|
||||||
|
FColCount := FDlg.ColCount;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TTableDlg.SetFormValues;
|
||||||
|
begin
|
||||||
|
if FTop > -1 then FDlg.Top := FTop;
|
||||||
|
if FLeft > -1 then FDlg.Left := FLeft;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TTableDlg.Execute: Boolean;
|
||||||
|
begin
|
||||||
|
if not Assigned(FDlg) then FDlg := TNewTableForm.Create(nil);
|
||||||
|
SetFormValues;
|
||||||
|
Result := (FDlg.ShowModal = mrOk);
|
||||||
|
if Result then GetFormValues
|
||||||
|
else
|
||||||
|
begin //always remember Top/Left
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TTableDlg.Create;
|
||||||
|
begin
|
||||||
|
FDlg := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TTableDlg.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FDlg) then FDlg.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TPictureDlg }
|
||||||
|
|
||||||
|
procedure TPictureDlg.GetFormValues;
|
||||||
|
begin
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
FFileName := FDlg.Src;
|
||||||
|
FInitialDir := FDlg.InitialDir;
|
||||||
|
FDefaultFolderPrefix := FDlg.DefaultFolderPrefix;
|
||||||
|
FDomId := FDlg.DomId;
|
||||||
|
FDomClass := FDlg.DomClass;
|
||||||
|
FTitle := FDlg.Title;
|
||||||
|
FAlt := FDlg.Alt;
|
||||||
|
FPicWidth := FDlg.PicWidth;
|
||||||
|
FPicHeight := FDlg.PicHeight;
|
||||||
|
FFloatStyle := FDlg.FloatStyle;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPictureDlg.SetFormValues;
|
||||||
|
begin
|
||||||
|
if (TFop > -1) then FDlg.Top := FTop;
|
||||||
|
if (FLeft > -1) then FDlg.Left := FLeft;
|
||||||
|
FDlg.InitialDir := FInitialDir;
|
||||||
|
FDlg.DefaultFolderPrefix := FDefaultFolderPrefix;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlg.Execute: Boolean;
|
||||||
|
begin
|
||||||
|
if not Assigned(FDlg) then FDlg := TPictureDlgForm.Create(nil);
|
||||||
|
SetFormValues;
|
||||||
|
Result := (FDlg.ShowModal = mrOk);
|
||||||
|
if Result then GetFormValues
|
||||||
|
else
|
||||||
|
begin //always remember Top/Left
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TPictureDlg.Create;
|
||||||
|
begin
|
||||||
|
FDlg := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TPictureDlg.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FDlg) then FDlg.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TAnchorDlg }
|
||||||
|
|
||||||
|
function TAnchorDlg.GetLinkRef: String;
|
||||||
|
var
|
||||||
|
STitle, SId, SClass, SCombined: String;
|
||||||
|
begin
|
||||||
|
if (FTitle <> '') then STitle := 'title="' + FTitle + '"' else STitle := '';
|
||||||
|
if (FId <> '') then SId := 'id="' + FId + '"' else SId := '';
|
||||||
|
if (FClass <> '') then SClass := 'class="' + FClass + '"' else SClass := '';
|
||||||
|
SCombined := STitle;
|
||||||
|
if (SId <> '') then SCombined := SCombined + #32 + SId;
|
||||||
|
if (SClass <> '') then SCombined := SCombined + #32 + SClass;
|
||||||
|
case FAnchorType of
|
||||||
|
atUrl:
|
||||||
|
begin
|
||||||
|
Result := '<a href="' + FUrl + '"';
|
||||||
|
if (SCombined <> '') then Result := Result + #32 + SCombined;
|
||||||
|
Result := Result + '>';
|
||||||
|
end;
|
||||||
|
atMakeLocalAnchor:
|
||||||
|
begin
|
||||||
|
Result := '<a name="' + FUrl + '"';
|
||||||
|
if (SCombined <> '') then Result := Result + #32 + SCombined;
|
||||||
|
Result := Result + '>';
|
||||||
|
end;
|
||||||
|
atRefLocalAnchor:
|
||||||
|
begin
|
||||||
|
Result := '<a href="#' + FUrl + '"';
|
||||||
|
if (SCombined <> '') then Result := Result + #32 + SCombined;
|
||||||
|
Result := Result + '>';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlg.GetAnchorText: String;
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlg.GetFormValues;
|
||||||
|
begin
|
||||||
|
FDescription := FDlg.Description;
|
||||||
|
FUrl := FDlg.Url;
|
||||||
|
FTitle := FDlg.Title;
|
||||||
|
FId := FDlg.DomId;
|
||||||
|
FClass := FDlg.DomClass;
|
||||||
|
FAnchorType := FDlg.AnchorType;
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAnchorDlg.SetFormValues;
|
||||||
|
begin
|
||||||
|
FDlg.Description := FDescription;
|
||||||
|
//clear Title and ID
|
||||||
|
FDlg.Title := '';
|
||||||
|
FDlg.DomId := '';
|
||||||
|
if (FTop >= 0) then FDlg.Top := FTop;
|
||||||
|
if (FLeft >= 0) then FDlg.Left := FLeft;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAnchorDlg.Execute: Boolean;
|
||||||
|
begin
|
||||||
|
if not Assigned(FDlg) then FDlg := TAnchorDlgForm.Create(nil);
|
||||||
|
SetFormValues;
|
||||||
|
Result := (FDlg.ShowModal = mrOk);
|
||||||
|
if Result then GetFormValues
|
||||||
|
else
|
||||||
|
begin //always remember Top/Left
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TAnchorDlg.Create;
|
||||||
|
begin
|
||||||
|
FDlg := nil;
|
||||||
|
FTop := -1;
|
||||||
|
FLeft := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TAnchorDlg.Destroy;
|
||||||
|
begin
|
||||||
|
FDlg.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TNewHtmlDlg }
|
||||||
|
|
||||||
|
|
||||||
|
function TNewHtmlDlg.GetInlineStyle: String;
|
||||||
|
begin
|
||||||
|
Result := Style_Start + LineEnding +
|
||||||
|
'body{' + LineEnding;
|
||||||
|
if (FBackGroundImage <> '') then
|
||||||
|
Result := Result + 'background: url("' + FBackGroundImage + '");' + LineEnding;
|
||||||
|
Result := Result +
|
||||||
|
'background-color: ' + FBackGroundColor + ';'+ LineEnding +
|
||||||
|
'color: ' + FTextColor + ';'+ LineEnding +
|
||||||
|
'}' + LineEnding +
|
||||||
|
'a:link {color: ' + FLinkColor + ';}' + LineEnding +
|
||||||
|
'a:visited {color: ' + FVisitedColor + ';}' + LineEnding +
|
||||||
|
Style_End;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlg.GetHtmlText: String;
|
||||||
|
var
|
||||||
|
AStyleSheet, AInlineStyle: String;
|
||||||
|
begin
|
||||||
|
AStyleSheet := '';
|
||||||
|
AInlineStyle := '';
|
||||||
|
if FUseStyleSheet then
|
||||||
|
begin
|
||||||
|
if (FDefaultStyleSheet <> '') then AStyleSheet := StyleSheet(FDefaultStyleSheet);
|
||||||
|
if (FprintStyleSheet <> '') then
|
||||||
|
begin
|
||||||
|
if (AStyleSheet <> '') then AStyleSheet := AStyleSheet + LineEnding;
|
||||||
|
AStyleSheet := AStyleSheet + StyleSheet(FPrintStyleSheet, 'print');
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
AInlineStyle := GetInlineStyle;
|
||||||
|
end;
|
||||||
|
Result := CreateHtml(FDocType, FAuthor, FTitle, FFavicon, AStyleSheet, AInlineStyle, MetaGeneratorName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlg.GetFormValues;
|
||||||
|
begin
|
||||||
|
FDocType := FDlg.DocType;
|
||||||
|
FAuthor := FDlg.Author;
|
||||||
|
FTitle := FDlg.Title;
|
||||||
|
FDefaultStyleSheet := FDlg.DefaultStyleSheet;
|
||||||
|
FPrintStyleSheet := FDlg.PrintStyleSheet;
|
||||||
|
FBackGroundImage := FDlg.BackgroundImage;
|
||||||
|
FUseStyleSheet := FDlg.UseStyleSheet;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FInitialDir := FDlg.InitialPictureDir;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlg.SetFormValues;
|
||||||
|
begin
|
||||||
|
if (FTop >= 0) then FDlg.Top := FTop;
|
||||||
|
if (FLeft >= 0) then FDlg.Left := FLeft;
|
||||||
|
FDlg.InitialPictureDir := FInitialDir;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlg.Execute: Boolean;
|
||||||
|
begin
|
||||||
|
if not Assigned(Fdlg) then FDlg := TNewHtmlDlgForm.Create(nil);
|
||||||
|
SetFormValues;
|
||||||
|
|
||||||
|
//Result := True; //<------ REMOVE THIS
|
||||||
|
|
||||||
|
Result := (FDlg.ShowModal = mrOk);
|
||||||
|
if Result then GetFormValues
|
||||||
|
else
|
||||||
|
begin //always remember Top/Left
|
||||||
|
FTop := FDlg.Top;
|
||||||
|
FLeft := FDlg.Left;
|
||||||
|
end;
|
||||||
|
if Result then FHtmlText := GetHtmlText;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TNewHtmlDlg.Create;
|
||||||
|
begin
|
||||||
|
FBackGroundColor := '#ffffff';
|
||||||
|
FTextColor := '#000000';
|
||||||
|
FLinkColor := '#0000ff';
|
||||||
|
FVisitedColor := '#ff00ff';
|
||||||
|
FLeft := -1;
|
||||||
|
FTop := -1;
|
||||||
|
FDocType := DocType_Html_401_Strict;
|
||||||
|
FDlg := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TNewHtmlDlg.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FDlg) then FDlg.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ THtmlCharMapDlg }
|
||||||
|
|
||||||
|
constructor THtmlCharMapDlg.Create;
|
||||||
|
begin
|
||||||
|
FCharMapForm := THtmlCharMapForm.Create(nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor THtmlCharMapDlg.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FCharMapForm) then FCharMapForm.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure THtmlCharMapDlg.Execute;
|
||||||
|
begin
|
||||||
|
FCharMapForm.Show;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharMapDlg.SetLeft(AValue: Integer);
|
||||||
|
begin
|
||||||
|
if (AValue < 0) then Exit;
|
||||||
|
FCharMapForm.Left := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function THtmlCharMapDlg.GetLeft: Integer;
|
||||||
|
begin
|
||||||
|
Result := FCharMapForm.Left;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure THtmlCharMapDlg.SetTop(AValue: Integer);
|
||||||
|
begin
|
||||||
|
if (AValue < 0) then Exit;
|
||||||
|
FCharMapForm.Top := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function THtmlCharMapDlg.GetTop: Integer;
|
||||||
|
begin
|
||||||
|
Result := FCharMapForm.Top;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function THtmlCharMapDlg.GetCharClick: THtmlCharClickEvent;
|
||||||
|
begin
|
||||||
|
Result := FCharMapForm.OnHtmlCharClick;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure THtmlCharMapDlg.SetCharClick(AValue: THtmlCharClickEvent);
|
||||||
|
begin
|
||||||
|
FCharMapForm.OnHtmlCharClick := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1019
applications/lazedit/lazedit.lpi
Normal file
1019
applications/lazedit/lazedit.lpi
Normal file
File diff suppressed because it is too large
Load Diff
22
applications/lazedit/lazedit.lpr
Normal file
22
applications/lazedit/lazedit.lpr
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
program lazedit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main {,newtableform, test_ed, eplus_commons, CopyLeft, eplus_config, HtmlCharMap,
|
||||||
|
HtmlDialogs, NewHtmlDlgForm, AnchorDlgForm, PictureDlgForm}
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource := True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TEPlusForm, EPlusForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
BIN
applications/lazedit/lazedit.res
Normal file
BIN
applications/lazedit/lazedit.res
Normal file
Binary file not shown.
2107
applications/lazedit/main.lfm
Normal file
2107
applications/lazedit/main.lfm
Normal file
File diff suppressed because it is too large
Load Diff
2363
applications/lazedit/main.pp
Normal file
2363
applications/lazedit/main.pp
Normal file
File diff suppressed because it is too large
Load Diff
752
applications/lazedit/newhtmldlgform.lfm
Normal file
752
applications/lazedit/newhtmldlgform.lfm
Normal file
@ -0,0 +1,752 @@
|
|||||||
|
object NewHtmlDlgForm: TNewHtmlDlgForm
|
||||||
|
Left = 745
|
||||||
|
Height = 618
|
||||||
|
Top = 108
|
||||||
|
Width = 424
|
||||||
|
ActiveControl = TitleEdit
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Nieuwe Html pagina'
|
||||||
|
ClientHeight = 618
|
||||||
|
ClientWidth = 424
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.31'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 19
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 21
|
||||||
|
Caption = 'Titel'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object TitleEdit: TEdit
|
||||||
|
Left = 19
|
||||||
|
Height = 21
|
||||||
|
Top = 21
|
||||||
|
Width = 385
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object InlineStyleBox: TGroupBox
|
||||||
|
Left = 19
|
||||||
|
Height = 272
|
||||||
|
Top = 256
|
||||||
|
Width = 385
|
||||||
|
Caption = 'Opmaak via inline stijl'
|
||||||
|
ClientHeight = 254
|
||||||
|
ClientWidth = 381
|
||||||
|
TabOrder = 3
|
||||||
|
object BackColorEdit: TEdit
|
||||||
|
Left = 11
|
||||||
|
Height = 21
|
||||||
|
Top = 16
|
||||||
|
Width = 288
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object TextColorEdit: TEdit
|
||||||
|
Left = 11
|
||||||
|
Height = 21
|
||||||
|
Top = 56
|
||||||
|
Width = 288
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 11
|
||||||
|
Height = 14
|
||||||
|
Top = 0
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Achtergrondkleur'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 11
|
||||||
|
Height = 14
|
||||||
|
Top = 40
|
||||||
|
Width = 51
|
||||||
|
Caption = 'Tekstkleur'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 11
|
||||||
|
Height = 14
|
||||||
|
Top = 80
|
||||||
|
Width = 47
|
||||||
|
Caption = 'Link kleur'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object LinkColorEdit: TEdit
|
||||||
|
Left = 13
|
||||||
|
Height = 21
|
||||||
|
Top = 96
|
||||||
|
Width = 286
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 13
|
||||||
|
Height = 14
|
||||||
|
Top = 120
|
||||||
|
Width = 88
|
||||||
|
Caption = 'Bezochte linkkleur'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VisitedLinkColorEdit: TEdit
|
||||||
|
Left = 13
|
||||||
|
Height = 21
|
||||||
|
Top = 136
|
||||||
|
Width = 286
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 13
|
||||||
|
Height = 14
|
||||||
|
Top = 160
|
||||||
|
Width = 84
|
||||||
|
Caption = 'Achterrondplaatje'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object BackImageEdit: TEdit
|
||||||
|
Left = 13
|
||||||
|
Height = 21
|
||||||
|
Top = 176
|
||||||
|
Width = 286
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object BackColorBtn: TSpeedButton
|
||||||
|
Left = 322
|
||||||
|
Height = 22
|
||||||
|
Top = 16
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36090000424D3609000000000000360000002800000018000000180000000100
|
||||||
|
2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFF927777FFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFA4A4FFFFDD966AFFA4A4
|
||||||
|
FFFFDD966AFFA4A4FFFFDD966AFF927777FFBFBDBDFFFFFFFF00927777FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFA4A4FFFF400080FFA4A4FFFF4000
|
||||||
|
80FFA4A4FFFF400080FFA4A4FFFF927777FFBFBDBDFFFFFFFF00927777FFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFA4A4FFFFF4DDCEFFA4A4
|
||||||
|
FFFFF4DDCEFFA4A4FFFFF4DDCEFF927777FFFFFFFF00FFFFFF00BFBDBDFF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FFBFBDBDFFFFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = ColorBtnClick
|
||||||
|
end
|
||||||
|
object TextColorBtn: TSpeedButton
|
||||||
|
Left = 322
|
||||||
|
Height = 22
|
||||||
|
Top = 56
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36090000424D3609000000000000360000002800000018000000180000000100
|
||||||
|
2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFF927777FFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFA4A4FFFFDD966AFFA4A4
|
||||||
|
FFFFDD966AFFA4A4FFFFDD966AFF927777FFBFBDBDFFFFFFFF00927777FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFA4A4FFFF400080FFA4A4FFFF4000
|
||||||
|
80FFA4A4FFFF400080FFA4A4FFFF927777FFBFBDBDFFFFFFFF00927777FFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFA4A4FFFFF4DDCEFFA4A4
|
||||||
|
FFFFF4DDCEFFA4A4FFFFF4DDCEFF927777FFFFFFFF00FFFFFF00BFBDBDFF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FFBFBDBDFFFFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = ColorBtnClick
|
||||||
|
end
|
||||||
|
object LinkColorBtn: TSpeedButton
|
||||||
|
Left = 322
|
||||||
|
Height = 22
|
||||||
|
Top = 96
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36090000424D3609000000000000360000002800000018000000180000000100
|
||||||
|
2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFF927777FFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFA4A4FFFFDD966AFFA4A4
|
||||||
|
FFFFDD966AFFA4A4FFFFDD966AFF927777FFBFBDBDFFFFFFFF00927777FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFA4A4FFFF400080FFA4A4FFFF4000
|
||||||
|
80FFA4A4FFFF400080FFA4A4FFFF927777FFBFBDBDFFFFFFFF00927777FFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFA4A4FFFFF4DDCEFFA4A4
|
||||||
|
FFFFF4DDCEFFA4A4FFFFF4DDCEFF927777FFFFFFFF00FFFFFF00BFBDBDFF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FFBFBDBDFFFFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = ColorBtnClick
|
||||||
|
end
|
||||||
|
object VisitedColorBtn: TSpeedButton
|
||||||
|
Left = 322
|
||||||
|
Height = 22
|
||||||
|
Top = 136
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36090000424D3609000000000000360000002800000018000000180000000100
|
||||||
|
2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBDBDFFBFBD
|
||||||
|
BDFFBFBDBDFFBFBDBDFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF4040FFFF4040FFFF4040FFFFDBDFDFFF36B1
|
||||||
|
77FF36B177FF36B177FFDBDFDFFFFF80FFFFFF80FFFFFF80FFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFF73AAFFFF73AAFFFF73AAFFFFDBDFDFFFFF4A
|
||||||
|
4AFFFF4A4AFFFF4A4AFFDBDFDFFF00FFFFFF00FFFFFF00FFFFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDFDFFFDBDF
|
||||||
|
DFFFDBDFDFFFDBDFDFFFBFBDBDFF927777FFBFBDBDFFFFFFFF00927777FFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFF927777FFBFBDBDFFFFFFFF00927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FFBFBDBDFFFFFFFF00927777FFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFDD96
|
||||||
|
6AFFDD966AFFDD966AFFDD966AFFDD966AFFDD966AFFA4A4FFFFDD966AFFA4A4
|
||||||
|
FFFFDD966AFFA4A4FFFFDD966AFF927777FFBFBDBDFFFFFFFF00927777FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B697FFE8B6
|
||||||
|
97FFE8B697FFE8B697FFE8B697FFE8B697FFA4A4FFFF400080FFA4A4FFFF4000
|
||||||
|
80FFA4A4FFFF400080FFA4A4FFFF927777FFBFBDBDFFFFFFFF00927777FFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DD
|
||||||
|
CEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFF4DDCEFFA4A4FFFFF4DDCEFFA4A4
|
||||||
|
FFFFF4DDCEFFA4A4FFFFF4DDCEFF927777FFFFFFFF00FFFFFF00BFBDBDFF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FF927777FF927777FF927777FF927777FF9277
|
||||||
|
77FF927777FF927777FF927777FFBFBDBDFFFFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = ColorBtnClick
|
||||||
|
end
|
||||||
|
object BackImgBtn: TSpeedButton
|
||||||
|
Left = 322
|
||||||
|
Height = 22
|
||||||
|
Top = 176
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00005E8E8D005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005E8E8D005B8900005B890000679AB06AB7
|
||||||
|
DAFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CC
|
||||||
|
EDFF82CCEDFF82CCEDFF83CDEEFF318DB9C9005E8E40005F8F000070A9A256AA
|
||||||
|
CEFF80CBEAFF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9
|
||||||
|
E9FF7EC9E9FF7EC9E9FF7EC9E9FF57AFD6D90066996E006699000074AD9D44A1
|
||||||
|
CBFF8AD3EFFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CD
|
||||||
|
EBFF83CDEBFF83CDEBFF83CDEBFF81CDEBF2006FA8930071AB010076B29952B0
|
||||||
|
D7FF85D2EDFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2
|
||||||
|
EEFF89D2EEFF89D2EEFF89D2EEFF90D8F1FF228EC1AA0077B31D0079B69574CA
|
||||||
|
E8FF75CAE8FF90D8F2FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7
|
||||||
|
F1FF8FD7F1FF8FD7F1FF8FD7F1FF91D8F2FF4FB1DAC2007FBD46007CBA928FDD
|
||||||
|
F4FF63C0E5FFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EE
|
||||||
|
FAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFF86D8EFDE0083C571007FBD8EA6EC
|
||||||
|
FCFF64C2E9FF4FB5E2FF4DB4E2FF4CB3E1FF4BB2E0FF49B1DFFF48B0DFFF47AE
|
||||||
|
DEFF45ADDDFF44ACDDFF46AEDFFF0084C6C70087CB810087CB610081C18BABF0
|
||||||
|
FEFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DCF4FF91D9
|
||||||
|
F3FF8ED7F1FF8BD4F0FF90D8F3FF0081C18B0087CA000087CB000083C488ADF1
|
||||||
|
FFFFA6EBFDFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DC
|
||||||
|
F4FF91D9F3FF8ED7F1FF93DAF4FF0083C4880083C4000085C8000085C785B0F4
|
||||||
|
FFFFADF1FFFFABF0FEFFA9EEFDFFA7ECFCFFA5EAFBFFA2E8FAFFA0E6F9FF9DE3
|
||||||
|
F8FF9AE1F7FF98DFF6FF99E0F7FF0085C7850085C7000085C7000087CA620087
|
||||||
|
CA830087CA830087CA830087CA830087CA830087CA83FEFEFDFFF5F5EEFFEBEB
|
||||||
|
DDFFFEC941FFF4B62EFF0087CA830087CA620086C9000086C9000087CA000087
|
||||||
|
CA000087CA000087CA000087CA000087CA000088CC2E0088CC810088CC810088
|
||||||
|
CC810088CC810088CC810088CC2E0087CA000086C9000086C900FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = ImgBtnClick
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 13
|
||||||
|
Height = 14
|
||||||
|
Top = 200
|
||||||
|
Width = 155
|
||||||
|
Caption = 'Relatieve pad naar afbeeldingen'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object PictureFolderEdit: TEdit
|
||||||
|
Left = 13
|
||||||
|
Height = 21
|
||||||
|
Top = 216
|
||||||
|
Width = 286
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ExternalStyleBox: TGroupBox
|
||||||
|
Left = 19
|
||||||
|
Height = 105
|
||||||
|
Top = 144
|
||||||
|
Width = 385
|
||||||
|
Caption = 'Opmaak via extern stijlblad'
|
||||||
|
ClientHeight = 87
|
||||||
|
ClientWidth = 381
|
||||||
|
TabOrder = 2
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 13
|
||||||
|
Height = 14
|
||||||
|
Top = 0
|
||||||
|
Width = 87
|
||||||
|
Caption = 'Standaard stijlblad'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 13
|
||||||
|
Height = 14
|
||||||
|
Top = 40
|
||||||
|
Width = 112
|
||||||
|
Caption = 'Stijlblad voor afdrukken'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object DefaultStylesheetEdit: TEdit
|
||||||
|
Left = 11
|
||||||
|
Height = 21
|
||||||
|
Top = 16
|
||||||
|
Width = 288
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object PrintStyleSheetEdit: TEdit
|
||||||
|
Left = 11
|
||||||
|
Height = 21
|
||||||
|
Top = 56
|
||||||
|
Width = 288
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object DefSheetBtn: TSpeedButton
|
||||||
|
Left = 322
|
||||||
|
Height = 22
|
||||||
|
Top = 16
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00005E8E8D005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005E8E8D005B8900005B890000679AB06AB7
|
||||||
|
DAFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CC
|
||||||
|
EDFF82CCEDFF82CCEDFF83CDEEFF318DB9C9005E8E40005F8F000070A9A256AA
|
||||||
|
CEFF80CBEAFF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9
|
||||||
|
E9FF7EC9E9FF7EC9E9FF7EC9E9FF57AFD6D90066996E006699000074AD9D44A1
|
||||||
|
CBFF8AD3EFFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CD
|
||||||
|
EBFF83CDEBFF83CDEBFF83CDEBFF81CDEBF2006FA8930071AB010076B29952B0
|
||||||
|
D7FF85D2EDFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2
|
||||||
|
EEFF89D2EEFF89D2EEFF89D2EEFF90D8F1FF228EC1AA0077B31D0079B69574CA
|
||||||
|
E8FF75CAE8FF90D8F2FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7
|
||||||
|
F1FF8FD7F1FF8FD7F1FF8FD7F1FF91D8F2FF4FB1DAC2007FBD46007CBA928FDD
|
||||||
|
F4FF63C0E5FFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EE
|
||||||
|
FAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFF86D8EFDE0083C571007FBD8EA6EC
|
||||||
|
FCFF64C2E9FF4FB5E2FF4DB4E2FF4CB3E1FF4BB2E0FF49B1DFFF48B0DFFF47AE
|
||||||
|
DEFF45ADDDFF44ACDDFF46AEDFFF0084C6C70087CB810087CB610081C18BABF0
|
||||||
|
FEFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DCF4FF91D9
|
||||||
|
F3FF8ED7F1FF8BD4F0FF90D8F3FF0081C18B0087CA000087CB000083C488ADF1
|
||||||
|
FFFFA6EBFDFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DC
|
||||||
|
F4FF91D9F3FF8ED7F1FF93DAF4FF0083C4880083C4000085C8000085C785B0F4
|
||||||
|
FFFFADF1FFFFABF0FEFFA9EEFDFFA7ECFCFFA5EAFBFFA2E8FAFFA0E6F9FF9DE3
|
||||||
|
F8FF9AE1F7FF98DFF6FF99E0F7FF0085C7850085C7000085C7000087CA620087
|
||||||
|
CA830087CA830087CA830087CA830087CA830087CA83FEFEFDFFF5F5EEFFEBEB
|
||||||
|
DDFFFEC941FFF4B62EFF0087CA830087CA620086C9000086C9000087CA000087
|
||||||
|
CA000087CA000087CA000087CA000087CA000088CC2E0088CC810088CC810088
|
||||||
|
CC810088CC810088CC810088CC2E0087CA000086C9000086C900FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = StyleBtnClick
|
||||||
|
end
|
||||||
|
object PrintSheetBtn: TSpeedButton
|
||||||
|
Left = 322
|
||||||
|
Height = 22
|
||||||
|
Top = 56
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00005E8E8D005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005E8E8D005B8900005B890000679AB06AB7
|
||||||
|
DAFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CC
|
||||||
|
EDFF82CCEDFF82CCEDFF83CDEEFF318DB9C9005E8E40005F8F000070A9A256AA
|
||||||
|
CEFF80CBEAFF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9
|
||||||
|
E9FF7EC9E9FF7EC9E9FF7EC9E9FF57AFD6D90066996E006699000074AD9D44A1
|
||||||
|
CBFF8AD3EFFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CD
|
||||||
|
EBFF83CDEBFF83CDEBFF83CDEBFF81CDEBF2006FA8930071AB010076B29952B0
|
||||||
|
D7FF85D2EDFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2
|
||||||
|
EEFF89D2EEFF89D2EEFF89D2EEFF90D8F1FF228EC1AA0077B31D0079B69574CA
|
||||||
|
E8FF75CAE8FF90D8F2FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7
|
||||||
|
F1FF8FD7F1FF8FD7F1FF8FD7F1FF91D8F2FF4FB1DAC2007FBD46007CBA928FDD
|
||||||
|
F4FF63C0E5FFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EE
|
||||||
|
FAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFF86D8EFDE0083C571007FBD8EA6EC
|
||||||
|
FCFF64C2E9FF4FB5E2FF4DB4E2FF4CB3E1FF4BB2E0FF49B1DFFF48B0DFFF47AE
|
||||||
|
DEFF45ADDDFF44ACDDFF46AEDFFF0084C6C70087CB810087CB610081C18BABF0
|
||||||
|
FEFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DCF4FF91D9
|
||||||
|
F3FF8ED7F1FF8BD4F0FF90D8F3FF0081C18B0087CA000087CB000083C488ADF1
|
||||||
|
FFFFA6EBFDFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DC
|
||||||
|
F4FF91D9F3FF8ED7F1FF93DAF4FF0083C4880083C4000085C8000085C785B0F4
|
||||||
|
FFFFADF1FFFFABF0FEFFA9EEFDFFA7ECFCFFA5EAFBFFA2E8FAFFA0E6F9FF9DE3
|
||||||
|
F8FF9AE1F7FF98DFF6FF99E0F7FF0085C7850085C7000085C7000087CA620087
|
||||||
|
CA830087CA830087CA830087CA830087CA830087CA83FEFEFDFFF5F5EEFFEBEB
|
||||||
|
DDFFFEC941FFF4B62EFF0087CA830087CA620086C9000086C9000087CA000087
|
||||||
|
CA000087CA000087CA000087CA000087CA000088CC2E0088CC810088CC810088
|
||||||
|
CC810088CC810088CC810088CC2E0087CA000086C9000086C900FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = StyleBtnClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object StyleChoiceGroup: TRadioGroup
|
||||||
|
Left = 19
|
||||||
|
Height = 41
|
||||||
|
Top = 96
|
||||||
|
Width = 385
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Kies opmaak methode'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 2
|
||||||
|
ClientHeight = 23
|
||||||
|
ClientWidth = 381
|
||||||
|
Columns = 2
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'Opmaak via extern stijlblad'
|
||||||
|
'Opmaak via inline stijl'
|
||||||
|
)
|
||||||
|
OnClick = StyleChoiceGroupClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object DocTypeComboBox: TComboBox
|
||||||
|
Left = 23
|
||||||
|
Height = 21
|
||||||
|
Top = 544
|
||||||
|
Width = 377
|
||||||
|
ItemHeight = 13
|
||||||
|
TabOrder = 4
|
||||||
|
Text = 'DocTypeComboBox'
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 23
|
||||||
|
Height = 14
|
||||||
|
Top = 528
|
||||||
|
Width = 45
|
||||||
|
Caption = 'Html type'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 325
|
||||||
|
Height = 30
|
||||||
|
Top = 576
|
||||||
|
Width = 75
|
||||||
|
Default = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkOK
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 245
|
||||||
|
Height = 30
|
||||||
|
Top = 576
|
||||||
|
Width = 75
|
||||||
|
Cancel = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkCancel
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 19
|
||||||
|
Height = 14
|
||||||
|
Top = 48
|
||||||
|
Width = 32
|
||||||
|
Caption = 'Auteur'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object AuthorEdit: TEdit
|
||||||
|
Left = 19
|
||||||
|
Height = 21
|
||||||
|
Top = 64
|
||||||
|
Width = 385
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object ColorDialog: TColorDialog
|
||||||
|
Color = clBlack
|
||||||
|
CustomColors.Strings = (
|
||||||
|
'ColorA=000000'
|
||||||
|
'ColorB=000080'
|
||||||
|
'ColorC=008000'
|
||||||
|
'ColorD=008080'
|
||||||
|
'ColorE=800000'
|
||||||
|
'ColorF=800080'
|
||||||
|
'ColorG=808000'
|
||||||
|
'ColorH=808080'
|
||||||
|
'ColorI=C0C0C0'
|
||||||
|
'ColorJ=0000FF'
|
||||||
|
'ColorK=00FF00'
|
||||||
|
'ColorL=00FFFF'
|
||||||
|
'ColorM=FF0000'
|
||||||
|
'ColorN=FF00FF'
|
||||||
|
'ColorO=FFFF00'
|
||||||
|
'ColorP=FFFFFF'
|
||||||
|
'ColorQ=C0DCC0'
|
||||||
|
'ColorR=F0CAA6'
|
||||||
|
'ColorS=F0FBFF'
|
||||||
|
'ColorT=A4A0A0'
|
||||||
|
)
|
||||||
|
left = 24
|
||||||
|
top = 568
|
||||||
|
end
|
||||||
|
object OpenDialog: TOpenDialog
|
||||||
|
left = 71
|
||||||
|
top = 568
|
||||||
|
end
|
||||||
|
object OpenPictureDialog: TOpenPictureDialog
|
||||||
|
left = 111
|
||||||
|
top = 568
|
||||||
|
end
|
||||||
|
end
|
||||||
292
applications/lazedit/newhtmldlgform.pp
Normal file
292
applications/lazedit/newhtmldlgform.pp
Normal file
@ -0,0 +1,292 @@
|
|||||||
|
unit NewHtmlDlgForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||||
|
ExtCtrls, Buttons, ExtDlgs, HtmlCode;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TNewHtmlDlgForm }
|
||||||
|
|
||||||
|
TNewHtmlDlgForm = class(TForm)
|
||||||
|
BackColorEdit: TEdit;
|
||||||
|
BackImageEdit: TEdit;
|
||||||
|
BitBtn1: TBitBtn;
|
||||||
|
BitBtn2: TBitBtn;
|
||||||
|
ColorDialog: TColorDialog;
|
||||||
|
AuthorEdit: TEdit;
|
||||||
|
DocTypeComboBox: TComboBox;
|
||||||
|
DefaultStylesheetEdit: TEdit;
|
||||||
|
PictureFolderEdit: TEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
OpenDialog: TOpenDialog;
|
||||||
|
OpenPictureDialog: TOpenPictureDialog;
|
||||||
|
PrintStyleSheetEdit: TEdit;
|
||||||
|
ExternalStyleBox: TGroupBox;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
DefSheetBtn: TSpeedButton;
|
||||||
|
PrintSheetBtn: TSpeedButton;
|
||||||
|
BackColorBtn: TSpeedButton;
|
||||||
|
LinkColorBtn: TSpeedButton;
|
||||||
|
BackImgBtn: TSpeedButton;
|
||||||
|
VisitedColorBtn: TSpeedButton;
|
||||||
|
TextColorBtn: TSpeedButton;
|
||||||
|
StyleChoiceGroup: TRadioGroup;
|
||||||
|
VisitedLinkColorEdit: TEdit;
|
||||||
|
Label5: TLabel;
|
||||||
|
LinkColorEdit: TEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
TextColorEdit: TEdit;
|
||||||
|
InlineStyleBox: TGroupBox;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
TitleEdit: TEdit;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure StyleBtnClick(Sender: TObject);
|
||||||
|
procedure ColorBtnClick(Sender: TObject);
|
||||||
|
procedure ImgBtnClick(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure StyleChoiceGroupClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
FInitialDir: String;
|
||||||
|
function GetAuthor: string;
|
||||||
|
function GetbackgroundColor: string;
|
||||||
|
function GetBackgroundImage: string;
|
||||||
|
function GetDefaultStyleSheet: string;
|
||||||
|
function GetHtmlDocType: THtmlDocType;
|
||||||
|
function GetLinkColor: string;
|
||||||
|
function GetPictureFolder: string;
|
||||||
|
function GetPrintStyleSheet: string;
|
||||||
|
function GetTextColor: string;
|
||||||
|
function GetTitle: string;
|
||||||
|
function GetUseStyleSheet: Boolean;
|
||||||
|
function GetVisitedColor: string;
|
||||||
|
procedure SetInitialDir(AValue: String);
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
property DocType: THtmlDocType read GetHtmlDocType;
|
||||||
|
property UseStyleSheet: Boolean read GetUseStyleSheet;
|
||||||
|
property DefaultStyleSheet: string read GetDefaultStyleSheet;
|
||||||
|
property PrintStyleSheet: string read GetPrintStyleSheet;
|
||||||
|
property TextColor: string read GetTextColor;
|
||||||
|
property BackgroundColor: string read GetbackgroundColor;
|
||||||
|
property LinkColor: string read GetLinkColor;
|
||||||
|
property VisitedColor: string read GetVisitedColor;
|
||||||
|
property BackgroundImage: string read GetBackgroundImage;
|
||||||
|
property PictureFolder: string read GetPictureFolder;
|
||||||
|
property Author: string read GetAuthor;
|
||||||
|
property Title: string read GetTitle;
|
||||||
|
property InitialPictureDir: String read FInitialDir write SetInitialDir;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
const
|
||||||
|
idxExternal = 0;
|
||||||
|
idxInternal = 1;
|
||||||
|
|
||||||
|
tagDefSheet = 1;
|
||||||
|
tagPrintSheet = 2;
|
||||||
|
tagBackColor = 3;
|
||||||
|
tagTextColor = 4;
|
||||||
|
tagLinkColor = 5;
|
||||||
|
tagVisitedColor = 6;
|
||||||
|
tagBackImg = 7;
|
||||||
|
|
||||||
|
StyleFilter = 'Cascading Style Sheets (*.css)|*.css|Alle bestandend (*.*)|*.*';
|
||||||
|
|
||||||
|
HtmlDocTypeNames: THtmlDocTypeStrings = ('Html 4.01 Strict', 'Html 4.01 Transitional', 'Html 5', '');
|
||||||
|
|
||||||
|
|
||||||
|
{ TNewHtmlDlgForm }
|
||||||
|
|
||||||
|
procedure TNewHtmlDlgForm.StyleChoiceGroupClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case StyleChoicegroup.ItemIndex of
|
||||||
|
idxInternal:
|
||||||
|
begin
|
||||||
|
InlineStyleBox.Enabled := True;
|
||||||
|
ExternalStyleBox.Enabled := False;
|
||||||
|
end;
|
||||||
|
idxExternal:
|
||||||
|
begin
|
||||||
|
InlineStyleBox.Enabled := False;
|
||||||
|
ExternalStyleBox.Enabled := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetAuthor: string;
|
||||||
|
begin
|
||||||
|
Result := AuthorEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetbackgroundColor: string;
|
||||||
|
begin
|
||||||
|
Result := BackColorEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetBackgroundImage: string;
|
||||||
|
begin
|
||||||
|
Result := Trim(PictureFolder);
|
||||||
|
if (Result <> '') then
|
||||||
|
begin
|
||||||
|
Result := IncludeTrailingPathDelimiter(Result);
|
||||||
|
Result := UrlEscape(Result);
|
||||||
|
DoHtmlDirSeparators(Result);
|
||||||
|
end;
|
||||||
|
Result := Result + BackImageEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetDefaultStyleSheet: string;
|
||||||
|
begin
|
||||||
|
Result := UrlEscape(DefaultStyleSheetEdit.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetHtmlDocType: THtmlDocType;
|
||||||
|
begin
|
||||||
|
Result := THtmlDocType(DocTypeComboBox.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetLinkColor: string;
|
||||||
|
begin
|
||||||
|
Result := LinkColorEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetPictureFolder: string;
|
||||||
|
begin
|
||||||
|
Result := UrlEscape(PictureFolderEdit.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetPrintStyleSheet: string;
|
||||||
|
begin
|
||||||
|
Result := UrlEscape(PrintStyleSheetEdit.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetTextColor: string;
|
||||||
|
begin
|
||||||
|
Result := TextColorEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetTitle: string;
|
||||||
|
begin
|
||||||
|
Result := TitleEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetUseStyleSheet: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (StyleChoiceGroup.ItemIndex = idxExternal);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewHtmlDlgForm.GetVisitedColor: string;
|
||||||
|
begin
|
||||||
|
Result := VisitedLinkColorEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlgForm.SetInitialDir(AValue: String);
|
||||||
|
begin
|
||||||
|
if FInitialDir = AValue then Exit;
|
||||||
|
OpenPictureDialog.InitialDir := AValue;
|
||||||
|
FInitialDir := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlgForm.StyleBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
Tg: PtrInt;
|
||||||
|
Css: String;
|
||||||
|
begin
|
||||||
|
Tg := (Sender as TSpeedButton).Tag;
|
||||||
|
OpenDialog.Filter := StyleFilter;
|
||||||
|
OpenDialog.FilterIndex := 1;
|
||||||
|
if OpenDialog.Execute then
|
||||||
|
begin
|
||||||
|
Css := OpenDialog.FileName;
|
||||||
|
Css := ExtractFileName(Css);
|
||||||
|
case Tg of
|
||||||
|
tagDefSheet: DefaultStyleSheetEdit.Text := Css;
|
||||||
|
tagPrintSheet: PrintStyleSheetEdit.Text := Css;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlgForm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ActiveControl := TitleEdit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlgForm.ColorBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
AColor: TColor;
|
||||||
|
Tg: PtrInt;
|
||||||
|
AColorStr: String;
|
||||||
|
begin
|
||||||
|
Tg := (Sender as TSpeedButton).Tag;
|
||||||
|
if ColorDialog.Execute then
|
||||||
|
begin
|
||||||
|
AColor := ColorDialog.Color;
|
||||||
|
AColorStr := ColorToHtml(AColor);
|
||||||
|
case Tg of
|
||||||
|
tagBackColor:
|
||||||
|
begin
|
||||||
|
BackColorEdit.Text := AColorStr;
|
||||||
|
end;
|
||||||
|
tagTextColor:
|
||||||
|
begin
|
||||||
|
TextColorEdit.Text := AColorStr;
|
||||||
|
end;
|
||||||
|
tagLinkColor:
|
||||||
|
begin
|
||||||
|
LinkColorEdit.Text := AColorStr;
|
||||||
|
end;
|
||||||
|
tagVisitedColor:
|
||||||
|
begin
|
||||||
|
VisitedLinkColorEdit.Text := AColorStr;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlgForm.ImgBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if OpenPictureDialog.Execute then
|
||||||
|
begin
|
||||||
|
BackImageEdit.Text := ExtractFileName(OpenPictureDialog.FileName);
|
||||||
|
FInitialDir := ExtractFilePath(OpenPictureDialog.FileName);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNewHtmlDlgForm.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
h: THtmlDocType;
|
||||||
|
begin
|
||||||
|
DefSheetBtn.Tag := tagDefSheet;
|
||||||
|
PrintSheetBtn.Tag := tagPrintSheet;
|
||||||
|
BackColorBtn.Tag := tagBackColor;
|
||||||
|
TextColorBtn.Tag := tagTextColor;
|
||||||
|
LinkColorBtn.Tag := tagLinkColor;
|
||||||
|
VisitedColorBtn.Tag := tagVisitedColor;
|
||||||
|
BackImgBtn.Tag := tagBackImg;
|
||||||
|
DocTypeComboBox.Clear;
|
||||||
|
StyleChoiceGroupClick(Self);
|
||||||
|
for h := Low(THtmlDocType) to High(THtmlDocType) do DocTypeComboBox.Items.Add(HtmlDoctypeNames[h]);
|
||||||
|
DocTypeComboBox.ItemIndex := ord (DocType_Html_401_Strict);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
117
applications/lazedit/newtableform.lfm
Normal file
117
applications/lazedit/newtableform.lfm
Normal file
@ -0,0 +1,117 @@
|
|||||||
|
object NewTableForm: TNewTableForm
|
||||||
|
Left = 656
|
||||||
|
Height = 266
|
||||||
|
Top = 123
|
||||||
|
Width = 251
|
||||||
|
Caption = 'Tabel invoegen'
|
||||||
|
ClientHeight = 266
|
||||||
|
ClientWidth = 251
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.31'
|
||||||
|
object SummaryEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 32
|
||||||
|
Width = 216
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'SummaryEdit'
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 16
|
||||||
|
Width = 91
|
||||||
|
Caption = 'Tabelsamenvatting'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object RowEdit: TSpinEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 88
|
||||||
|
Width = 88
|
||||||
|
MaxValue = 10000
|
||||||
|
MinValue = 1
|
||||||
|
TabOrder = 1
|
||||||
|
Value = 2
|
||||||
|
end
|
||||||
|
object ColEdit: TSpinEdit
|
||||||
|
Left = 144
|
||||||
|
Height = 21
|
||||||
|
Top = 88
|
||||||
|
Width = 88
|
||||||
|
MaxValue = 10000
|
||||||
|
MinValue = 1
|
||||||
|
TabOrder = 2
|
||||||
|
Value = 2
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 68
|
||||||
|
Width = 53
|
||||||
|
Caption = 'Aantal rijen'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 146
|
||||||
|
Height = 14
|
||||||
|
Top = 68
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Aantal kolommen'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 120
|
||||||
|
Width = 12
|
||||||
|
Caption = 'ID'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object IdEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 136
|
||||||
|
Width = 216
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'IdEdit'
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 168
|
||||||
|
Width = 26
|
||||||
|
Caption = 'Class'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ClassEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 184
|
||||||
|
Width = 216
|
||||||
|
TabOrder = 4
|
||||||
|
Text = 'ClassEdit'
|
||||||
|
end
|
||||||
|
object OkBtn: TBitBtn
|
||||||
|
Left = 157
|
||||||
|
Height = 30
|
||||||
|
Top = 224
|
||||||
|
Width = 75
|
||||||
|
Default = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkOK
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object CancelBtn: TBitBtn
|
||||||
|
Left = 72
|
||||||
|
Height = 30
|
||||||
|
Top = 224
|
||||||
|
Width = 75
|
||||||
|
Cancel = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkCancel
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
end
|
||||||
87
applications/lazedit/newtableform.pp
Normal file
87
applications/lazedit/newtableform.pp
Normal file
@ -0,0 +1,87 @@
|
|||||||
|
unit NewTableForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||||
|
Spin, Buttons;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TNewTableForm }
|
||||||
|
|
||||||
|
TNewTableForm = class(TForm)
|
||||||
|
CancelBtn: TBitBtn;
|
||||||
|
OkBtn: TBitBtn;
|
||||||
|
ClassEdit: TEdit;
|
||||||
|
IdEdit: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
RowEdit: TSpinEdit;
|
||||||
|
ColEdit: TSpinEdit;
|
||||||
|
SummaryEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
function GetColCount: integer;
|
||||||
|
function GetDomClass: String;
|
||||||
|
function GetDomId: String;
|
||||||
|
function GetRowCount: Integer;
|
||||||
|
function GetSummary: string;
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
property Summary: string read GetSummary;
|
||||||
|
property DomId: String read GetDomId;
|
||||||
|
property DomClass: String read GetDomClass;
|
||||||
|
property RowCount: Integer read GetRowCount;
|
||||||
|
property ColCount: integer read GetColCount;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TNewTableForm }
|
||||||
|
|
||||||
|
procedure TNewTableForm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SummaryEdit.Text := '';
|
||||||
|
IdEdit.Text := '';;
|
||||||
|
ClassEdit.Text := '';
|
||||||
|
ActiveControl := SummaryEdit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewTableForm.GetColCount: integer;
|
||||||
|
begin
|
||||||
|
Result := ColEdit.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewTableForm.GetDomClass: String;
|
||||||
|
begin
|
||||||
|
Result := ClassEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewTableForm.GetDomId: String;
|
||||||
|
begin
|
||||||
|
Result := IdEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewTableForm.GetRowCount: Integer;
|
||||||
|
begin
|
||||||
|
Result := RowEdit.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNewTableForm.GetSummary: string;
|
||||||
|
begin
|
||||||
|
Result := SummaryEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
227
applications/lazedit/picturedlgform.lfm
Normal file
227
applications/lazedit/picturedlgform.lfm
Normal file
@ -0,0 +1,227 @@
|
|||||||
|
object PictureDlgForm: TPictureDlgForm
|
||||||
|
Left = 806
|
||||||
|
Height = 398
|
||||||
|
Top = 147
|
||||||
|
Width = 396
|
||||||
|
Caption = 'Plaatje invoegen'
|
||||||
|
ClientHeight = 398
|
||||||
|
ClientWidth = 396
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.31'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Bestandsnaam'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object SrcEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 24
|
||||||
|
Width = 320
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object OpenBtn: TSpeedButton
|
||||||
|
Left = 352
|
||||||
|
Height = 22
|
||||||
|
Top = 24
|
||||||
|
Width = 23
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00005E8E8D005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D8CBD005D
|
||||||
|
8CBD005D8CBD005D8CBD005D8CBD005E8E8D005B8900005B890000679AB06AB7
|
||||||
|
DAFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CCEDFF82CC
|
||||||
|
EDFF82CCEDFF82CCEDFF83CDEEFF318DB9C9005E8E40005F8F000070A9A256AA
|
||||||
|
CEFF80CBEAFF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9E9FF7EC9
|
||||||
|
E9FF7EC9E9FF7EC9E9FF7EC9E9FF57AFD6D90066996E006699000074AD9D44A1
|
||||||
|
CBFF8AD3EFFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CDEBFF83CD
|
||||||
|
EBFF83CDEBFF83CDEBFF83CDEBFF81CDEBF2006FA8930071AB010076B29952B0
|
||||||
|
D7FF85D2EDFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2EEFF89D2
|
||||||
|
EEFF89D2EEFF89D2EEFF89D2EEFF90D8F1FF228EC1AA0077B31D0079B69574CA
|
||||||
|
E8FF75CAE8FF90D8F2FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7F1FF8FD7
|
||||||
|
F1FF8FD7F1FF8FD7F1FF8FD7F1FF91D8F2FF4FB1DAC2007FBD46007CBA928FDD
|
||||||
|
F4FF63C0E5FFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EE
|
||||||
|
FAFFA8EEFAFFA8EEFAFFA8EEFAFFA8EEFAFF86D8EFDE0083C571007FBD8EA6EC
|
||||||
|
FCFF64C2E9FF4FB5E2FF4DB4E2FF4CB3E1FF4BB2E0FF49B1DFFF48B0DFFF47AE
|
||||||
|
DEFF45ADDDFF44ACDDFF46AEDFFF0084C6C70087CB810087CB610081C18BABF0
|
||||||
|
FEFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DCF4FF91D9
|
||||||
|
F3FF8ED7F1FF8BD4F0FF90D8F3FF0081C18B0087CA000087CB000083C488ADF1
|
||||||
|
FFFFA6EBFDFFA4E9FCFFA2E7FBFF9FE5FAFF9CE3F8FF9AE1F7FF97DEF6FF94DC
|
||||||
|
F4FF91D9F3FF8ED7F1FF93DAF4FF0083C4880083C4000085C8000085C785B0F4
|
||||||
|
FFFFADF1FFFFABF0FEFFA9EEFDFFA7ECFCFFA5EAFBFFA2E8FAFFA0E6F9FF9DE3
|
||||||
|
F8FF9AE1F7FF98DFF6FF99E0F7FF0085C7850085C7000085C7000087CA620087
|
||||||
|
CA830087CA830087CA830087CA830087CA830087CA83FEFEFDFFF5F5EEFFEBEB
|
||||||
|
DDFFFEC941FFF4B62EFF0087CA830087CA620086C9000086C9000087CA000087
|
||||||
|
CA000087CA000087CA000087CA000087CA000088CC2E0088CC810088CC810088
|
||||||
|
CC810088CC810088CC810088CC2E0087CA000086C9000086C900FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = OpenBtnClick
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 56
|
||||||
|
Width = 147
|
||||||
|
Caption = 'Standaard lokatie voor plaatjes'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object DefFolderEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 72
|
||||||
|
Width = 359
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 104
|
||||||
|
Width = 39
|
||||||
|
Caption = 'Alt tekst'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object AltEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 120
|
||||||
|
Width = 176
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 200
|
||||||
|
Height = 14
|
||||||
|
Top = 104
|
||||||
|
Width = 47
|
||||||
|
Caption = 'Title tekst'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object TitleEdit: TEdit
|
||||||
|
Left = 200
|
||||||
|
Height = 21
|
||||||
|
Top = 120
|
||||||
|
Width = 175
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 152
|
||||||
|
Width = 38
|
||||||
|
Caption = 'Breedte'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object WidthEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 168
|
||||||
|
Width = 176
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 200
|
||||||
|
Height = 14
|
||||||
|
Top = 152
|
||||||
|
Width = 36
|
||||||
|
Caption = 'Hoogte'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object HeightEdit: TEdit
|
||||||
|
Left = 200
|
||||||
|
Height = 21
|
||||||
|
Top = 168
|
||||||
|
Width = 175
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 200
|
||||||
|
Width = 12
|
||||||
|
Caption = 'ID'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object IdEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 216
|
||||||
|
Width = 359
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 248
|
||||||
|
Width = 26
|
||||||
|
Caption = 'Class'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ClassEdit: TEdit
|
||||||
|
Left = 16
|
||||||
|
Height = 21
|
||||||
|
Top = 264
|
||||||
|
Width = 359
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object FloatGroup: TRadioGroup
|
||||||
|
Left = 16
|
||||||
|
Height = 41
|
||||||
|
Top = 296
|
||||||
|
Width = 359
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Float stijl'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 3
|
||||||
|
ClientHeight = 23
|
||||||
|
ClientWidth = 355
|
||||||
|
Columns = 3
|
||||||
|
ItemIndex = 2
|
||||||
|
Items.Strings = (
|
||||||
|
'Links'
|
||||||
|
'Rechts'
|
||||||
|
'Geen'
|
||||||
|
)
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object OkBtn: TBitBtn
|
||||||
|
Left = 300
|
||||||
|
Height = 30
|
||||||
|
Top = 352
|
||||||
|
Width = 75
|
||||||
|
Default = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkOK
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object CancelBtn: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 30
|
||||||
|
Top = 352
|
||||||
|
Width = 75
|
||||||
|
Cancel = True
|
||||||
|
DefaultCaption = True
|
||||||
|
Kind = bkCancel
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object OpenPictureDialog: TOpenPictureDialog
|
||||||
|
left = 48
|
||||||
|
top = 344
|
||||||
|
end
|
||||||
|
end
|
||||||
175
applications/lazedit/picturedlgform.pp
Normal file
175
applications/lazedit/picturedlgform.pp
Normal file
@ -0,0 +1,175 @@
|
|||||||
|
unit PictureDlgForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||||
|
Buttons, ExtCtrls, ExtDlgs, {PicsLib,} HtmlCode;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPictureDlgForm }
|
||||||
|
|
||||||
|
TPictureDlgForm = class(TForm)
|
||||||
|
AltEdit: TEdit;
|
||||||
|
CancelBtn: TBitBtn;
|
||||||
|
OkBtn: TBitBtn;
|
||||||
|
DefFolderEdit: TEdit;
|
||||||
|
ClassEdit: TEdit;
|
||||||
|
IdEdit: TEdit;
|
||||||
|
HeightEdit: TEdit;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
FloatGroup: TRadioGroup;
|
||||||
|
OpenPictureDialog: TOpenPictureDialog;
|
||||||
|
WidthEdit: TEdit;
|
||||||
|
Label5: TLabel;
|
||||||
|
TitleEdit: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
OpenBtn: TSpeedButton;
|
||||||
|
SrcEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure OpenBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
FInitialDir: string;
|
||||||
|
function GetAlt: String;
|
||||||
|
function GetDefaultFolderPrefix: String;
|
||||||
|
function GetDomClass: String;
|
||||||
|
function GetDomId: String;
|
||||||
|
function GetFloatStyle: String;
|
||||||
|
function GetPicHeight: String;
|
||||||
|
function GetPicWidth: String;
|
||||||
|
function GetSrc: String;
|
||||||
|
function GetTitle: String;
|
||||||
|
procedure SetDefaultFolderPrefix(AValue: String);
|
||||||
|
procedure SetInitialDir(AValue: string);
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
property Src: String read GetSrc;
|
||||||
|
property DomId: String read GetDomId;
|
||||||
|
property DomClass: String read GetDomClass;
|
||||||
|
property FloatStyle: String read GetFloatStyle;
|
||||||
|
property PicWidth: String read GetPicWidth;
|
||||||
|
property PicHeight: String read GetPicHeight;
|
||||||
|
property Alt: String read GetAlt;
|
||||||
|
property Title: String read GetTitle;
|
||||||
|
property InitialDir: string read FInitialDir write SetInitialDir;
|
||||||
|
property DefaultFolderPrefix: String read GetDefaultFolderPrefix write SetDefaultFolderPrefix;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
const
|
||||||
|
idxLeft = 0;
|
||||||
|
idxRight = 1;
|
||||||
|
idxNone = 2;
|
||||||
|
|
||||||
|
{ TPictureDlgForm }
|
||||||
|
|
||||||
|
procedure TPictureDlgForm.OpenBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
Fn: String;
|
||||||
|
W, H: dword;
|
||||||
|
begin
|
||||||
|
if OpenPictureDialog.Execute then
|
||||||
|
begin
|
||||||
|
Fn := OpenPictureDialog.FileName;
|
||||||
|
FInitialDir := ExtractFileDir(Fn);
|
||||||
|
SrcEdit.Text := ExtractFileName(Fn);
|
||||||
|
{if GetImageSize(Fn, W, H) then
|
||||||
|
begin
|
||||||
|
WidthEdit.Text := IntToStr(W);
|
||||||
|
HeightEdit.Text := IntToStr(H);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
WidthEdit.Text := '';
|
||||||
|
HeightEdit.Text := '';
|
||||||
|
end;}
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPictureDlgForm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SrcEdit.Text := '';
|
||||||
|
AltEdit.Text := '';
|
||||||
|
TitleEdit.Text := '';
|
||||||
|
WidthEdit.Text := '';
|
||||||
|
HeightEdit.Text := '';
|
||||||
|
ActiveControl := SrcEdit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetAlt: String;
|
||||||
|
begin
|
||||||
|
Result := AltEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetDefaultFolderPrefix: String;
|
||||||
|
begin
|
||||||
|
Result := DefFolderEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetDomClass: String;
|
||||||
|
begin
|
||||||
|
Result := ClassEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetDomId: String;
|
||||||
|
begin
|
||||||
|
Result := IdEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetFloatStyle: String;
|
||||||
|
begin
|
||||||
|
case FloatGroup.ItemIndex of
|
||||||
|
idxLeft: Result := 'left';
|
||||||
|
idxRight: Result := 'right';
|
||||||
|
else Result := '';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetPicHeight: String;
|
||||||
|
begin
|
||||||
|
Result := HeightEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetPicWidth: String;
|
||||||
|
begin
|
||||||
|
Result := WidthEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetSrc: String;
|
||||||
|
begin
|
||||||
|
Result := UrlEscape(SrcEdit.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPictureDlgForm.GetTitle: String;
|
||||||
|
begin
|
||||||
|
Result := TitleEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPictureDlgForm.SetDefaultFolderPrefix(AValue: String);
|
||||||
|
begin
|
||||||
|
DefFolderEdit.Text := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPictureDlgForm.SetInitialDir(AValue: string);
|
||||||
|
begin
|
||||||
|
OpenPictureDialog.InitialDir := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Reference in New Issue
Block a user