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

MG: broke interfacebase uses circles

Browse Source 
git-svn-id: trunk@1331 -
This commit is contained in:
lazarus 2002-02-09 01:48:17 +00:00
parent e8bfd838c7
commit 1a5b20990b
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfacebase.pp
View File

@ -82,14 +82,20 @@ type
type
TInputDialogFunction = Function (const InputCaption, InputPrompt : String;
MaskInput : Boolean; var Value : String) : Boolean;
var
InputDialogFunction: TInputDialogFunction;
implementation
type
TPromptDialogFunction = Function(const DialogCaption, DialogMessage : String;
DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint;
UseDefaultPos: boolean;
X, Y : Longint) : Longint;
var
PromptDialogFunction: TPromptDialogFunction;
Uses
Forms, StdCtrls, Graphics, Buttons;
implementation
{$I interfacebase.inc}
@ -105,6 +111,9 @@ end.
{
$Log$
Revision 1.22 2002/10/25 10:06:34 lazarus
MG: broke interfacebase uses circles
Revision 1.21 2002/10/25 09:47:37 lazarus
MG: added inputdialog.inc