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

Gtk3: ellipsize text of combo.style=dropdownlist

Browse Source
This commit is contained in:
zeljan1 2025-01-30 10:12:54 +01:00
parent 71cedcf83b
commit 49faf7719e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk3/gtk3cellrenderer.pas
View File

@ -326,6 +326,8 @@ begin
if Assigned(ACombo) then
begin
if TCustomComboBox(aWidget.LCLObject).Style = csDropDownList then
g_object_set(PGObject(cell), 'ellipsize', [PANGO_ELLIPSIZE_END, nil]);
{$IFDEF GTK3DEBUGCELLRENDERER}
writeln('Widget is ',G_OBJECT_TYPE_NAME(widget),' ',G_OBJECT_TYPE_NAME(ACombo),' LCL=',dbgsName(aWidget.LCLObject));
InspectStyleContext(aCombo);