paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 22:37:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt,Qt5: fixed redundand line. issue #36590

Browse Source 
git-svn-id: trunk@62587 -
This commit is contained in:
zeljko 2020-01-25 13:10:44 +00:00
parent af1924d230
commit 518d306921
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtobjects.pas
View File

@ -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);

2
lcl/interfaces/qt5/qtobjects.pas
View File

@ -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);