diff options
Diffstat (limited to 'libgtk_kylix/GTKStdCtrls.pas')
| -rw-r--r-- | libgtk_kylix/GTKStdCtrls.pas | 1008 |
1 files changed, 1008 insertions, 0 deletions
diff --git a/libgtk_kylix/GTKStdCtrls.pas b/libgtk_kylix/GTKStdCtrls.pas new file mode 100644 index 0000000..1d4157a --- /dev/null +++ b/libgtk_kylix/GTKStdCtrls.pas @@ -0,0 +1,1008 @@ +(* + GTK-Kylix Library: GTKStdCtrls - Standard visual controls (such as buttons, labels, entry) + Version 0.6.23 (last updated 2007-12-08) + Copyright (C) 2007 Tomas Bzatek <tbzatek@users.sourceforge.net> + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Library General Public + License as published by the Free Software Foundation; either + version 2 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Library General Public License for more details. + + You should have received a copy of the GNU Library General Public + License along with this library; if not, write to the + Free Software Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307 USA. + +*) + +unit GTKStdCtrls; +{ $WEAKPACKAGEUNIT} + +interface + +uses gtk2, gdk2, glib2, Classes, GTKControls, GTKConsts, GTKClasses; + // Quick jump: QForms QControls QStdCtrls + + +type + +(****************************************** TGTKBUTTON **************************************************************************) + TGTKBorderStyle = (bsNormal, bsHalf, bsNone); + TGTKButton = class(TGTKBin) + private + FOnClick: TNotifyEvent; + function GetCaption: string; + function GetUseStock: boolean; + function GetUseUnderline: boolean; + function GetBorderStyle: TGTKBorderStyle; + procedure SetCaption(Value: string); + procedure SetUseStock(Value: boolean); + procedure SetUseUnderline(Value: boolean); + procedure SetBorderStyle(Value: TGTKBorderStyle); + public + constructor Create(AOwner: TComponent); override; + constructor CreateFromStock(AOwner: TComponent; const StockID: PChar); + destructor Destroy; override; + published + property Caption: string read GetCaption write SetCaption; + property OnClick: TNotifyEvent read FOnClick write FOnClick; + property UseStock: boolean read GetUseStock write SetUseStock; + property UseUnderline: boolean read GetUseUnderline write SetUseUnderline; + property BorderStyle: TGTKBorderStyle read GetBorderStyle write SetBorderStyle; + end; + +(****************************************** TGTKMISC ****************************************************************************) + TGTKMisc = class(TGTKControl) + private + function GetXAlign: Single; + function GetYAlign: Single; + function GetXPadding: integer; + function GetYPadding: integer; + procedure SetXAlign(Value: Single); + procedure SetYAlign(Value: Single); + procedure SetXPadding(Value: integer); + procedure SetYPadding(Value: integer); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure SetAlignment(XAlign, YAlign : Single); + procedure SetPadding(XPadding, YPadding : integer); + published + property XAlign: Single read GetXAlign write SetXAlign; + property YAlign: Single read GetYAlign write SetYAlign; + property XPadding: integer read GetXPadding write SetXPadding; + property YPadding: integer read GetYPadding write SetYPadding; + end; + +(****************************************** TGTKLABEL **************************************************************************) + TGTKAlignment = (taLeftJustify, taRightJustify, taCenter, taFill); + TGTKLabel = class(TGTKMisc) + private + FLinked: boolean; + function GetCaption: string; + function GetAlignment: TGTKAlignment; + function GetUseMarkup: boolean; + function GetLineWrap: boolean; + function GetUseUnderline: boolean; + function GetSelectable: boolean; + procedure SetCaption(Value: string); + procedure SetAlignment(Value: TGTKAlignment); + procedure SetUseMarkup(Value: boolean); + procedure SetLineWrap(Value: boolean); + procedure SetUseUnderline(Value: boolean); + procedure SetFocusControl(Value: TGTKControl); + procedure SetSelectable(Value: boolean); + public + constructor Create(AOwner: TComponent); override; + constructor CreateFromWidget(AOwner: TComponent; Widget: PGtkWidget); + destructor Destroy; override; + procedure SetMarkup(const Text: string); + published + property Caption: string read GetCaption write SetCaption; + property Alignment: TGTKAlignment read GetAlignment write SetAlignment; + property UseMarkup: boolean read GetUseMarkup write SetUseMarkup; + property LineWrap: boolean read GetLineWrap write SetLineWrap; + property UseUnderline: boolean read GetUseUnderline write SetUseUnderline; + property FocusControl: TGTKControl write SetFocusControl; + property Selectable: boolean read GetSelectable write SetSelectable; + end; + +(****************************************** TGTKTOGGLEBUTTON ********************************************************************) + TGTKToggleButton = class(TGTKButton) + private + FOnToggled: TNotifyEvent; + function GetCaption: string; + function GetChecked: boolean; + function GetDrawIndicator: boolean; + function GetInconsistent: boolean; + procedure SetCaption(Value: string); + procedure SetChecked(Value: boolean); + procedure SetDrawIndicator(Value: boolean); + procedure SetInconsistent(Value: boolean); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + published + property Caption: string read GetCaption write SetCaption; + property Checked: boolean read GetChecked write SetChecked; + property DrawIndicator: boolean read GetDrawIndicator write SetDrawIndicator; + property OnToggled: TNotifyEvent read FOnToggled write FOnToggled; + property Inconsistent: boolean read GetInconsistent write SetInconsistent; + property UseUnderline; + end; + +(****************************************** TGTKCHECKBUTTON *********************************************************************) + TGTKCheckButton = class(TGTKToggleButton) + public + constructor Create(AOwner: TComponent); override; + constructor CreateWithLabel(AOwner: TComponent; const ALabel: string); + destructor Destroy; override; + published + property Caption; + property Checked; + property DrawIndicator; + property OnToggled; + property UseUnderline; + end; + +(****************************************** TGTKRADIOBUTTON *********************************************************************) + TGTKRadioButton = class(TGTKToggleButton) + public + constructor Create(AOwner: TComponent); override; + constructor CreateWithLabel(AOwner: TComponent; const ALabel: string); + destructor Destroy; override; + procedure SetRadioGroup(RadioButton: TGTKRadioButton); + published + property Caption; + property Checked; + property DrawIndicator; + property OnToggled; + end; + +(****************************************** TGTKFRAME ***************************************************************************) + TGTKFrame = class(TGTKBin) + private + function GetCaption: string; + function GetShadowType: TGTKShadowType; + procedure SetCaption(Value: string); + procedure SetShadowType(Value: TGTKShadowType); + public + constructor Create(AOwner: TComponent); override; + constructor CreateWithoutLabel(AOwner: TComponent); + destructor Destroy; override; + published + property Caption: string read GetCaption write SetCaption; + property ShadowType: TGTKShadowType read GetShadowType write SetShadowType; + end; + +(****************************************** TGTKEDITABLE ************************************************************************) + TGTKEditable = class(TGTKControl) + private + FOnChanged: TNotifyEvent; + function GetEditable: boolean; + function GetPosition: integer; + procedure SetEditable(Value: boolean); + procedure SetPosition(Value: integer); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure CutClipboard; + procedure CopyClipboard; + procedure PasteClipboard; + procedure DeleteSelection; + procedure SelectRegion(StartPosition, EndPosition: integer); + procedure InsertText(AText: string; Position: integer); + procedure DeleteText(StartPosition, EndPosition: integer); + function GetChars(StartPosition, EndPosition: integer): string; + published + property Editable: boolean read GetEditable write SetEditable; + property CursorPosition: integer read GetPosition write SetPosition; + property OnChanged: TNotifyEvent read FOnChanged write FOnChanged; + end; + +(****************************************** TGTKENTRY ************************************************************************) + TGTKEntry = class(TGTKEditable) + private + FLinked: boolean; + function GetText: string; + function GetMaxLength: integer; + function GetVisibility: boolean; + procedure SetText(Value: string); + procedure SetMaxLength(Value: integer); + procedure SetVisibility(Value: boolean); + public + constructor Create(AOwner: TComponent); override; + constructor CreateFromWidget(AOwner: TComponent; Widget: PGtkWidget); + destructor Destroy; override; + procedure SelectAll; + published + property Text: string read GetText write SetText; + property MaxLength: integer read GetMaxLength write SetMaxLength; + property Visibility: boolean read GetVisibility write SetVisibility; + end; + +(****************************************** TGTKCOMBO **************************************************************************) + TGTKCombo = class(TGTKHBox) + private + procedure ItemsChanged(Sender: TObject); + function GetAllowEmpty: boolean; + function GetMatchValue: boolean; + function GetCaseSensitive: boolean; + procedure SetAllowEmpty(Value: boolean); + procedure SetMatchValue(Value: boolean); + procedure SetCaseSensitive(Value: boolean); + public + Items: TGList; + Entry: TGTKEntry; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure UpdateItems; + procedure SetPolicy(MatchValue, AllowEmpty: boolean); + procedure DisableActivate; + published + property AllowEmpty: boolean read GetAllowEmpty write SetAllowEmpty; + property MatchValue: boolean read GetMatchValue write SetMatchValue; + property CaseSensitive: boolean read GetCaseSensitive write SetCaseSensitive; + end; + +(****************************************** TGTKSPINEDIT ************************************************************************) + TGTKSpinEdit = class(TGTKEntry) + private + FAdjustment: PGtkAdjustment; + function GetDigits: integer; + procedure SetDigits(AValue: integer); + function GetMin: Double; + procedure SetMin(AValue: Double); + function GetMax: Double; + procedure SetMax(AValue: Double); + function GetIncrementStep: Double; + procedure SetIncrementStep(AValue: Double); + function GetIncrementPage: Double; + procedure SetIncrementPage(AValue: Double); + function GetValue: Double; + procedure SetValue(AValue: Double); + function GetAsInteger: integer; + procedure SetAsInteger(AValue: integer); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + published + property Digits: integer read GetDigits write SetDigits; + property Min: Double read GetMin write SetMin; + property Max: Double read GetMax write SetMax; + property IncrementStep: Double read GetIncrementStep write SetIncrementStep; + property IncrementPage: Double read GetIncrementPage write SetIncrementPage; + property Value: Double read GetValue write SetValue; + property AsInteger: integer read GetAsInteger write SetAsInteger; + property AsFloat: Double read GetValue write SetValue; + end; + +procedure TGTKButton_OnClick(button: PGtkButton; user_data: Pgpointer); cdecl; + + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +implementation + +uses GTKUtils; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +procedure TGTKButton_OnClick(button: PGtkButton; user_data: Pgpointer); cdecl; +begin + if Assigned(TGTKButton(user_data).FOnClick) then TGTKButton(user_data).FOnClick(TGTKButton(user_data)); +end; + +constructor TGTKButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FOnClick := nil; + if ClassName = 'TGTKButton' then begin + FWidget := gtk_button_new_with_mnemonic(StringToPgchar(SCDefaultButtonCaption)); + g_signal_connect(PGtkObject(FWidget), 'clicked', G_CALLBACK(@TGTKButton_OnClick), Self); + Show; + end; +end; + +constructor TGTKButton.CreateFromStock(AOwner: TComponent; const StockID: PChar); +begin + inherited Create(AOwner); + FOnClick := nil; + if ClassName = 'TGTKButton' then begin + FWidget := gtk_button_new_from_stock(StockID); + g_signal_connect(PGtkObject(FWidget), 'clicked', G_CALLBACK(@TGTKButton_OnClick), Self); + Show; + end; +end; + +destructor TGTKButton.Destroy; +begin + inherited Destroy; +end; + +function TGTKButton.GetCaption: string; +begin + Result := PgcharToString(gtk_label_get_text(PGtkLabel(ChildControl))); +end; + +procedure TGTKButton.SetCaption(Value: string); +begin + gtk_label_set_text_with_mnemonic(PGtkLabel(ChildControl), StringToPgchar(Value)); +end; + +function TGTKButton.GetUseStock: boolean; +begin + Result := gtk_button_get_use_stock(PGtkButton(FWidget)); +end; + +procedure TGTKButton.SetUseStock(Value: boolean); +begin + gtk_button_set_use_stock(PGtkButton(FWidget), Value); +end; + +function TGTKButton.GetUseUnderline: boolean; +begin + Result := gtk_button_get_use_underline(PGtkButton(FWidget)); +end; + +procedure TGTKButton.SetUseUnderline(Value: boolean); +begin + gtk_button_set_use_underline(PGtkButton(FWidget), Value); +end; + +function TGTKButton.GetBorderStyle: TGTKBorderStyle; +begin + Result := TGTKBorderStyle(gtk_button_get_relief(PGtkButton(FWidget))); +end; + +procedure TGTKButton.SetBorderStyle(Value: TGTKBorderStyle); +begin + gtk_button_set_relief(PGtkButton(FWidget), integer(Value)); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKMisc.Create(AOwner: TComponent); +begin + inherited Create(AOwner); +end; + +destructor TGTKMisc.Destroy; +begin + inherited Destroy; +end; + +procedure TGTKMisc.SetAlignment(XAlign, YAlign : Single); +begin +// Writeln('gtk_misc_set_alignment, FWidget = ', integer(FWidget), ', XAlign = ', XAlign, ', YAlign = ', YAlign); + gtk_misc_set_alignment(PGtkMisc(FWidget), XAlign, YAlign); +end; + +function TGTKMisc.GetXAlign: Single; +{var xalign, yalign: pgfloat; } +begin +{ gtk_misc_get_alignment(PGtkMisc(FWidget), xalign, yalign); + if Assigned(xalign) then Result := Single(xalign^) + else Result := 0; } + if Assigned(FWidget) then Result := PGtkMisc(FWidget)^.xalign + else Result := 0; +end; + +procedure TGTKMisc.SetXAlign(Value: Single); +begin + SetAlignment(Value, YAlign); +end; + +function TGTKMisc.GetYAlign: Single; +{var xalign, yalign: Extended; + x: Extended; } +begin +{ gtk_misc_get_alignment(PGtkMisc(FWidget), @xalign, @yalign); + writeln('yalign = ', integer(yalign)); + if Assigned(yalign) then Result := yalign + else Result := 0; } + if Assigned(FWidget) then Result := PGtkMisc(FWidget)^.yalign + else Result := 0; +end; + +procedure TGTKMisc.SetYAlign(Value: Single); +begin + SetAlignment(XAlign, Value); +end; + +procedure TGTKMisc.SetPadding(XPadding, YPadding : integer); +begin + gtk_misc_set_padding(PGtkMisc(FWidget), XPadding, YPadding); +end; + +function TGTKMisc.GetXPadding: integer; +var xpad, ypad: pgint; +begin + gtk_misc_get_padding(PGtkMisc(FWidget), xpad, ypad); + if Assigned(xpad) then Result := Integer(xpad) + else Result := 0; +end; + +procedure TGTKMisc.SetXPadding(Value: integer); +begin + SetPadding(Value, YPadding); +end; + +function TGTKMisc.GetYPadding: integer; +var xpad, ypad: pgint; +begin + gtk_misc_get_padding(PGtkMisc(FWidget), xpad, ypad); + if Assigned(ypad) then Result := Integer(ypad) + else Result := 0; +end; + +procedure TGTKMisc.SetYPadding(Value: integer); +begin + SetPadding(XPadding, Value); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKLabel.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FWidget := gtk_label_new(nil); + FLinked := False; + Show; +end; + +constructor TGTKLabel.CreateFromWidget(AOwner: TComponent; Widget: PGtkWidget); +begin + inherited Create(AOwner); + FWidget := Widget; + FLinked := True; + Show; +end; + +destructor TGTKLabel.Destroy; +begin + if not FLinked then inherited Destroy; +end; + +function TGTKLabel.GetCaption: string; +begin + Result := PgcharToString(gtk_label_get_text(PGtkLabel(FWidget))); +end; + +procedure TGTKLabel.SetCaption(Value: string); +begin + gtk_label_set_text(PGtkLabel(FWidget), StringToPgchar(Value)); +end; + +function TGTKLabel.GetAlignment: TGTKAlignment; +begin + Result := TGTKAlignment(gtk_label_get_justify(PGtkLabel(FWidget))); +end; + +procedure TGTKLabel.SetAlignment(Value: TGTKAlignment); +begin + gtk_label_set_justify(PGtkLabel(FWidget), TGtkJustification(Value)); +end; + +procedure TGTKLabel.SetMarkup(const Text: string); +begin + gtk_label_set_markup(PGtkLabel(FWidget), PChar(Text)); +end; + +function TGTKLabel.GetUseMarkup: boolean; +begin + Result := gtk_label_get_use_markup(PGtkLabel(FWidget)); +end; + +procedure TGTKLabel.SetUseMarkup(Value: boolean); +begin + gtk_label_set_use_markup(PGtkLabel(FWidget), Value); +end; + +function TGTKLabel.GetLineWrap: boolean; +begin + Result := gtk_label_get_line_wrap(PGtkLabel(FWidget)); +end; + +procedure TGTKLabel.SetLineWrap(Value: boolean); +begin + gtk_label_set_line_wrap(PGtkLabel(FWidget), Value); +end; + +function TGTKLabel.GetUseUnderline: boolean; +begin + Result := gtk_label_get_use_underline(PGtkLabel(FWidget)); +end; + +procedure TGTKLabel.SetUseUnderline(Value: boolean); +begin + gtk_label_set_use_underline(PGtkLabel(FWidget), Value); +end; + +procedure TGTKLabel.SetFocusControl(Value: TGTKControl); +begin + gtk_label_set_mnemonic_widget(PGtkLabel(FWidget), Value.FWidget); +end; + +function TGTKLabel.GetSelectable: boolean; +begin + Result := gtk_label_get_selectable(PGtkLabel(FWidget)); +end; + +procedure TGTKLabel.SetSelectable(Value: boolean); +begin + gtk_label_set_selectable(PGtkLabel(FWidget), Value); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +procedure TGTKToggleButton_OnToggled(ToggleButton: PGtkToggleButton; user_data: Pgpointer); cdecl; +begin + if Assigned(TGTKToggleButton(user_data).FOnToggled) then TGTKToggleButton(user_data).FOnToggled(TGTKToggleButton(user_data)); +end; + +constructor TGTKToggleButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FOnToggled := nil; + if ClassName = 'TGTKToggleButton' then begin + FWidget := gtk_toggle_button_new_with_label(StringToPgchar(SCDefaultToggleButtonCaption)); + g_signal_connect(PGtkObject(FWidget), 'toggled', G_CALLBACK(@TGTKToggleButton_OnToggled), Self); + Show; + end; +end; + +destructor TGTKToggleButton.Destroy; +begin + inherited Destroy; +end; + +function TGTKToggleButton.GetCaption: string; +begin + Result := PgcharToString(gtk_label_get_text(PGtkLabel(ChildControl))); +end; + +procedure TGTKToggleButton.SetCaption(Value: string); +begin + gtk_label_set_text(PGtkLabel(ChildControl), StringToPgchar(Value)); +end; + +function TGTKToggleButton.GetChecked: boolean; +begin + Result := gtk_toggle_button_get_active(PGtkToggleButton(FWidget)); +end; + +procedure TGTKToggleButton.SetChecked(Value: boolean); +begin + gtk_toggle_button_set_active(PGtkToggleButton(FWidget), Value); +end; + +function TGTKToggleButton.GetDrawIndicator: boolean; +begin + Result := gtk_toggle_button_get_mode(PGtkToggleButton(FWidget)); +end; + +procedure TGTKToggleButton.SetDrawIndicator(Value: boolean); +begin + gtk_toggle_button_set_mode(PGtkToggleButton(FWidget), Value); +end; + +function TGTKToggleButton.GetInconsistent: boolean; +begin + Result := gtk_toggle_button_get_inconsistent(PGtkToggleButton(FWidget)); +end; + +procedure TGTKToggleButton.SetInconsistent(Value: boolean); +begin + gtk_toggle_button_set_inconsistent(PGtkToggleButton(FWidget), Value); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKCheckButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + if ClassName = 'TGTKCheckButton' then begin + FWidget := gtk_check_button_new_with_mnemonic(StringToPgchar(SCDefaultCheckButtonCaption)); + g_signal_connect(PGtkObject(FWidget), 'toggled', G_CALLBACK(@TGTKToggleButton_OnToggled), Self); + Show; + end; +end; + +constructor TGTKCheckButton.CreateWithLabel(AOwner: TComponent; const ALabel: string); +begin + inherited Create(AOwner); + if ClassName = 'TGTKCheckButton' then begin + FWidget := gtk_check_button_new_with_mnemonic(StringToPgchar(ALabel)); + g_signal_connect(PGtkObject(FWidget), 'toggled', G_CALLBACK(@TGTKToggleButton_OnToggled), Self); + Show; + end; +end; + +destructor TGTKCheckButton.Destroy; +begin + inherited Destroy; +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKRadioButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + if ClassName = 'TGTKRadioButton' then begin + FWidget := gtk_radio_button_new_with_label(nil, StringToPgchar(SCDefaultRadioButtonCaption)); + g_signal_connect(PGtkObject(FWidget), 'toggled', G_CALLBACK(@TGTKToggleButton_OnToggled), Self); + Show; + end; +end; + +constructor TGTKRadioButton.CreateWithLabel(AOwner: TComponent; const ALabel: string); +begin + inherited Create(AOwner); + if ClassName = 'TGTKRadioButton' then begin + FWidget := gtk_radio_button_new_with_mnemonic(nil, StringToPgchar(ALabel)); + g_signal_connect(PGtkObject(FWidget), 'toggled', G_CALLBACK(@TGTKToggleButton_OnToggled), Self); + Show; + end; +end; + +destructor TGTKRadioButton.Destroy; +begin + inherited Destroy; +end; + +procedure TGTKRadioButton.SetRadioGroup(RadioButton: TGTKRadioButton); +begin + if Assigned(RadioButton) then gtk_radio_button_set_group(PGtkRadioButton(FWidget), gtk_radio_button_get_group(PGtkRadioButton(RadioButton.FWidget))) + else gtk_radio_button_set_group(PGtkRadioButton(FWidget), nil); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKFrame.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FWidget := gtk_frame_new(StringToPgchar(SCDefaultFrameCaption)); + Show; +end; + +constructor TGTKFrame.CreateWithoutLabel(AOwner: TComponent); +begin + inherited Create(AOwner); + FWidget := gtk_frame_new(nil); + Show; +end; + +destructor TGTKFrame.Destroy; +begin + inherited Destroy; +end; + +function TGTKFrame.GetCaption: string; +begin + Result := PgcharToString(gtk_frame_get_label(PGtkFrame(FWidget))); +end; + +procedure TGTKFrame.SetCaption(Value: string); +begin + gtk_label_set_text(PGtkLabel(gtk_frame_get_label_widget(PGtkFrame(FWidget))), StringToPgchar(Value)); +end; + +function TGTKFrame.GetShadowType: TGTKShadowType; +begin + Result := TGTKShadowType(gtk_frame_get_shadow_type(PGtkFrame(FWidget))); +end; + +procedure TGTKFrame.SetShadowType(Value: TGTKShadowType); +begin + gtk_frame_set_shadow_type(PGtkFrame(FWidget), gtk2.TGtkShadowType(Value)); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +procedure TGTKEditable_Changed(editable: PGtkEditable; user_data: gpointer); cdecl; +begin + if Assigned(TGTKEditable(user_data).FOnChanged) then TGTKEditable(user_data).FOnChanged(TGTKEditable(user_data)); +end; + +constructor TGTKEditable.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FOnChanged := nil; +end; + +destructor TGTKEditable.Destroy; +begin + inherited Destroy; +end; + +function TGTKEditable.GetEditable: boolean; +begin + Result := gtk_editable_get_editable(PGtkEditable(FWidget)); +end; + +procedure TGTKEditable.SetEditable(Value: boolean); +begin + gtk_entry_set_editable(PGtkEntry(FWidget), Value); +end; + +procedure TGTKEditable.CutClipboard; +begin + gtk_editable_cut_clipboard(PGtkEditable(FWidget)); +end; + +procedure TGTKEditable.CopyClipboard; +begin + gtk_editable_copy_clipboard(PGtkEditable(FWidget)); +end; + +procedure TGTKEditable.PasteClipboard; +begin + gtk_editable_paste_clipboard(PGtkEditable(FWidget)); +end; + +procedure TGTKEditable.DeleteSelection; +begin + gtk_editable_delete_selection(PGtkEditable(FWidget)); +end; + +procedure TGTKEditable.InsertText(AText: string; Position: integer); +begin + gtk_editable_insert_text(PGtkEditable(FWidget), StringToPgchar(AText), Length(AText), @Position); +end; + +procedure TGTKEditable.DeleteText(StartPosition, EndPosition: integer); +begin + gtk_editable_delete_text(PGtkEditable(FWidget), StartPosition, EndPosition); +end; + +function TGTKEditable.GetChars(StartPosition, EndPosition: integer): string; +begin + Result := PgcharToString(gtk_editable_get_chars(PGtkEditable(FWidget), StartPosition, EndPosition)); +end; + +procedure TGTKEditable.SelectRegion(StartPosition, EndPosition: integer); +begin + gtk_editable_select_region(PGtkEditable(FWidget), StartPosition, EndPosition); +end; + +function TGTKEditable.GetPosition: integer; +begin + Result := gtk_editable_get_position(PGtkEditable(FWidget)); +end; + +procedure TGTKEditable.SetPosition(Value: integer); +begin + gtk_editable_set_position(PGtkEditable(FWidget), Value); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKEntry.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FLinked := False; + FWidget := gtk_entry_new; + Show; + g_signal_connect(PGtkObject(FWidget), 'changed', G_CALLBACK(@TGTKEditable_Changed), Self); +end; + +constructor TGTKEntry.CreateFromWidget(AOwner: TComponent; Widget: PGtkWidget); +begin + inherited Create(AOwner); + FLinked := True; + FWidget := Widget; +end; + +destructor TGTKEntry.Destroy; +begin + if not FLinked then inherited Destroy; +end; + +function TGTKEntry.GetText: string; +begin + Result := PgcharToString(gtk_entry_get_text(PGtkEntry(FWidget))); +end; + +procedure TGTKEntry.SetText(Value: string); +begin + gtk_entry_set_text(PGtkEntry(FWidget), StringToPgchar(Value)); +end; + +function TGTKEntry.GetMaxLength: integer; +begin + Result := gtk_entry_get_max_length(PGtkEntry(FWidget)); +end; + +procedure TGTKEntry.SetMaxLength(Value: integer); +begin + gtk_entry_set_max_length(PGtkEntry(FWidget), Value); +end; + +function TGTKEntry.GetVisibility: boolean; +begin + Result := gtk_entry_get_visibility(PGtkEntry(FWidget)); +end; + +procedure TGTKEntry.SetVisibility(Value: boolean); +begin +// g_object_set(FWidget, 'visibility', gboolean(Value), nil); + gtk_entry_set_visibility(PGtkEntry(FWidget), Value); +end; + +procedure TGTKEntry.SelectAll; +begin + SelectRegion(0, Length(Text)); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKCombo.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FWidget := gtk_combo_new; + Items := TGList.Create(Self); + Items.Notify := ItemsChanged; + Entry := TGTKEntry.CreateFromWidget(Self, PGtkCombo(FWidget)^.entry); + Show; +end; + +destructor TGTKCombo.Destroy; +begin + Items.Free; + inherited Destroy; +end; + +procedure TGTKCombo.UpdateItems; +begin + gtk_combo_set_popdown_strings(PGtkCombo(FWidget), Items.FList); +end; + +function TGTKCombo.GetAllowEmpty: boolean; +begin + Result := Boolean(ok_if_empty(PGtkCombo(FWidget)^)); +end; + +procedure TGTKCombo.SetAllowEmpty(Value: boolean); +begin + SetPolicy(GetMatchValue, Value); +end; + +function TGTKCombo.GetMatchValue: boolean; +begin + Result := Boolean(value_in_list(PGtkCombo(FWidget)^)); +end; + +procedure TGTKCombo.SetMatchValue(Value: boolean); +begin + SetPolicy(Value, GetAllowEmpty); +end; + +procedure TGTKCombo.SetPolicy(MatchValue, AllowEmpty: boolean); +begin + gtk_combo_set_value_in_list(PGtkCombo(FWidget), MatchValue, AllowEmpty); +end; + +function TGTKCombo.GetCaseSensitive: boolean; +begin + Result := Boolean(gtk2.case_sensitive(PGtkCombo(FWidget)^)); +end; + +procedure TGTKCombo.SetCaseSensitive(Value: boolean); +begin + gtk_combo_set_case_sensitive(PGtkCombo(FWidget), Value); +end; + +procedure TGTKCombo.DisableActivate; +begin + gtk_combo_disable_activate(PGtkCombo(FWidget)); +end; + +procedure TGTKCombo.ItemsChanged(Sender: TObject); +begin + UpdateItems; +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) +constructor TGTKSpinEdit.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FAdjustment := PGtkAdjustment(gtk_adjustment_new(0, 0, 0, 1, 10, 10)); + FWidget := gtk_spin_button_new(FAdjustment, 1, 0); + Show; +end; + +destructor TGTKSpinEdit.Destroy; +begin + inherited Destroy; +end; + +function TGTKSpinEdit.GetDigits: integer; +begin + Result := gtk_spin_button_get_digits(PGtkSpinButton(FWidget)); +end; + +procedure TGTKSpinEdit.SetDigits(AValue: integer); +begin + gtk_spin_button_set_digits(PGtkSpinButton(FWidget), AValue); +end; + +function TGTKSpinEdit.GetMin: Double; +var amin, amax: Double; +begin + gtk_spin_button_get_range(PGtkSpinButton(FWidget), @amin, @amax); + Result := amin; +end; + +procedure TGTKSpinEdit.SetMin(AValue: Double); +begin + gtk_spin_button_set_range(PGtkSpinButton(FWidget), AValue, Max); +end; + +function TGTKSpinEdit.GetMax: Double; +var amin, amax: Double; +begin + gtk_spin_button_get_range(PGtkSpinButton(FWidget), @amin, @amax); + Result := amax; +end; + +procedure TGTKSpinEdit.SetMax(AValue: Double); +begin + gtk_spin_button_set_range(PGtkSpinButton(FWidget), Min, AValue); +end; + +function TGTKSpinEdit.GetIncrementStep: Double; +var astep, apage: Double; +begin + gtk_spin_button_get_increments(PGtkSpinButton(FWidget), @astep, @apage); + Result := astep; +end; + +procedure TGTKSpinEdit.SetIncrementStep(AValue: Double); +begin + gtk_spin_button_set_increments(PGtkSpinButton(FWidget), AValue, IncrementPage); +end; + +function TGTKSpinEdit.GetIncrementPage: Double; +var astep, apage: Double; +begin + gtk_spin_button_get_increments(PGtkSpinButton(FWidget), @astep, @apage); + Result := apage; +end; + +procedure TGTKSpinEdit.SetIncrementPage(AValue: Double); +begin + gtk_spin_button_set_increments(PGtkSpinButton(FWidget), IncrementStep, AValue); +end; + +function TGTKSpinEdit.GetValue: Double; +begin + Result := gtk_spin_button_get_value(PGtkSpinButton(FWidget)); +end; + +procedure TGTKSpinEdit.SetValue(AValue: Double); +begin + gtk_spin_button_set_value(PGtkSpinButton(FWidget), AValue); +end; + +function TGTKSpinEdit.GetAsInteger: integer; +begin + Result := gtk_spin_button_get_value_as_int(PGtkSpinButton(FWidget)); +end; + +procedure TGTKSpinEdit.SetAsInteger(AValue: integer); +begin + gtk_spin_button_set_value(PGtkSpinButton(FWidget), AValue); +end; + +(********************************************************************************************************************************) +(********************************************************************************************************************************) + + +end. |