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

Qt: introduced custom paint for combobox.

Browse Source 
git-svn-id: trunk@17529 -
This commit is contained in:
zeljko 2008-11-22 21:19:59 +00:00
parent 648e302cbe
commit 04ae06b2af
1 changed files with 104 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -670,6 +670,7 @@ type
function GetDropList: TQtListWidget;
function GetLineEdit: TQtLineEdit;
procedure SetOwnerDrawn(const AValue: Boolean);
procedure slotPaintCombo(Sender: QObjectH; Event: QEventH); cdecl;
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
// IQtEdit implementation
@ -6066,6 +6067,100 @@ begin
inherited DetachEvents;
end;
procedure TQtComboBox.slotPaintCombo(Sender: QObjectH; Event: QEventH); cdecl;
var
Msg: TLMPaint;
AStruct: PPaintStruct;
MsgItem: TLMDrawListItem;
DrawStruct: TDrawListItemStruct;
P: TPoint;
Opt: QStyleOptionComboBoxH;
R: TRect;
State: QStyleState;
begin
{$ifdef VerboseQt}
WriteLn('TQtComboBox.SlotPaintCombo ', dbgsName(LCLObject));
{$endif}
FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_PAINT;
New(AStruct);
FillChar(AStruct^, SizeOf(TPaintStruct), 0);
Msg.PaintStruct := AStruct;
with PaintData do
begin
PaintWidget := Widget;
ClipRegion := QPaintEvent_Region(QPaintEventH(Event));
if ClipRect = nil then
New(ClipRect);
QPaintEvent_Rect(QPaintEventH(Event), ClipRect);
end;
Msg.DC := BeginPaint(THandle(Self), AStruct^);
FContext := Msg.DC;
Msg.PaintStruct^.rcPaint := PaintData.ClipRect^;
Msg.PaintStruct^.hdc := FContext;
P := getClientOffset;
inc(P.X, FScrollX);
inc(P.Y, FScrollY);
TQtDeviceContext(Msg.DC).translate(P.X, P.Y);
TQtDeviceContext(Msg.DC).save;
try
Opt := QStyleOptionComboBox_create();
QStyleOption_initFrom(Opt, Widget);
State := QStyleOption_state(opt);
QStyleOption_rect(Opt, @R);
QPainter_setClipRect(TQtDeviceContext(Msg.DC).Widget, @R);
QStyle_drawComplexControl(QApplication_style(), QStyleCC_ComboBox, Opt,
TQtDeviceContext(Msg.DC).Widget, Widget);
QStyle_subControlRect(QApplication_style(), @R, QStyleCC_ComboBox, Opt,
QStyleSC_ComboBoxEditField , Widget);
finally
QStyleOptionComboBox_destroy(Opt);
TQtDeviceContext(Msg.DC).restore;
end;
DrawStruct.ItemID := TCustomComboBox(LCLObject).Items.IndexOf(TCustomComboBox(LCLObject).Text);
DrawStruct.Area := R;
DrawStruct.DC := Msg.DC;
DrawStruct.ItemState := [];
// selected
if (State and QStyleState_Selected) <> 0 then
Include(DrawStruct.ItemState, odSelected);
// disabled
if (State and QStyleState_Enabled) = 0 then
Include(DrawStruct.ItemState, odDisabled);
// focused (QStyleState_FocusAtBorder?)
if ((State and QStyleState_HasFocus) <> 0) or
((State and QStyleState_FocusAtBorder) <> 0) then
Include(DrawStruct.ItemState, odFocused);
// hotlight
if (State and QStyleState_MouseOver) <> 0 then
Include(DrawStruct.ItemState, odHotLight);
MsgItem.Msg := LM_DRAWLISTITEM;
MsgItem.DrawListItemStruct := @DrawStruct;
try
DeliverMessage(MsgItem);
finally
LCLIntf.DeleteDC(Msg.DC);
Dispose(PaintData.ClipRect);
Fillchar(FPaintData, SizeOf(FPaintData), 0);
FContext := 0;
EndPaint(THandle(Self), AStruct^);
Dispose(AStruct);
end;
end;
function TQtComboBox.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var
ev: QEventH;
@ -6094,6 +6189,15 @@ begin
end else
begin
case QEvent_type(Event) of
QEventPaint:
begin
if FOwnerDrawn and not getEditable then
begin
SlotPaintCombo(Widget, Event);
Result := True;
QEvent_accept(Event);
end;
end;
QEventFocusIn:
begin
if not (csDesigning in LCLObject.ComponentState) then