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

lcl: publish TListBox.OnMeasureItem (it works for windows, gtk2, qt)

Browse Source 
gtk2: redo some parts of LCLIntfCellRenderer, implement item measure

git-svn-id: trunk@15178 -
This commit is contained in:
paul 2008-05-19 05:38:25 +00:00
parent d294819542
commit 1fe2f01c5e
3 changed files with 127 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

171
lcl/interfaces/gtk2/gtk2cellrenderer.pas
View File

@ -39,39 +39,119 @@ type
TLCLIntfCellRenderer = record
// ! the TextRenderer must be the first attribute of this record !
TextRenderer: TGtkCellRendererText;
ItemIndex: integer; // for TCustomListBox: the ItemIndex of the cell
iter: PGtkTreeIter;
end;
PLCLIntfCellRendererClass = ^TLCLIntfCellRendererClass;
TLCLIntfCellRendererClass = record
ParentClass: TGtkCellRendererTextClass;
DefaultGtkRender : procedure (cell:PGtkCellRenderer; window:PGdkWindow;
widget:PGtkWidget; background_area:PGdkRectangle;
cell_area:PGdkRectangle;
expose_area:PGdkRectangle; flags:TGtkCellRendererState); cdecl;
DefaultGtkGetSize: procedure(cell: PGtkCellRenderer;
widget: PGtkWidget;
cell_area: PGdkRectangle;
x_offset: pgint;
y_offset: pgint;
width: pgint;
height: pgint); cdecl;
DefaultGtkRender: procedure(cell: PGtkCellRenderer;
window: PGdkWindow;
widget: PGtkWidget;
background_area: PGdkRectangle;
cell_area: PGdkRectangle;
expose_area:PGdkRectangle;
flags: TGtkCellRendererState); cdecl;
end;
function LCLIntfCellRenderer_GetType: TGtkType;
function LCLIntfCellRenderer_New: PGtkCellRenderer;
procedure LCLIntfCellRenderer_CellDataFunc(cell_layout:PGtkCellLayout;
cell: PGtkCellRenderer;
tree_model: PGtkTreeModel;
iter: PGtkTreeIter;
data: gpointer); cdecl;
implementation
uses GtkExtra;
function GetControl(cell: PGtkCellRenderer; Widget: PGtkWidget): TWinControl;
var
WidgetInfo: PWidgetInfo;
LCLObject: TObject;
MainWidget: PGtkWidget;
begin
Result := nil;
MainWidget := GetMainWidget(Widget);
if MainWidget = nil then
exit;
WidgetInfo := GetWidgetInfo(MainWidget, false);
if WidgetInfo = nil then
WidgetInfo := GetWidgetInfo(cell, false);
if WidgetInfo = nil then
exit;
LCLObject := WidgetInfo^.LCLObject; // the listbox or combobox
Result := LCLObject as TWinControl;
end;
function GetItemIndex(cell: PLCLIntfCellRenderer; widget: PGtkWidget): Integer;
var
APath: PGtkTreePath;
begin
if GTK_IS_TREE_VIEW(Widget) then
begin
APath := gtk_tree_model_get_path(gtk_tree_view_get_model(GTK_TREE_VIEW(Widget)),
cell^.iter);
Result := StrToInt(gtk_tree_path_to_string(APath));
gtk_tree_path_free(APath);
end
else
Result := -1;
end;
procedure LCLIntfCellRenderer_GetSize(cell: PGtkCellRenderer; widget: PGtkWidget;
cell_area: PGdkRectangle; x_offset, y_offset, width, height: pgint); cdecl;
var
CellClass: PLCLIntfCellRendererClass;
AWinControl: TWinControl;
ItemIndex: Integer;
Msg: TLMMeasureItem;
MeasureItemStruct: TMeasureItemStruct;
begin
CellClass:=PLCLIntfCellRendererClass(gtk_object_get_class(cell));
CellClass^.DefaultGtkGetSize(cell, Widget, cell_area, x_offset, y_offset,
width, height);
AWinControl := GetControl(cell, widget);
if [csDestroying,csLoading]*AWinControl.ComponentState<>[] then exit;
if AWinControl is TCustomListbox then
if TCustomListbox(AWinControl).Style < lbOwnerDrawVariable then
exit;
if AWinControl is TCustomCombobox then
if TCustomCombobox(AWinControl).Style < csOwnerDrawVariable then
exit;
ItemIndex := GetItemIndex(PLCLIntfCellRenderer(cell), Widget);
if ItemIndex < 0 then
ItemIndex := 0;
MeasureItemStruct.itemID := ItemIndex;
MeasureItemStruct.itemWidth := width^;
MeasureItemStruct.itemHeight := height^;
Msg.Msg := LM_MEASUREITEM;
Msg.MeasureItemStruct := @MeasureItemStruct;
DeliverMessage(AWinControl, Msg);
width^ := MeasureItemStruct.itemWidth;
height^ := MeasureItemStruct.itemHeight;
end;
procedure LCLIntfCellRenderer_Render(cell: PGtkCellRenderer; Window: PGdkWindow;
Widget: PGtkWidget; background_area: PGdkRectangle; cell_area: PGdkRectangle;
expose_area: PGdkRectangle; flags: TGtkCellRendererState); cdecl;
var
CellClass: PLCLIntfCellRendererClass;
WidgetInfo: PWidgetInfo;
LCLObject: TObject;
MainWidget: PGtkWidget;
AWinControl: TWinControl;
ItemIndex: Integer;
AreaRect: TRect;
State: TBaseOwnerDrawState;
Msg: TLMDrawListItem;
ItemPath: PGtkTreePath;
Column: PGtkTreeViewColumn;
DCWidget: PGtkWidget;
begin
{DebugLn(['LCLIntfCellRenderer_Render cell=',dbgs(cell),
@ -81,18 +161,12 @@ begin
' expose_area=',dbgGRect(expose_area)]);}
// draw default
CellClass:=PLCLIntfCellRendererClass(gtk_object_get_class(cell));
CellClass^.DefaultGtkRender(cell, Window, Widget, background_area,cell_area,
CellClass := PLCLIntfCellRendererClass(gtk_object_get_class(cell));
CellClass^.DefaultGtkRender(cell, Window, Widget, background_area, cell_area,
expose_area, flags);
// send LM_DrawListItem message
MainWidget:=GetMainWidget(Widget);
if MainWidget=nil then exit;
WidgetInfo:=GetWidgetInfo(MainWidget,false);
if WidgetInfo=nil then WidgetInfo:=GetWidgetInfo(cell,false);
if WidgetInfo=nil then exit;
LCLObject:=WidgetInfo^.LCLObject; // the listbox or combobox
AWinControl:=LCLObject as TWinControl;
AWinControl := GetControl(cell, widget);
if [csDestroying,csLoading]*AWinControl.ComponentState<>[] then exit;
// check if the LCL object wants item paint messages
@ -105,40 +179,13 @@ begin
// get itemindex and area
AreaRect:=Bounds(background_area^.x,background_area^.y,
background_area^.Width,background_area^.Height);
AreaRect := Bounds(background_area^.x, background_area^.y,
background_area^.Width, background_area^.Height);
ItemIndex:=-1;
if GTK_IS_TREE_VIEW(Widget) then begin
//check the four possible corners of the cell
if gtk_tree_view_get_path_at_pos(PGtkTreeView(Widget),cell_area^.x, cell_area^.y, ItemPath, column, nil, nil)
or gtk_tree_view_get_path_at_pos(PGtkTreeView(Widget),cell_area^.x, cell_area^.y+cell_area^.height, ItemPath, column, nil, nil)
or gtk_tree_view_get_path_at_pos(PGtkTreeView(Widget),cell_area^.x+cell_area^.width, cell_area^.y, ItemPath, column, nil, nil)
or gtk_tree_view_get_path_at_pos(PGtkTreeView(Widget),cell_area^.x+cell_area^.width, cell_area^.y+cell_area^.height, ItemPath, column, nil, nil)
then
begin
ItemIndex := StrToInt(gtk_tree_path_to_string(ItemPath));
gtk_tree_path_free(ItemPath);
end;
end
else if AWinControl is TCustomComboBox then begin
ItemPath := gtk_cell_view_get_displayed_row(Widget);
if ItemPath <> nil then
begin
ItemIndex := StrToInt(gtk_tree_path_to_string(ItemPath));
gtk_tree_path_free(ItemPath);
if (Widget^.parent <> nil) and (GtkWidgetIsA(Widget^.parent,gtk_menu_item_get_type)) then
AreaRect:=Bounds(0,0,
Widget^.Parent^.allocation.width,
Widget^.Parent^.allocation.height)
else
AreaRect:=Bounds(0,0,
Widget^.allocation.width,
Widget^.allocation.height);
end;
end;
ItemIndex := GetItemIndex(PLCLIntfCellRenderer(cell), Widget);
if ItemIndex < 0 then ItemIndex := 0;
if ItemIndex < 0 then
ItemIndex := 0;
// collect state flags
State:=[odPainted];
@ -193,10 +240,12 @@ var
RendererClass: PGtkCellRendererClass;
begin
//DebugLn(['LCLIntfCellRenderer_ClassInit ']);
LCLClass:=PLCLIntfCellRendererClass(aClass);
RendererClass:=GTK_CELL_RENDERER_CLASS(aClass);
LCLClass^.DefaultGtkRender:=RendererClass^.render;
RendererClass^.render:=@LCLIntfCellRenderer_Render;
LCLClass := PLCLIntfCellRendererClass(aClass);
RendererClass := GTK_CELL_RENDERER_CLASS(aClass);
LCLClass^.DefaultGtkGetSize := RendererClass^.get_size;
LCLClass^.DefaultGtkRender := RendererClass^.render;
RendererClass^.get_size := @LCLIntfCellRenderer_GetSize;
RendererClass^.render := @LCLIntfCellRenderer_Render;
end;
procedure LCLIntfCellRenderer_Init(Instance:PGTypeInstance;
@ -236,5 +285,17 @@ begin
Result := g_object_new(LCLIntfCellRenderer_GetType, nil,[]);
end;
procedure LCLIntfCellRenderer_CellDataFunc(cell_layout:PGtkCellLayout;
cell: PGtkCellRenderer; tree_model: PGtkTreeModel; iter: PGtkTreeIter;
data: gpointer); cdecl;
var
LCLCellRenderer: PLCLIntfCellRenderer absolute cell;
begin
// maybe copy iter?
// maybe copy something else?
LCLCellRenderer^.iter := iter;
end;
end.

9
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -591,7 +591,7 @@ begin
if Result = 0 then exit;
{$IFDEF DebugLCLComponents}
// already called by inherited: DebugGtkWidgets.MarkCreated(p,dbgsName(AWinControl));
DebugGtkWidgets.MarkCreated(p,dbgsName(AWinControl));
{$ENDIF}
GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(p)^.hscrollbar, GTK_CAN_FOCUS);
@ -610,6 +610,8 @@ begin
renderer := LCLIntfCellRenderer_New();
column := gtk_tree_view_column_new_with_attributes ('LISTITEMS', renderer,
['text', 0, nil]);
gtk_cell_layout_set_cell_data_func(PGtkCellLayout(column), renderer,
@LCLIntfCellRenderer_CellDataFunc, nil, nil);
gtk_tree_view_append_column (GTK_TREE_VIEW (TVWidget), column);
gtk_tree_view_column_set_clickable (GTK_TREE_VIEW_COLUMN (column), TRUE);
@ -1004,6 +1006,8 @@ begin
gtk_cell_layout_clear(PGtkCellLayout(AWidget));
gtk_cell_layout_pack_start(PGtkCellLayout(AWidget), renderer, True);
gtk_cell_layout_set_attributes(PGtkCellLayout(AWidget), renderer, ['text', 0, nil]);
gtk_cell_layout_set_cell_data_func(PGtkCellLayout(AWidget), renderer,
@LCLIntfCellRenderer_CellDataFunc, nil, nil);
end;
procedure GtkPopupShowCB(AMenu: PGtkMenuShell; WidgetInfo: PWidgetInfo); cdecl;
@ -1039,7 +1043,8 @@ begin
begin
LCLSendDropDownMsg(TControl(WidgetInfo^.LCLObject));
AMenu := PGtkComboBoxPrivate(PGtkComboBox(WidgetInfo^.CoreWidget)^.priv)^.popup_widget;
gtk_menu_reposition(PGtkMenu(AMenu));
if GTK_IS_MENU(AMenu) then
gtk_menu_reposition(PGtkMenu(AMenu));
end;
end;
end;

7
lcl/stdctrls.pp
View File

@ -511,9 +511,6 @@ type
State: TOwnerDrawState); virtual;
procedure DoSelectionChange(User: Boolean); virtual;
procedure SendItemIndex;
protected
property OnMeasureItem: TMeasureItemEvent
read FOnMeasureItem write FOnMeasureItem;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -556,6 +553,8 @@ type
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMeasureItem: TMeasureItemEvent
read FOnMeasureItem write FOnMeasureItem;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
@ -617,6 +616,7 @@ type
property OnKeyPress;
property OnKeyDown;
property OnKeyUp;
property OnMeasureItem;
property OnMouseMove;
property OnMouseDown;
property OnMouseUp;
@ -1544,3 +1544,4 @@ end.