paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 04:45:54 +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; end;
Result := True; Result := True;
end; end;*)
function TQtWidgetSet.MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): integer; {$ifndef CD_Android}
var function TCDWidgetSet.MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): integer;
{var
Str: WideString; Str: WideString;
TitleStr: WideString; TitleStr: WideString;
OkStr: WideString; OkStr: WideString;}
begin begin
//TODO: Finish full implementation of MessageBox { //TODO: Finish full implementation of MessageBox
Str := GetUtf8String('TQtWidgetSet.MessageBox - not implemented'); Str := GetUtf8String('TQtWidgetSet.MessageBox - not implemented');
TitleStr := GetUtf8String(lpCaption); TitleStr := GetUtf8String(lpCaption);
OkStr := GetUtf8String('Ok'); OkStr := GetUtf8String('Ok');
Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr); Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr);}
end;*) end;
{$endif}
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: MoveToEx Function: MoveToEx