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

Gtk3: removed unused code.

Browse Source
This commit is contained in:
zeljan1 2025-01-17 22:57:59 +01:00
parent a8cbc7ff3c
commit b230dabbd3
1 changed files with 0 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -1390,54 +1390,6 @@ begin
end;
end;
procedure SetComboBoxMinWidthCSS(ComboBox: PGtkComboBox; MinWidth: Integer);
var
CssProvider: PGtkCssProvider;
StyleContext: PGtkStyleContext;
CssData: PChar;
begin
ComboBox^.show;
// Create a new CSS provider
CssProvider := gtk_css_provider_new();
// Define the CSS data
CssData := PChar(Format('combobox { min-width: %dpx; padding: 0; border-width: 0;}', [MinWidth]));
// Load the CSS data into the provider
gtk_css_provider_load_from_data(CssProvider, CssData, -1, nil);
// Get the style context of the combo box
StyleContext := gtk_widget_get_style_context(ComboBox);
// Add the CSS provider to the style context
gtk_style_context_add_provider(StyleContext, PGtkStyleProvider(CssProvider),
GTK_STYLE_PROVIDER_PRIORITY_USER);
// Unreference the CSS provider after adding it
g_object_unref(CssProvider);
end;
procedure ApplyComboEntryCss(ComboBox: PGtkComboBox; const AMinWidth: integer);
var
CssProvider: PGtkCssProvider;
StyleContext: PGtkStyleContext;
CssData: PChar;
Entry: PGtkEntry;
begin
CssProvider := gtk_css_provider_new();
CssData := PChar(Format('combobox combo.entry { min-width: %dpx; padding: 0; border-width: 0; }',[AMinWidth]));
gtk_css_provider_load_from_data(CssProvider, CssData, -1, nil);
Entry := PGtkEntry(ComboBox^.get_child);
if Assigned(Entry) then
begin
StyleContext := gtk_widget_get_style_context(Entry);
gtk_style_context_add_provider(StyleContext, PGtkStyleProvider(CssProvider),
GTK_STYLE_PROVIDER_PRIORITY_USER);
end;
g_object_unref(CssProvider);
end;
function SubtractScroll(AWidget: PGtkWidget; APosition: TPoint): TPoint;
begin
Result := APosition;