|
Last change
on this file was 357, checked in by chronos, 12 years ago |
- Modified: WebApp is not TComponent instead of TCustomApplication. TApplication in Forms unit is used as base application class.
- Added: Experimental HTTPServerTurboPower as HTTPServer type which can be used for web application development without external web browser. If used, form with TurboPowerIPro panel will be displayed. This requeire some LCD widgetset other then nogui.
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | unit UTurboPowerForm;
|
|---|
| 2 |
|
|---|
| 3 | {$mode delphi}
|
|---|
| 4 |
|
|---|
| 5 | interface
|
|---|
| 6 |
|
|---|
| 7 | uses
|
|---|
| 8 | Classes, SysUtils, FileUtil, IpHtml, Ipfilebroker, LResources, Forms,
|
|---|
| 9 | Controls, Graphics, Dialogs, ComCtrls, StdCtrls, ActnList;
|
|---|
| 10 |
|
|---|
| 11 | type
|
|---|
| 12 |
|
|---|
| 13 | { TFormWebBrowser }
|
|---|
| 14 |
|
|---|
| 15 | TFormWebBrowser = class(TForm)
|
|---|
| 16 | AReloadPage: TAction;
|
|---|
| 17 | AShowSource: TAction;
|
|---|
| 18 | ActionList1: TActionList;
|
|---|
| 19 | EditAddress: TEdit;
|
|---|
| 20 | IpFileDataProvider1: TIpFileDataProvider;
|
|---|
| 21 | IpHtmlPanel1: TIpHtmlPanel;
|
|---|
| 22 | StatusBar1: TStatusBar;
|
|---|
| 23 | ToolBar1: TToolBar;
|
|---|
| 24 | ToolButton1: TToolButton;
|
|---|
| 25 | ToolButton2: TToolButton;
|
|---|
| 26 | procedure AShowSourceExecute(Sender: TObject);
|
|---|
| 27 | procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
|---|
| 28 | private
|
|---|
| 29 | { private declarations }
|
|---|
| 30 | public
|
|---|
| 31 | HtmlSource: string;
|
|---|
| 32 | end;
|
|---|
| 33 |
|
|---|
| 34 | var
|
|---|
| 35 | FormWebBrowser: TFormWebBrowser;
|
|---|
| 36 |
|
|---|
| 37 | implementation
|
|---|
| 38 |
|
|---|
| 39 | {$R *.lfm}
|
|---|
| 40 |
|
|---|
| 41 | { TFormWebBrowser }
|
|---|
| 42 |
|
|---|
| 43 | procedure TFormWebBrowser.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
|---|
| 44 | begin
|
|---|
| 45 | Application.Terminate;
|
|---|
| 46 | end;
|
|---|
| 47 |
|
|---|
| 48 | procedure TFormWebBrowser.AShowSourceExecute(Sender: TObject);
|
|---|
| 49 | begin
|
|---|
| 50 | ShowMessage(HtmlSource);
|
|---|
| 51 | end;
|
|---|
| 52 |
|
|---|
| 53 | initialization
|
|---|
| 54 |
|
|---|
| 55 | end.
|
|---|
| 56 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
