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

customdrawn-ws: Fixes non-android compilation

Browse Source 
git-svn-id: trunk@34133 -
This commit is contained in:
sekelsenmat 2011-12-12 12:42:42 +00:00
parent f6961ca877
commit 9d9bf409cd
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -4776,20 +4776,22 @@ begin
end;
Result := True;
end;
end;*)
function TQtWidgetSet.MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): integer;
var
{$ifndef CD_Android}
function TCDWidgetSet.MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): integer;
{var
Str: WideString;
TitleStr: WideString;
OkStr: WideString;
OkStr: WideString;}
begin
//TODO: Finish full implementation of MessageBox
{ //TODO: Finish full implementation of MessageBox
Str := GetUtf8String('TQtWidgetSet.MessageBox - not implemented');
TitleStr := GetUtf8String(lpCaption);
OkStr := GetUtf8String('Ok');
Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr);
end;*)
Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr);}
end;
{$endif}
{------------------------------------------------------------------------------
Function: MoveToEx