mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 10:12:36 +02:00
74 lines
1.5 KiB
ObjectPascal
74 lines
1.5 KiB
ObjectPascal
unit WikiSearchMain;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, IpHtml, Forms, Controls, Graphics,
|
|
Dialogs, StdCtrls, ExtCtrls, WikiHelpManager;
|
|
|
|
type
|
|
|
|
{ TWikiSearchDemoForm }
|
|
|
|
TWikiSearchDemoForm = class(TForm)
|
|
PageGroupBox: TGroupBox;
|
|
PageIpHtmlPanel: TIpHtmlPanel;
|
|
ResultsGroupBox: TGroupBox;
|
|
ResultsIpHtmlPanel: TIpHtmlPanel;
|
|
SearchEdit: TEdit;
|
|
SearchLabel: TLabel;
|
|
Splitter1: TSplitter;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure SearchEditChange(Sender: TObject);
|
|
private
|
|
procedure SearchParamsChanged;
|
|
public
|
|
end;
|
|
|
|
var
|
|
WikiSearchDemoForm: TWikiSearchDemoForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TWikiSearchDemoForm }
|
|
|
|
procedure TWikiSearchDemoForm.FormCreate(Sender: TObject);
|
|
begin
|
|
Caption:='Search Wiki (Proof of concept)';
|
|
SearchLabel.Caption:='Search:';
|
|
SearchEdit.Text:='';
|
|
ResultsGroupBox.Caption:='Result:';
|
|
PageGroupBox.Caption:='Page:';
|
|
|
|
WikiHelp:=TWikiHelp.Create(nil);
|
|
WikiHelp.XMLDirectory:=SetDirSeparators('../wikixml');
|
|
WikiHelp.ImagesDirectory:=SetDirSeparators('../images');
|
|
WikiHelp.Converter.OutputDir:='';
|
|
WikiHelp.Converter.CSSFilename:='wiki.css';
|
|
|
|
WikiHelp.StartLoading;
|
|
end;
|
|
|
|
procedure TWikiSearchDemoForm.FormDestroy(Sender: TObject);
|
|
begin
|
|
FreeAndNil(WikiHelp);
|
|
end;
|
|
|
|
procedure TWikiSearchDemoForm.SearchEditChange(Sender: TObject);
|
|
begin
|
|
SearchParamsChanged;
|
|
end;
|
|
|
|
procedure TWikiSearchDemoForm.SearchParamsChanged;
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|