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

lcl: formatting

Browse Source 
git-svn-id: trunk@28472 -
This commit is contained in:
paul 2010-11-25 07:25:32 +00:00
parent 849f303058
commit 33378ed7ff
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/messagedialogs.inc
View File

@ -131,18 +131,21 @@ var
begin
if (Buttons = []) or (Buttons = [mbHelp]) then
Buttons := Buttons + [mbOk];
CancelValue := ButtonResults[ModalEscapeValue (Buttons)];
CancelValue := ButtonResults[ModalEscapeValue(Buttons)];
if UseDefButton then
DefaultButton := DefButton else
DefaultButton := DefButton
else
DefaultButton := ModalDefaultButton(Buttons);
DefaultIndex := 0;
ButtonCount := 0;
Result := nil;
for CurBtn := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do begin
If CurBtn in Buttons then begin
for CurBtn := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
begin
if CurBtn in Buttons then
begin
ReallocMem(Result, (ButtonCount + 1)*SizeOf(Longint));
Result[ButtonCount] := ButtonIds[CurBtn];
If DefaultButton = CurBtn then
if DefaultButton = CurBtn then
DefaultIndex := ButtonCount;
Inc(ButtonCount)
end;