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

Qt: QComboBox custom paint, reduce rect size by 1.

Browse Source 
git-svn-id: trunk@17530 -
This commit is contained in:
zeljko 2008-11-22 21:27:46 +00:00
parent 04ae06b2af
commit 7e433b19e6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwidgets.pas
View File

@ -6126,6 +6126,10 @@ begin
TQtDeviceContext(Msg.DC).restore; TQtDeviceContext(Msg.DC).restore;
end; end;
inc(R.Top);
dec(R.Bottom);
QPainter_setClipRect(TQTDeviceContext(Msg.DC).Widget, @R);
DrawStruct.ItemID := TCustomComboBox(LCLObject).Items.IndexOf(TCustomComboBox(LCLObject).Text); DrawStruct.ItemID := TCustomComboBox(LCLObject).Items.IndexOf(TCustomComboBox(LCLObject).Text);
DrawStruct.Area := R; DrawStruct.Area := R;
DrawStruct.DC := Msg.DC; DrawStruct.DC := Msg.DC;