paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 07:37:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

improved smartlinking: unit interfacebase

Browse Source 
git-svn-id: trunk@8255 -
This commit is contained in:
mattias 2005-12-06 11:31:15 +00:00
parent e84231cff6
commit a868189f89
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/dialogs.pp
View File

@ -469,6 +469,7 @@ initialization
InterfaceBase.PromptDialogFunction:=@ShowPromptDialog;
finalization
InterfaceBase.InputDialogFunction:=nil;
end.

8
lcl/interfacebase.pp
View File

@ -86,7 +86,7 @@ type
TInputDialogFunction = Function (const InputCaption, InputPrompt : String;
MaskInput : Boolean; var Value : String) : Boolean;
var
InputDialogFunction: TInputDialogFunction=nil;
InputDialogFunction: TInputDialogFunction = nil;
type
TPromptDialogFunction = Function(const DialogCaption, DialogMessage : String;
@ -95,7 +95,7 @@ type
UseDefaultPos: boolean;
X, Y : Longint) : Longint;
var
PromptDialogFunction: TPromptDialogFunction;
PromptDialogFunction: TPromptDialogFunction = nil;
var
WidgetSet: TWidgetSet=nil;
@ -110,8 +110,4 @@ const
{$I intfbasewinapi.inc}
{$I intfbaselcl.inc}
finalization
InputDialogFunction:=nil;
end.