From 518d306921689c71f1b94b31ad6209f3375dc588 Mon Sep 17 00:00:00 2001 From: zeljko Date: Sat, 25 Jan 2020 13:10:44 +0000 Subject: [PATCH] Qt,Qt5: fixed redundand line. issue #36590 git-svn-id: trunk@62587 - --- lcl/interfaces/qt/qtobjects.pas | 2 +- lcl/interfaces/qt5/qtobjects.pas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas index 886cc04092..50fd309218 100644 --- a/lcl/interfaces/qt/qtobjects.pas +++ b/lcl/interfaces/qt/qtobjects.pas @@ -2526,7 +2526,7 @@ begin Palette := QWidget_palette(Parent); end; // since q_DrawWinPanel doesnot supports lineWidth we should do it ourself - for i := 1 to lineWidth - 2 do + for i := 1 to lineWidth - 1 do begin q_DrawWinPanel(Widget, x, y, w, h, Palette, Sunken); inc(x); diff --git a/lcl/interfaces/qt5/qtobjects.pas b/lcl/interfaces/qt5/qtobjects.pas index 7631d02172..9919ac6fcb 100644 --- a/lcl/interfaces/qt5/qtobjects.pas +++ b/lcl/interfaces/qt5/qtobjects.pas @@ -2535,7 +2535,7 @@ begin Palette := QWidget_palette(Parent); end; // since q_DrawWinPanel doesnot supports lineWidth we should do it ourself - for i := 1 to lineWidth - 2 do + for i := 1 to lineWidth - 1 do begin q_DrawWinPanel(Widget, x, y, w, h, Palette, Sunken); inc(x);