Commit aac691fd authored by Željan Rikalo's avatar Željan Rikalo 🏊🏼
Browse files

Qt: cleanup unused local variables, removed one warning. issue #27951

git-svn-id: trunk@48842 -
parent e80c4e46
......@@ -307,9 +307,8 @@ class procedure TQtWSCustomTabControl.MovePage(const ATabControl: TCustomTabCont
var
TabWidget: TQtTabWidget;
Index: Integer;
Page: TQtPage;
begin
Page := TQtPage(AChild.Handle);
AChild.HandleNeeded; {create handle if it does not exist yet}
TabWidget := TQtTabWidget(ATabControl.Handle);
Index := AChild.PageIndex;
if Index < 0 then
......
......@@ -176,7 +176,9 @@ var
R: TRect;
P: TQtPoint;
AHint: WideString;
{$IFDEF HASX11}
PaintData: TSysTrayIconPaintData;
{$ENDIF}
begin
Result := False;
if Sender <> FSysTrayWidget then
......
......@@ -3965,7 +3965,10 @@ end;
procedure TQtWidget.SlotMove(Event: QEventH); cdecl;
var
Msg: TLMMove;
APos, ACurrPos: TQtPoint;
APos: TQtPoint;
{$IFDEF HASX11}
ACurrPos: TQtPoint;
{$ENDIF}
FrameRect, WindowRect: TRect;
begin
{$ifdef VerboseQt}
......@@ -8711,6 +8714,7 @@ begin
{$endif}
if SliderPressed and not InUpdate then
begin
Msg.Msg := 0; // shutup compiler
FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_CHANGED;
DeliverMessage(Msg);
......@@ -11593,7 +11597,6 @@ var
v: QVariantH;
WStr: WideString;
DataStr: WideString;
ASelected: Boolean;
ImgList: TCustomImageList;
AImageIndex: TImageIndex;
Bmp: TBitmap;
......@@ -13671,7 +13674,7 @@ var
R: TRect;
TopItem: Integer;
i: Integer;
j, x: Integer;
j: Integer;
ChildCount: Integer;
VHeight: Integer; // viewport height
RowHeight: Integer;
......
......@@ -1437,7 +1437,7 @@ begin
F := DTFlagsToQtFlags(Flags);
end;
{$warning HARDCODED WORKAROUND for qt-4.7.1 QPainter bug.}
{Workaround for qt-4.7 QPainter bug.It's fixed in qt-4.7.4. DO NOT REMOVE}
{ Bug triggers when we try to paint multiline text which contains 1
space. eg "Save project\nCtrl+S". In this case QPainter draws
Save
......
......@@ -395,8 +395,10 @@ const
var
Widget: TQtMainWindow;
R: TRect;
{$IFDEF HASX11}
ActiveWin: HWND;
W: QWidgetH;
{$ENDIF}
Flags: Cardinal;
function ShowNonModalOverModal: Boolean;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment