opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Move creation of SQLhelp from application startup to a place where it's done on demand.

Browse Source 
Move public property keyword to the private context as it is no longer accessed from outside.
This commit is contained in:
Ansgar Becker
2007-07-03 20:22:49 +00:00
parent c02ae7a711
commit 79c95bd9fd
5 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
packages/delphi10/heidisql.dpr
View File

@ -45,8 +45,6 @@ begin
Application.Title := APPNAME;
Application.CreateForm(TMainForm, MainForm); debug('perf: Main created.');
Application.CreateForm(TfrmSQLhelp, frmSQLhelp); debug('perf: frmSQLhelp created.');
try
try

2
packages/delphi11/heidisql.dpr
View File

@ -45,8 +45,6 @@ begin
Application.CreateForm(TMainForm, MainForm);
debug('perf: Main created.');
Application.CreateForm(TfrmSQLhelp, frmSQLhelp); debug('perf: frmSQLhelp created.');
try
try

3
source/childwin.pas
View File

@ -4290,8 +4290,7 @@ end;
procedure TMDIChild.CallSQLHelpWithKeyword( keyword: String );
begin
// Set help-keyword and show window
frmSQLhelp.keyword := keyword;
frmSQLhelp.Show;
SQLhelpWindow(self, keyword);
end;
procedure TMDIChild.ToolButton4Click(Sender: TObject);

1
source/sqlhelp.dfm
View File

@ -202,6 +202,7 @@ object frmSQLhelp: TfrmSQLhelp
Cancel = True
Caption = 'Close'
Default = True
ModalResult = 1
TabOrder = 1
OnClick = ButtonCloseClick
end

21
source/sqlhelp.pas
View File

@ -40,9 +40,9 @@ type
private
{ Private declarations }
m : TMDIChild;
Keyword: String;
public
{ Public declarations }
Keyword: String;
end;
const
@ -51,8 +51,7 @@ type
ICONINDEX_CATEGORY_OPENED : Integer = 97;
ICONINDEX_HELPITEM : Integer = 98;
var
frmSQLhelp : TfrmSQLhelp;
function SQLhelpWindow(AOwner: TComponent; Keyword: String = ''): Boolean;
implementation
@ -64,6 +63,22 @@ uses ZDataset, helpers, main, db;
{**
Create form on demand
@param TComponent Owner of form (should be calling form)
@return Boolean Form closed using modalresult mrOK
}
function SQLhelpWindow(AOwner: TComponent; Keyword: String = ''): Boolean;
var
f : TfrmSQLhelp;
begin
f := TfrmSQLhelp.Create(AOwner);
f.Keyword := Keyword;
Result := (f.ShowModal=mrOK);
FreeAndNil(f);
end;
{***
Startup
}