You've already forked lazarus-ccr
initial checkin
new festures than in package: *langauge independent *removes notoc *removes page templates git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@95 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
724
applications/wikihelp/src/Utils.pas
Normal file
724
applications/wikihelp/src/Utils.pas
Normal file
@ -0,0 +1,724 @@
|
|||||||
|
UNIT Utils;
|
||||||
|
|
||||||
|
INTERFACE
|
||||||
|
|
||||||
|
{$H+}
|
||||||
|
|
||||||
|
uses Classes,SysUtils,Graphics,Forms,Process,Dialogs,Clipbrd,FileUtil,Translations
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
,Registry,Windows
|
||||||
|
{$ENDIF}
|
||||||
|
;
|
||||||
|
|
||||||
|
{$IFNDEF FPC}
|
||||||
|
CONST
|
||||||
|
DirectorySeparator = '\';
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
type
|
||||||
|
TRoundToRange = -37..37;
|
||||||
|
TProcessinfoTyp = (piOpen,piPrint);
|
||||||
|
{$ifdef WINDOWS}
|
||||||
|
PFNSHGetFolderPath = Function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
function ClearDir (Path: string): boolean;
|
||||||
|
function RPos(const Substr: string; const S: string): Integer;
|
||||||
|
FUNCTION IsNumeric(s: STRING): boolean;
|
||||||
|
FUNCTION StrTimeToValue(val : string) : LongInt;
|
||||||
|
procedure DrawText(Canvas : TCanvas;Rect : TRect;Str : string;CenterV : Boolean = False;CenterH : Boolean = False);
|
||||||
|
function InstallExt(Extension, ExtDescription, FileDescription,OpenWith, ParamString: string; IconIndex: Integer = 0): Boolean;
|
||||||
|
function SystemUserName : string;
|
||||||
|
function HTTPEncode(const str : String) : string;
|
||||||
|
function StripHTML(S: string): string;
|
||||||
|
function ValidateFileName(old : string) : string;
|
||||||
|
function ValidateFileDir(old : string) : string;
|
||||||
|
function ValidateDate(D : string) : string;
|
||||||
|
function GetTempPath : string;
|
||||||
|
function GetConfigDir(app : string) : string;
|
||||||
|
function GetGlobalConfigDir(app : string) : string;
|
||||||
|
function SizeToText(size : Longint) : string;
|
||||||
|
function GetMainIconHandle : Cardinal;
|
||||||
|
function CanWriteToProgramDir : Boolean;
|
||||||
|
function OpenBrowser(Site : string) : Boolean;
|
||||||
|
function HexToBin(h: STRING): dword;
|
||||||
|
procedure LoadLanguage(lang : string);
|
||||||
|
function RoundTo(const AValue : extended ; const ADigit : TRoundToRange) : extended ;
|
||||||
|
function TimeTotext(Seconds : Integer) : string;
|
||||||
|
procedure ExecProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
|
||||||
|
procedure ExecVisualProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
|
||||||
|
function ExecProcessEx(CommandLine : string;CurDir : string = '') : string;
|
||||||
|
function GetProcessforExtension(InfoTyp : TProcessinfoTyp;Extension : string) : string;
|
||||||
|
function GetMimeTypeforExtension(Extension : string) : string;
|
||||||
|
function GetSystemLang : string;
|
||||||
|
|
||||||
|
IMPLEMENTATION
|
||||||
|
|
||||||
|
function ExecProcessEx(CommandLine : string;CurDir : string = '') : string;
|
||||||
|
const
|
||||||
|
READ_BYTES = 2048;
|
||||||
|
var
|
||||||
|
process : TProcess;
|
||||||
|
ms: tmemorystream;
|
||||||
|
bytesread: integer;
|
||||||
|
n: longint;
|
||||||
|
tmps: tstringlist;
|
||||||
|
err : string;
|
||||||
|
begin
|
||||||
|
BytesRead := 0;
|
||||||
|
Process := TProcess.Create(nil);
|
||||||
|
Process.Options := [poUsePipes];
|
||||||
|
Process.ShowWindow := swoHide;
|
||||||
|
Process.CommandLine := CommandLine;
|
||||||
|
if CurDir <> '' then
|
||||||
|
Process.CurrentDirectory := CurDir;
|
||||||
|
BytesRead := 0;
|
||||||
|
MS := TmemoryStream.create;
|
||||||
|
try
|
||||||
|
Process.Execute;
|
||||||
|
while Process.Running do
|
||||||
|
begin
|
||||||
|
MS.SetSize(BytesRead+READ_BYTES);
|
||||||
|
n := Process.OutPut.Read((MS.Memory+BytesRead)^,READ_BYTES);
|
||||||
|
if n > 0 then
|
||||||
|
inc(BytesRead,n)
|
||||||
|
else
|
||||||
|
sleep(50);
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
on e : exception do
|
||||||
|
err := err+#13+e.Message;
|
||||||
|
end;
|
||||||
|
MS.SetSize(BytesRead+READ_BYTES);
|
||||||
|
n := Process.OutPut.Read((MS.Memory+BytesRead)^,READ_BYTES);
|
||||||
|
if n > 0 then
|
||||||
|
inc(Bytesread,n);
|
||||||
|
MS.SetSize(BytesRead);
|
||||||
|
Process.Free;
|
||||||
|
tmps := TStringList.Create;
|
||||||
|
tmps.LoadFromStream(MS);
|
||||||
|
Result := tmps.Text;
|
||||||
|
tmps.Free;
|
||||||
|
MS.Free;
|
||||||
|
if err <> '' then
|
||||||
|
Result := 'errors:'+err+#13+Result;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure ExecProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
|
||||||
|
var
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
SUInfo: TStartupInfo;
|
||||||
|
ProcInfo: TProcessInformation;
|
||||||
|
CmdLine: string;
|
||||||
|
Res: Boolean;
|
||||||
|
{$ELSE}
|
||||||
|
process : TProcess;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
FillChar(SUInfo, SizeOf(SUInfo), #0);
|
||||||
|
with SUInfo do begin
|
||||||
|
cb := SizeOf(SUInfo);
|
||||||
|
dwFlags := STARTF_USESHOWWINDOW;
|
||||||
|
wShowWindow := SW_HIDE
|
||||||
|
end;
|
||||||
|
Res := CreateProcess(NIL, PChar(CommandLine), NIL, NIL, FALSE,
|
||||||
|
CREATE_NEW_CONSOLE or
|
||||||
|
NORMAL_PRIORITY_CLASS, NIL,
|
||||||
|
PChar(CurDir),
|
||||||
|
SUInfo, ProcInfo);
|
||||||
|
{ Wait for it to finish. }
|
||||||
|
if Res and Waitfor then
|
||||||
|
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
|
||||||
|
{$ELSE}
|
||||||
|
Process := TProcess.Create(nil);
|
||||||
|
if CurDir <> '' then
|
||||||
|
Process.CurrentDirectory := CurDir;
|
||||||
|
Process.CommandLine := CommandLine;
|
||||||
|
if Waitfor then
|
||||||
|
Process.Options := [poNewConsole{poNoConsole},poWaitOnExit]
|
||||||
|
else
|
||||||
|
Process.Options := [poNewConsole{poNoConsole}];
|
||||||
|
// Process.ShowWindow := swoHide;
|
||||||
|
Process.Execute;
|
||||||
|
if Waitfor then Process.Free;
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure ExecVisualProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
|
||||||
|
var
|
||||||
|
process : TProcess;
|
||||||
|
begin
|
||||||
|
Process := TProcess.Create(nil);
|
||||||
|
if CurDir <> '' then
|
||||||
|
Process.CurrentDirectory := CurDir;
|
||||||
|
Process.CommandLine := CommandLine;
|
||||||
|
if Waitfor then
|
||||||
|
Process.Options := [poWaitOnExit]
|
||||||
|
else
|
||||||
|
Process.Options := [];
|
||||||
|
Process.Execute;
|
||||||
|
if Waitfor then Process.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TimeTotext(Seconds : Integer) : string;
|
||||||
|
var
|
||||||
|
tmp : Integer;
|
||||||
|
begin
|
||||||
|
if Seconds > 60*60 then
|
||||||
|
begin
|
||||||
|
Result := IntToStr(Trunc(Seconds/(60*60))) +' h';
|
||||||
|
tmp := Seconds mod (60*60);
|
||||||
|
Result := Result +' '+IntToStr(Trunc(tmp/(60))) +' m';
|
||||||
|
tmp := Seconds mod 60;
|
||||||
|
Result := Result +' '+IntToStr(tmp) +' s';
|
||||||
|
end
|
||||||
|
else if Seconds > 60 then
|
||||||
|
begin
|
||||||
|
Result := IntToStr(Trunc(Seconds/(60))) +' m';
|
||||||
|
tmp := Seconds mod 60;
|
||||||
|
Result := Result +' '+IntToStr(tmp) +' s';
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Result := IntToStr(Seconds)+' s';
|
||||||
|
end
|
||||||
|
end;
|
||||||
|
|
||||||
|
function RoundTo(const AValue : extended ; const ADigit : TRoundToRange) : extended ;
|
||||||
|
var X : extended ; i : integer ;
|
||||||
|
begin
|
||||||
|
X := 1.0 ;
|
||||||
|
for i := 1 to Abs(ADigit) do X := X * 10 ;
|
||||||
|
if ADigit<0 then
|
||||||
|
Result := Round(AValue * X) / X
|
||||||
|
else
|
||||||
|
Result := Round(AValue / X) * X;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HexToBin(h: STRING): dword;
|
||||||
|
FUNCTION HexDigitToInt(c: Char): Integer;
|
||||||
|
BEGIN
|
||||||
|
IF (c >= '0') AND (c <= '9') THEN Result := Ord(c) - Ord('0')
|
||||||
|
ELSE IF (c >= 'A') AND (c <= 'F') THEN Result := Ord(c) - Ord('A') + 10
|
||||||
|
ELSE IF (c >= 'a') AND (c <= 'f') THEN Result := Ord(c) - Ord('a') + 10
|
||||||
|
ELSE Result := -1;
|
||||||
|
END;
|
||||||
|
VAR
|
||||||
|
buf: ARRAY[0..16] OF Byte;
|
||||||
|
digit1: Integer;
|
||||||
|
bytes: Integer;
|
||||||
|
index: Integer;
|
||||||
|
BEGIN
|
||||||
|
bytes := 0;
|
||||||
|
index := 0;
|
||||||
|
result := 0;
|
||||||
|
IF frac(length(h) / 2) = 0.5 THEN
|
||||||
|
h := '0' + h;
|
||||||
|
WHILE (bytes < 16) DO
|
||||||
|
BEGIN
|
||||||
|
if length(h) > index+1 then
|
||||||
|
digit1 := HexDigitToInt(h[index + 1])
|
||||||
|
else
|
||||||
|
digit1 := -1;
|
||||||
|
IF digit1 < 0 THEN
|
||||||
|
break;
|
||||||
|
buf[bytes] := (digit1 SHL 4) OR HexDigitToInt(h[index + 2]);
|
||||||
|
Inc(index, 2);
|
||||||
|
Inc(bytes);
|
||||||
|
END;
|
||||||
|
dec(bytes);
|
||||||
|
FOR index := bytes DOWNTO 0 DO
|
||||||
|
Result := Result + (buf[index] shl ((bytes-index)*8));
|
||||||
|
END;
|
||||||
|
|
||||||
|
procedure LoadLanguage(lang: string);
|
||||||
|
begin
|
||||||
|
if FileExists(ProgramDirectory+'languages'+Directoryseparator+Lang+'.po') then
|
||||||
|
TranslateUnitResourceStrings('uintfstrconsts',ProgramDirectory+'languages'+Directoryseparator+Lang+'.po');
|
||||||
|
// TranslateResourcestrings(ProgramDirectory+'languages'+Directoryseparator+Lang+'.mo');
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetProcessforExtension(InfoTyp : TProcessinfoTyp;Extension : string) : string;
|
||||||
|
{$ifdef MSWINDOWS}
|
||||||
|
var
|
||||||
|
reg : TRegistry;
|
||||||
|
ot : string;
|
||||||
|
FileClass: string;
|
||||||
|
chrResult: array[0..1023] of Char;
|
||||||
|
wrdReturn: DWORD;
|
||||||
|
{$endif}
|
||||||
|
begin
|
||||||
|
{$ifdef WINDOWS}
|
||||||
|
case InfoTyp of
|
||||||
|
piOpen:ot := 'open';
|
||||||
|
piPrint:ot := 'print';
|
||||||
|
end;
|
||||||
|
Result := '';
|
||||||
|
Reg := TRegistry.Create(KEY_READ);
|
||||||
|
Reg.RootKey := HKEY_CLASSES_ROOT;
|
||||||
|
FileClass := '';
|
||||||
|
if Reg.OpenKeyReadOnly(ExtractFileExt('.'+Extension)) then
|
||||||
|
begin
|
||||||
|
FileClass := Reg.ReadString('');
|
||||||
|
Reg.CloseKey;
|
||||||
|
end;
|
||||||
|
if FileClass <> '' then begin
|
||||||
|
if Reg.OpenKeyReadOnly(FileClass + '\Shell\'+ot+'\Command') then
|
||||||
|
begin
|
||||||
|
wrdReturn := ExpandEnvironmentStrings(PChar(StringReplace(Reg.ReadString(''),'%1','%s',[rfReplaceAll])), chrResult, 1024);
|
||||||
|
if wrdReturn = 0 then
|
||||||
|
Result := StringReplace(Reg.ReadString(''),'%1','%s',[rfReplaceAll])
|
||||||
|
else
|
||||||
|
Result := Trim(chrResult);
|
||||||
|
Reg.CloseKey;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Reg.Free;
|
||||||
|
{$ELSE}
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetMimeTypeforExtension(Extension : string) : string;
|
||||||
|
{$ifdef MSWINDOWS}
|
||||||
|
var
|
||||||
|
reg : TRegistry;
|
||||||
|
{$endif}
|
||||||
|
begin
|
||||||
|
{$ifdef WINDOWS}
|
||||||
|
Result := '';
|
||||||
|
Reg := TRegistry.Create(KEY_READ);
|
||||||
|
Reg.RootKey := HKEY_CLASSES_ROOT;
|
||||||
|
if Reg.OpenKeyReadOnly(ExtractFileExt('.'+Extension)) then
|
||||||
|
begin
|
||||||
|
Result := Reg.ReadString('Content Type');
|
||||||
|
Reg.CloseKey;
|
||||||
|
end;
|
||||||
|
Reg.Free;
|
||||||
|
{$ELSE}
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetSystemLang: string;
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
var
|
||||||
|
Ident: Integer;
|
||||||
|
MyLang: PChar;
|
||||||
|
const
|
||||||
|
Size: Integer = 250;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
GetMem(MyLang, Size);
|
||||||
|
Ident:=GetSystemDefaultLangID;
|
||||||
|
VerLanguageName(Ident, MyLang, Size);
|
||||||
|
Result:=StrPas(MyLang);
|
||||||
|
FreeMem(MyLang);
|
||||||
|
{$ELSE}
|
||||||
|
Result := GetEnvironmentVariable('LANG');
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function OpenBrowser(Site : string) : Boolean;
|
||||||
|
var
|
||||||
|
cmd : string;
|
||||||
|
proc : TProcess;
|
||||||
|
begin
|
||||||
|
cmd := GetProcessforExtension(piOpen,'html');
|
||||||
|
{$ifndef WINDOWS}
|
||||||
|
cmd := ExecProcessEx('gconftool-2 --get /desktop/gnome/url-handlers/http/command');
|
||||||
|
if (cmd = '') or (pos('errors',cmd) > 0) then
|
||||||
|
cmd := GetEnvironmentVariable('BROWSER');
|
||||||
|
if (cmd = '') then
|
||||||
|
cmd := 'kfmclient openURL %s';
|
||||||
|
{$ENDIF}
|
||||||
|
if cmd = '' then exit;
|
||||||
|
proc := TProcess.Create(nil);
|
||||||
|
proc.CommandLine := StringReplace(cmd,'%s',Site,[rfReplaceAll]);
|
||||||
|
proc.Options := [poNewConsole];
|
||||||
|
proc.Execute;
|
||||||
|
while Proc.Running do
|
||||||
|
Application.ProcessMessages;
|
||||||
|
proc.free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function CanWriteToProgramDir : Boolean;
|
||||||
|
var
|
||||||
|
f : TextFile;
|
||||||
|
begin
|
||||||
|
AssignFile(f,ExtractFilePath(Application.Exename)+'writetest.tmp');
|
||||||
|
try
|
||||||
|
Rewrite(f);
|
||||||
|
except
|
||||||
|
Result := False;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
CloseFile(f);
|
||||||
|
SysUtils.DeleteFile(ExtractFilePath(Application.Exename)+'writetest.tmp');
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SizeToText(size : Longint) : string;
|
||||||
|
begin
|
||||||
|
if size > 1024*1024*1024 then
|
||||||
|
Result := FormatFloat('0.00',size/(1024*1024*1024))+' Gb'
|
||||||
|
else if size > 1024*1024 then
|
||||||
|
Result := FormatFloat('0.00',size/(1024*1024))+' Mb'
|
||||||
|
else if size > 1024 then
|
||||||
|
Result := FormatFloat('0.00',size/(1024))+' Kb'
|
||||||
|
else
|
||||||
|
Result := IntToStr(size)+' byte'
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetMainIconHandle : Cardinal;
|
||||||
|
begin
|
||||||
|
{$ifdef MSWINDOWS}
|
||||||
|
Result := LoadIcon(hInstance, 'MAINICON');
|
||||||
|
{$else}
|
||||||
|
Result := 0;
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetConfigDir(app : string) : string;
|
||||||
|
begin
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
Result := copy(GetAppConfigDir(False),0,length(GetAppConfigDir(False))-length(ApplicationName))+app;
|
||||||
|
{$ELSE}
|
||||||
|
Result:=GetEnvironmentVariable('HOME');
|
||||||
|
If (Result<>'') then
|
||||||
|
Result:=IncludeTrailingPathDelimiter(Result)+'.'+app;
|
||||||
|
{$ENDIF}
|
||||||
|
Result := IncludeTrailingPathDelimiter(result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetGlobalConfigDir(app : string) : string;
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
const
|
||||||
|
CSIDL_COMMON_APPDATA = $0023; // All Users\Application Data
|
||||||
|
CSIDL_FLAG_CREATE = $8000; { (force creation of requested folder if it doesn't exist yet) }
|
||||||
|
var
|
||||||
|
Path: array [0..1024] of char;
|
||||||
|
P : Pointer;
|
||||||
|
SHGetFolderPath : PFNSHGetFolderPath = Nil;
|
||||||
|
CFGDLLHandle : THandle = 0;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
CFGDLLHandle:=LoadLibrary('shell32.dll');
|
||||||
|
if (CFGDLLHandle<>0) then
|
||||||
|
begin
|
||||||
|
P:=GetProcAddress(CFGDLLHandle,'SHGetFolderPathA');
|
||||||
|
If (P=Nil) then
|
||||||
|
begin
|
||||||
|
FreeLibrary(CFGDLLHandle);
|
||||||
|
CFGDllHandle:=0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
SHGetFolderPath:=PFNSHGetFolderPath(P);
|
||||||
|
end;
|
||||||
|
If (P=Nil) then
|
||||||
|
begin
|
||||||
|
CFGDLLHandle:=LoadLibrary('shfolder.dll');
|
||||||
|
if (CFGDLLHandle<>0) then
|
||||||
|
begin
|
||||||
|
P:=GetProcAddress(CFGDLLHandle,'SHGetFolderPathA');
|
||||||
|
If (P=Nil) then
|
||||||
|
begin
|
||||||
|
FreeLibrary(CFGDLLHandle);
|
||||||
|
CFGDllHandle:=0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ShGetFolderPath:=PFNSHGetFolderPath(P);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Result := ExtractFilePath(Application.Exename);
|
||||||
|
If (@ShGetFolderPath<>Nil) then
|
||||||
|
if SHGetFolderPath(0,CSIDL_COMMON_APPDATA or CSIDL_FLAG_CREATE,0,0,@PATH[0])=S_OK then
|
||||||
|
Result:=IncludeTrailingPathDelimiter(StrPas(@Path[0]))+app;
|
||||||
|
{$ELSE}
|
||||||
|
{$ENDIF}
|
||||||
|
Result := IncludeTrailingPathDelimiter(result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetTempPath : string;
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
var
|
||||||
|
TD : PChar;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
GetMem(TD, 256);
|
||||||
|
try
|
||||||
|
FillChar(TD^, 256, 0);
|
||||||
|
Windows.GetTempPath(256, TD);
|
||||||
|
Result := TD;
|
||||||
|
finally
|
||||||
|
FreeMem(TD, 256);
|
||||||
|
end;
|
||||||
|
{$ELSE}
|
||||||
|
Result := '/temp';
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ValidateFileDir(old: string): string;
|
||||||
|
begin
|
||||||
|
Result := old;
|
||||||
|
if DirectorySeparator <> '/' then
|
||||||
|
Result := StringReplace(Result,'/','',[rfReplaceAll]);
|
||||||
|
Result := StringReplace(Result,'@','',[rfReplaceAll]);
|
||||||
|
Result := StringReplace(Result,';','',[rfReplaceAll]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ValidateDate(D : string) : string;
|
||||||
|
begin
|
||||||
|
if pos('.',D) > 0 then
|
||||||
|
Result := StringReplace(D,'-','.',[rfReplaceAll]);
|
||||||
|
if length(D) = 4 then
|
||||||
|
Result := '01.01.'+D;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ValidateFileName(old : string) : string;
|
||||||
|
begin
|
||||||
|
Result := StringReplace(old,'\','',[rfReplaceAll]);
|
||||||
|
Result := StringReplace(Result,'/','',[rfReplaceAll]);
|
||||||
|
Result := StringReplace(Result,'@','',[rfReplaceAll]);
|
||||||
|
Result := StringReplace(Result,';','',[rfReplaceAll]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function StripHTML(S: string): string;
|
||||||
|
var
|
||||||
|
TagBegin, TagEnd, TagLength: integer;
|
||||||
|
begin
|
||||||
|
TagBegin := Pos( '<', S); // search position of first <
|
||||||
|
|
||||||
|
while (TagBegin > 0) do begin // while there is a < in S
|
||||||
|
TagEnd := Pos('>', S); // find the matching >
|
||||||
|
TagLength := TagEnd - TagBegin + 1;
|
||||||
|
Delete(S, TagBegin, TagLength); // delete the tag
|
||||||
|
TagBegin:= Pos( '<', S); // search for next <
|
||||||
|
end;
|
||||||
|
|
||||||
|
S := Stringreplace(S,' ',' ',[rfReplaceAll]);
|
||||||
|
S := Stringreplace(S,'&','&',[rfReplaceAll]);
|
||||||
|
S := Stringreplace(S,'<','<',[rfReplaceAll]);
|
||||||
|
S := Stringreplace(S,'>','>',[rfReplaceAll]);
|
||||||
|
S := Stringreplace(S,'"','"',[rfReplaceAll]);
|
||||||
|
Result := S; // give the result
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HTTPEncode(const str : String) : string;
|
||||||
|
const
|
||||||
|
noconvert = ['A'..'Z','a'..'z','*','@','.','_','-','0'..'9','$','!','''','(',')'];
|
||||||
|
hex2str : array[0..15] of char = '0123456789ABCDEF';
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
c : char;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
for i:=1 to length(str) do
|
||||||
|
begin
|
||||||
|
c:=str[i];
|
||||||
|
if c in noconvert then
|
||||||
|
Result:=Result+c
|
||||||
|
else
|
||||||
|
Result:=Result+'%'+hex2str[ord(c) shr 4]+hex2str[ord(c) and $f];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
function SystemUserName : string;
|
||||||
|
var userNameBuffer : string[255];
|
||||||
|
sizeBuffer : DWord;
|
||||||
|
begin
|
||||||
|
SizeBuffer := 256;
|
||||||
|
getUserName(@userNameBuffer+1, sizeBuffer);
|
||||||
|
result := userNameBuffer;
|
||||||
|
end;
|
||||||
|
{$ELSIF LINUX}
|
||||||
|
{$IFNDEF WINDOWS}
|
||||||
|
function SystemUserName : string;
|
||||||
|
begin
|
||||||
|
Result := GetEnvironmentVariable('USERNAME');
|
||||||
|
if Result = '' then
|
||||||
|
Result := GetEnvironmentVariable('USER');
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
{$ELSE}
|
||||||
|
function SystemUserName : string;
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
function InstallExt(Extension, ExtDescription, FileDescription,OpenWith, ParamString: string; IconIndex: Integer = 0): Boolean;
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
var
|
||||||
|
Reg: TRegistry;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
if Extension <> '' then
|
||||||
|
begin
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
if Extension[1] <> '.' then
|
||||||
|
Extension := '.' + Extension;
|
||||||
|
Reg := TRegistry.Create;
|
||||||
|
try
|
||||||
|
Reg.RootKey := HKEY_CLASSES_ROOT;
|
||||||
|
if Reg.OpenKey(Extension, True) then
|
||||||
|
begin
|
||||||
|
Reg.WriteString('', ExtDescription);
|
||||||
|
if Reg.OpenKey('\' + ExtDescription, True) then
|
||||||
|
begin
|
||||||
|
Reg.WriteString('', FileDescription);
|
||||||
|
if Reg.OpenKey('DefaultIcon', True) then
|
||||||
|
begin
|
||||||
|
Reg.WriteString('', Format('%s,%d', [OpenWith, IconIndex]));
|
||||||
|
if Reg.OpenKey('\' + ExtDescription + '\Shell\Open\Command', True) then
|
||||||
|
begin
|
||||||
|
Reg.WriteString('', Format('"%s" "%s"', [OpenWith, ParamString]));
|
||||||
|
Result:=True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Reg.Free;
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure DrawText(Canvas : TCanvas;Rect : TRect;Str : string;CenterV : Boolean = False;CenterH : Boolean = False);
|
||||||
|
var
|
||||||
|
TextPosY,
|
||||||
|
TextPosX: Integer;
|
||||||
|
begin
|
||||||
|
TextPosX := Rect.Left;
|
||||||
|
if CenterH then
|
||||||
|
TextPosX := TextPosX+((Rect.Right-Rect.Left-Canvas.TextWidth(Str)) div 2);
|
||||||
|
TextPosY := Rect.Top;
|
||||||
|
if CenterV then
|
||||||
|
TextPosY := TextPosY+((Rect.Bottom-Rect.Top)-Canvas.TextHeight(Str)) div 2;
|
||||||
|
Canvas.TextOut(TextPosX,TextPosY,Str);
|
||||||
|
end;
|
||||||
|
|
||||||
|
FUNCTION StrTimeToValue(val : string) : LongInt;
|
||||||
|
var
|
||||||
|
i : Integer;
|
||||||
|
un : string;
|
||||||
|
begin
|
||||||
|
//TODO:replace ',' with system delemiter
|
||||||
|
un := '';
|
||||||
|
FOR i := 1 TO length(val) DO
|
||||||
|
IF NOT ((Char(Val[i]) IN ['0'..'9']) or (Char(Val[i]) = DecimalSeparator)) THEN
|
||||||
|
begin
|
||||||
|
un := trim(copy(Val,i,length(Val)));
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
if copy(Val,0,i-1) = '' then
|
||||||
|
begin
|
||||||
|
Result := -1;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
if (UpperCase(un) = 'MS') or (un = '') then
|
||||||
|
Result := Round(StrToFloat(copy(Val,0,i-1)))
|
||||||
|
else if UpperCase(un) = 'S' then
|
||||||
|
Result := Round(1000*StrToFloat(copy(Val,0,i-1)))
|
||||||
|
else if UpperCase(un) = 'M' then
|
||||||
|
Result := Round(60*1000*StrToFloat(copy(Val,0,i-1)))
|
||||||
|
else
|
||||||
|
Result := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
FUNCTION IsNumeric(s: STRING): boolean;
|
||||||
|
VAR
|
||||||
|
i : integer;
|
||||||
|
hassign: boolean;
|
||||||
|
BEGIN
|
||||||
|
// TODO:Replace ',' with Systemdelemiter
|
||||||
|
// ge�ndert von schnullerbacke
|
||||||
|
// DecimalSeparator auf . gesetzt falls ,
|
||||||
|
// doppeltes Vorkommen von sign verhindert
|
||||||
|
if DecimalSeparator = ',' then begin
|
||||||
|
// replace DecimalSeparator wenn n�tig
|
||||||
|
i:= Pos(',', s);
|
||||||
|
s[i]:= '.';
|
||||||
|
end;
|
||||||
|
Result:= (Pos('.', s) > 0) and (length(s) > 0);
|
||||||
|
if Result then begin
|
||||||
|
// l�sche DecimalSeparator
|
||||||
|
Delete(s, i, 1);
|
||||||
|
hassign:= (Pos('-', s) > 0) or (Pos('+',s) > 0);
|
||||||
|
if hassign then begin
|
||||||
|
// l�sche Vorkommen eines signs
|
||||||
|
i:= Pos('-', s);
|
||||||
|
if i = 0 then i:= Pos('+', s);
|
||||||
|
if i > 0 then Delete(s, i, 1);
|
||||||
|
end;
|
||||||
|
i:= 1;
|
||||||
|
while (i <= length(s)) and Result do begin
|
||||||
|
// nur noch Test auf Digit n�tig
|
||||||
|
Result:= (Char(s[i]) IN ['0'..'9']);
|
||||||
|
IF Result then inc(i);
|
||||||
|
END; // of while (i <= length(s)) and Result do begin
|
||||||
|
end; // of if Result then begin
|
||||||
|
END;
|
||||||
|
|
||||||
|
function RPos(const Substr: string; const S: string): Integer;
|
||||||
|
var
|
||||||
|
SL, i : Integer;
|
||||||
|
begin
|
||||||
|
SL := Length(Substr);
|
||||||
|
i := Length(S);
|
||||||
|
if (Substr = '') or (S = '') or (SL > i) then begin
|
||||||
|
Result := 0;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
while i >= SL do begin
|
||||||
|
if S[i] = Substr[SL] then begin
|
||||||
|
if Copy(S, i - SL + 1, SL) = Substr then begin
|
||||||
|
Result := i - SL + 1;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Dec(i);
|
||||||
|
end;
|
||||||
|
Result := i;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Make sure given file path is ended with backslash ("\") }
|
||||||
|
{ Clears Directory: Removes all files and directories contained }
|
||||||
|
function ClearDir (Path: string): boolean;
|
||||||
|
var
|
||||||
|
Res: integer;
|
||||||
|
SRec: SysUtils.TSearchRec;
|
||||||
|
begin
|
||||||
|
Result := false;
|
||||||
|
try
|
||||||
|
if copy(path,length(path)-1,1) <> DirectorySeparator then
|
||||||
|
Path := Path+DirectorySeparator;
|
||||||
|
Res := FindFirst (Path + '*.*', faAnyFile, SRec);
|
||||||
|
while Res = 0 do
|
||||||
|
begin
|
||||||
|
if (SRec.Attr = faDirectory) and (SRec.Name[1] <> '.') then
|
||||||
|
begin
|
||||||
|
ClearDir (Path + SRec.Name); { Clear before removing }
|
||||||
|
if not RemoveDir (pchar(Path + SRec.Name)) then
|
||||||
|
exit;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
SysUtils.DeleteFile(Path + SRec.Name);
|
||||||
|
Res := FindNext(SRec);
|
||||||
|
end;
|
||||||
|
SysUtils.FindClose(SRec);
|
||||||
|
Result := true;
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
END.
|
||||||
|
|
||||||
|
|
||||||
22
applications/wikihelp/src/uappconsts.pas
Normal file
22
applications/wikihelp/src/uappconsts.pas
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
unit uAppconsts;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
const
|
||||||
|
vAppName = 'wikihelp';
|
||||||
|
vRevision = 2;
|
||||||
|
vVersion = 0.5;
|
||||||
|
vProgramname = 'WikiHelp';
|
||||||
|
vTimeOutYear = 0;
|
||||||
|
vTimeOutMonth = 0;
|
||||||
|
vTimeOutDay = 0;
|
||||||
|
vCopyright = '2007 Christian Ulrich';
|
||||||
|
vTracker_url = 'mantis.ullihome.de';
|
||||||
|
vProject_id = 5;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
160
applications/wikihelp/src/umain.lfm
Normal file
160
applications/wikihelp/src/umain.lfm
Normal file
@ -0,0 +1,160 @@
|
|||||||
|
object fWikiHelp: TfWikiHelp
|
||||||
|
Left = 324
|
||||||
|
Height = 322
|
||||||
|
Top = 221
|
||||||
|
Width = 428
|
||||||
|
HorzScrollBar.Page = 427
|
||||||
|
VertScrollBar.Page = 321
|
||||||
|
ActiveControl = eWikiPage
|
||||||
|
Caption = 'WikiHelp'
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
object lWikiPage: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 44
|
||||||
|
Caption = 'WikiPage'
|
||||||
|
Color = clNone
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lPageOffset: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 60
|
||||||
|
Width = 58
|
||||||
|
Caption = 'lPageOffset'
|
||||||
|
Color = clNone
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object eFoundPages: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 104
|
||||||
|
Width = 66
|
||||||
|
Caption = 'eFoundPages'
|
||||||
|
Color = clNone
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lOutputDir: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 240
|
||||||
|
Width = 51
|
||||||
|
Caption = 'Output Dir'
|
||||||
|
Color = clNone
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lLanguage: TLabel
|
||||||
|
Left = 288
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 48
|
||||||
|
Caption = 'Language'
|
||||||
|
Color = clNone
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object eWikiPage: TEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 23
|
||||||
|
Top = 28
|
||||||
|
Width = 268
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'http://www.ullihome.de/index.php/'
|
||||||
|
end
|
||||||
|
object ePageOffset: TEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 23
|
||||||
|
Top = 76
|
||||||
|
Width = 412
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object lbFoundPages: TListBox
|
||||||
|
Left = 8
|
||||||
|
Height = 95
|
||||||
|
Top = 120
|
||||||
|
Width = 332
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object bSearch: TButton
|
||||||
|
Left = 345
|
||||||
|
Height = 25
|
||||||
|
Top = 120
|
||||||
|
Width = 75
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
BorderSpacing.InnerBorder = 4
|
||||||
|
Caption = 'Search'
|
||||||
|
OnClick = bSearchClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object bCreate: TButton
|
||||||
|
Left = 345
|
||||||
|
Height = 25
|
||||||
|
Top = 286
|
||||||
|
Width = 75
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
BorderSpacing.InnerBorder = 4
|
||||||
|
Caption = 'Create'
|
||||||
|
OnClick = bCreateClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object pbProgress: TProgressBar
|
||||||
|
Left = 8
|
||||||
|
Height = 20
|
||||||
|
Top = 287
|
||||||
|
Width = 332
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
Max = 100
|
||||||
|
end
|
||||||
|
object eOutputDir: TDirectoryEdit
|
||||||
|
Left = 8
|
||||||
|
Height = 23
|
||||||
|
Top = 259
|
||||||
|
Width = 332
|
||||||
|
ButtonWidth = 23
|
||||||
|
NumGlyphs = 1
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
ParentColor = False
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object cbLanguage: TComboBox
|
||||||
|
Left = 288
|
||||||
|
Height = 21
|
||||||
|
Top = 28
|
||||||
|
Width = 132
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||||
|
Items.Strings = (
|
||||||
|
'Special:Allpages'
|
||||||
|
'Spezial:Allpages'
|
||||||
|
)
|
||||||
|
MaxLength = 0
|
||||||
|
OnSelect = cbLanguageSelect
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object cbAddLinkedPages: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 13
|
||||||
|
Top = 220
|
||||||
|
Width = 103
|
||||||
|
Caption = 'Add linked Pages'
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object Properties: TXMLPropStorage
|
||||||
|
StoredValues = <
|
||||||
|
item
|
||||||
|
Name = 'OUTPUTDIR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'WIKIPAGE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PAGEOFFSET'
|
||||||
|
end>
|
||||||
|
left = 4
|
||||||
|
top = 4
|
||||||
|
end
|
||||||
|
end
|
||||||
44
applications/wikihelp/src/umain.lrs
Normal file
44
applications/wikihelp/src/umain.lrs
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
|
||||||
|
|
||||||
|
LazarusResources.Add('TfWikiHelp','FORMDATA',[
|
||||||
|
'TPF0'#10'TfWikiHelp'#9'fWikiHelp'#4'Left'#3'D'#1#6'Height'#3'B'#1#3'Top'#3
|
||||||
|
+#221#0#5'Width'#3#172#1#18'HorzScrollBar.Page'#3#171#1#18'VertScrollBar.Page'
|
||||||
|
+#3'A'#1#13'ActiveControl'#7#9'eWikiPage'#7'Caption'#6#8'WikiHelp'#7'OnClose'
|
||||||
|
+#7#9'FormClose'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#9'lWikiPage'#4'Left'
|
||||||
|
+#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#2','#7'Caption'#6#8'WikiPage'#5'Colo'
|
||||||
|
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#11'lPageOffset'#4'Left'#2#8#6
|
||||||
|
+'Height'#2#14#3'Top'#2'<'#5'Width'#2':'#7'Caption'#6#11'lPageOffset'#5'Color'
|
||||||
|
+#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#11'eFoundPages'#4'Left'#2#8#6'H'
|
||||||
|
+'eight'#2#14#3'Top'#2'h'#5'Width'#2'B'#7'Caption'#6#11'eFoundPages'#5'Color'
|
||||||
|
+#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#10'lOutputDir'#4'Left'#2#8#6'He'
|
||||||
|
+'ight'#2#14#3'Top'#3#240#0#5'Width'#2'3'#7'Caption'#6#10'Output Dir'#5'Color'
|
||||||
|
+#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#9'lLanguage'#4'Left'#3' '#1#6'H'
|
||||||
|
+'eight'#2#14#3'Top'#2#8#5'Width'#2'0'#7'Caption'#6#8'Language'#5'Color'#7#6
|
||||||
|
+'clNone'#11'ParentColor'#8#0#0#5'TEdit'#9'eWikiPage'#4'Left'#2#8#6'Height'#2
|
||||||
|
+#23#3'Top'#2#28#5'Width'#3#12#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
|
||||||
|
+#8'TabOrder'#2#0#4'Text'#6'!http://www.ullihome.de/index.php/'#0#0#5'TEdit'
|
||||||
|
+#11'ePageOffset'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'L'#5'Width'#3#156#1#7'A'
|
||||||
|
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#0#0#8'TListBox'
|
||||||
|
+#12'lbFoundPages'#4'Left'#2#8#6'Height'#2'_'#3'Top'#2'x'#5'Width'#3'L'#1#7'A'
|
||||||
|
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'TabOrder'#2#2#0#0#7
|
||||||
|
+'TButton'#7'bSearch'#4'Left'#3'Y'#1#6'Height'#2#25#3'Top'#2'x'#5'Width'#2'K'
|
||||||
|
+#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Cap'
|
||||||
|
+'tion'#6#6'Search'#7'OnClick'#7#12'bSearchClick'#8'TabOrder'#2#3#0#0#7'TButt'
|
||||||
|
+'on'#7'bCreate'#4'Left'#3'Y'#1#6'Height'#2#25#3'Top'#3#30#1#5'Width'#2'K'#7
|
||||||
|
+'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Ca'
|
||||||
|
+'ption'#6#6'Create'#7'OnClick'#7#12'bCreateClick'#8'TabOrder'#2#4#0#0#12'TPr'
|
||||||
|
+'ogressBar'#10'pbProgress'#4'Left'#2#8#6'Height'#2#20#3'Top'#3#31#1#5'Width'
|
||||||
|
+#3'L'#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#3'Max'#2'd'#0#0#14
|
||||||
|
+'TDirectoryEdit'#10'eOutputDir'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#3#1#5'Wi'
|
||||||
|
+'dth'#3'L'#1#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#7'Anchors'#11#6'akLeft'#7
|
||||||
|
+'akRight'#8'akBottom'#0#11'ParentColor'#8#8'TabOrder'#2#5#0#0#9'TComboBox'#10
|
||||||
|
+'cbLanguage'#4'Left'#3' '#1#6'Height'#2#21#3'Top'#2#28#5'Width'#3#132#0#7'An'
|
||||||
|
+'chors'#11#5'akTop'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineCo'
|
||||||
|
+'mplete'#20'cbactSearchAscending'#0#13'Items.Strings'#1#6#16'Special:Allpage'
|
||||||
|
+'s'#6#16'Spezial:Allpages'#0#9'MaxLength'#2#0#8'OnSelect'#7#16'cbLanguageSel'
|
||||||
|
+'ect'#8'TabOrder'#2#6#0#0#9'TCheckBox'#16'cbAddLinkedPages'#4'Left'#2#8#6'He'
|
||||||
|
+'ight'#2#13#3'Top'#3#220#0#5'Width'#2'g'#7'Caption'#6#16'Add linked Pages'#8
|
||||||
|
+'TabOrder'#2#7#0#0#15'TXMLPropStorage'#10'Properties'#12'StoredValues'#14#1#4
|
||||||
|
+'Name'#6#9'OUTPUTDIR'#0#1#4'Name'#6#8'WIKIPAGE'#0#1#4'Name'#6#10'PAGEOFFSET'
|
||||||
|
+#0#0#4'left'#2#4#3'top'#2#4#0#0#0
|
||||||
|
]);
|
||||||
563
applications/wikihelp/src/umain.pas
Normal file
563
applications/wikihelp/src/umain.pas
Normal file
@ -0,0 +1,563 @@
|
|||||||
|
unit uMain;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||||
|
Buttons,httpsend, ComCtrls, Utils, xmlread,dom, EditBtn, FileUtil,
|
||||||
|
XMLPropStorage,Clipbrd;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TfWikiHelp }
|
||||||
|
|
||||||
|
TfWikiHelp = class(TForm)
|
||||||
|
bSearch: TButton;
|
||||||
|
bCreate: TButton;
|
||||||
|
eOutputDir: TDirectoryEdit;
|
||||||
|
ePageOffset: TEdit;
|
||||||
|
eWikiPage: TEdit;
|
||||||
|
eFoundPages: TLabel;
|
||||||
|
lOutputDir: TLabel;
|
||||||
|
lbFoundPages: TListBox;
|
||||||
|
lPageOffset: TLabel;
|
||||||
|
lWikiPage: TLabel;
|
||||||
|
pbProgress: TProgressBar;
|
||||||
|
Properties: TXMLPropStorage;
|
||||||
|
cbLanguage: TComboBox;
|
||||||
|
lLanguage: TLabel;
|
||||||
|
cbAddLinkedPages: TCheckBox;
|
||||||
|
procedure bCreateClick(Sender: TObject);
|
||||||
|
procedure bSearchClick(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||||
|
procedure cbLanguageSelect(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
SpecialPageURL : string;
|
||||||
|
ExportPageURL : string;
|
||||||
|
ImageTagName : string;
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
procedure Wiki2Html(wname : string;OutputDir : string;content : string);
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fWikiHelp: TfWikiHelp;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses uAppconsts;
|
||||||
|
|
||||||
|
{ TfWikiHelp }
|
||||||
|
|
||||||
|
procedure TfWikiHelp.bSearchClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
http : THttpSend;
|
||||||
|
ss : TStringStream;
|
||||||
|
s : string;
|
||||||
|
begin
|
||||||
|
lbFoundPages.Items.Clear;
|
||||||
|
ss := TStringStream.Create('');
|
||||||
|
http := THttpSend.Create;
|
||||||
|
http.HTTPMethod('GET',eWikiPage.Text+SpecialPageURL);
|
||||||
|
http.Document.SaveToStream(ss);
|
||||||
|
http.Free;
|
||||||
|
s := ss.DataString;
|
||||||
|
s := copy(s,pos('<table style="background: inherit;" border="0" width="100%"><tr><td>',s),length(s));
|
||||||
|
s := copy(s,0,pos('</td></tr></table><div class="printfooter">',s));
|
||||||
|
if s = '' then
|
||||||
|
begin
|
||||||
|
Showmessage('Special Page not found !');
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
ss.Free;
|
||||||
|
while pos('<a href="',s) > 0 do
|
||||||
|
begin
|
||||||
|
s := copy(s,pos('<a href="',s)+10,length(s));
|
||||||
|
if copy(copy(s,0,pos('"',s)-1),0,length(ePageOffset.Text)) = ePageOffset.Text then
|
||||||
|
lbFoundPages.Items.Add(copy(s,0,pos('"',s)-1));
|
||||||
|
s := copy(s,pos('"',s)+1,length(s));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfWikiHelp.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
FindRec: TSearchRec;
|
||||||
|
begin
|
||||||
|
if not DirectoryExists(GetConfigDir(vAppname)) then
|
||||||
|
ForceDirectories(GetConfigDir(vAppname));
|
||||||
|
Properties.FileName := GetConfigDir(vAppname)+'config.xml';
|
||||||
|
Properties.Restore;
|
||||||
|
if Properties.StoredValue['WIKIPAGE'] <> '' then
|
||||||
|
eWikiPage.Text := Properties.StoredValue['WIKIPAGE'];
|
||||||
|
ePageOffset.Text := Properties.StoredValue['PAGEOFFSET'];
|
||||||
|
eOutputDir.Text := Properties.StoredValue['OUTPUTDIR'];
|
||||||
|
cbLanguage.Items.Clear;
|
||||||
|
IF FindFirst(ExtractFileDir(Application.Exename) + DirectorySeparator + '*.xml', faAnyFile, FindRec) = 0 THEN
|
||||||
|
REPEAT
|
||||||
|
IF (FindRec.Name <> '.') AND (FindRec.Name <> '..') THEN
|
||||||
|
cbLanguage.Items.Add(copy(FindRec.Name,0,rpos('.',FindRec.Name)-1));
|
||||||
|
UNTIL FindNext(FindRec) <> 0;
|
||||||
|
FindClose(FindRec);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfWikiHelp.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||||
|
begin
|
||||||
|
Properties.StoredValue['WIKIPAGE'] := eWikiPage.Text;
|
||||||
|
Properties.StoredValue['PAGEOFFSET'] := ePageOffset.Text;
|
||||||
|
Properties.StoredValue['OUTPUTDIR'] := eOutputDir.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfWikiHelp.cbLanguageSelect(Sender: TObject);
|
||||||
|
var
|
||||||
|
xml: TXMLDocument;
|
||||||
|
iNode: TDOMNode;
|
||||||
|
begin
|
||||||
|
if FileExists(ExtractFilePath(Application.Exename)+DirectorySeparator+cbLanguage.Text+'.xml') then
|
||||||
|
begin
|
||||||
|
xml := TXMLDocument.Create;
|
||||||
|
ReadXMLFile(xml,ExtractFilePath(Application.Exename)+DirectorySeparator+cbLanguage.Text+'.xml');
|
||||||
|
iNode := xml.DocumentElement.FindNode('SpecialPageURL');
|
||||||
|
SpecialPageURL := iNode.FirstChild.NodeValue;
|
||||||
|
iNode := xml.DocumentElement.FindNode('ExportPageURL');
|
||||||
|
if Assigned(iNode) then
|
||||||
|
ExportPageURL := StringReplace(iNode.FirstChild.NodeValue,#10,'',[rfReplaceAll]);
|
||||||
|
iNode := xml.DocumentElement.FindNode('ImageTagName');
|
||||||
|
if Assigned(iNode) then
|
||||||
|
ImageTagName := iNode.FirstChild.NodeValue;
|
||||||
|
xml.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure DoReplace(var InStr,OutStr : string;ReplaceTag,NewTag : string;MustbeInOneLine : Boolean = False);
|
||||||
|
var
|
||||||
|
NewLine: String;
|
||||||
|
begin
|
||||||
|
while pos(ReplaceTag,instr) > 0 do
|
||||||
|
begin
|
||||||
|
NewLine := copy(instr,pos(ReplaceTag,instr)+length(ReplaceTag),length(instr));
|
||||||
|
if MustBeInOneLine
|
||||||
|
and ((pos(#10,NewLine) < pos(ReplaceTag,NewLine))) and (not (length(NewLine) = pos(ReplaceTag,NewLine)+length(ReplaceTag)-1)) then
|
||||||
|
break;
|
||||||
|
outstr := outstr+copy(instr,0,pos(ReplaceTag,instr)-1);
|
||||||
|
instr := copy(instr,pos(replaceTag,instr)+length(ReplaceTag),length(instr));
|
||||||
|
outstr := outstr+'<'+NewTag+'>'+copy(instr,0,pos(ReplaceTag,instr)-1)+'</'+NewTag+'>';
|
||||||
|
instr := copy(instr,pos(ReplaceTag,instr)+length(ReplaceTag),length(instr));
|
||||||
|
end;
|
||||||
|
outstr := outstr+instr;
|
||||||
|
instr := outstr;
|
||||||
|
outstr := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfWikiHelp.Wiki2Html(wname: string;OutputDir : string;content: string);
|
||||||
|
var
|
||||||
|
f : TextFile;
|
||||||
|
istr : string;
|
||||||
|
ostr : string;
|
||||||
|
http : THttpSend;
|
||||||
|
open_uls,act_uls : integer;
|
||||||
|
i: LongInt;
|
||||||
|
intd: Boolean;
|
||||||
|
tstr: String;
|
||||||
|
aWikiStart: String;
|
||||||
|
linkcontent: String;
|
||||||
|
begin
|
||||||
|
istr := content;
|
||||||
|
ForceDirectories(OutputDir);
|
||||||
|
AssignFile(f,AppendPathDelim(OutputDir)+ValidateFileName(lowercase(wname))+'.html');
|
||||||
|
Rewrite(f);
|
||||||
|
ostr := '';
|
||||||
|
open_uls := 0;
|
||||||
|
act_uls := 0;
|
||||||
|
//Remove NOTOC
|
||||||
|
istr := StringReplace(istr,'__NOTOC__','',[rfReplaceAll]);
|
||||||
|
//Remove Templates
|
||||||
|
while pos('{{',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('{{',istr)-1);
|
||||||
|
istr := copy(istr,pos('{{',istr)+2,length(istr));
|
||||||
|
|
||||||
|
istr := copy(istr,pos('}}',istr)+2,length(istr));
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace Lists
|
||||||
|
while pos('*',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('*',istr)-1);
|
||||||
|
istr := copy(istr,pos('*',istr)+1,length(istr));
|
||||||
|
inc(act_uls);
|
||||||
|
while istr[1] = '*' do
|
||||||
|
begin
|
||||||
|
inc(act_uls);
|
||||||
|
istr := copy(istr,2,length(istr));
|
||||||
|
end;
|
||||||
|
if open_uls < act_uls then
|
||||||
|
begin
|
||||||
|
for i := open_uls to act_uls-1 do
|
||||||
|
ostr := ostr+'<ul>';
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
for i := act_uls to open_uls-1 do
|
||||||
|
ostr := ostr+'</ul>';
|
||||||
|
end;
|
||||||
|
open_uls := act_uls;
|
||||||
|
act_uls := 0;
|
||||||
|
ostr := ostr+'<li>';
|
||||||
|
if pos(#10,istr) > 0 then
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos(#10,istr)-1);
|
||||||
|
istr := copy(istr,pos(#10,istr)+1,length(istr));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := '';
|
||||||
|
end;
|
||||||
|
ostr := ostr+'</li>';
|
||||||
|
if (length(istr) > 0) and (istr[1] <> '*') then
|
||||||
|
begin
|
||||||
|
for i := 0 to open_uls-1 do
|
||||||
|
ostr := ostr+'</ul>';
|
||||||
|
open_uls := 0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
open_uls := 0;
|
||||||
|
act_uls := 0;
|
||||||
|
//Replace Numerated Lists
|
||||||
|
while pos('#',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('#',istr)-1);
|
||||||
|
istr := copy(istr,pos('#',istr)+1,length(istr));
|
||||||
|
inc(act_uls);
|
||||||
|
while istr[1] = '#' do
|
||||||
|
begin
|
||||||
|
inc(act_uls);
|
||||||
|
istr := copy(istr,2,length(istr));
|
||||||
|
end;
|
||||||
|
if open_uls < act_uls then
|
||||||
|
begin
|
||||||
|
for i := open_uls to act_uls-1 do
|
||||||
|
ostr := ostr+'<ol>';
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
for i := act_uls to open_uls-1 do
|
||||||
|
ostr := ostr+'</ol>';
|
||||||
|
end;
|
||||||
|
open_uls := act_uls;
|
||||||
|
act_uls := 0;
|
||||||
|
ostr := ostr+'<li>';
|
||||||
|
if pos(#10,istr) > 0 then
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos(#10,istr)-1);
|
||||||
|
istr := copy(istr,pos(#10,istr)+1,length(istr));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := '';
|
||||||
|
end;
|
||||||
|
ostr := ostr+'</li>';
|
||||||
|
if (length(istr) > 0) and (istr[1] <> '#') then
|
||||||
|
begin
|
||||||
|
for i := 0 to open_uls-1 do
|
||||||
|
ostr := ostr+'</ol>';
|
||||||
|
open_uls := 0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace Tables
|
||||||
|
while pos('{|',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('{|',istr)-1);
|
||||||
|
istr := copy(istr,pos('{|',istr)+2,length(istr));
|
||||||
|
//remove also content behing {|
|
||||||
|
istr := copy(istr,pos(#10,istr)-1,length(istr));
|
||||||
|
tstr := copy(istr,0,pos(#10+'|}',istr)-1);
|
||||||
|
istr := copy(istr,pos(#10+'|}',istr)+3,length(istr));
|
||||||
|
ostr := ostr+'<table><tr>';
|
||||||
|
tstr := StringReplace(tstr,'|-','</tr><tr>',[rfReplaceAll]);
|
||||||
|
intd := False;
|
||||||
|
while length(tstr) > 2 do
|
||||||
|
begin
|
||||||
|
if ((tstr[1] = #10) and (tstr[2] = '|'))
|
||||||
|
or ((tstr[1] = #10) and (tstr[2] = '!')) then
|
||||||
|
begin
|
||||||
|
if inTD then
|
||||||
|
ostr := ostr+'</td>'
|
||||||
|
else
|
||||||
|
ostr := ostr+'<td>';
|
||||||
|
inTD := not inTD;
|
||||||
|
tstr := copy(tstr,3,length(tstr));
|
||||||
|
end
|
||||||
|
else if ((tstr[1] = '!') and (tstr[2] = '!'))
|
||||||
|
or ((tstr[1] = '|') and (tstr[2] = '|')) then
|
||||||
|
begin
|
||||||
|
if inTD then
|
||||||
|
begin
|
||||||
|
ostr := ostr+'</td><td>'
|
||||||
|
end
|
||||||
|
else //Schould never happen
|
||||||
|
begin
|
||||||
|
ostr := ostr+'<td>';
|
||||||
|
inTD := True;
|
||||||
|
end;
|
||||||
|
tstr := copy(tstr,3,length(tstr));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if (tstr[1] = #10) and InTD then
|
||||||
|
begin
|
||||||
|
ostr := ostr+'</td>';
|
||||||
|
InTD := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ostr := ostr+tstr[1];
|
||||||
|
tstr := copy(tstr,2,length(tstr));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ostr := ostr+tstr+'</tr></table>';
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace Images
|
||||||
|
while pos('[['+ImageTagName+':',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('[['+ImageTagName+':',istr)-1);
|
||||||
|
istr := copy(istr,pos('[['+ImageTagName+':',istr)+length(ImageTagname)+3,length(istr));
|
||||||
|
if (pos('|',istr) > 0) and (pos('|',istr) < pos(']]',istr)) then
|
||||||
|
begin
|
||||||
|
http := THttpSend.Create;
|
||||||
|
http.HTTPMethod('GET','/images/'+copy(istr,0,pos('|',istr)-1));
|
||||||
|
http.Document.SaveToFile(AppendPathDelim(OutputDir)+ValidateFileName(lowercase(copy(istr,0,pos('|',istr)-1))));
|
||||||
|
http.Free;
|
||||||
|
ostr := ostr+'<img src="'+ValidateFileName(lowercase(copy(istr,0,pos('|',istr)-1)))+'" alt="';
|
||||||
|
istr := copy(istr,0,pos('|',istr)+1);
|
||||||
|
ostr := ostr+copy(istr,0,pos(']]',istr)-1)+'"></img>';
|
||||||
|
istr := copy(istr,pos(']]',istr)+2,length(istr));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
aWikiStart := eWikiPage.Text;
|
||||||
|
if pos('index.php',aWikiStart) > 0 then
|
||||||
|
aWikiStart := copy(aWikiStart,0,pos('index.php',aWikiStart)-1);
|
||||||
|
http := THttpSend.Create;
|
||||||
|
http.HTTPMethod('GET',aWikiStart+'/images/'+copy(istr,0,pos(']]',istr)-1));
|
||||||
|
http.Document.SaveToFile(AppendPathDelim(OutputDir)+ValidateFileName(lowercase(copy(istr,0,pos(']]',istr)-1))));
|
||||||
|
http.Free;
|
||||||
|
ostr := ostr+'<img src="'+ValidateFileName(lowercase(copy(istr,0,pos(']]',istr)-1)))+'" alt="'+copy(istr,0,pos(']]',istr)-1)+'"></img>';
|
||||||
|
istr := copy(istr,pos(']]',istr)+2,length(istr));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace Links
|
||||||
|
while pos('[[',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('[[',istr)-1);
|
||||||
|
istr := copy(istr,pos('[[',istr)+2,length(istr));
|
||||||
|
if (pos('|',istr) > 0) and (pos('|',istr) < pos(']]',istr)) then
|
||||||
|
begin
|
||||||
|
linkcontent := copy(istr,0,pos('|',istr)-1);
|
||||||
|
if (cbAddLinkedPages.Checked and (lbFoundPages.Items.IndexOf(linkcontent) = -1)) then
|
||||||
|
begin
|
||||||
|
lbFoundPages.Items.Add(linkcontent);
|
||||||
|
pbProgress.Max := pbProgress.Max+1;
|
||||||
|
end;
|
||||||
|
if lbFoundPages.Items.IndexOf(linkcontent) > -1 then
|
||||||
|
begin
|
||||||
|
ostr := ostr+'<a href="'+ValidateFileName(linkcontent)+'.html">';
|
||||||
|
istr := copy(istr,pos('|',istr)+1,length(istr));
|
||||||
|
ostr := ostr+copy(istr,0,pos(']]',istr)-1)+'</a>';
|
||||||
|
istr := copy(istr,pos(']]',istr)+2,length(istr));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
istr := copy(istr,pos('|',istr)+1,length(istr));
|
||||||
|
ostr := ostr+copy(istr,0,pos(']]',istr)-1);
|
||||||
|
istr := copy(istr,pos(']]',istr)+2,length(istr));
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
linkcontent := copy(istr,0,pos(']]',istr)-1);
|
||||||
|
if (cbAddLinkedPages.Checked and (lbFoundPages.Items.IndexOf(linkcontent) = -1)) then
|
||||||
|
begin
|
||||||
|
lbFoundPages.Items.Add(linkcontent);
|
||||||
|
pbProgress.Max := pbProgress.Max+1;
|
||||||
|
end;
|
||||||
|
if lbFoundPages.Items.IndexOf(linkcontent) > -1 then
|
||||||
|
begin
|
||||||
|
ostr := ostr+'<a href="'+ValidateFileName(linkcontent)+'.html">'+copy(istr,0,pos(']]',istr)-1)+'</a>';
|
||||||
|
istr := copy(istr,pos(']]',istr)+2,length(istr));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos(']]',istr)-1);
|
||||||
|
istr := copy(istr,pos(']]',istr)+2,length(istr));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace extern Links
|
||||||
|
while pos('[http://',lowercase(istr)) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('[http://',lowercase(istr))-1);
|
||||||
|
istr := copy(istr,pos('[http://',lowercase(istr)),length(istr));
|
||||||
|
if (pos(' ',istr) > 0) and (pos(' ',istr) < pos(']',lowercase(istr))) then
|
||||||
|
begin
|
||||||
|
ostr := ostr+'<a href="'+StringReplace(copy(istr,2,pos(' ',istr)-2),'http://./','',[rfReplaceAll])+'" target="_BLANK">';
|
||||||
|
istr := copy(istr,pos(' ',istr)+1,length(istr));
|
||||||
|
ostr := ostr+copy(istr,0,pos(']',lowercase(istr))-1)+'</a>';
|
||||||
|
istr := copy(istr,pos(']',lowercase(istr))+1,length(istr));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ostr := ostr+'<a href="'+StringReplace(copy(istr,2,pos(']',lowercase(istr))-2),'http://./','',[rfReplaceAll])+'" target="_BLANK">'+StringReplace(copy(istr,2,pos(']',lowercase(istr))-2),'http://./','',[rfReplaceAll])+'</a>';
|
||||||
|
istr := copy(istr,pos(']',lowercase(istr))+1,length(istr));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace Bold Text
|
||||||
|
while pos('''''''',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('''''''',istr)-1);
|
||||||
|
istr := copy(istr,pos('''''''',istr)+3,length(istr));
|
||||||
|
ostr := ostr+'<b>'+copy(istr,0,pos('''''''',istr)-1)+'</b>';
|
||||||
|
istr := copy(istr,pos('''''''',istr)+3,length(istr));
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace Italic Text
|
||||||
|
while pos('''''',istr) > 0 do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos('''''',istr)-1);
|
||||||
|
istr := copy(istr,pos('''''',istr)+2,length(istr));
|
||||||
|
ostr := ostr+'<i>'+copy(istr,0,pos('''''',istr)-1)+'</i>';
|
||||||
|
istr := copy(istr,pos('''''',istr)+2,length(istr));
|
||||||
|
end;
|
||||||
|
ostr := ostr+istr;
|
||||||
|
istr := ostr;
|
||||||
|
ostr := '';
|
||||||
|
//Replace Header Level 5
|
||||||
|
DoReplace(istr,ostr,'=====','h6',True);
|
||||||
|
//Replace Header Level 4
|
||||||
|
DoReplace(istr,ostr,'====','h5',True);
|
||||||
|
//Replace Header Level 3
|
||||||
|
DoReplace(istr,ostr,'===','h4',True);
|
||||||
|
//Replace Header Level 2
|
||||||
|
DoReplace(istr,ostr,'==','h3',True);
|
||||||
|
//Replace Header Level 1
|
||||||
|
// DoReplace(istr,ostr,'=','h2',True); //Too many problems at time TODO: check if we are in an html tag bevore replace
|
||||||
|
//Process unformated stuff
|
||||||
|
while pos(#10+' ',istr) > 0 do
|
||||||
|
begin
|
||||||
|
//Replace Line breaks in text bevore pre
|
||||||
|
ostr := ostr+StringReplace(StringReplace(copy(istr,0,pos(#10+' ',istr)-1),#10#10,'<br><br>',[rfReplaceAll]),#10,'',[rfReplaceAll]);
|
||||||
|
istr := copy(istr,pos(#10+' ',istr)+2,length(istr));
|
||||||
|
ostr := ostr+'<pre>';
|
||||||
|
while (pos(#10+' ',istr) > 0) do
|
||||||
|
begin
|
||||||
|
ostr := ostr+copy(istr,0,pos(#10,istr));
|
||||||
|
istr := copy(istr,pos(#10,istr)+1,length(istr));
|
||||||
|
if (length(istr) > 0) and (istr[1] <> ' ') then
|
||||||
|
break
|
||||||
|
else
|
||||||
|
istr := copy(istr,2,length(istr));
|
||||||
|
end;
|
||||||
|
ostr := ostr+'</pre>';
|
||||||
|
end;
|
||||||
|
ostr := ostr+StringReplace(StringReplace(istr,#10#10,'<br><br>',[rfReplaceAll]),#10,'',[rfReplaceAll]);
|
||||||
|
//Remove <br> after <h*>
|
||||||
|
ostr := StringReplace(ostr,'</h2><br><br>','</h2>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h3><br><br>','</h3>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h4><br><br>','</h4>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h5><br><br>','</h5>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h6><br><br>','</h6>',[rfReplaceAll]);
|
||||||
|
|
||||||
|
ostr := StringReplace(ostr,'</h2><br>','</h2>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h3><br>','</h3>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h4><br>','</h4>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h5><br>','</h5>',[rfReplaceAll]);
|
||||||
|
ostr := StringReplace(ostr,'</h6><br>','</h6>',[rfReplaceAll]);
|
||||||
|
|
||||||
|
write(f,'<html><head><title>'+wname+'</title></head><body><font face="arial,verdana">'+ostr+'</font></body></html>');
|
||||||
|
CloseFile(f);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfWikiHelp.bCreateClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
http : THttpSend;
|
||||||
|
xml : TXMLDocument;
|
||||||
|
i: Integer;
|
||||||
|
iNode: TDOMNode;
|
||||||
|
a: Integer;
|
||||||
|
aWikiStart : string;
|
||||||
|
begin
|
||||||
|
bCreate.Enabled := false;
|
||||||
|
Screen.Cursor := crHourglass;
|
||||||
|
pbProgress.Max := lbFoundPages.Items.Count;
|
||||||
|
pbProgress.Position := 0;
|
||||||
|
while lbFoundPages.Items.Count > 0 do
|
||||||
|
begin
|
||||||
|
aWikiStart := eWikiPage.Text;
|
||||||
|
if pos('index.php',aWikiStart) > 0 then
|
||||||
|
aWikiStart := copy(aWikiStart,0,pos('index.php',aWikiStart)-1);
|
||||||
|
http := THttpSend.Create;
|
||||||
|
http.HTTPMethod('POST',aWikiStart+Format(ExportPageURL,[HTTPEncode(lbFoundPages.Items[0])]));
|
||||||
|
if http.ResultCode = 200 then
|
||||||
|
begin
|
||||||
|
xml := TXMLDocument.Create;
|
||||||
|
try
|
||||||
|
ReadXMLFile(xml,http.Document);
|
||||||
|
iNode := xml.DocumentElement.FindNode('page');
|
||||||
|
if Assigned(iNode) then
|
||||||
|
iNode := iNode.FindNode('revision');
|
||||||
|
if Assigned(iNode) then
|
||||||
|
iNode := iNode.FindNode('text');
|
||||||
|
if Assigned(iNode) then
|
||||||
|
begin
|
||||||
|
Wiki2Html(lbFoundPages.Items[0],eOutputDir.Text,iNode.FirstChild.NodeValue);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Showmessage('Page: '+lbFoundPages.Items[0]+' not found !');
|
||||||
|
xml.Free;
|
||||||
|
except
|
||||||
|
on e : Exception do
|
||||||
|
Showmessage('Error Processing :'+lbFoundPages.Items[0]+':'+e.Message);
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Showmessage('Page: '+lbFoundPages.Items[0]+' not found !');
|
||||||
|
http.Free;
|
||||||
|
pbProgress.Position := i+1;
|
||||||
|
lbFoundPages.Items.Delete(0);
|
||||||
|
Application.Processmessages;
|
||||||
|
end;
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
bCreate.Enabled := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I umain.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
372
applications/wikihelp/src/wikihelp.lpi
Normal file
372
applications/wikihelp/src/wikihelp.lpi
Normal file
@ -0,0 +1,372 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Version Value="5"/>
|
||||||
|
<General>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<IconPath Value="./"/>
|
||||||
|
<TargetFileExt Value=".exe"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="0"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<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"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="25">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="wikihelp.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="wikihelp"/>
|
||||||
|
<CursorPos X="49" Y="15"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="46"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<ComponentName Value="fWikiHelp"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ResourceFilename Value="umain.lrs"/>
|
||||||
|
<UnitName Value="uMain"/>
|
||||||
|
<CursorPos X="55" Y="529"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="46"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="..\..\LKomponenten\synapse\httpsend.pas"/>
|
||||||
|
<UnitName Value="httpsend"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="37"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="..\..\Programme\lazarus\lcl\interfaces\win32\interfaces.pp"/>
|
||||||
|
<UnitName Value="Interfaces"/>
|
||||||
|
<CursorPos X="38" Y="31"/>
|
||||||
|
<TopLine Value="16"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="..\..\general\Utils.pas"/>
|
||||||
|
<UnitName Value="Utils"/>
|
||||||
|
<CursorPos X="1" Y="206"/>
|
||||||
|
<TopLine Value="194"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="..\..\Programme\lazarus\fpc\2.1.1\source\fcl\xml\xmlread.pp"/>
|
||||||
|
<UnitName Value="XMLRead"/>
|
||||||
|
<CursorPos X="63" Y="33"/>
|
||||||
|
<TopLine Value="22"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="..\..\Programme\lazarus\fpc\2.1.1\source\fcl\xml\dom.pp"/>
|
||||||
|
<UnitName Value="DOM"/>
|
||||||
|
<CursorPos X="3" Y="449"/>
|
||||||
|
<TopLine Value="461"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="..\..\general\ubugtracker.pas"/>
|
||||||
|
<ComponentName Value="fBugTracker"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<UnitName Value="uBugtracker"/>
|
||||||
|
<CursorPos X="14" Y="4"/>
|
||||||
|
<TopLine Value="199"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="..\..\Programme\lazarus\lcl\editbtn.pas"/>
|
||||||
|
<UnitName Value="EditBtn"/>
|
||||||
|
<CursorPos X="70" Y="9"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="12"/>
|
||||||
|
</Unit8>
|
||||||
|
<Unit9>
|
||||||
|
<Filename Value="..\..\general\uhelp.pas"/>
|
||||||
|
<ComponentName Value="fHelpBrowser"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<UnitName Value="uHelp"/>
|
||||||
|
<CursorPos X="1" Y="327"/>
|
||||||
|
<TopLine Value="318"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
</Unit9>
|
||||||
|
<Unit10>
|
||||||
|
<Filename Value="..\..\Programme\lazarus\lcl\include\control.inc"/>
|
||||||
|
<CursorPos X="1" Y="2369"/>
|
||||||
|
<TopLine Value="2354"/>
|
||||||
|
<UsageCount Value="12"/>
|
||||||
|
</Unit10>
|
||||||
|
<Unit11>
|
||||||
|
<Filename Value="..\..\Programme\lazarus\lcl\interfaces\win32\win32listsl.inc"/>
|
||||||
|
<CursorPos X="22" Y="173"/>
|
||||||
|
<TopLine Value="165"/>
|
||||||
|
<UsageCount Value="12"/>
|
||||||
|
</Unit11>
|
||||||
|
<Unit12>
|
||||||
|
<Filename Value="..\..\promenteus\help\prometheus-helpde.html"/>
|
||||||
|
<CursorPos X="1024" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<SyntaxHighlighter Value="HTML"/>
|
||||||
|
</Unit12>
|
||||||
|
<Unit13>
|
||||||
|
<Filename Value="..\..\promenteus\Src\umain.pas"/>
|
||||||
|
<ComponentName Value="fMain"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<UnitName Value="umain"/>
|
||||||
|
<CursorPos X="1" Y="154"/>
|
||||||
|
<TopLine Value="144"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit13>
|
||||||
|
<Unit14>
|
||||||
|
<Filename Value="uappconsts.pas"/>
|
||||||
|
<UnitName Value="uAppconsts"/>
|
||||||
|
<CursorPos X="23" Y="9"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit14>
|
||||||
|
<Unit15>
|
||||||
|
<Filename Value="..\..\Programme\lazarus\lcl\xmlpropstorage.pas"/>
|
||||||
|
<UnitName Value="XMLPropStorage"/>
|
||||||
|
<CursorPos X="17" Y="131"/>
|
||||||
|
<TopLine Value="117"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit15>
|
||||||
|
<Unit16>
|
||||||
|
<Filename Value="..\..\promenteus\help\prometheus-helpreportdesignertextde.html"/>
|
||||||
|
<CursorPos X="91" Y="2"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<SyntaxHighlighter Value="HTML"/>
|
||||||
|
</Unit16>
|
||||||
|
<Unit17>
|
||||||
|
<Filename Value="..\..\TCS_Programmer\help\tcs_programmer-helpde.html"/>
|
||||||
|
<CursorPos X="1024" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<SyntaxHighlighter Value="HTML"/>
|
||||||
|
</Unit17>
|
||||||
|
<Unit18>
|
||||||
|
<Filename Value="..\..\TCS_Programmer\general\utcsbus.pas"/>
|
||||||
|
<UnitName Value="utcsbus"/>
|
||||||
|
<CursorPos X="1" Y="3648"/>
|
||||||
|
<TopLine Value="3622"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit18>
|
||||||
|
<Unit19>
|
||||||
|
<Filename Value="..\output\i386-win32\deutsch.xml"/>
|
||||||
|
<CursorPos X="1" Y="5"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<SyntaxHighlighter Value="XML"/>
|
||||||
|
</Unit19>
|
||||||
|
<Unit20>
|
||||||
|
<Filename Value="..\output\i386-win32\deutsch2.xml"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<SyntaxHighlighter Value="XML"/>
|
||||||
|
</Unit20>
|
||||||
|
<Unit21>
|
||||||
|
<Filename Value="..\..\lazarus\fpc\2.0.4\source\fcl\xml\dom.pp"/>
|
||||||
|
<UnitName Value="DOM"/>
|
||||||
|
<CursorPos X="25" Y="1504"/>
|
||||||
|
<TopLine Value="1480"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit21>
|
||||||
|
<Unit22>
|
||||||
|
<Filename Value="..\..\lazarus\fpc\2.1.1\source\fcl\xml\dom.pp"/>
|
||||||
|
<UnitName Value="DOM"/>
|
||||||
|
<CursorPos X="14" Y="276"/>
|
||||||
|
<TopLine Value="251"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit22>
|
||||||
|
<Unit23>
|
||||||
|
<Filename Value="..\..\lazarus\fpc\2.0.4\source\fcl\tests\xmldump.pp"/>
|
||||||
|
<UnitName Value="xmldump"/>
|
||||||
|
<CursorPos X="27" Y="8"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit23>
|
||||||
|
<Unit24>
|
||||||
|
<Filename Value="..\..\..\..\test.xml"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<SyntaxHighlighter Value="XML"/>
|
||||||
|
</Unit24>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="29" HistoryIndex="28">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="524" Column="24" TopLine="516"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="509" Column="1" TopLine="503"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="510" Column="1" TopLine="495"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="512" Column="1" TopLine="497"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="513" Column="1" TopLine="498"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="514" Column="1" TopLine="499"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="516" Column="1" TopLine="501"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="145" Column="1" TopLine="136"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="520" Column="20" TopLine="506"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="522" Column="1" TopLine="507"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="523" Column="1" TopLine="508"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="525" Column="1" TopLine="510"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="527" Column="1" TopLine="512"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="531" Column="1" TopLine="516"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="539" Column="1" TopLine="522"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="540" Column="1" TopLine="522"/>
|
||||||
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="541" Column="1" TopLine="522"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="542" Column="1" TopLine="522"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="510" Column="1" TopLine="495"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="511" Column="1" TopLine="496"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="513" Column="1" TopLine="498"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="514" Column="1" TopLine="499"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="515" Column="1" TopLine="500"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="517" Column="1" TopLine="502"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="518" Column="1" TopLine="503"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="519" Column="1" TopLine="504"/>
|
||||||
|
</Position26>
|
||||||
|
<Position27>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="523" Column="10" TopLine="514"/>
|
||||||
|
</Position27>
|
||||||
|
<Position28>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="187" Column="1" TopLine="169"/>
|
||||||
|
</Position28>
|
||||||
|
<Position29>
|
||||||
|
<Filename Value="umain.pas"/>
|
||||||
|
<Caret Line="534" Column="41" TopLine="523"/>
|
||||||
|
</Position29>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="5"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="..\..\lkomponenten\synapse\;..\..\general\"/>
|
||||||
|
<UnitOutputDirectory Value="..\output\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<CodeGeneration>
|
||||||
|
<Generate Value="Faster"/>
|
||||||
|
</CodeGeneration>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<BreakPoints Count="1">
|
||||||
|
<Item1>
|
||||||
|
<Source Value="..\..\LKomponenten\tdbf\dbf_common.pas"/>
|
||||||
|
<Line Value="375"/>
|
||||||
|
</Item1>
|
||||||
|
</BreakPoints>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
Reference in New Issue
Block a user