You've already forked lazarus-ccr
fpspreadsheet: add new demo "wikitablemaker" which implements an editor for wiki tables and shows the generated wiki code in a SynEdit.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3609 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
10
components/fpspreadsheet/examples/wikitablemaker/readme.txt
Normal file
10
components/fpspreadsheet/examples/wikitablemaker/readme.txt
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
WikiTableMaker implements an editor for tables to be used in wikis.
|
||||||
|
|
||||||
|
Load a spreadsheet file into the worksheet grid, or type in the data needed.
|
||||||
|
Go to page "code" to see the wiki code. Copy it to the clipboard and paste it
|
||||||
|
into the wiki source page.
|
||||||
|
|
||||||
|
Technically, WikiTableMaker is a moderately stripped-down version of the
|
||||||
|
spready demo. The worksheet grid, however, is created at run-time. Therefore,
|
||||||
|
it is not necessary to install the laz_fpspreadsheet package to run this
|
||||||
|
sample project.
|
||||||
@ -0,0 +1,730 @@
|
|||||||
|
unit SynHighlighterWikitable;
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$MODE OBJFPC}{$H+}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes,
|
||||||
|
LCLIntf, LCLType,
|
||||||
|
Controls, Graphics,
|
||||||
|
SynEditTypes, SynEditHighlighter;
|
||||||
|
|
||||||
|
type
|
||||||
|
TtkTokenKind = (tkAmpersand, tkComment, tkIdentifier, tkNull, tkNumber,
|
||||||
|
tkSpace, tkString, tkSymbol, tkText, tkUnknown);
|
||||||
|
{
|
||||||
|
TtkTokenKind = (tkComment, tkIdentifier, tkKey, tkNull, tkNumber, tkSpace,
|
||||||
|
tkString, tkSymbol, tkUnknown);
|
||||||
|
}
|
||||||
|
|
||||||
|
TRangeState = (rsUnknown, rsSymbol, rsParam, rsValue, rsComment, rsText, rsAmpersand);
|
||||||
|
|
||||||
|
TProcTableProc = procedure of object;
|
||||||
|
|
||||||
|
PIdentFuncTableFunc = ^TIdentFuncTableFunc;
|
||||||
|
TIdentFuncTableFunc = function: TtkTokenKind of object;
|
||||||
|
|
||||||
|
TSynWikiTableSyn = class(TSynCustomHighlighter)
|
||||||
|
private
|
||||||
|
FLine: PChar;
|
||||||
|
FLineNumber: Integer;
|
||||||
|
FTokenPos: Integer;
|
||||||
|
FTokenID: TtkTokenKind;
|
||||||
|
FRange: TRangeState;
|
||||||
|
Run: LongInt;
|
||||||
|
FAmpersandCode: Integer;
|
||||||
|
FStringLen: Integer;
|
||||||
|
FToIdent: PChar;
|
||||||
|
FProcTable: array[#0..#255] of TProcTableProc;
|
||||||
|
FIdentFuncTable: array[0..255] of TIdentFuncTableFunc;
|
||||||
|
FCommentAttri: TSynHighlighterAttributes;
|
||||||
|
FNumberAttri: TSynHighlighterAttributes;
|
||||||
|
FSpaceAttri: TSynHighlighterAttributes;
|
||||||
|
FSymbolAttri: TSynHighlighterAttributes;
|
||||||
|
(*
|
||||||
|
FIdentifierAttri: TSynHighlighterAttributes;
|
||||||
|
FKeyAttri: TSynHighlighterAttributes;
|
||||||
|
FNumberAttri: TSynHighlighterAttributes;
|
||||||
|
FStringAttri: TSynHighlighterAttributes;
|
||||||
|
*)
|
||||||
|
procedure InitIdent;
|
||||||
|
function IdentKind(MayBe: PChar): TtkTokenKind;
|
||||||
|
function KeyHash(ToHash: PChar): Integer;
|
||||||
|
function KeyComp(const aKey: string): Boolean;
|
||||||
|
procedure MakeMethodTables;
|
||||||
|
|
||||||
|
procedure AmpersandProc;
|
||||||
|
procedure BarProc;
|
||||||
|
procedure BeginProc;
|
||||||
|
procedure CommentProc;
|
||||||
|
procedure CRProc;
|
||||||
|
procedure ExclamProc;
|
||||||
|
procedure LFProc;
|
||||||
|
procedure IdentProc;
|
||||||
|
procedure NullProc;
|
||||||
|
procedure NumberProc;
|
||||||
|
procedure SpaceProc;
|
||||||
|
procedure StringProc;
|
||||||
|
procedure TextProc;
|
||||||
|
procedure UnknownProc;
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override;
|
||||||
|
function GetEol: Boolean; override;
|
||||||
|
function GetToken: string; override;
|
||||||
|
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
|
||||||
|
function GetTokenID: TtkTokenKind;
|
||||||
|
function GetTokenAttribute: TSynHighlighterAttributes; override;
|
||||||
|
function GetTokenKind: integer; override;
|
||||||
|
function GetTokenPos: Integer; override;
|
||||||
|
procedure Next; override;
|
||||||
|
procedure SetLine(const NewValue: String; LineNumber: Integer); override;
|
||||||
|
published
|
||||||
|
property CommentAttri: TSynHighlighterAttributes
|
||||||
|
read FCommentAttri write FCommentAttri;
|
||||||
|
property NumberAttri: TSynHighlighterAttributes
|
||||||
|
read FNumberAttri write FNumberAttri;
|
||||||
|
property SpaceAttri: TSynHighlighterAttributes
|
||||||
|
read FSpaceAttri write FSpaceAttri;
|
||||||
|
property SymbolAttri: TSynHighlighterAttributes
|
||||||
|
read FSymbolAttri write FSymbolAttri;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
SynEditStrConst;
|
||||||
|
|
||||||
|
const
|
||||||
|
// to do: remove next line when this identifier is in stable
|
||||||
|
SYN_ATTR_NUMBER = 6; // not available in Laz 1.2.4
|
||||||
|
|
||||||
|
MAX_ESCAPEAMPS = 159;
|
||||||
|
|
||||||
|
EscapeAmps: array[0..MAX_ESCAPEAMPS - 1] of PChar = (
|
||||||
|
('&'), { & }
|
||||||
|
('<'), { > }
|
||||||
|
('>'), { < }
|
||||||
|
('"'), { " }
|
||||||
|
('™'), { }
|
||||||
|
(' '), { space }
|
||||||
|
('©'), { © }
|
||||||
|
('®'), { ® }
|
||||||
|
('À'), { À }
|
||||||
|
('Á'), { Á }
|
||||||
|
('Â'), { Â }
|
||||||
|
('Ã'), { Ã }
|
||||||
|
('Ä'), { Ä }
|
||||||
|
('Å'), { Å }
|
||||||
|
('Æ'), { Æ }
|
||||||
|
('Ç'), { Ç }
|
||||||
|
('È'), { È }
|
||||||
|
('É'), { É }
|
||||||
|
('Ê'), { Ê }
|
||||||
|
('Ë'), { Ë }
|
||||||
|
('Ì'), { Ì }
|
||||||
|
('Í'), { Í }
|
||||||
|
('Î'), { Î }
|
||||||
|
('Ï'), { Ï }
|
||||||
|
('Ð'), { Ð }
|
||||||
|
('Ñ'), { Ñ }
|
||||||
|
('Ò'), { Ò }
|
||||||
|
('Ó'), { Ó }
|
||||||
|
('Ô'), { Ô }
|
||||||
|
('Õ'), { Õ }
|
||||||
|
('Ö'), { Ö }
|
||||||
|
('Ø'), { Ø }
|
||||||
|
('Ù'), { Ù }
|
||||||
|
('Ú'), { Ú }
|
||||||
|
('Û'), { Û }
|
||||||
|
('Ü'), { Ü }
|
||||||
|
('Ý'), { Ý }
|
||||||
|
('Þ'), { Þ }
|
||||||
|
('ß'), { ß }
|
||||||
|
('à'), { à }
|
||||||
|
('á'), { á }
|
||||||
|
('â'), { â }
|
||||||
|
('ã'), { ã }
|
||||||
|
('ä'), { ä }
|
||||||
|
('å'), { å }
|
||||||
|
('æ'), { æ }
|
||||||
|
('ç'), { ç }
|
||||||
|
('è'), { è }
|
||||||
|
('é'), { é }
|
||||||
|
('ê'), { ê }
|
||||||
|
('ë'), { ë }
|
||||||
|
('ì'), { ì }
|
||||||
|
('í'), { í }
|
||||||
|
('î'), { î }
|
||||||
|
('ï'), { ï }
|
||||||
|
('ð'), { ð }
|
||||||
|
('ñ'), { ñ }
|
||||||
|
('ò'), { ò }
|
||||||
|
('ó'), { ó }
|
||||||
|
('ô'), { ô }
|
||||||
|
('õ'), { õ }
|
||||||
|
('ö'), { ö }
|
||||||
|
('ø'), { ø }
|
||||||
|
('ù'), { ù }
|
||||||
|
('ú'), { ú }
|
||||||
|
('û'), { û }
|
||||||
|
('ü'), { ü }
|
||||||
|
('ý'), { ý }
|
||||||
|
('þ'), { þ }
|
||||||
|
('ÿ'), { ÿ }
|
||||||
|
('¡'), { ¡ }
|
||||||
|
('¢'), { ¢ }
|
||||||
|
('£'), { £ }
|
||||||
|
('¤'), { ¤ }
|
||||||
|
('¥'), { ¥ }
|
||||||
|
('¦'), { ¦ }
|
||||||
|
('§'), { § }
|
||||||
|
('¨'), { ¨ }
|
||||||
|
('ª'), { ª }
|
||||||
|
('«'), { « }
|
||||||
|
('­'), { ¬ }
|
||||||
|
('¯'), { ¯ }
|
||||||
|
('°'), { ° }
|
||||||
|
('±'), { ± }
|
||||||
|
('²'), { ² }
|
||||||
|
('³'), { ³ }
|
||||||
|
('´'), { ´ }
|
||||||
|
('µ'), { µ }
|
||||||
|
('·'), { · }
|
||||||
|
('¸'), { ¸ }
|
||||||
|
('¹'), { ¹ }
|
||||||
|
('º'), { º }
|
||||||
|
('»'), { » }
|
||||||
|
('¼'), { ¼ }
|
||||||
|
('½'), { ½ }
|
||||||
|
('¾'), { ¾ }
|
||||||
|
('¿'), { ¿ }
|
||||||
|
('×'), { × }
|
||||||
|
('÷'), { ÷ }
|
||||||
|
('€'), { }
|
||||||
|
('‰'),
|
||||||
|
('„'),
|
||||||
|
('”'),
|
||||||
|
('‘'),
|
||||||
|
('’'),
|
||||||
|
('–'),
|
||||||
|
('—'),
|
||||||
|
('•'),
|
||||||
|
//used by very old HTML editors
|
||||||
|
('	'), { TAB }
|
||||||
|
(''), { }
|
||||||
|
('€'), { }
|
||||||
|
(''), { }
|
||||||
|
('‚'), { }
|
||||||
|
('ƒ'), { }
|
||||||
|
('„'), { }
|
||||||
|
('&ldots;'), {
}
|
||||||
|
('†'), { }
|
||||||
|
('‡'), { }
|
||||||
|
('ˆ'), { }
|
||||||
|
('‰'), { }
|
||||||
|
('Š'), { }
|
||||||
|
('‹'), { }
|
||||||
|
('Œ'), { }
|
||||||
|
(''), { }
|
||||||
|
('Ž'), { }
|
||||||
|
(''), { }
|
||||||
|
(''), { }
|
||||||
|
('˜'), { }
|
||||||
|
('™'), { }
|
||||||
|
('š'), { }
|
||||||
|
('›'), { }
|
||||||
|
('œ'), { }
|
||||||
|
(''), { }
|
||||||
|
('ž'), { }
|
||||||
|
('Ÿ'), { }
|
||||||
|
('¡'), { ¡ }
|
||||||
|
('¢'), { ¢ }
|
||||||
|
('£'), { £ }
|
||||||
|
('¤'), { ¤ }
|
||||||
|
('¥'), { ¥ }
|
||||||
|
('¦'), { ¦ }
|
||||||
|
('§'), { § }
|
||||||
|
('¨'), { ¨ }
|
||||||
|
('ª'), { ª }
|
||||||
|
('¯'), { » }
|
||||||
|
('°'), { ° }
|
||||||
|
('±'), { ± }
|
||||||
|
('²'), { ² }
|
||||||
|
('´'), { ´ }
|
||||||
|
('µ'), { µ }
|
||||||
|
('·'), { · }
|
||||||
|
('¸'), { ¸ }
|
||||||
|
('¹'), { ¹ }
|
||||||
|
('º'), { º }
|
||||||
|
('¼'), { ¼ }
|
||||||
|
('½'), { ½ }
|
||||||
|
('¾'), { ¾ }
|
||||||
|
('¿'), { ¿ }
|
||||||
|
('×')); { Ô }
|
||||||
|
|
||||||
|
var
|
||||||
|
Identifiers: array[#0..#255] of ByteBool;
|
||||||
|
mHashTable: array[#0..#255] of Integer;
|
||||||
|
|
||||||
|
procedure MakeIdentTable;
|
||||||
|
var
|
||||||
|
I, J: Char;
|
||||||
|
begin
|
||||||
|
for I := #0 to #255 do begin
|
||||||
|
case I of
|
||||||
|
'a'..'z', 'A'..'Z', '-', '_', '0'..'9','@': Identifiers[I] := True;
|
||||||
|
else
|
||||||
|
Identifiers[I] := False;
|
||||||
|
end;
|
||||||
|
J := UpCase(I);
|
||||||
|
if I in ['a'..'z', 'A'..'Z', '-', '_','@'] then
|
||||||
|
mHashTable[I] := Ord(J) - 64
|
||||||
|
else
|
||||||
|
mHashTable[I] := 0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TSynWikiTableSyn.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
|
||||||
|
FCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment);
|
||||||
|
FCommentAttri.Style := [fsItalic];
|
||||||
|
FCommentAttri.Foreground := clTeal;
|
||||||
|
AddAttribute(FCommentAttri);
|
||||||
|
|
||||||
|
FNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber);
|
||||||
|
FNumberAttri.Foreground := clBlue;
|
||||||
|
AddAttribute(fNumberAttri);
|
||||||
|
|
||||||
|
FSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace);
|
||||||
|
AddAttribute(FSpaceAttri);
|
||||||
|
|
||||||
|
FSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
|
||||||
|
FSymbolAttri.Style := [fsBold];
|
||||||
|
FSymbolAttri.Foreground := clPurple;
|
||||||
|
AddAttribute(fSymbolAttri);
|
||||||
|
|
||||||
|
(*
|
||||||
|
fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
|
||||||
|
AddAttribute(fIdentifierAttri);
|
||||||
|
|
||||||
|
fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrKey, SYNS_XML_AttrKey);
|
||||||
|
fKeyAttri.Style := [fsBold];
|
||||||
|
AddAttribute(fKeyAttri);
|
||||||
|
|
||||||
|
fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString);
|
||||||
|
AddAttribute(fStringAttri);
|
||||||
|
*)
|
||||||
|
|
||||||
|
SetAttributesOnChange(@DefHighlightChange);
|
||||||
|
InitIdent;
|
||||||
|
MakeMethodTables;
|
||||||
|
// fDefaultFilter := SYNS_FilterCSS;
|
||||||
|
FRange := rsUnknown;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.AmpersandProc;
|
||||||
|
begin
|
||||||
|
case FAmpersandCode of
|
||||||
|
Low(EscapeAmps)..High(EscapeAmps):
|
||||||
|
begin
|
||||||
|
FTokenID := tkAmpersand;
|
||||||
|
inc(Run, StrLen(EscapeAmps[FAmpersandCode]));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
FAmpersandCode := -1;
|
||||||
|
FRange := rsText;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.BarProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
FRange := rsSymbol;
|
||||||
|
inc(Run);
|
||||||
|
if FLine[Run] in ['-', '}'] then inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.BeginProc;
|
||||||
|
begin
|
||||||
|
inc(Run);
|
||||||
|
if FLine[Run] = '|' then begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
FRange := rsSymbol;
|
||||||
|
inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikitableSyn.CommentProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkComment;
|
||||||
|
|
||||||
|
if (FLine[Run] in [#0, #10, #13]) then begin
|
||||||
|
FProcTable[FLine[Run]];
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
while not (FLine[Run] in [#0, #10, #13]) do begin
|
||||||
|
if (FLine[Run] = '>') and (FLine[Run - 1] = '-') and (FLine[Run - 2] = '-')
|
||||||
|
then begin
|
||||||
|
FRange := rsText;
|
||||||
|
inc(Run);
|
||||||
|
{
|
||||||
|
if TopHtmlCodeFoldBlockType = cfbtHtmlComment then
|
||||||
|
EndHtmlNodeCodeFoldBlock;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.CRProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSpace;
|
||||||
|
inc(Run);
|
||||||
|
if FLine[Run] = #10 then inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.ExclamProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
inc(Run);
|
||||||
|
if FLine[Run] = '-' then inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.GetDefaultAttribute(Index: Integer): TSynHighlighterAttributes;
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
SYN_ATTR_COMMENT : Result := FCommentAttri;
|
||||||
|
SYN_ATTR_SYMBOL : Result := FSymbolAttri;
|
||||||
|
SYN_ATTR_NUMBER : Result := FNumberAttri;
|
||||||
|
SYN_ATTR_WHITESPACE : Result := FSpaceAttri;
|
||||||
|
(*
|
||||||
|
SYN_ATTR_IDENTIFIER : Result := FIdentifierAttri;
|
||||||
|
SYN_ATTR_KEYWORD : Result := FKeyAttri;
|
||||||
|
SYN_ATTR_STRING : Result := FStringAttri;
|
||||||
|
*)
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.GetEol: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (FTokenID = tkNull);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.GetToken: string;
|
||||||
|
var
|
||||||
|
Len: LongInt;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
Len := Run - FTokenPos;
|
||||||
|
SetString(Result, (FLine + FTokenPos), Len);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.GetTokenAttribute: TSynHighlighterAttributes;
|
||||||
|
begin
|
||||||
|
case GetTokenID of
|
||||||
|
tkComment : Result := FCommentAttri;
|
||||||
|
tkSymbol : Result := FSymbolAttri;
|
||||||
|
tkNumber : Result := FNumberAttri;
|
||||||
|
tkSpace : Result := FSpaceAttri;
|
||||||
|
{
|
||||||
|
tkIdentifier: Result := FIdentifierAttri;
|
||||||
|
tkKey : Result := FKeyAttri;
|
||||||
|
tkNumber : Result := FNumberAttri;
|
||||||
|
tkString : Result := FStringAttri;
|
||||||
|
tkUnknown : Result := FIdentifierAttri;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.GetTokenEx(out TokenStart: PChar;
|
||||||
|
out TokenLength: integer);
|
||||||
|
begin
|
||||||
|
TokenLength := Run - FTokenPos;
|
||||||
|
TokenStart := FLine + FTokenPos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.GetTokenID: TtkTokenKind;
|
||||||
|
begin
|
||||||
|
Result := FTokenId;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.GetTokenKind: integer;
|
||||||
|
begin
|
||||||
|
Result := Ord(FTokenId);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.GetTokenPos: Integer;
|
||||||
|
begin
|
||||||
|
Result := FTokenPos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.IdentKind(MayBe: PChar): TtkTokenKind;
|
||||||
|
var
|
||||||
|
HashKey: Integer;
|
||||||
|
begin
|
||||||
|
FToIdent := MayBe;
|
||||||
|
HashKey := KeyHash(MayBe);
|
||||||
|
if (HashKey >= 16) and (HashKey <= 275) then
|
||||||
|
Result := fIdentFuncTable[HashKey]()
|
||||||
|
else
|
||||||
|
Result := tkIdentifier;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.IdentProc;
|
||||||
|
begin
|
||||||
|
FTokenID := IdentKind((FLine + Run));
|
||||||
|
inc(Run, FStringLen);
|
||||||
|
while Identifiers[FLine[Run]] do
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.InitIdent;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin (*
|
||||||
|
for i := 0 to 255 do
|
||||||
|
case i of
|
||||||
|
1: FIdentFuncTable[i] := @Func1;
|
||||||
|
2: FIdentFuncTable[i] := @Func2;
|
||||||
|
8: FIdentFuncTable[i] := @Func8;
|
||||||
|
9: FIdentFuncTable[i] := @Func9;
|
||||||
|
10: FIdentFuncTable[i] := @Func10;
|
||||||
|
11: FIdentFuncTable[i] := @Func11;
|
||||||
|
12: FIdentFuncTable[i] := @Func12;
|
||||||
|
13: FIdentFuncTable[i] := @Func13;
|
||||||
|
14: FIdentFuncTable[i] := @Func14;
|
||||||
|
15: FIdentFuncTable[i] := @Func15;
|
||||||
|
16: FIdentFuncTable[i] := @Func16;
|
||||||
|
17: FIdentFuncTable[i] := @Func17;
|
||||||
|
18: FIdentFuncTable[i] := @Func18;
|
||||||
|
19: FIdentFuncTable[i] := @Func19;
|
||||||
|
20: FIdentFuncTable[i] := @Func20;
|
||||||
|
21: FIdentFuncTable[i] := @Func21;
|
||||||
|
23: FIdentFuncTable[i] := @Func23;
|
||||||
|
24: FIdentFuncTable[i] := @Func24;
|
||||||
|
25: FIdentFuncTable[i] := @Func25;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.KeyComp(const aKey: string): Boolean;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
Temp: PChar;
|
||||||
|
begin
|
||||||
|
Temp := FToIdent;
|
||||||
|
if Length(aKey) = FStringLen then begin
|
||||||
|
Result := True;
|
||||||
|
for i := 1 to FStringLen do begin
|
||||||
|
if mHashTable[Temp^] <> mHashTable[aKey[i]] then begin
|
||||||
|
Result := False;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
inc(Temp);
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynWikiTableSyn.KeyHash(ToHash: PChar): Integer;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
While (ToHash^ In ['a'..'z', 'A'..'Z', '!', '/']) do begin
|
||||||
|
Inc(Result, mHashTable[ToHash^]);
|
||||||
|
Inc(ToHash);
|
||||||
|
end;
|
||||||
|
While (ToHash^ In ['0'..'9']) do begin
|
||||||
|
Inc(Result, (Ord(ToHash^) - Ord('0')) );
|
||||||
|
Inc(ToHash);
|
||||||
|
end;
|
||||||
|
FStringLen := (ToHash - FToIdent);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.LFProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSpace;
|
||||||
|
inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.MakeMethodTables;
|
||||||
|
var
|
||||||
|
ch: Char;
|
||||||
|
begin
|
||||||
|
for ch := #0 to #255 do
|
||||||
|
case ch of
|
||||||
|
#0 : FProcTable[ch] := @NullProc;
|
||||||
|
#10 : FProcTable[ch] := @LFProc;
|
||||||
|
#13 : FProcTable[ch] := @CRProc;
|
||||||
|
#1..#9, #11, #12, #14..#32 : FProcTable[ch] := @SpaceProc;
|
||||||
|
'"' : FProcTable[ch] := @StringProc;
|
||||||
|
'0'..'9' : FProcTable[ch] := @NumberProc;
|
||||||
|
'A'..'Z', 'a'..'z', '_','@' : FProcTable[ch] := @IdentProc;
|
||||||
|
'&' : FProcTable[ch] := @AmpersandProc;
|
||||||
|
'<' : FProcTable[ch] := @CommentProc;
|
||||||
|
'{' : FProcTable[ch] := @BeginProc;
|
||||||
|
'|' : FProcTable[ch] := @BarProc;
|
||||||
|
'!' : FProcTable[ch] := @ExclamProc;
|
||||||
|
|
||||||
|
// '{', '}' : FProcTable[ch] := @AsciiCharProc;
|
||||||
|
// '-' : FProcTable[ch] := @DashProc;
|
||||||
|
// '#', '$' : FProcTable[ch] := @IntegerProc;
|
||||||
|
// ')', '(' : FProcTable[ch] := @RoundOpenProc;
|
||||||
|
// '/' : FProcTable[ch] := @SlashProc;
|
||||||
|
else
|
||||||
|
FProcTable[ch] := @UnknownProc;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
(*
|
||||||
|
var
|
||||||
|
i: Char;
|
||||||
|
begin
|
||||||
|
For i := #0 To #255 do begin
|
||||||
|
case i of
|
||||||
|
#0 : FProcTable[i] := @NullProc;
|
||||||
|
#10 : FProcTable[i] := @LFProc;
|
||||||
|
#13 : FProcTable[i] := @CRProc;
|
||||||
|
#1..#9, #11, #12, #14..#32 : FProcTable[i] := @SpaceProc;
|
||||||
|
'"' : FProcTable[i] := @StringProc;
|
||||||
|
// '<' : FProcTable[i] := @BraceOpenProc;
|
||||||
|
// '>' : FProcTable[i] := @BraceCloseProc;
|
||||||
|
{ '&':
|
||||||
|
begin
|
||||||
|
fProcTable[i] := @AmpersandProc;
|
||||||
|
end;
|
||||||
|
'=':
|
||||||
|
begin
|
||||||
|
fProcTable[i] := @EqualProc;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
fProcTable[i] := @IdentProc;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
procedure TSynWikiTableSyn.Next;
|
||||||
|
begin
|
||||||
|
FTokenPos := Run;
|
||||||
|
case FRange of
|
||||||
|
rsText : TextProc;
|
||||||
|
rsComment : CommentProc;
|
||||||
|
else FProcTable[FLine[Run]];
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{
|
||||||
|
if FRange = rsCStyle then
|
||||||
|
CStyleCommentProc
|
||||||
|
else
|
||||||
|
FProcTable[FLine[Run]]();
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.NullProc;
|
||||||
|
begin
|
||||||
|
fTokenID := tkNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.NumberProc;
|
||||||
|
begin
|
||||||
|
inc(Run);
|
||||||
|
FTokenID := tkNumber;
|
||||||
|
while FLine[Run] in ['0'..'9', '.', 'e', 'E'] do begin
|
||||||
|
if ((FLine[Run] = '.') and (FLine[Run + 1] = '.')) or
|
||||||
|
((FLine[Run] = 'e') and ((FLine[Run + 1] = 'x') or (FLine[Run + 1] = 'm'))) then
|
||||||
|
Break;
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.SetLine(const NewValue: String; LineNumber: Integer);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FLine := PChar(NewValue);
|
||||||
|
Run := 0;
|
||||||
|
FLineNumber := LineNumber;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.SpaceProc;
|
||||||
|
begin
|
||||||
|
inc(Run);
|
||||||
|
FTokenID := tkSpace;
|
||||||
|
while FLine[Run] <= #32 do begin
|
||||||
|
if FLine[Run] in [#0, #9, #10, #13] then break;
|
||||||
|
inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.StringProc;
|
||||||
|
begin
|
||||||
|
(*
|
||||||
|
if (FRange = rsValue) then begin
|
||||||
|
FRange := rsParam;
|
||||||
|
FTokenID := tkValue;
|
||||||
|
end else begin
|
||||||
|
fTokenID := tkString;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
FTokenID := tkString;
|
||||||
|
inc(Run); // first '"'
|
||||||
|
while not (FLine[Run] in [#0, #10, #13, '"']) do inc(Run);
|
||||||
|
if FLine[Run] = '"' then inc(Run); // last '"'
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.TextProc;
|
||||||
|
const
|
||||||
|
StopSet = [#0..#31, '<', '&', '{', '|'];
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
if FLine[Run] in (StopSet - ['&']) then begin
|
||||||
|
FProcTable[fLine[Run]];
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
FTokenID := tkText;
|
||||||
|
while True do begin
|
||||||
|
while not (FLine[Run] in StopSet) do inc(Run);
|
||||||
|
|
||||||
|
if (FLine[Run] = '&') then begin
|
||||||
|
for i:=Low(EscapeAmps) To High(EscapeAmps) do begin
|
||||||
|
if (StrLIComp((fLine + Run), PChar(EscapeAmps[i]), StrLen(EscapeAmps[i])) = 0) then begin
|
||||||
|
fAmpersandCode := i;
|
||||||
|
fRange := rsAmpersand;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Inc(Run);
|
||||||
|
end else begin
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynWikiTableSyn.UnknownProc;
|
||||||
|
begin
|
||||||
|
inc(Run);
|
||||||
|
while (FLine[Run] in [#128..#191]) or // continued utf8 subcode
|
||||||
|
((FLine[Run] <> #0) and (FProcTable[fLine[Run]] = @UnknownProc)) do inc(Run);
|
||||||
|
FTokenID := tkUnknown;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
@ -0,0 +1,167 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="9"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<Title Value="wikitablemaker"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
<StringTable ProductVersion=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<BuildModes Count="3">
|
||||||
|
<Item1 Name="default" Default="True"/>
|
||||||
|
<Item2 Name="Debug">
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="wikitablemaker"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<OtherUnitFiles Value="../.."/>
|
||||||
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Parsing>
|
||||||
|
<SyntaxOptions>
|
||||||
|
<UseAnsiStrings Value="False"/>
|
||||||
|
</SyntaxOptions>
|
||||||
|
</Parsing>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
</Item2>
|
||||||
|
<Item3 Name="Release">
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="wikitablemaker"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Parsing>
|
||||||
|
<SyntaxOptions>
|
||||||
|
<UseAnsiStrings Value="False"/>
|
||||||
|
</SyntaxOptions>
|
||||||
|
</Parsing>
|
||||||
|
<CodeGeneration>
|
||||||
|
<SmartLinkUnit Value="True"/>
|
||||||
|
<Optimizations>
|
||||||
|
<OptimizationLevel Value="3"/>
|
||||||
|
</Optimizations>
|
||||||
|
</CodeGeneration>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<GenerateDebugInfo Value="False"/>
|
||||||
|
</Debugging>
|
||||||
|
<LinkSmart Value="True"/>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
</Item3>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LazControls"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="SynEdit"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="3">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="wikitablemaker.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="wtmain.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="MainFrm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="wtMain"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="wtmain.lfm"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit2>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="wikitablemaker"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<OtherUnitFiles Value="..\.."/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Parsing>
|
||||||
|
<SyntaxOptions>
|
||||||
|
<UseAnsiStrings Value="False"/>
|
||||||
|
</SyntaxOptions>
|
||||||
|
</Parsing>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<UseExternalDbgSyms Value="True"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="5">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<Name Value="Exception"/>
|
||||||
|
</Item4>
|
||||||
|
<Item5>
|
||||||
|
<Name Value="EStreamError"/>
|
||||||
|
</Item5>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,17 @@
|
|||||||
|
program wikitablemaker;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, lazcontrols, wtMain;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainFrm, MainFrm);
|
||||||
|
MainFrm.BeforeRun;
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
3808
components/fpspreadsheet/examples/wikitablemaker/wtmain.lfm
Normal file
3808
components/fpspreadsheet/examples/wikitablemaker/wtmain.lfm
Normal file
File diff suppressed because it is too large
Load Diff
826
components/fpspreadsheet/examples/wikitablemaker/wtmain.pas
Normal file
826
components/fpspreadsheet/examples/wikitablemaker/wtmain.pas
Normal file
@ -0,0 +1,826 @@
|
|||||||
|
unit wtMain;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Menus, ExtCtrls, ComCtrls, ActnList, Grids, ColorBox,
|
||||||
|
SynEdit, SynEditHighlighter,
|
||||||
|
SynHighlighterHTML, SynHighlighterMulti, SynHighlighterCss,
|
||||||
|
fpspreadsheetgrid, fpspreadsheet, fpsallformats;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMainFrm }
|
||||||
|
|
||||||
|
TMainFrm = class(TForm)
|
||||||
|
AcOpen: TAction;
|
||||||
|
AcSaveAs: TAction;
|
||||||
|
AcQuit: TAction;
|
||||||
|
AcLeftAlign: TAction;
|
||||||
|
AcHorCenterAlign: TAction;
|
||||||
|
AcRightAlign: TAction;
|
||||||
|
AcHorDefaultAlign: TAction;
|
||||||
|
AcFontBold: TAction;
|
||||||
|
AcFontItalic: TAction;
|
||||||
|
AcFontStrikeout: TAction;
|
||||||
|
AcFontUnderline: TAction;
|
||||||
|
AcDefaultFont: TAction;
|
||||||
|
AcBorderTop: TAction;
|
||||||
|
AcBorderBottom: TAction;
|
||||||
|
AcBorderBottomDbl: TAction;
|
||||||
|
AcBorderBottomMedium: TAction;
|
||||||
|
AcBorderLeft: TAction;
|
||||||
|
AcBorderRight: TAction;
|
||||||
|
AcBorderNone: TAction;
|
||||||
|
AcBorderHCenter: TAction;
|
||||||
|
AcBorderVCenter: TAction;
|
||||||
|
AcBorderTopBottom: TAction;
|
||||||
|
AcBorderTopBottomThick: TAction;
|
||||||
|
AcBorderInner: TAction;
|
||||||
|
AcBorderAll: TAction;
|
||||||
|
AcBorderOuter: TAction;
|
||||||
|
AcBorderOuterMedium: TAction;
|
||||||
|
AcCopyFormat: TAction;
|
||||||
|
AcNew: TAction;
|
||||||
|
AcAddColumn: TAction;
|
||||||
|
AcAddRow: TAction;
|
||||||
|
AcMergeCells: TAction;
|
||||||
|
AcShowHeaders: TAction;
|
||||||
|
AcShowGridlines: TAction;
|
||||||
|
AcDeleteColumn: TAction;
|
||||||
|
AcDeleteRow: TAction;
|
||||||
|
AcCopyToClipboard: TAction;
|
||||||
|
AcColumnTitles: TAction;
|
||||||
|
AcRowTitles: TAction;
|
||||||
|
AcVAlignDefault: TAction;
|
||||||
|
AcVAlignTop: TAction;
|
||||||
|
AcVAlignCenter: TAction;
|
||||||
|
AcVAlignBottom: TAction;
|
||||||
|
ActionList: TActionList;
|
||||||
|
MnuBorderBottom: TMenuItem;
|
||||||
|
MnuBorderBottomDbl: TMenuItem;
|
||||||
|
MnuBorderBottomThick: TMenuItem;
|
||||||
|
MnuBorderInner: TMenuItem;
|
||||||
|
MnuBorderLeft: TMenuItem;
|
||||||
|
MnuBorderRight: TMenuItem;
|
||||||
|
MnuBordersAll: TMenuItem;
|
||||||
|
MnuBordersInner: TMenuItem;
|
||||||
|
MnuBordersOuter: TMenuItem;
|
||||||
|
MnuBordersOuterThick: TMenuItem;
|
||||||
|
MnuBordersSeparator1: TMenuItem;
|
||||||
|
MnuBordersSeparator2: TMenuItem;
|
||||||
|
MnuBordersSeparator3: TMenuItem;
|
||||||
|
MnuBordersSeparator4: TMenuItem;
|
||||||
|
MnuBordersSeparator5: TMenuItem;
|
||||||
|
MnuBorderTop: TMenuItem;
|
||||||
|
MnuBorderTopBottom: TMenuItem;
|
||||||
|
MnuBorderTopBottomThick: TMenuItem;
|
||||||
|
MnuBorderVCenter: TMenuItem;
|
||||||
|
MnuFileSeparator1: TMenuItem;
|
||||||
|
MnuNew: TMenuItem;
|
||||||
|
MnuNoBorders: TMenuItem;
|
||||||
|
MnuTableSeparator1: TMenuItem;
|
||||||
|
ToolbarBevel: TBevel;
|
||||||
|
CbBackgroundColor: TColorBox;
|
||||||
|
FontComboBox: TComboBox;
|
||||||
|
FontDialog: TFontDialog;
|
||||||
|
FontSizeComboBox: TComboBox;
|
||||||
|
ImageList: TImageList;
|
||||||
|
MainMenu: TMainMenu;
|
||||||
|
MnuRowHeaders: TMenuItem;
|
||||||
|
MnuColHeaders: TMenuItem;
|
||||||
|
MnuDeleteCol: TMenuItem;
|
||||||
|
MnuTableSeparator2: TMenuItem;
|
||||||
|
MnuAddRow: TMenuItem;
|
||||||
|
MnuTableSeparator3: TMenuItem;
|
||||||
|
MnuGridlines: TMenuItem;
|
||||||
|
MnuAddCol: TMenuItem;
|
||||||
|
MnuFormatSeparator: TMenuItem;
|
||||||
|
MnuMergeCells: TMenuItem;
|
||||||
|
MnuDeleteRow: TMenuItem;
|
||||||
|
MnuLeftAlignment: TMenuItem;
|
||||||
|
MnuCenterAlignment: TMenuItem;
|
||||||
|
MnuRightAligment: TMenuItem;
|
||||||
|
MnuHorAlignmentSeparator: TMenuItem;
|
||||||
|
MnuVertAlignmentSeparator: TMenuItem;
|
||||||
|
MnuVertBottom: TMenuItem;
|
||||||
|
MnuVertCentered: TMenuItem;
|
||||||
|
MnuVertTop: TMenuItem;
|
||||||
|
MnuVertDefault: TMenuItem;
|
||||||
|
MnuVertAlignment: TMenuItem;
|
||||||
|
MnuFont: TMenuItem;
|
||||||
|
MnuHorDefault: TMenuItem;
|
||||||
|
MnuHorAlignment: TMenuItem;
|
||||||
|
MnuFormat: TMenuItem;
|
||||||
|
MnuTable: TMenuItem;
|
||||||
|
MnuFile: TMenuItem;
|
||||||
|
MnuOpen: TMenuItem;
|
||||||
|
MnuQuit: TMenuItem;
|
||||||
|
MnuSaveAs: TMenuItem;
|
||||||
|
OpenDialog: TOpenDialog;
|
||||||
|
BordersPopupMenu: TPopupMenu;
|
||||||
|
PageControl: TPageControl;
|
||||||
|
SaveDialog: TSaveDialog;
|
||||||
|
SynCssSyn1: TSynCssSyn;
|
||||||
|
SynEdit: TSynEdit;
|
||||||
|
SynHTMLSyn1: TSynHTMLSyn;
|
||||||
|
SynMultiSyn1: TSynMultiSyn;
|
||||||
|
TabControl: TTabControl;
|
||||||
|
PgTable: TTabSheet;
|
||||||
|
PgCode: TTabSheet;
|
||||||
|
CodeToolBar: TToolBar;
|
||||||
|
TbDeleteColumn: TToolButton;
|
||||||
|
TbAddRow: TToolButton;
|
||||||
|
TbMergeCells: TToolButton;
|
||||||
|
FormatToolBar: TToolBar;
|
||||||
|
TbLeftAlign: TToolButton;
|
||||||
|
TbFontStrikeout: TToolButton;
|
||||||
|
TbHorCenterAlign: TToolButton;
|
||||||
|
TbRightAlign: TToolButton;
|
||||||
|
TbVAlignTop: TToolButton;
|
||||||
|
TbVAlignCenter: TToolButton;
|
||||||
|
TbVAlignBottom: TToolButton;
|
||||||
|
TbBorders: TToolButton;
|
||||||
|
TbCopyFormat: TToolButton;
|
||||||
|
TbDefaultFont: TToolButton;
|
||||||
|
TbDeleteRow: TToolButton;
|
||||||
|
TbAddColumn: TToolButton;
|
||||||
|
TbFontBold: TToolButton;
|
||||||
|
TbFontItalic: TToolButton;
|
||||||
|
TbFontUnderline: TToolButton;
|
||||||
|
procedure AcAddColumnExecute(Sender: TObject);
|
||||||
|
procedure AcAddRowExecute(Sender: TObject);
|
||||||
|
procedure AcBorderExecute(Sender: TObject);
|
||||||
|
procedure AcColumnTitlesExecute(Sender: TObject);
|
||||||
|
procedure AcCopyFormatExecute(Sender: TObject);
|
||||||
|
procedure AcCopyToClipboardExecute(Sender: TObject);
|
||||||
|
procedure AcDeleteColumnExecute(Sender: TObject);
|
||||||
|
procedure AcDeleteRowExecute(Sender: TObject);
|
||||||
|
procedure AcDefaultFontExecute(Sender: TObject);
|
||||||
|
procedure AcFontStyleExecute(Sender: TObject);
|
||||||
|
procedure AcHorAlignmentExecute(Sender: TObject);
|
||||||
|
procedure AcMergeCellsExecute(Sender: TObject);
|
||||||
|
procedure AcNewExecute(Sender: TObject);
|
||||||
|
procedure AcOpenExecute(Sender: TObject);
|
||||||
|
procedure AcQuitExecute(Sender: TObject);
|
||||||
|
procedure AcRowTitlesExecute(Sender: TObject);
|
||||||
|
procedure AcSaveAsExecute(Sender: TObject);
|
||||||
|
procedure AcShowGridlinesExecute(Sender: TObject);
|
||||||
|
procedure AcShowHeadersExecute(Sender: TObject);
|
||||||
|
procedure AcVertAlignmentExecute(Sender: TObject);
|
||||||
|
procedure AcWordwrapExecute(Sender: TObject);
|
||||||
|
procedure CbBackgroundColorSelect(Sender: TObject);
|
||||||
|
procedure CbBackgroundColorGetColors(Sender: TCustomColorBox; Items: TStrings);
|
||||||
|
procedure FontComboBoxSelect(Sender: TObject);
|
||||||
|
procedure FontSizeComboBoxSelect(Sender: TObject);
|
||||||
|
procedure FormActivate(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure PageControlChange(Sender: TObject);
|
||||||
|
procedure TabControlChange(Sender: TObject);
|
||||||
|
procedure WorksheetGridSelection(Sender: TObject; aCol, aRow: Integer);
|
||||||
|
private
|
||||||
|
WorksheetGrid: TsWorksheetGrid;
|
||||||
|
FCopiedFormat: TCell;
|
||||||
|
FHighlighter: TSynCustomHighlighter;
|
||||||
|
procedure LoadFile(const AFileName: String);
|
||||||
|
procedure SetupBackgroundColorBox;
|
||||||
|
procedure UpdateBackgroundColorIndex;
|
||||||
|
procedure UpdateFontNameIndex;
|
||||||
|
procedure UpdateFontSizeIndex;
|
||||||
|
procedure UpdateFontStyleActions;
|
||||||
|
procedure UpdateHorAlignmentActions;
|
||||||
|
procedure UpdateVertAlignmentActions;
|
||||||
|
|
||||||
|
public
|
||||||
|
procedure BeforeRun;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainFrm: TMainFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
TypInfo, LCLIntf, LCLType, clipbrd, fpcanvas,
|
||||||
|
SynHighlighterWikiTable,
|
||||||
|
fpsutils;
|
||||||
|
|
||||||
|
const
|
||||||
|
DROPDOWN_COUNT = 24;
|
||||||
|
|
||||||
|
HORALIGN_TAG = 100;
|
||||||
|
VERTALIGN_TAG = 110;
|
||||||
|
|
||||||
|
LEFT_BORDER_THIN = $0001;
|
||||||
|
LEFT_BORDER_THICK = $0002;
|
||||||
|
LR_INNER_BORDER_THIN = $0008;
|
||||||
|
RIGHT_BORDER_THIN = $0010;
|
||||||
|
RIGHT_BORDER_THICK = $0020;
|
||||||
|
TOP_BORDER_THIN = $0100;
|
||||||
|
TOP_BORDER_THICK = $0200;
|
||||||
|
TB_INNER_BORDER_THIN = $0800;
|
||||||
|
BOTTOM_BORDER_THIN = $1000;
|
||||||
|
BOTTOM_BORDER_THICK = $2000;
|
||||||
|
BOTTOM_BORDER_DOUBLE = $3000;
|
||||||
|
LEFT_BORDER_MASK = $0007;
|
||||||
|
RIGHT_BORDER_MASK = $0070;
|
||||||
|
TOP_BORDER_MASK = $0700;
|
||||||
|
BOTTOM_BORDER_MASK = $7000;
|
||||||
|
LR_INNER_BORDER = $0008;
|
||||||
|
TB_INNER_BORDER = $0800;
|
||||||
|
// Use a combination of these bits for the "Tag" of the Border actions - see FormCreate.
|
||||||
|
|
||||||
|
|
||||||
|
{ TMainFrm }
|
||||||
|
|
||||||
|
procedure TMainFrm.AcBorderExecute(Sender: TObject);
|
||||||
|
const
|
||||||
|
LINESTYLES: Array[1..3] of TsLinestyle = (lsThin, lsMedium, lsDouble);
|
||||||
|
var
|
||||||
|
r,c: Integer;
|
||||||
|
ls: integer;
|
||||||
|
bs: TsCellBorderStyle;
|
||||||
|
begin
|
||||||
|
bs.Color := scBlack;
|
||||||
|
|
||||||
|
with WorksheetGrid do begin
|
||||||
|
TbBorders.Action := TAction(Sender);
|
||||||
|
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
if TAction(Sender).Tag = 0 then begin
|
||||||
|
CellBorders[Selection] := [];
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
// Top and bottom edges
|
||||||
|
for c := Selection.Left to Selection.Right do begin
|
||||||
|
ls := (TAction(Sender).Tag and TOP_BORDER_MASK) shr 8;
|
||||||
|
if (ls <> 0) then begin
|
||||||
|
CellBorder[c, Selection.Top] := CellBorder[c, Selection.Top] + [cbNorth];
|
||||||
|
bs.LineStyle := LINESTYLES[ls];
|
||||||
|
CellBorderStyle[c, Selection.Top, cbNorth] := bs;
|
||||||
|
end;
|
||||||
|
ls := (TAction(Sender).Tag and BOTTOM_BORDER_MASK) shr 12;
|
||||||
|
if ls <> 0 then begin
|
||||||
|
CellBorder[c, Selection.Bottom] := CellBorder[c, Selection.Bottom] + [cbSouth];
|
||||||
|
bs.LineStyle := LINESTYLES[ls];
|
||||||
|
CellBorderStyle[c, Selection.Bottom, cbSouth] := bs;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
// Left and right edges
|
||||||
|
for r := Selection.Top to Selection.Bottom do begin
|
||||||
|
ls := (TAction(Sender).Tag and LEFT_BORDER_MASK);
|
||||||
|
if ls <> 0 then begin
|
||||||
|
CellBorder[Selection.Left, r] := CellBorder[Selection.Left, r] + [cbWest];
|
||||||
|
bs.LineStyle := LINESTYLES[ls];
|
||||||
|
CellBorderStyle[Selection.Left, r, cbWest] := bs;
|
||||||
|
end;
|
||||||
|
ls := (TAction(Sender).Tag and RIGHT_BORDER_MASK) shr 4;
|
||||||
|
if ls <> 0 then begin
|
||||||
|
CellBorder[Selection.Right, r] := CellBorder[Selection.Right, r] + [cbEast];
|
||||||
|
bs.LineStyle := LINESTYLES[ls];
|
||||||
|
CellBorderStyle[Selection.Right, r, cbEast] := bs;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
// Inner edges along row (vertical border lines) - we assume only thin lines.
|
||||||
|
bs.LineStyle := lsThin;
|
||||||
|
if (TAction(Sender).Tag and LR_INNER_BORDER <> 0) and (Selection.Right > Selection.Left)
|
||||||
|
then
|
||||||
|
for r := Selection.Top to Selection.Bottom do begin
|
||||||
|
CellBorder[Selection.Left, r] := CellBorder[Selection.Left, r] + [cbEast];
|
||||||
|
CellBorderStyle[Selection.Left, r, cbEast] := bs;
|
||||||
|
for c := Selection.Left+1 to Selection.Right-1 do begin
|
||||||
|
CellBorder[c,r] := CellBorder[c, r] + [cbEast, cbWest];
|
||||||
|
CellBorderStyle[c, r, cbEast] := bs;
|
||||||
|
CellBorderStyle[c, r, cbWest] := bs;
|
||||||
|
end;
|
||||||
|
CellBorder[Selection.Right, r] := CellBorder[Selection.Right, r] + [cbWest];
|
||||||
|
CellBorderStyle[Selection.Right, r, cbWest] := bs;
|
||||||
|
end;
|
||||||
|
// Inner edges along column (horizontal border lines)
|
||||||
|
if (TAction(Sender).Tag and TB_INNER_BORDER <> 0) and (Selection.Bottom > Selection.Top)
|
||||||
|
then
|
||||||
|
for c := Selection.Left to Selection.Right do begin
|
||||||
|
CellBorder[c, Selection.Top] := CellBorder[c, Selection.Top] + [cbSouth];
|
||||||
|
CellBorderStyle[c, Selection.Top, cbSouth] := bs;
|
||||||
|
for r := Selection.Top+1 to Selection.Bottom-1 do begin
|
||||||
|
CellBorder[c, r] := CellBorder[c, r] + [cbNorth, cbSouth];
|
||||||
|
CellBorderStyle[c, r, cbNorth] := bs;
|
||||||
|
CellBorderStyle[c, r, cbSouth] := bs;
|
||||||
|
end;
|
||||||
|
CellBorder[c, Selection.Bottom] := CellBorder[c, Selection.Bottom] + [cbNorth];
|
||||||
|
CellBorderStyle[c, Selection.Bottom, cbNorth] := bs;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcColumnTitlesExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if AcColumnTitles.Checked then
|
||||||
|
WorksheetGrid.FrozenRows := 1
|
||||||
|
else
|
||||||
|
WorksheetGrid.FrozenRows := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcAddColumnExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.InsertCol(WorksheetGrid.Col);
|
||||||
|
WorksheetGrid.Col := WorksheetGrid.Col + 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcAddRowExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.InsertRow(WorksheetGrid.Row);
|
||||||
|
WorksheetGrid.Row := WorksheetGrid.Row + 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcCopyFormatExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
cell: PCell;
|
||||||
|
r, c: Cardinal;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do begin
|
||||||
|
if Workbook = nil then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if AcCopyFormat.Checked then begin
|
||||||
|
r := GetWorksheetRow(Row);
|
||||||
|
c := GetWorksheetCol(Col);
|
||||||
|
cell := Worksheet.FindCell(r, c);
|
||||||
|
if cell <> nil then
|
||||||
|
FCopiedFormat := cell^;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcCopyToClipboardExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if SynEdit.Lines.Count > 0 then
|
||||||
|
Clipboard.AsText := SynEdit.Lines.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcDeleteColumnExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
c: Integer;
|
||||||
|
begin
|
||||||
|
c := WorksheetGrid.Col;
|
||||||
|
WorksheetGrid.DeleteCol(c);
|
||||||
|
WorksheetGrid.Col := c;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcDeleteRowExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
r: Integer;
|
||||||
|
begin
|
||||||
|
r := WorksheetGrid.Row;
|
||||||
|
WorksheetGrid.DeleteRow(r);
|
||||||
|
WorksheetGrid.Row := r;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Changes the default font of the workbook by calling a standard font dialog. }
|
||||||
|
procedure TMainFrm.AcDefaultFontExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do begin
|
||||||
|
if Workbook = nil then
|
||||||
|
exit;
|
||||||
|
Convert_sFont_to_Font(Workbook.GetDefaultFont, FontDialog.Font);
|
||||||
|
if FontDialog.Execute then begin
|
||||||
|
Workbook.SetDefaultFont(FontDialog.Font.Name, FontDialog.Font.Size);
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcFontStyleExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
style: TsFontstyles;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do begin
|
||||||
|
if Workbook = nil then
|
||||||
|
exit;
|
||||||
|
style := [];
|
||||||
|
if AcFontBold.Checked then Include(style, fssBold);
|
||||||
|
if AcFontItalic.Checked then Include(style, fssItalic);
|
||||||
|
if AcFontStrikeout.Checked then Include(style, fssStrikeout);
|
||||||
|
if AcFontUnderline.Checked then Include(style, fssUnderline);
|
||||||
|
CellFontStyles[Selection] := style;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcHorAlignmentExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
hor_align: TsHorAlignment;
|
||||||
|
begin
|
||||||
|
if TAction(Sender).Checked then
|
||||||
|
hor_align := TsHorAlignment(TAction(Sender).Tag - HORALIGN_TAG)
|
||||||
|
else
|
||||||
|
hor_align := haDefault;
|
||||||
|
with WorksheetGrid do HorAlignments[Selection] := hor_align;
|
||||||
|
UpdateHorAlignmentActions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcMergeCellsExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
AcMergeCells.Checked := not AcMergeCells.Checked;
|
||||||
|
if AcMergeCells.Checked then
|
||||||
|
WorksheetGrid.MergeCells
|
||||||
|
else
|
||||||
|
WorksheetGrid.UnmergeCells;
|
||||||
|
WorksheetGridSelection(nil, WorksheetGrid.Col, WorksheetGrid.Row);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcNewExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.NewWorkbook(26, 100);
|
||||||
|
|
||||||
|
WorksheetGrid.BeginUpdate;
|
||||||
|
try
|
||||||
|
WorksheetGrid.Col := WorksheetGrid.FixedCols;
|
||||||
|
WorksheetGrid.Row := WorksheetGrid.FixedRows;
|
||||||
|
SetupBackgroundColorBox;
|
||||||
|
WorksheetGridSelection(nil, WorksheetGrid.Col, WorksheetGrid.Row);
|
||||||
|
finally
|
||||||
|
WorksheetGrid.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcOpenExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if OpenDialog.Execute then
|
||||||
|
LoadFile(OpenDialog.FileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcQuitExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcRowTitlesExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if AcRowTitles.Checked then
|
||||||
|
WorksheetGrid.FrozenCols := 1
|
||||||
|
else
|
||||||
|
WorksheetGrid.FrozenCols := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcSaveAsExecute(Sender: TObject);
|
||||||
|
// Saves sheet in grid to file, overwriting existing file
|
||||||
|
var
|
||||||
|
err: String = '';
|
||||||
|
begin
|
||||||
|
if WorksheetGrid.Workbook = nil then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if SaveDialog.Execute then
|
||||||
|
begin
|
||||||
|
Screen.Cursor := crHourglass;
|
||||||
|
try
|
||||||
|
WorksheetGrid.SaveToSpreadsheetFile(SaveDialog.FileName);
|
||||||
|
finally
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
err := WorksheetGrid.Workbook.ErrorMsg;
|
||||||
|
if err <> '' then
|
||||||
|
MessageDlg(err, mtError, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcShowGridlinesExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.ShowGridLines := AcShowGridLines.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcShowHeadersExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.ShowHeaders := AcShowHeaders.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcVertAlignmentExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
vert_align: TsVertAlignment;
|
||||||
|
begin
|
||||||
|
if TAction(Sender).Checked then
|
||||||
|
vert_align := TsVertAlignment(TAction(Sender).Tag - VERTALIGN_TAG)
|
||||||
|
else
|
||||||
|
vert_align := vaDefault;
|
||||||
|
with WorksheetGrid do VertAlignments[Selection] := vert_align;
|
||||||
|
UpdateVertAlignmentActions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.AcWordwrapExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do Wordwraps[Selection] := TAction(Sender).Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.BeforeRun;
|
||||||
|
begin
|
||||||
|
if ParamCount > 0 then
|
||||||
|
LoadFile(ParamStr(1));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.CbBackgroundColorGetColors(Sender: TCustomColorBox; Items: TStrings);
|
||||||
|
var
|
||||||
|
clr: TColor;
|
||||||
|
clrName: String;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
if (WorksheetGrid <> nil) and (WorksheetGrid.Workbook <> nil) then begin
|
||||||
|
Items.Clear;
|
||||||
|
Items.AddObject('no fill', TObject(PtrInt(clNone)));
|
||||||
|
for i:=0 to WorksheetGrid.Workbook.GetPaletteSize-1 do begin
|
||||||
|
clr := WorksheetGrid.Workbook.GetPaletteColor(i);
|
||||||
|
clrName := WorksheetGrid.Workbook.GetColorName(i);
|
||||||
|
Items.AddObject(Format('%d: %s', [i, clrName]), TObject(PtrInt(clr)));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.CbBackgroundColorSelect(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CbBackgroundColor.ItemIndex <= 0 then
|
||||||
|
with WorksheetGrid do BackgroundColors[Selection] := scNotDefined
|
||||||
|
else
|
||||||
|
with WorksheetGrid do BackgroundColors[Selection] := CbBackgroundColor.ItemIndex - 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.FontComboBoxSelect(Sender: TObject);
|
||||||
|
var
|
||||||
|
fname: String;
|
||||||
|
begin
|
||||||
|
fname := FontCombobox.Items[FontCombobox.ItemIndex];
|
||||||
|
if fname <> '' then
|
||||||
|
with WorksheetGrid do CellFontNames[Selection] := fName;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.FontSizeComboBoxSelect(Sender: TObject);
|
||||||
|
var
|
||||||
|
sz: Integer;
|
||||||
|
begin
|
||||||
|
sz := StrToInt(FontSizeCombobox.Items[FontSizeCombobox.ItemIndex]);
|
||||||
|
if sz > 0 then
|
||||||
|
with WorksheetGrid do CellFontSizes[Selection] := sz;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.FormActivate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGridSelection(nil, WorksheetGrid.Col, WorksheetGrid.Row);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
// Create the worksheet grid
|
||||||
|
WorksheetGrid := TsWorksheetGrid.Create(self);
|
||||||
|
with WorksheetGrid do begin
|
||||||
|
Parent := TabControl;
|
||||||
|
Align := alClient;
|
||||||
|
AutoAdvance := aaDown;
|
||||||
|
BorderStyle := bsNone;
|
||||||
|
MouseWheelOption := mwGrid;
|
||||||
|
Options := [goEditing, goFixedVertLine, goFixedHorzLine, goVertLine,
|
||||||
|
goHorzLine, goRangeSelect, goRowSizing, goColSizing, goThumbTracking,
|
||||||
|
goSmoothScroll, goFixedColSizing];
|
||||||
|
TitleStyle := tsNative;
|
||||||
|
OnSelection := @WorksheetGridSelection;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Create the syntax highlighter
|
||||||
|
FHighlighter := TSynWikitableSyn.Create(self);
|
||||||
|
SynEdit.Highlighter := FHighlighter;
|
||||||
|
// SynEdit.Highlighter := SynCSSSyn1;
|
||||||
|
|
||||||
|
// Adjust format toolbar height, looks strange at 120 dpi
|
||||||
|
//FormatToolbar.Height := FontCombobox.Height + 2*FontCombobox.Top;
|
||||||
|
//FormatToolbar.ButtonHeight := FormatToolbar.Height - 4;
|
||||||
|
|
||||||
|
|
||||||
|
// Set the Tags of the Border actions
|
||||||
|
AcBorderNone.Tag := 0;
|
||||||
|
AcBorderLeft.Tag := LEFT_BORDER_THIN;
|
||||||
|
AcBorderHCenter.Tag := LR_INNER_BORDER_THIN;
|
||||||
|
AcBorderRight.Tag := RIGHT_BORDER_THIN;
|
||||||
|
AcBorderTop.Tag := TOP_BORDER_THIN;
|
||||||
|
AcBorderVCenter.Tag := TB_INNER_BORDER_THIN;
|
||||||
|
AcBorderBottom.Tag := BOTTOM_BORDER_THIN;
|
||||||
|
AcBorderBottomDbl.Tag := BOTTOM_BORDER_DOUBLE;
|
||||||
|
AcBorderBottomMedium.Tag := BOTTOM_BORDER_THICK;
|
||||||
|
AcBorderTopBottom.Tag := TOP_BORDER_THIN + BOTTOM_BORDER_THIN;
|
||||||
|
AcBorderTopBottomThick.Tag := TOP_BORDER_THIN + BOTTOM_BORDER_THICK;
|
||||||
|
AcBorderInner.Tag := LR_INNER_BORDER_THIN + TB_INNER_BORDER_THIN;
|
||||||
|
AcBorderOuter.Tag := LEFT_BORDER_THIN + RIGHT_BORDER_THIN + TOP_BORDER_THIN + BOTTOM_BORDER_THIN;
|
||||||
|
AcBorderOuterMedium.Tag := LEFT_BORDER_THICK + RIGHT_BORDER_THICK + TOP_BORDER_THICK + BOTTOM_BORDER_THICK;
|
||||||
|
AcBorderAll.Tag := AcBorderOuter.Tag + AcBorderInner.Tag;
|
||||||
|
|
||||||
|
// Some initialization
|
||||||
|
FontCombobox.Items.Assign(Screen.Fonts); // Populate font combobox
|
||||||
|
FontCombobox.DropDownCount := DROPDOWN_COUNT;
|
||||||
|
FontSizeCombobox.DropDownCount := DROPDOWN_COUNT;
|
||||||
|
CbBackgroundColor.DropDownCount := DROPDOWN_COUNT;
|
||||||
|
// CbBackgroundColor.ItemHeight := FontCombobox.ItemHeight;
|
||||||
|
CbBackgroundColor.ColorRectWidth := CbBackgroundColor.ItemHeight - 6; // to get a square box...
|
||||||
|
|
||||||
|
// Initialize a new empty workbook
|
||||||
|
AcNewExecute(nil);
|
||||||
|
|
||||||
|
// Acitve control etc.
|
||||||
|
PageControl.ActivePage := PgTable;
|
||||||
|
ActiveControl := WorksheetGrid;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.PageControlChange(Sender: TObject);
|
||||||
|
var
|
||||||
|
stream: TMemoryStream;
|
||||||
|
begin
|
||||||
|
// Switch toolbars according to the selection of the pagecontrol
|
||||||
|
CodeToolbar.Visible := PageControl.ActivePage = PgCode;
|
||||||
|
FormatToolbar.Visible := PageControl.ActivePage = PgTable;
|
||||||
|
ToolbarBevel.Top := Height;
|
||||||
|
|
||||||
|
if (WorksheetGrid = nil) or (WorksheetGrid.Workbook = nil) then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if PageControl.ActivePage = PgCode then begin
|
||||||
|
stream := TMemoryStream.Create;
|
||||||
|
try
|
||||||
|
WorksheetGrid.Workbook.WriteToStream(stream, sfWikitable_wikimedia);
|
||||||
|
stream.Position := 0;
|
||||||
|
SynEdit.Lines.LoadFromStream(stream);
|
||||||
|
finally
|
||||||
|
stream.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.LoadFile(const AFileName: String);
|
||||||
|
// Loads first worksheet from file into grid
|
||||||
|
var
|
||||||
|
pages: TStrings;
|
||||||
|
i: Integer;
|
||||||
|
err: String;
|
||||||
|
begin
|
||||||
|
// Load file
|
||||||
|
Screen.Cursor := crHourglass;
|
||||||
|
try
|
||||||
|
try
|
||||||
|
WorksheetGrid.LoadFromSpreadsheetFile(UTF8ToSys(AFileName));
|
||||||
|
except
|
||||||
|
on E: Exception do begin
|
||||||
|
// In an error occurs show at least an empty valid worksheet
|
||||||
|
AcNewExecute(nil);
|
||||||
|
MessageDlg(E.Message, mtError, [mbOk], 0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Update user interface
|
||||||
|
Caption := Format('spready - %s (%s)', [
|
||||||
|
AFilename,
|
||||||
|
GetFileFormatName(WorksheetGrid.Workbook.FileFormat)
|
||||||
|
]);
|
||||||
|
AcShowGridLines.Checked := WorksheetGrid.ShowGridLines;
|
||||||
|
AcShowHeaders.Checked := WorksheetGrid.ShowHeaders;
|
||||||
|
AcRowTitles.Checked := WorksheetGrid.FrozenCols <> 0;
|
||||||
|
AcColumnTitles.Checked := WorksheetGrid.FrozenRows <> 0;
|
||||||
|
SetupBackgroundColorBox;
|
||||||
|
|
||||||
|
// Load names of worksheets into tabcontrol and show first sheet
|
||||||
|
WorksheetGrid.GetSheets(TabControl.Tabs);
|
||||||
|
TabControl.TabIndex := 0;
|
||||||
|
// Update display
|
||||||
|
WorksheetGridSelection(nil, WorksheetGrid.Col, WorksheetGrid.Row);
|
||||||
|
|
||||||
|
finally
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
|
||||||
|
err := WorksheetGrid.Workbook.ErrorMsg;
|
||||||
|
if err <> '' then
|
||||||
|
MessageDlg(err, mtError, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.SetupBackgroundColorBox;
|
||||||
|
begin
|
||||||
|
// This change triggers re-reading of the workbooks palette by the OnGetColors
|
||||||
|
// event of the ColorBox.
|
||||||
|
CbBackgroundColor.Style := CbBackgroundColor.Style - [cbCustomColors];
|
||||||
|
CbBackgroundColor.Style := CbBackgroundColor.Style + [cbCustomColors];
|
||||||
|
Application.ProcessMessages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.TabControlChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.SelectSheetByIndex(TabControl.TabIndex);
|
||||||
|
WorksheetGridSelection(self, WorksheetGrid.Col, WorksheetGrid.Row);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.UpdateBackgroundColorIndex;
|
||||||
|
var
|
||||||
|
sClr: TsColor;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do sClr := BackgroundColors[Selection];
|
||||||
|
if sClr = scNotDefined then
|
||||||
|
CbBackgroundColor.ItemIndex := 0 // no fill
|
||||||
|
else
|
||||||
|
CbBackgroundColor.ItemIndex := sClr + 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.UpdateHorAlignmentActions;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
ac: TAction;
|
||||||
|
hor_align: TsHorAlignment;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do hor_align := HorAlignments[Selection];
|
||||||
|
for i:=0 to ActionList.ActionCount-1 do begin
|
||||||
|
ac := TAction(ActionList.Actions[i]);
|
||||||
|
if (ac.Tag >= HORALIGN_TAG) and (ac.Tag < HORALIGN_TAG+10) then
|
||||||
|
ac.Checked := ((ac.Tag - HORALIGN_TAG) = ord(hor_align));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.UpdateFontNameIndex;
|
||||||
|
var
|
||||||
|
fname: String;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do fname := CellFontNames[Selection];
|
||||||
|
if fname = '' then
|
||||||
|
FontCombobox.ItemIndex := -1
|
||||||
|
else
|
||||||
|
FontCombobox.ItemIndex := FontCombobox.Items.IndexOf(fname);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.UpdateFontSizeIndex;
|
||||||
|
var
|
||||||
|
sz: Single;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do sz := CellFontSizes[Selection];
|
||||||
|
if sz < 0 then
|
||||||
|
FontSizeCombobox.ItemIndex := -1
|
||||||
|
else
|
||||||
|
FontSizeCombobox.ItemIndex := FontSizeCombobox.Items.IndexOf(IntToStr(Round(sz)));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.UpdateFontStyleActions;
|
||||||
|
var
|
||||||
|
style: TsFontStyles;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do style := CellFontStyles[Selection];
|
||||||
|
AcFontBold.Checked := fssBold in style;
|
||||||
|
AcFontItalic.Checked := fssItalic in style;
|
||||||
|
AcFontUnderline.Checked := fssUnderline in style;
|
||||||
|
AcFontStrikeout.Checked := fssStrikeOut in style;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.UpdateVertAlignmentActions;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
ac: TAction;
|
||||||
|
vert_align: TsVertAlignment;
|
||||||
|
begin
|
||||||
|
with WorksheetGrid do vert_align := VertAlignments[Selection];
|
||||||
|
for i:=0 to ActionList.ActionCount-1 do begin
|
||||||
|
ac := TAction(ActionList.Actions[i]);
|
||||||
|
if (ac.Tag >= VERTALIGN_TAG) and (ac.Tag < VERTALIGN_TAG+10) then
|
||||||
|
ac.Checked := ((ac.Tag - VERTALIGN_TAG) = ord(vert_align));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainFrm.WorksheetGridSelection(Sender: TObject; ACol, ARow: Integer);
|
||||||
|
var
|
||||||
|
r, c: Cardinal;
|
||||||
|
cell: PCell;
|
||||||
|
begin
|
||||||
|
if WorksheetGrid.Workbook = nil then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
r := WorksheetGrid.GetWorksheetRow(ARow);
|
||||||
|
c := WorksheetGrid.GetWorksheetCol(ACol);
|
||||||
|
|
||||||
|
if AcCopyFormat.Checked then begin
|
||||||
|
WorksheetGrid.Worksheet.CopyFormat(@FCopiedFormat, r, c);
|
||||||
|
AcCopyFormat.Checked := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
cell := WorksheetGrid.Worksheet.FindCell(r, c);
|
||||||
|
AcMergeCells.Checked := WorksheetGrid.Worksheet.IsMerged(cell);
|
||||||
|
|
||||||
|
UpdateHorAlignmentActions;
|
||||||
|
UpdateVertAlignmentActions;
|
||||||
|
UpdateBackgroundColorIndex;
|
||||||
|
UpdateFontNameIndex;
|
||||||
|
UpdateFontSizeIndex;
|
||||||
|
UpdateFontStyleActions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I wtmain.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Reference in New Issue
Block a user