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

AJ: added new QueryUser/NotifyUser

Browse Source 
git-svn-id: trunk@2213 -
This commit is contained in:
lazarus 2002-08-17 23:41:08 +00:00
parent ac7cce53eb
commit 734eaf8083
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/include/winapi.inc
View File

@ -619,6 +619,26 @@ begin
Result := InterfaceObject.RequestInput(InputCaption, InputPrompt, MaskInput, Value);
end;
Procedure NotifyUser(const DialogCaption, DialogMessage : String; DialogType : longint);
begin
InterfaceObject.NotifyUser(DialogCaption, DialogMessage, DialogType);
end;
Procedure NotifyUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; X, Y : Longint);
begin
InterfaceObject.NotifyUserAtXY(DialogCaption, DialogMessage, DialogType, X,Y);
end;
Function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint) : Longint;
begin
Result := InterfaceObject.PromptUser(DialogCaption, DialogMessage, DialogType, Buttons);
end;
Function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint; X, Y : Longint) : Longint;
begin
Result := InterfaceObject.PromptUserAtXY(DialogCaption, DialogMessage, DialogType, Buttons, X, Y);
end;
function RightJustifyMenuItem(HndMenu: HMenu;
bRightJustify: boolean): boolean;
begin
@ -1309,6 +1329,9 @@ end;
{ =============================================================================
$Log$
Revision 1.55 2002/10/12 16:36:40 lazarus
AJ: added new QueryUser/NotifyUser
Revision 1.54 2002/10/11 16:00:39 lazarus
AJ: made InputQuery Interface Dependant

9
lcl/include/winapih.inc
View File

@ -212,6 +212,12 @@ function ShowScrollBar(Handle: HWND; wBar: Integer; bShow: Boolean): Boolean; {$
function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: Cardinal): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Procedure NotifyUser(const DialogCaption, DialogMessage : String; DialogType : longint);{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Procedure NotifyUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; X, Y : Longint);{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint) : Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint; X, Y : Longint) : Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -313,6 +319,9 @@ Function RGB(R, G, B : Byte) : TColorRef;
{ =============================================================================
$Log$
Revision 1.49 2002/10/12 16:36:40 lazarus
AJ: added new QueryUser/NotifyUser
Revision 1.48 2002/10/11 16:00:39 lazarus
AJ: made InputQuery Interface Dependant