paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:39:10 +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

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

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