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

MUI: fixes for unified ASL interface

Browse Source 
git-svn-id: trunk@60729 -
This commit is contained in:
marcus 2019-03-19 22:32:41 +00:00
parent 50b7e5b2a4
commit df9b585827
1 changed files with 3 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/mui/muiwsdialogs.pp
View File

@ -253,11 +253,7 @@ begin
//TagsList.AddTags([ASLFR_UserData, NativeUInt(MUIApp), ASLFR_IntuiMsgFunc, NativeUInt(@Hook)]);//}
{$ifndef USE_OLD_ASL}
{$ifdef Amiga}
{$ifdef Amiga68k}
if AslRequest(MuiDialog, TagsList) then
{$else}
if AslRequestA(MuiDialog, TagsList) then
{$endif}
if AslRequest(MuiDialog, TagsList) then
{$else}
if MUI_AslRequest(MuiDialog, TagsList) then
{$endif}
@ -275,11 +271,7 @@ begin
end else
{$else}
{$ifdef Amiga}
{$ifdef Amiga68k}
if Boolean(AslRequest(MuiDialog, TagsList)) then
{$else}
if AslRequestA(MuiDialog, TagsList) then
{$endif}
if Boolean(AslRequest(MuiDialog, TagsList)) then
{$else}
if MUI_AslRequest(MuiDialog, TagsList) then
{$endif}
@ -451,11 +443,7 @@ class function TMuiWSFontDialog.CreateHandle(const ACommonDialog: TCommonDialog
var
MuiDialog: PFontRequester;
begin
{$if defined(MorphOS) or defined(Amiga68k)}
MuiDialog := PFontRequester(AllocAslRequest(ASL_FontRequest, nil));
{$else}
MuiDialog := PFontRequester(AllocAslRequest(ASL_FontRequest, [TAG_DONE, 0]));
{$endif}
Result := THandle(MuiDialog);
end;
@ -513,11 +501,7 @@ begin
]);
//
{$ifdef Amiga}
{$ifdef Amiga68k}
if Boolean(AslRequest(MuiDialog, TagsList)) then
{$else}
if AslRequestA(MuiDialog, TagsList) then
{$endif}
if Boolean(AslRequest(MuiDialog, TagsList)) then
{$else}
if MUI_AslRequest(MuiDialog, TagsList) then
{$endif}