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

Gtk2: implemented psOwnerDraw for gtk2 statusbar. fixes #16614

Browse Source 
git-svn-id: trunk@25838 -
This commit is contained in:
zeljko 2010-06-02 09:46:51 +00:00
parent 8450373c5d
commit 11a302cae4
1 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
lcl/interfaces/gtk/gtkproc.inc
View File

@ -6288,6 +6288,9 @@ begin
begin
CurStatusPanelWidget := PGtkBoxChild(
g_list_nth_data(PGtkBox(HBox)^.children, CurPanelCount - 1))^.Widget;
{$IFDEF GTK2}
gtk_object_remove_data(PGtkObject(CurStatusPanelWidget),'lcl_statusbar_id');
{$ENDIF}
DestroyConnectedWidgetCB(CurStatusPanelWidget, True);
dec(CurPanelCount);
end;
@ -6320,6 +6323,71 @@ begin
end;
end;
{$IFDEF GTK2}
function gtk2PaintStatusBarWidget(Widget: PGtkWidget; Event : PGDKEventExpose;
Data: gPointer): GBoolean; cdecl;
var
Msg: TLMDrawItems;
PS : TPaintStruct;
ItemStruct: PDrawItemStruct;
ItemID: Integer;
begin
Result := CallBackDefaultReturn;
if (Event^.Count > 0) then exit;
if (csDesigning in TComponent(Data).ComponentState) then
exit;
if TStatusBar(Data).SimplePanel then
exit;
ItemId := PtrInt(gtk_object_get_data(PGtkObject(Widget), 'lcl_statusbar_id')^);
if not ((ItemId >= 0) and (ItemId < TStatusBar(Data).Panels.Count)) then
exit;
if TStatusBar(Data).Panels[ItemId].Style <> psOwnerDraw then
exit;
FillChar(Msg, SizeOf(Msg), #0);
FillChar(PS, SizeOf(PS), #0);
FillChar(ItemStruct, SizeOf(ItemStruct), #0);
New(ItemStruct);
// we must fill up complete area otherwise gtk2 will do
// strange paints when item is not fully exposed.
ItemStruct^.rcItem := Rect(Widget^.allocation.x,
Widget^.allocation.y,
Widget^.allocation.width + Widget^.allocation.x,
Widget^.allocation.height + Widget^.allocation.y);
OffsetRect(ItemStruct^.rcItem, -ItemStruct^.rcItem.Left, -ItemStruct^.rcItem.Top);
// take frame borders into account
with ItemStruct^.rcItem do
begin
Left := Left + Widget^.style^.xthickness;
Top := Top + Widget^.style^.ythickness;
Right := Right - Widget^.style^.xthickness;
Bottom := Bottom - Widget^.style^.ythickness;
end;
ItemStruct^.itemID := ItemID;
PS.rcPaint := ItemStruct^.rcItem;
ItemStruct^._hDC := BeginPaint(THandle(PtrUInt(Widget)), PS);
Msg.Ctl := TStatusBar(Data).Handle;
Msg.DrawItemStruct := ItemStruct;
Msg.Msg := LM_DRAWITEM;
try
DeliverMessage(TStatusBar(Data), Msg);
Result := not CallBackDefaultReturn;
finally
PS.hdc := ItemStruct^._hDC;
EndPaint(THandle(PtrUInt(TGtkDeviceContext(PS.hdc).Widget)), PS);
Dispose(ItemStruct);
end;
end;
{$ENDIF}
procedure UpdateStatusBarPanel(StatusBar: TObject; Index: integer;
StatusPanelWidget: PGtkWidget);
var
@ -6409,6 +6477,12 @@ begin
//DebugLn(' CurPanel.Width="',CurPanel.Width,'"');
gtk_widget_set_usize(StatusPanelWidget, CurPanel.Width,
StatusPanelWidget^.allocation.height);
{$IFDEF GTK2}
gtk_object_set_data(PGtkObject(StatusPanelWidget),'lcl_statusbar_id',
@AStatusBar.Panels[Index].ID);
g_signal_connect_after(StatusPanelWidget, 'expose-event',
TGtkSignalFunc(@gtk2PaintStatusBarWidget), AStatusBar);
{$ENDIF}
end;
end;