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

AJ:Fixes to PromptUser;Switched ShowMessage* to use NotifyUser*;

Browse Source 
fixed TGraphicPropertyEditor for when Property is nil.

git-svn-id: trunk@2254 -
This commit is contained in:
lazarus 2002-08-17 23:41:10 +00:00
parent 70d1eac1ed
commit 3ac519bf69
1 changed files with 38 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
lcl/include/winapi.inc
View File

@ -621,12 +621,12 @@ end;
Procedure NotifyUser(const DialogMessage : String; DialogType : longint); Procedure NotifyUser(const DialogMessage : String; DialogType : longint);
begin begin
PromptUser('', DialogMessage, DialogType, [idButtonOK], -1, -1); PromptUser(DialogMessage, DialogType, [idButtonOK], -1, -1);
end; end;
Procedure NotifyUserAtXY(const DialogMessage : String; DialogType : longint; X, Y : Longint); Procedure NotifyUserAtXY(const DialogMessage : String; DialogType : longint; X, Y : Longint);
begin begin
PromptUserAtXY('', DialogMessage, DialogType, [idButtonOK], -1, -1, X, Y); PromptUserAtXY(DialogMessage, DialogType, [idButtonOK], -1, -1, X, Y);
end; end;
Procedure NotifyUser(const DialogCaption, DialogMessage : String; DialogType : longint); Procedure NotifyUser(const DialogCaption, DialogMessage : String; DialogType : longint);
@ -642,25 +642,53 @@ end;
Function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : Array of Longint; Function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint) : Longint; DefaultIndex, EscapeResult : Longint) : Longint;
begin begin
Result := InterfaceObject.PromptUser('', DialogMessage, DialogType, Buttons, DefaultIndex, EscapeResult); Result := PromptUser(DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult);
end;
Function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
begin
Result := InterfaceObject.PromptUser('', DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
end; end;
Function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint; Function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint) : Longint; DefaultIndex, EscapeResult : Longint) : Longint;
begin begin
Result := InterfaceObject.PromptUser(DialogCaption, DialogMessage, DialogType, Buttons, DefaultIndex, EscapeResult); Result := PromptUser(DialogCaption, DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult);
end;
Function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
begin
Result := InterfaceObject.PromptUser(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
end; end;
Function PromptUserAtXY(const DialogMessage : String; DialogType : longint; Buttons : Array of Longint; Function PromptUserAtXY(const DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint; DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
begin begin
Result := InterfaceObject.PromptUserAtXY('', DialogMessage, DialogType, Buttons, DefaultIndex, EscapeResult, X, Y); Result := PromptUserAtXY(DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult, X, Y);
end;
Function PromptUserAtXY(const DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
begin
Result := InterfaceObject.PromptUserAtXY('', DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult, X, Y);
end; end;
Function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint; Function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint; DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
begin begin
Result := InterfaceObject.PromptUserAtXY(DialogCaption, DialogMessage, DialogType, Buttons, DefaultIndex, EscapeResult, X, Y); Result := PromptUserAtXY(DialogCaption, DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult, X, Y);
end;
Function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
begin
Result := InterfaceObject.PromptUserAtXY(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult, X, Y);
end; end;
function RightJustifyMenuItem(HndMenu: HMenu; function RightJustifyMenuItem(HndMenu: HMenu;
@ -1358,6 +1386,10 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.58 2002/10/23 14:36:52 lazarus
AJ:Fixes to PromptUser;Switched ShowMessage* to use NotifyUser*;
fixed TGraphicPropertyEditor for when Property is nil.
Revision 1.57 2002/10/16 16:58:22 lazarus Revision 1.57 2002/10/16 16:58:22 lazarus
MG: moved SendCachedLCLMessages MG: moved SendCachedLCLMessages