summaryrefslogtreecommitdiff
path: root/libgtk_kylix/GTKUtils.pas
diff options
context:
space:
mode:
Diffstat (limited to 'libgtk_kylix/GTKUtils.pas')
-rw-r--r--libgtk_kylix/GTKUtils.pas16
1 files changed, 8 insertions, 8 deletions
diff --git a/libgtk_kylix/GTKUtils.pas b/libgtk_kylix/GTKUtils.pas
index 3f92168..288aee3 100644
--- a/libgtk_kylix/GTKUtils.pas
+++ b/libgtk_kylix/GTKUtils.pas
@@ -101,7 +101,7 @@ var Widget: PGtkWidget;
begin
Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
Style := gtk_rc_get_style(Widget);
- Result := @Style^.fg[State];
+ Result := @(Style^.fg[State]);
gtk_widget_destroy(Widget);
end;
@@ -109,7 +109,7 @@ function GetDefaultForegroundColor(Widget: TGTKControl; State: integer): PGdkCol
var Style: PGtkStyle;
begin
Style := gtk_rc_get_style(Widget.FWidget);
- Result := @Style^.fg[State];
+ Result := @(Style^.fg[State]);
end;
(********************************************************************************************************************************)
@@ -119,7 +119,7 @@ var Widget: PGtkWidget;
begin
Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
Style := gtk_rc_get_style(Widget);
- Result := @Style^.bg[State];
+ Result := @(Style^.bg[State]);
gtk_widget_destroy(Widget);
end;
@@ -127,7 +127,7 @@ function GetDefaultBackgroundColor(Widget: TGTKControl; State: integer): PGdkCol
var Style: PGtkStyle;
begin
Style := gtk_rc_get_style(Widget.FWidget);
- Result := @Style^.bg[State];
+ Result := @(Style^.bg[State]);
end;
(********************************************************************************************************************************)
@@ -137,7 +137,7 @@ var Widget: PGtkWidget;
begin
Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
Style := gtk_rc_get_style(Widget);
- Result := @Style^.base[State];
+ Result := @(Style^.base[State]);
gtk_widget_destroy(Widget);
end;
@@ -145,7 +145,7 @@ function GetDefaultBaseColor(Widget: TGTKControl; State: integer): PGdkColor;
var Style: PGtkStyle;
begin
Style := gtk_rc_get_style(Widget.FWidget);
- Result := @Style^.base[State];
+ Result := @(Style^.base[State]);
end;
(********************************************************************************************************************************)
@@ -155,7 +155,7 @@ var Widget: PGtkWidget;
begin
Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
Style := gtk_rc_get_style(Widget);
- Result := @Style^.text[State];
+ Result := @(Style^.text[State]);
gtk_widget_destroy(Widget);
end;
@@ -163,7 +163,7 @@ function GetDefaultTextColor(Widget: TGTKControl; State: integer): PGdkColor;
var Style: PGtkStyle;
begin
Style := gtk_rc_get_style(Widget.FWidget);
- Result := @Style^.text[State];
+ Result := @(Style^.text[State]);
end;
(********************************************************************************************************************************)