diff options
Diffstat (limited to 'libgtk_kylix/GTKUtils.pas')
| -rw-r--r-- | libgtk_kylix/GTKUtils.pas | 16 |
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; (********************************************************************************************************************************) |
