paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 14:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: formatting, added some todos

Browse Source 
git-svn-id: trunk@33039 -
This commit is contained in:
zeljko 2011-10-23 08:30:37 +00:00
parent 43ff01a261
commit 1923bcff9e
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtwinapi.inc
View File

@ -3161,8 +3161,16 @@ begin
Brush Brush
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
else else
if aObject is TQtRegion then
begin
{TODO: implement Region}
{$ifdef VerboseQtWinAPI}
ObjType := 'Region';
{$endif}
end else
if aObject is TQtBrush then if aObject is TQtBrush then
begin begin
{TODO: implement Brush}
{$ifdef VerboseQtWinAPI} {$ifdef VerboseQtWinAPI}
ObjType := 'Brush'; ObjType := 'Brush';
{$endif} {$endif}
@ -6391,9 +6399,13 @@ begin
{$ifdef VerboseQtWinAPI} {$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI UpdateWindow]'); WriteLn('[WinAPI UpdateWindow]');
{$endif} {$endif}
Result := False;
if Handle <> 0 then
begin
TQtWidget(Handle).Update; TQtWidget(Handle).Update;
Result := True; Result := True;
end; end;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: WindowFromPoint Method: WindowFromPoint