/packages/fpgtk/src/fpgtk.pp
https://github.com/slibre/freepascal · Puppet · 12085 lines · 10076 code · 2009 blank · 0 comment · 182 complexity · b337937eb034893336e893d80f99a453 MD5 · raw file
Large files are truncated click here to view the full file
- {$mode objfpc}{$h+} {$ifdef win32}{$define gtkwin}{$endif}
- UNIT FPgtk;
- // Generated with GtkWrite by Luk Vandelaer (version 1.08)
- INTERFACE
- USES classes, sysutils, gtk, gdk, glib, FPglib;
- TYPE
- TFPgtkObject = class;
- TFPgtkData = class;
- TFPgtkAdjustment = class;
- TFPgtkToolTips = class;
- TFPgtkWidget = class;
- TFPgtkGroup = class;
- TFPgtkWidgetGroup = class;
- TFPgtkMisc = class;
- TFPgtkLabel = class;
- TFPgtkAccelLabel = class;
- TFPgtkTipsQuery = class;
- TFPgtkArrow = class;
- TFPgtkImage = class;
- TFPgtkPixmap = class;
- TFPgtkContainer = class;
- TFPgtkBin = class;
- TFPgtkAlignment = class;
- TFPgtkFrame = class;
- TFPgtkAspectFrame = class;
- TFPgtkButton = class;
- TFPgtkToggleButton = class;
- TFPgtkCheckButton = class;
- TFPgtkRadioButton = class;
- TFPgtkRadioButtonGroup = class;
- TFPgtkOptionMenu = class;
- TFPgtkItem = class;
- TFPgtkItemGroup = class;
- TFPgtkMenuItem = class;
- TFPgtkCheckMenuItem = class;
- TFPgtkRadioMenuItem = class;
- TFPgtkRadioMenuGroup = class;
- TFPgtkTearOffMenuItem = class;
- TFPgtkListItem = class;
- TFPgtkListItemGroup = class;
- TFPgtkTreeItem = class;
- TFPgtkWindow = class;
- TFPgtkColorSelectionDialog = class;
- TFPgtkDialog = class;
- TFPgtkInputDialog = class;
- TFPgtkFileSelection = class;
- TFPgtkFontSelectionDialog = class;
- TFPgtkEventBox = class;
- TFPgtkHandleBox = class;
- TFPgtkScrolledWindow = class;
- TFPgtkViewport = class;
- TFPgtkBox = class;
- TFPgtkButtonBox = class;
- TFPgtkHButtonBox = class;
- TFPgtkVButtonBox = class;
- TFPgtkVBox = class;
- TFPgtkColorSelection = class;
- TFPgtkGammaCurve = class;
- TFPgtkHBox = class;
- TFPgtkCombo = class;
- TFPgtkStatusbar = class;
- TFPgtkCList = class;
- TFPgtkCTree = class;
- TFPgtkFixed = class;
- TFPgtkNotebook = class;
- TFPgtkFontSelection = class;
- TFPgtkPaned = class;
- TFPgtkHPaned = class;
- TFPgtkVPaned = class;
- TFPgtkLayout = class;
- TFPgtkList = class;
- TFPgtkMenuShell = class;
- TFPgtkMenuBar = class;
- TFPgtkMenu = class;
- TFPgtkPacker = class;
- TFPgtkTable = class;
- TFPgtkToolbar = class;
- TFPgtkTree = class;
- TFPgtkCalendar = class;
- TFPgtkDrawingArea = class;
- TFPgtkCurve = class;
- TFPgtkEditable = class;
- TFPgtkEntry = class;
- TFPgtkSpinButton = class;
- TFPgtkText = class;
- TFPgtkRuler = class;
- TFPgtkHRuler = class;
- TFPgtkVRuler = class;
- TFPgtkRange = class;
- TFPgtkScale = class;
- TFPgtkHScale = class;
- TFPgtkVScale = class;
- TFPgtkScrollbar = class;
- TFPgtkHScrollbar = class;
- TFPgtkVScrollbar = class;
- TFPgtkSeparator = class;
- TFPgtkHSeparator = class;
- TFPgtkVSeparator = class;
- TFPgtkPreview = class;
- TFPgtkProgress = class;
- TFPgtkProgressBar = class;
- TFPgtkItemFactory = class;
- TFPgtkSignalFunction = procedure (Sender:TFPgtkObject; Data:pointer) of Object;
- TFPgtkBooleanSignalFunction = procedure (Sender:TFPgtkObject; Bool:boolean; data:pointer) of Object;
- FPgtkException = class (Exception) end;
- PPascalClassData = ^TPascalClassData;
- TPascalClassData = record
- TheInstance : TFPgtkObject;
- end;
- PSignalData = ^TSignalData;
- TSignalData = record
- TheData : pointer;
- TheWidget : TFPgtkObject;
- TheSignalProc : TFPgtkSignalFunction;
- end;
- TDestroyState = (dsAlive, dsWaiting, dsDestroying);
- TFPgtkObjectClass = Class of TFPgtkObject;
- PFPgtkObject = ^TFPgtkObject;
- TFPgtkObject = class
- Private
- FDestroying : TDestroyState;
- PascalInstance:TPascalClassData;
- ConvertDatas:TStringList;
- SignalDatas:TList;
- NotifyList:TList;
- function ConvertSignalData (proc:TFPgtkSignalFunction; data:pointer; FreeIt:boolean) : PSignalData;
- procedure FreeClass (Sender:TFPgtkObject; Data:pointer);
- procedure CheckConvertDatas;
- procedure CheckNotifyList;
- procedure InitCreate;
- procedure FinalCreate;
- function GetUserData : pointer;
- procedure SetUserData (TheValue : pointer);
- Protected
- FGtkObject:PGtkObject;
- procedure CreateGtkObject; Virtual; Abstract;
- procedure NotifyDestroy (AnObject:TFPgtkObject); Virtual;
- Public
- function TheGtkObject : PGtkObject;
- function SignalConnect (Signal:string; Proc:TFPgtkSignalFunction; data:pointer) : guint;
- function SignalConnectAfter (Signal:string; Proc:TFPgtkSignalFunction; data:pointer) : guint;
- function BooleanSignalConnect (Signal:string; Proc:TFPgtkBooleanSignalFunction; data:pointer) : guint;
- function BooleanSignalConnectAfter (Signal:string; Proc:TFPgtkBooleanSignalFunction; data:pointer) : guint;
- constructor Create;
- constructor CreateFromObject (GtkObject:PGtkObject);
- property Destroying : TDestroyState read FDestroying;
- procedure AskNotification (AnObject:TFPgtkObject);
- destructor Destroy; Override;
- function ConnectDestroy (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterDestroy (proc:TFPgtkSignalFunction; data:pointer) : guint;
- procedure SignalDisconnect (SignalHandler:guint);
- procedure SignalBlockHandler (SignalHandler:guint);
- procedure SignalUnblockHandler (SignalHandler:guint);
- procedure SignalEmit (aName:string; Args:array of const);
- function SignalNEmissions (aName:string) : guint;
- procedure SignalEmitStop (aName:string);
- procedure SetData (Key:string; Data:pointer);
- property UserData : pointer read GetUserData write SetUserData;
- procedure SetDataFull (Key:string; Data:pointer; Destroyer:TFPgtkSignalFunction);
- procedure RemoveData (Key:string);
- function GetData (Key:string) : pointer;
- function GtkDestroyed : boolean;
- procedure Constructed;
- procedure ConstructedDefault;
- procedure Sink;
- procedure Ref;
- procedure Unref;
- procedure WeakRef (Notify:TFPgtkSignalFunction; data:pointer);
- procedure WeakUnref (notify:TFPgtkSignalFunction; data:pointer);
- end;
- TFPgtkData = class (TFPgtkObject)
- Public
- function TheGtkObject : PGtkData;
- function ConnectDisconnect (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterDisconnect (proc:TFPgtkSignalFunction; data:pointer) : guint;
- end;
- TFPgtkAdjustment = class (TFPgtkData)
- Private
- function GetValue : gfloat;
- procedure SetValue (TheValue : gfloat);
- function GetLower : gfloat;
- procedure SetLower (TheValue : gfloat);
- function GetUpper : gfloat;
- procedure SetUpper (TheValue : gfloat);
- function GetStepIncrement : gfloat;
- procedure SetStepIncrement (TheValue : gfloat);
- function GetPageIncrement : gfloat;
- procedure SetPageIncrement (TheValue : gfloat);
- function GetPageSize : gfloat;
- procedure SetPageSize (TheValue : gfloat);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkAdjustment;
- procedure Configure (aLower:gfloat; anUpper:gfloat; aValue:gfloat; aStepInc:gfloat; aPageInc:gfloat; aPageSize:gfloat);
- function ConnectValueChanged (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterValueChanged (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectChanged (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterChanged (proc:TFPgtkSignalFunction; data:pointer) : guint;
- procedure ValueChanged;
- procedure Changed;
- procedure ClampPage (aLower:gfloat; aUpper:gfloat);
- property Value : gfloat read GetValue write SetValue;
- property Lower : gfloat read GetLower write SetLower;
- property Upper : gfloat read GetUpper write SetUpper;
- property StepIncrement : gfloat read GetStepIncrement write SetStepIncrement;
- property PageIncrement : gfloat read GetPageIncrement write SetPageIncrement;
- property PageSize : gfloat read GetPageSize write SetPageSize;
- end;
- TFPgtkToolTips = class (TFPgtkData)
- Private
- function GetEnabled : boolean;
- procedure SetEnabled (TheValue : boolean);
- function GetDelay : integer;
- procedure SetDelay (TheValue : integer);
- function GetColorForeground : PGdkColor;
- procedure SetColorForeground (TheValue : PGdkColor);
- function GetColorBackground : PGdkColor;
- procedure SetColorBackground (TheValue : PGdkColor);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkToolTips;
- procedure SetColors (Fore:PGdkColor; Back:PGdkColor);
- procedure SetTip (Widget:TFPgtkWidget; TipText:string; TipPrivate:string);
- property Enabled : boolean read GetEnabled write SetEnabled;
- property Delay : integer read GetDelay write SetDelay;
- property ColorForeground : PGdkColor read GetColorForeground write SetColorForeground;
- property ColorBackground : PGdkColor read GetColorBackground write SetColorBackground;
- procedure ForceWindow;
- end;
- TFPgtkWidgetSignalFunction = procedure (Sender:TFPgtkObject; Widget:TFPgtkWidget; Data:pointer) of Object;
- TFPgtkEventFunction = function (Sender:TFPgtkWidget; Event:PGdkEvent; data:pointer): boolean of Object;
- TFPgtkEventButtonFunction = function (Sender:TFPgtkWidget; Event:PGdkEventButton; data:pointer): boolean of Object;
- TFPgtkEventMotionFunction = function (Sender:TFPgtkWidget; Event:PGdkEventMotion; data:pointer): boolean of Object;
- TFPgtkEventExposeFunction = function (Sender:TFPgtkWidget; Event:PGdkEventExpose; data:pointer): boolean of Object;
- TFPgtkEventKeyFunction = function (Sender:TFPgtkWidget; Event:PGdkEventKey; data:pointer): boolean of Object;
- TFPgtkEventCrossingFunction = function (Sender:TFPgtkWidget; Event:PGdkEventCrossing; data:pointer): boolean of Object;
- TFPgtkEventConfigureFunction = function (Sender:TFPgtkWidget; Event:PGdkEventConfigure; data:pointer): boolean of Object;
- TFPgtkEventFocusFunction = function (Sender:TFPgtkWidget; Event:PGdkEventFocus; data:pointer): boolean of Object;
- TFPgtkEventPropertyFunction = function (Sender:TFPgtkWidget; Event:PGdkEventProperty; data:pointer): boolean of Object;
- TFPgtkEventSelectionFunction = function (Sender:TFPgtkWidget; Event:PGdkEventSelection; data:pointer): boolean of Object;
- TFPgtkEventProximityFunction = function (Sender:TFPgtkWidget; Event:PGdkEventProximity; data:pointer): boolean of Object;
- TFPgtkEventClientFunction = function (Sender:TFPgtkWidget; Event:PGdkEventClient; data:pointer): boolean of Object;
- TFPgtkEventNoExposeFunction = function (Sender:TFPgtkWidget; Event:PGdkEventNoExpose; data:pointer): boolean of Object;
- TFPgtkWidget = class (TFPgtkObject)
- Private
- function GetTheGtkWidget : PGtkWidget;
- procedure SetTheGtkWidget (TheValue : PGtkWidget);
- function GetAllocation : TGtkAllocation;
- function GetName : string;
- procedure SetName (TheValue : string);
- function GetPropFlags : longint;
- procedure SetPropFlags (TheValue : longint);
- function GetState : longint;
- function GetSavedState : longint;
- function GetParent : TFPgtkWidget;
- procedure SetParent (TheValue : TFPgtkWidget);
- function GetParentWindow : PGdkWindow;
- procedure SetParentWindow (TheValue : PGdkWindow);
- procedure Reparent (NewParent:TFPgtkWidget);
- function GetVisible : boolean;
- procedure SetVisible (TheValue : boolean);
- function GetNoWindow : boolean;
- procedure SetNoWindow (TheValue : boolean);
- function GetRealized : boolean;
- procedure SetRealized (TheValue : boolean);
- function GetMapped : boolean;
- procedure SetMapped (TheValue : boolean);
- function GetDrawable : boolean;
- function GetIsSensitive : boolean;
- function GetSensitive : boolean;
- procedure SetSensitive (TheValue : boolean);
- function GetParentSensitive : boolean;
- procedure SetParentSensitive (TheValue : boolean);
- function GetAppPaintable : boolean;
- function GetCanFocus : boolean;
- procedure SetCanFocus (TheValue : boolean);
- function GetHasFocus : boolean;
- function GetCanDefault : boolean;
- procedure SetCanDefault (TheValue : boolean);
- function GetHasDefault : boolean;
- function GetReceivesDefault : boolean;
- function GetCompositeChild : boolean;
- function GetTooltip : string;
- procedure SetTooltip (TheValue : string);
- function GetColormap : PGdkColormap;
- procedure SetColormap (TheValue : PGdkColormap);
- Protected
- procedure SetFlags (NewFlags:longint);
- procedure UnsetFlags (NewUnsetFlags:longint);
- procedure Map;
- procedure Unmap;
- procedure QueueDraw;
- procedure QueueResize;
- procedure DrawFocus;
- procedure DrawDefault;
- Public
- function TheGtkObject : PGtkWidget;
- property TheGtkWidget : PGtkWidget read GetTheGtkWidget write SetTheGtkWidget;
- function WidgetSignalConnect (Signal:string; Proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function WidgetSignalConnectAfter (Signal:string; Proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- procedure Draw (Rectangle:PGdkRectangle); Overload;
- procedure Show;
- procedure Hide;
- procedure Realize;
- procedure Unrealize;
- procedure ShowNow;
- procedure ShowAll;
- procedure HideAll;
- procedure SetAllocation (AnAllocation:TGtkAllocation); Overload;
- procedure SetAllocation (x:integer; y:integer; width:integer; height:integer); Overload;
- property Allocation : TGtkAllocation read GetAllocation write SetAllocation;
- procedure SetUPosition (x:integer; y:integer);
- procedure SetUsize (width:integer; height:integer);
- property Name : string read GetName write SetName;
- property Flags : longint read GetPropFlags write SetPropFlags;
- property State : longint read GetState;
- property SavedState : longint read GetSavedState;
- property Parent : TFPgtkWidget read GetParent write SetParent;
- property ParentWindow : PGdkWindow read GetParentWindow write SetParentWindow;
- procedure Unparent;
- property Visible : boolean read GetVisible write SetVisible;
- property NoWindow : boolean read GetNoWindow write SetNoWindow;
- property Realized : boolean read GetRealized write SetRealized;
- property Mapped : boolean read GetMapped write SetMapped;
- property Drawable : boolean read GetDrawable;
- property IsSensitive : boolean read GetIsSensitive;
- property Sensitive : boolean read GetSensitive write SetSensitive;
- property ParentSensitive : boolean read GetParentSensitive write SetParentSensitive;
- property AppPaintable : boolean read GetAppPaintable;
- property CanFocus : boolean read GetCanFocus write SetCanFocus;
- procedure GrabFocus;
- property HasFocus : boolean read GetHasFocus;
- property CanDefault : boolean read GetCanDefault write SetCanDefault;
- procedure GrabDefault;
- property HasDefault : boolean read GetHasDefault;
- property ReceivesDefault : boolean read GetReceivesDefault;
- property CompositeChild : boolean read GetCompositeChild;
- property Tooltip : string read GetTooltip write SetTooltip;
- procedure HideOnDelete;
- property Colormap : PGdkColormap read GetColormap write SetColormap;
- function ConnectShow (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterShow (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function Connecthide (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterhide (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function Connectmap (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAftermap (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function Connectunmap (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterunmap (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function Connectrealize (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterrealize (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function Connectunrealize (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterunrealize (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectDrawFocus (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterDrawFocus (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectDrawDefault (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterDrawDefault (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectParentSet (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function ConnectAfterParentSet (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function ConnectGrabFocus (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterGrabFocus (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function EventConnect (Signal:string; Proc:TFPgtkEventFunction; data:pointer) : guint;
- function EventConnectAfter (Signal:string; Proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectAfterEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function EventButtonConnect (Signal:string; Proc:TFPgtkEventButtonFunction; data:pointer) : guint;
- function EventButtonConnectAfter (Signal:string; Proc:TFPgtkEventButtonFunction; data:pointer) : guint;
- function ConnectButtonPressEvent (proc:TFPgtkEventButtonFunction; data:pointer) : guint;
- function ConnectAfterButtonPressEvent (proc:TFPgtkEventButtonFunction; data:pointer) : guint;
- function ConnectButtonReleaseEvent (proc:TFPgtkEventButtonFunction; data:pointer) : guint;
- function ConnectAfterButtonReleaseEvent (proc:TFPgtkEventButtonFunction; data:pointer) : guint;
- function EventMotionConnect (Signal:string; Proc:TFPgtkEventMotionFunction; data:pointer) : guint;
- function EventMotionConnectAfter (Signal:string; Proc:TFPgtkEventMotionFunction; data:pointer) : guint;
- function ConnectMotionNotifyEvent (proc:TFPgtkEventMotionFunction; data:pointer) : guint;
- function ConnectAfterMotionNotifyEvent (proc:TFPgtkEventMotionFunction; data:pointer) : guint;
- function ConnectDeleteEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectAfterDeleteEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectDestroyEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectAfterDestroyEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function EventExposeConnect (Signal:string; Proc:TFPgtkEventExposeFunction; data:pointer) : guint;
- function EventExposeConnectAfter (Signal:string; Proc:TFPgtkEventExposeFunction; data:pointer) : guint;
- function ConnectExposeEvent (proc:TFPgtkEventExposeFunction; data:pointer) : guint;
- function ConnectAfterExposeEvent (proc:TFPgtkEventExposeFunction; data:pointer) : guint;
- function EventKeyConnect (Signal:string; Proc:TFPgtkEventKeyFunction; data:pointer) : guint;
- function EventKeyConnectAfter (Signal:string; Proc:TFPgtkEventKeyFunction; data:pointer) : guint;
- function ConnectKeyPressEvent (proc:TFPgtkEventKeyFunction; data:pointer) : guint;
- function ConnectAfterKeyPressEvent (proc:TFPgtkEventKeyFunction; data:pointer) : guint;
- function ConnectKeyReleaseEvent (proc:TFPgtkEventKeyFunction; data:pointer) : guint;
- function ConnectAfterKeyReleaseEvent (proc:TFPgtkEventKeyFunction; data:pointer) : guint;
- function EventCrossingConnect (Signal:string; Proc:TFPgtkEventCrossingFunction; data:pointer) : guint;
- function EventCrossingConnectAfter (Signal:string; Proc:TFPgtkEventCrossingFunction; data:pointer) : guint;
- function ConnectEnterNotifyEvent (proc:TFPgtkEventCrossingFunction; data:pointer) : guint;
- function ConnectAfterEnterNotifyEvent (proc:TFPgtkEventCrossingFunction; data:pointer) : guint;
- function ConnectLeaveNotifyEvent (proc:TFPgtkEventCrossingFunction; data:pointer) : guint;
- function ConnectAfterLeaveNotifyEvent (proc:TFPgtkEventCrossingFunction; data:pointer) : guint;
- function EventConfigureConnect (Signal:string; Proc:TFPgtkEventConfigureFunction; data:pointer) : guint;
- function EventConfigureConnectAfter (Signal:string; Proc:TFPgtkEventConfigureFunction; data:pointer) : guint;
- function ConnectConfigureEvent (proc:TFPgtkEventConfigureFunction; data:pointer) : guint;
- function ConnectAfterConfigureEvent (proc:TFPgtkEventConfigureFunction; data:pointer) : guint;
- function EventFocusConnect (Signal:string; Proc:TFPgtkEventFocusFunction; data:pointer) : guint;
- function EventFocusConnectAfter (Signal:string; Proc:TFPgtkEventFocusFunction; data:pointer) : guint;
- function ConnectFocusInEvent (proc:TFPgtkEventFocusFunction; data:pointer) : guint;
- function ConnectAfterFocusInEvent (proc:TFPgtkEventFocusFunction; data:pointer) : guint;
- function ConnectFocusOutEvent (proc:TFPgtkEventFocusFunction; data:pointer) : guint;
- function ConnectAfterFocusOutEvent (proc:TFPgtkEventFocusFunction; data:pointer) : guint;
- function ConnectMapEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectAfterMapEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectUnmapEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectAfterUnmapEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function EventPropertyConnect (Signal:string; Proc:TFPgtkEventPropertyFunction; data:pointer) : guint;
- function EventPropertyConnectAfter (Signal:string; Proc:TFPgtkEventPropertyFunction; data:pointer) : guint;
- function ConnectPropertyNotifyEvent (proc:TFPgtkEventPropertyFunction; data:pointer) : guint;
- function ConnectAfterPropertyNotifyEvent (proc:TFPgtkEventPropertyFunction; data:pointer) : guint;
- function EventSelectionConnect (Signal:string; Proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function EventSelectionConnectAfter (Signal:string; Proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function ConnectSelectionClearEvent (proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function ConnectAfterSelectionClearEvent (proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function ConnectSelectionRequestEvent (proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function ConnectAfterSelectionRequestEvent (proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function ConnectSelectionNotifyEvent (proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function ConnectAfterSelectionNotifyEvent (proc:TFPgtkEventSelectionFunction; data:pointer) : guint;
- function EventProximityConnect (Signal:string; Proc:TFPgtkEventProximityFunction; data:pointer) : guint;
- function EventProximityConnectAfter (Signal:string; Proc:TFPgtkEventProximityFunction; data:pointer) : guint;
- function ConnectProximityInEvent (proc:TFPgtkEventProximityFunction; data:pointer) : guint;
- function ConnectAfterProximityInEvent (proc:TFPgtkEventProximityFunction; data:pointer) : guint;
- function ConnectProximityOutEvent (proc:TFPgtkEventProximityFunction; data:pointer) : guint;
- function ConnectAfterProximityOutEvent (proc:TFPgtkEventProximityFunction; data:pointer) : guint;
- function EventClientConnect (Signal:string; Proc:TFPgtkEventClientFunction; data:pointer) : guint;
- function EventClientConnectAfter (Signal:string; Proc:TFPgtkEventClientFunction; data:pointer) : guint;
- function ConnectClientEvent (proc:TFPgtkEventClientFunction; data:pointer) : guint;
- function ConnectAfterClientEvent (proc:TFPgtkEventClientFunction; data:pointer) : guint;
- function EventNoExposeConnect (Signal:string; Proc:TFPgtkEventNoExposeFunction; data:pointer) : guint;
- function EventNoExposeConnectAfter (Signal:string; Proc:TFPgtkEventNoExposeFunction; data:pointer) : guint;
- function ConnectNoExposeEvent (proc:TFPgtkEventNoExposeFunction; data:pointer) : guint;
- function ConnectAfterNoExposeEvent (proc:TFPgtkEventNoExposeFunction; data:pointer) : guint;
- function ConnectVisibilityNotifyEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- function ConnectAfterVisibilityNotifyEvent (proc:TFPgtkEventFunction; data:pointer) : guint;
- procedure LockAccelerators;
- procedure UnlockAccelerators;
- procedure RemoveAccelerators (aSignal:string; OnlyVisible:boolean);
- procedure ActivateAccelGroups (Key:guint; Mods:TGdkModifierType);
- procedure AcceleratorAdd (AG:PGtkAccelGroup; aSignal:string; Key:guint; Mods:TGdkModifierType; acFlags:TGtkAccelFlags); Overload;
- end;
- TFPgtkForEachProcedure = procedure (item : pointer; data : pointer) of object;
- TFPgtkGroup = class (TList)
- Private
- FManageLists : boolean;
- FListChanged:boolean;
- FSListChanged:boolean;
- FClassesChanged:boolean;
- FNotUpdating:boolean;
- FGList:PGList;
- FGSList:PGSList;
- procedure FreeList;
- procedure FreeSList;
- function CreateGList : PGList;
- function CreateGSList : PGSList;
- function GetGtkListProp : PGList;
- procedure SetGtkListProp (TheValue : PGList);
- function GetGtkSListProp : PGSList;
- procedure SetGtkSListProp (TheValue : PGSList);
- Protected
- procedure BuildFromGtkList;
- procedure BuildFromGtkSList;
- procedure Notify (ptr:pointer; Action:TListNotification); Override;
- function GetData (index:integer) : pointer; Dynamic;
- function UngetData (data:pointer) : pointer; Dynamic;
- Public
- property ManageLists : boolean read FManageLists write FManageLists;
- constructor Create;
- destructor Destroy; Override;
- function GetGtkList (buffered:boolean) : PGList;
- function GetGtkSList (buffered:boolean) : PGSList;
- procedure BeginUpdate;
- procedure EndUpdate;
- procedure ForEach (Proc:TFPgtkForEachProcedure; data:pointer);
- property GtkList : PGList read GetGtkListProp write SetGtkListProp;
- property GtkSList : PGSList read GetGtkSListProp write SetGtkSListProp;
- end;
- TFPgtkWidgetGroup = class (TFPgtkGroup)
- Private
- function GetItem(Index:integer) : TFPgtkWidget;
- procedure SetItem (Index:integer; TheValue : TFPgtkWidget);
- function GetTooltips(index:integer) : string;
- procedure SetTooltips (index:integer; TheValue : string);
- Public
- function GetData (index:integer) : pointer; Override;
- function UnGetData (data:pointer) : pointer; Override;
- procedure AddToContainer (Container:TFPgtkContainer);
- procedure PackInBox (box:TFPgtkBox; AtStart:boolean; Expanding:boolean; Fill:boolean; Padding:integer);
- property Items [Index:integer] : TFPgtkWidget read GetItem write SetItem;
- property Tooltips [index:integer] : string read GetTooltips write SetTooltips;
- end;
- TFPgtkMisc = class (TFPgtkWidget)
- Private
- function GetXAlign : gfloat;
- procedure SetXAlign (TheValue : gfloat);
- function GetYAlign : gfloat;
- procedure SetYAlign (TheValue : gfloat);
- function GetXPad : word;
- procedure SetXPad (TheValue : word);
- function GetYPad : word;
- procedure SetYPad (TheValue : word);
- Public
- function TheGtkObject : PGtkMisc;
- procedure SetAlignment (x:gfloat; y:gfloat);
- procedure SetPadding (x:word; y:word);
- property XAlign : gfloat read GetXAlign write SetXAlign;
- property YAlign : gfloat read GetYAlign write SetYAlign;
- property XPad : word read GetXPad write SetXPad;
- property YPad : word read GetYPad write SetYPad;
- end;
- TFPgtkLabelClass = class of TFPgtkLabel;
- TFPgtkLabel = class (TFPgtkMisc)
- Private
- function GetText : string;
- procedure SetText (TheValue : string);
- function GetPattern : string;
- procedure SetPattern (TheValue : string);
- function GetJustify : TGtkJustification;
- procedure SetJustify (TheValue : TGtkJustification);
- function GetLineWrap : boolean;
- procedure SetLineWrap (TheValue : boolean);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkLabel;
- constructor Create (aText:string);
- property Text : string read GetText write SetText;
- property Pattern : string read GetPattern write SetPattern;
- property Justify : TGtkJustification read GetJustify write SetJustify;
- property LineWrap : boolean read GetLineWrap write SetLineWrap;
- function ParseUline (aText:string) : guint;
- end;
- TFPgtkAccelLabel = class (TFPgtkLabel)
- Private
- function GetAccelWidget : TFPgtkWidget;
- procedure SetAccelWidget (TheValue : TFPgtkWidget);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkAccelLabel;
- property AccelWidget : TFPgtkWidget read GetAccelWidget write SetAccelWidget;
- function AccelText : string;
- procedure Refetch;
- end;
- TFPgtkTipsQuery = class (TFPgtkLabel)
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkTipsQuery;
- end;
- TFPgtkArrow = class (TFPgtkMisc)
- Private
- function GetArrowType : TGtkArrowType;
- procedure SetArrowType (TheValue : TGtkArrowType);
- function GetShadowType : TGtkShadowType;
- procedure SetShadowType (TheValue : TGtkShadowType);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkArrow;
- property ArrowType : TGtkArrowType read GetArrowType write SetArrowType;
- property ShadowType : TGtkShadowType read GetShadowType write SetShadowType;
- procedure SetTypes (AnArrowType:TGtkArrowType; AShadowtype:TGtkShadowType);
- constructor Create (AnArrowType:TGtkArrowType; AShadowType:TGtkShadowType);
- end;
- TFPgtkImage = class (TFPgtkMisc)
- Private
- function GetImageProp : PGdkImage;
- procedure SetImageProp (TheValue : PGdkImage);
- function GetMask : PGdkBitMap;
- procedure SetMask (TheValue : PGdkBitMap);
- Protected
- procedure CreateGtkObject; override;
- Public
- FMask:PGdkBitMap;
- FImage:PGdkImage;
- function TheGtkObject : PGtkImage;
- property Image : PGdkImage read GetImageProp write SetImageProp;
- property Mask : PGdkBitMap read GetMask write SetMask;
- procedure SetImage (anImage:PGdkImage; aMask:PGdkBitmap);
- constructor Create (anImage:PGdkImage; aMask:PGdkBitmap);
- end;
- TStringArray = array[0..32000] of pgchar;
- PStringArray = ^TStringArray;
- TFPgtkPixmap = class (TFPgtkMisc)
- Private
- function GetBuildInsensitive : longbool;
- procedure SetBuildInsensitive (TheValue : longbool);
- function GetPixmapProp : PGdkPixMap;
- procedure SetPixmapProp (TheValue : PGdkPixMap);
- function GetMask : PGdkBitMap;
- procedure SetMask (TheValue : PGdkBitMap);
- Protected
- procedure CreateGtkObject; override;
- Public
- FMask:PGdkBitMap;
- FPixMap:PGdkPixmap;
- function TheGtkObject : PGtkPixmap;
- property BuildInsensitive : longbool read GetBuildInsensitive write SetBuildInsensitive;
- constructor Create;
- constructor CreateFromFile (Filename:string; Window:TFPgtkWidget);
- constructor CreateFromStrings (Data:TStrings; Window:TFPgtkWidget);
- constructor CreateFromText (Data:string; Window:TFPgtkWidget);
- property PixMap : PGdkPixMap read GetPixmapProp write SetPixmapProp;
- property Mask : PGdkBitMap read GetMask write SetMask;
- procedure SetPixmap (aPixmap:PGdkPixMap; aMask:PGdkBitmap);
- procedure GetPixmap (var aPixmap:PGdkPixmap; var aMask:PGdkBitmap);
- procedure LoadFromFile (Filename:string);
- procedure LoadFromStrings (data:TStrings);
- procedure LoadFromText (data:string);
- procedure LoadFromArray (data:array of string);
- end;
- TFPgtkDirectionFunctionSignalFunction = function (Sender:TFPgtkObject; Direction:TGtkDirectionType; data:pointer): TGtkDirectionType of Object;
- TFPgtkContainer = class (TFPgtkWidget)
- Private
- function GetBorder : integer;
- procedure SetBorder (TheValue : integer);
- function GetChildren : TFPgtkWidgetGroup;
- Public
- FChildren:TFPgtkWidgetGroup;
- function TheGtkObject : PGtkContainer;
- property Border : integer read GetBorder write SetBorder;
- procedure Add (AWidget:TFPgtkWidget; IsVisible:boolean); Overload;
- procedure Add (AWidget:TFPgtkWidget); Overload;
- procedure Remove (AWidget:TFPgtkWidget);
- constructor Create;
- destructor Destroy; Override;
- property Children : TFPgtkWidgetGroup read GetChildren;
- procedure Focus (Direction:TGtkDirectionType);
- procedure FocusChild (Child:TFPgtkWidget);
- procedure RegisterToplevel;
- procedure UnregisterToplevel;
- procedure ResizeChildren;
- function DirectionFunctionSignalConnect (Signal:string; Proc:TFPgtkDirectionFunctionSignalFunction; data:pointer) : guint;
- function DirectionFunctionSignalConnectAfter (Signal:string; Proc:TFPgtkDirectionFunctionSignalFunction; data:pointer) : guint;
- function ConnectAdd (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function ConnectAfterAdd (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function ConnectRemove (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function ConnectAfterRemove (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function ConnectCheckResize (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterCheckResize (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectFocus (proc:TFPgtkDirectionFunctionSignalFunction; data:pointer) : guint;
- function ConnectAfterFocus (proc:TFPgtkDirectionFunctionSignalFunction; data:pointer) : guint;
- function ConnectSetFocusChild (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- function ConnectAfterSetFocusChild (proc:TFPgtkWidgetSignalFunction; data:pointer) : guint;
- end;
- TFPgtkBin = class (TFPgtkContainer)
- Private
- function GetChild : TFPgtkWidget;
- procedure SetChild (TheValue : TFPgtkWidget);
- Protected
- property Child : TFPgtkWidget read GetChild write SetChild;
- Public
- function TheGtkObject : PGtkBin;
- end;
- TFPgtkAlignment = class (TFPgtkBin)
- Public
- function TheGtkObject : PGtkAlignment;
- procedure Configure (anXAlign:gfloat; anYAlign:gfloat; anXScale:gfloat; anYScale:gfloat);
- end;
- TFPgtkFrame = class (TFPgtkBin)
- Private
- function GetText : string;
- procedure SetText (TheValue : string);
- function GetAlignment : gfloat;
- procedure SetAlignment (TheValue : gfloat);
- function GetShadowType : TgtkShadowType;
- procedure SetShadowType (TheValue : TgtkShadowType);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkFrame;
- property Text : string read GetText write SetText;
- property Alignment : gfloat read GetAlignment write SetAlignment;
- property ShadowType : TgtkShadowType read GetShadowType write SetShadowType;
- end;
- TFPgtkAspectFrame = class (TFPgtkFrame)
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkAspectFrame;
- procedure Configure (anXAlign:gfloat; anYAlign:gfloat; Ratio:gfloat; ObeyChild:longbool);
- end;
- TFPgtkButton = class (TFPgtkBin)
- Private
- FAccelKey : guint;
- FAddContainer : TFPgtkContainer;
- FLabel : TFPgtkLabel;
- procedure CreateLabel (aText:string);
- function GetText : string;
- procedure SetText (TheValue : string);
- function GetReliefStyle : TGtkReliefStyle;
- procedure SetReliefStyle (TheValue : TGtkReliefStyle);
- Protected
- procedure CreateGtkObject; override;
- function LabelClass : TFPgtkLabelClass; Virtual;
- procedure NotifyDestroy (AnObject:TFPgtkObject); Override;
- procedure LabelCreated; Virtual;
- Public
- function TheGtkObject : PGtkButton;
- function ConnectClicked (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterClicked (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectPressed (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterPressed (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectReleased (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterReleased (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectEnter (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterEnter (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectLeave (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterLeave (proc:TFPgtkSignalFunction; data:pointer) : guint;
- procedure Clicked;
- procedure Pressed;
- procedure Released;
- procedure Enter;
- procedure Leave;
- constructor Create;
- constructor CreateWithLabel (aText:string); Overload;
- constructor CreateWithLabel (aText:string; AccelGroup:PGtkAccelGroup); Overload;
- property TheLabel : TFPgtkLabel read FLabel;
- property Text : string read GetText write SetText;
- property ReliefStyle : TGtkReliefStyle read GetReliefStyle write SetReliefStyle;
- property AddContainer : TFPgtkContainer read FAddContainer write FAddContainer;
- property AccelKey : guint read FAccelKey;
- end;
- TFPgtkToggleButton = class (TFPgtkButton)
- Private
- function GetActive : boolean;
- procedure SetActive (TheValue : boolean);
- function GetDrawIndicator : boolean;
- procedure SetDrawIndicator (TheValue : boolean);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkToggleButton;
- function ConnectToggled (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterToggled (proc:TFPgtkSignalFunction; data:pointer) : guint;
- procedure Toggled;
- property Active : boolean read GetActive write SetActive;
- property DrawIndicator : boolean read GetDrawIndicator write SetDrawIndicator;
- end;
- TFPgtkCheckButton = class (TFPgtkToggleButton)
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkCheckButton;
- end;
- TFPgtkRadioButton = class (TFPgtkCheckButton)
- Protected
- procedure CreateGtkObject; Override;
- Public
- FGroup:TFPgtkRadioButtonGroup;
- function TheGtkObject : PGtkRadioButton;
- constructor Create (AGroup:TFPgtkRadioButtonGroup);
- constructor CreateWithLabel (AGroup:TFPgtkRadioButtonGroup; aText:string);
- end;
- TFPgtkRadioButtonGroup = class (TFPgtkWidgetGroup)
- Private
- function GetItem(index:integer) : TFPgtkRadioButton;
- procedure SetItem (index:integer; TheValue : TFPgtkRadioButton);
- Public
- property Items [index:integer] : TFPgtkRadioButton read GetItem write SetItem;
- function ActiveButtonText : string;
- function ActiveButtonIndex : integer;
- function ActiveButton : TFPgtkRadioButton;
- end;
- TFPgtkOptionMenu = class (TFPgtkButton)
- Private
- function GetMenu : TFPgtkMenu;
- procedure setmenu (TheValue : TFPgtkMenu);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkOptionMenu;
- property Menu : TFPgtkMenu read GetMenu write setmenu;
- procedure RemoveMenu;
- procedure SetHistory (index:integer);
- procedure Clear;
- end;
- TFPgtkItemClass = class of TFPgtkItem;
- TFPgtkItem = class (TFPgtkBin)
- Private
- FAccelKey : guint;
- FAddContainer : TFPgtkContainer;
- FLabel : TFPgtkLabel;
- procedure CreateLabel (aText:string);
- function GetText : string;
- procedure SetText (TheValue : string);
- Protected
- function LabelClass : TFPgtkLabelClass; Virtual;
- procedure NotifyDestroy (AnObject:TFPgtkObject); Override;
- procedure LabelCreated; Virtual;
- Public
- function TheGtkObject : PGtkItem;
- function ConnectSelect (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterSelect (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectDeselect (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterDeselect (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectToggle (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterToggle (proc:TFPgtkSignalFunction; data:pointer) : guint;
- procedure Select;
- procedure Deselect;
- procedure Toggle;
- constructor Create;
- constructor CreateWithLabel (aText:string);
- property TheLabel : TFPgtkLabel read FLabel;
- property Text : string read GetText write SetText;
- property AddContainer : TFPgtkContainer read FAddContainer write FAddContainer;
- property AccelKey : guint read FAccelKey;
- end;
- TFPgtkItemGroup = class (TFPgtkWidgetGroup)
- Private
- FItemClass : TFPgtkItemClass;
- function GetItem(index:integer) : TFPgtkItem;
- procedure SetItem (index:integer; TheValue : TFPgtkItem);
- Public
- property Items [index:integer] : TFPgtkItem read GetItem write SetItem;
- procedure FillFromList (aList:TStrings);
- procedure FillFromCommaText (aList:string);
- procedure FillFromArray (aList:array of string);
- property ItemClass : TFPgtkItemClass read FItemClass write FItemClass;
- procedure SignalConnect (Signal:string; proc:TFPgtkSignalFunction; data:pointer);
- constructor create (AnItemClass:TFPgtkItemClass);
- function AddTextItem (aText:string) : TFPgtkItem;
- end;
- TFPgtkMenuItem = class (TFPgtkItem)
- Private
- function GetPlacement : TGtkSubmenuPlacement;
- procedure SetPlacement (TheValue : TGtkSubmenuPlacement);
- function GetToggleIndicator : boolean;
- procedure SetToggleIndicator (TheValue : boolean);
- function GetSubMenuIndicator : boolean;
- procedure SetSubMenuIndicator (TheValue : boolean);
- function GetJustifyRight : boolean;
- procedure SetJustifyRight (TheValue : boolean);
- function GetSubMenu : TFPgtkMenuShell;
- procedure SetPropSubMenu (TheValue : TFPgtkMenuShell);
- Protected
- procedure CreateGtkObject; override;
- function LabelClass : TFPgtkLabelClass; Override;
- procedure LabelCreated; Override;
- Public
- function TheGtkObject : PGtkMenuItem;
- function ConnectActivate (proc:TFPgtksignalFunction; data:pointer) : guint;
- function ConnectAfterActivate (proc:TFPgtksignalFunction; data:pointer) : guint;
- function ConnectActivateItem (proc:TFPgtksignalFunction; data:pointer) : guint;
- function ConnectAfterActivateItem (proc:TFPgtksignalFunction; data:pointer) : guint;
- procedure Activate;
- procedure SetSubMenu (aSubMenu:TFPgtkWidget);
- procedure RemoveSubMenu;
- procedure Configure (ShowToggleIndicator:boolean; ShowSubmenuIndicator:boolean);
- procedure RightJustify;
- property Placement : TGtkSubmenuPlacement read GetPlacement write SetPlacement;
- property ToggleIndicator : boolean read GetToggleIndicator write SetToggleIndicator;
- property SubMenuIndicator : boolean read GetSubMenuIndicator write SetSubMenuIndicator;
- property JustifyRight : boolean read GetJustifyRight write SetJustifyRight;
- property SubMenu : TFPgtkMenuShell read GetSubMenu write SetPropSubMenu;
- end;
- TFPgtkCheckMenuItem = class (TFPgtkMenuItem)
- Private
- function GetActive : boolean;
- procedure SetActive (TheValue : boolean);
- function GetShowToggle : boolean;
- procedure SetShowToggle (TheValue : boolean);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkCheckMenuItem;
- function ConnectToggled (proc:TFPgtksignalFunction; data:pointer) : guint;
- function ConnectAfterToggled (proc:TFPgtksignalFunction; data:pointer) : guint;
- procedure Toggled;
- property Active : boolean read GetActive write SetActive;
- property ShowToggle : boolean read GetShowToggle write SetShowToggle;
- end;
- TFPgtkRadioMenuItem = class (TFPgtkCheckMenuItem)
- Private
- FGroup : TFPgtkRadioMenuGroup;
- Protected
- procedure CreateGtkObject; Override;
- Public
- function TheGtkObject : PGtkRadioMenuItem;
- constructor Create (AGroup:TFPgtkRadioMenuGroup);
- constructor CreateWithLabel (Agroup:TFPgtkRadioMenuGroup; aText:string);
- property Group : TFPgtkRadioMenuGroup read FGroup;
- end;
- TFPgtkRadioMenuGroup = class (TFPgtkItemGroup)
- Private
- function GetItem(index:integer) : TFPgtkRadioMenuItem;
- procedure SetItem (index:integer; TheValue : TFPgtkRadioMenuItem);
- Public
- property Items [index:integer] : TFPgtkRadioMenuItem read GetItem write SetItem;
- function ActiveMenuText : string;
- function ActiveMenuIndex : integer;
- function ActiveMenu : TFPgtkRadioMenuItem;
- constructor create;
- end;
- TFPgtkTearOffMenuItem = class (TFPgtkMenuItem)
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkTearOffMenuItem;
- end;
- TFPgtkScrollSignalFunction = procedure (Sender:TFPgtkObject; ScrollType:TgtkScrollType; position:gfloat; data:pointer) of Object;
- TFPgtkScrollBooleanSignalFunction = procedure (Sender:TFPgtkObject; ScrolType:TgtkScrollType; Position:gfloat; AutoStartSelection:boolean; data:pointer) of Object;
- TFPgtkListItem = class (TFPgtkItem)
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkListItem;
- function ScrollSignalConnect (Signal:string; Proc:TFPgtkScrollSignalFunction; data:pointer) : guint;
- function ScrollSignalConnectAfter (Signal:string; Proc:TFPgtkScrollSignalFunction; data:pointer) : guint;
- function ScrollBooleanSignalConnect (Signal:string; Proc:TFPgtkScrollBooleanSignalFunction; data:pointer) : guint;
- function ScrollBooleanSignalConnectAfter (Signal:string; Proc:TFPgtkScrollBooleanSignalFunction; data:pointer) : guint;
- function ConnectToggleFocusRow (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterToggleFocusRow (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectSelectAll (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterSelectAll (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectUnselectAll (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterUnselectAll (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectUndoSelection (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterUndoSelection (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectStartSelection (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterStartSelection (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectEndSelection (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterEndSelection (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectToggleAddMode (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterToggleAddMode (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectExtendSelection (proc:TFPgtkScrollBooleanSignalFunction; data:pointer) : guint;
- function ConnectAfterExtendSelection (proc:TFPgtkScrollBooleanSignalFunction; data:pointer) : guint;
- function ConnectScrollVertical (proc:TFPgtkScrollSignalFunction; data:pointer) : guint;
- function ConnectAfterScrollVertical (proc:TFPgtkScrollSignalFunction; data:pointer) : guint;
- function ConnectScrollHorizontal (proc:TFPgtkScrollSignalFunction; data:pointer) : guint;
- function ConnectAfterScrollHorizontal (proc:TFPgtkScrollSignalFunction; data:pointer) : guint;
- procedure Select;
- procedure Deselect;
- end;
- TFPgtkListItemGroup = class (TFPgtkItemGroup)
- Public
- constructor create;
- end;
- TFPgtkTreeItem = class (TFPgtkItem)
- Private
- function GetSubTree : TFPgtkWidget;
- procedure SetSubTree (TheValue : TFPgtkWidget);
- function GetPixPlus : TFPgtkWidget;
- function GetPixMinus : TFPgtkWidget;
- function GetExpanded : boolean;
- procedure SetExpanded (TheValue : boolean);
- Protected
- procedure CreateGtkObject; override;
- Public
- function TheGtkObject : PGtkTreeItem;
- property SubTree : TFPgtkWidget read GetSubTree write SetSubTree;
- property PixPlus : TFPgtkWidget read GetPixPlus;
- property PixMinus : TFPgtkWidget read GetPixMinus;
- property Expanded : boolean read GetExpanded write SetExpanded;
- procedure Select;
- procedure Deselect;
- procedure Expand;
- procedure Collapse;
- function ConnectCollapse (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterCollapse (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectExpand (proc:TFPgtkSignalFunction; data:pointer) : guint;
- function ConnectAfterExpand (proc:TFPgtkSignalFunction; data:pointer) : guint;
- end;
- DialogResultCallback = procedure (Sender:TFPgtkWindow; DialogResult:pointer;
- Action:integer; initiator:TFPgtkObject) of object;
- DialogInitCallback = procedure (Sender : TFPgtkWindow; InitData : pointer) of object;
- TFPgtkWindowClass = class of TFPgtkWindow;
- TFPgtkWindow = class (TFPgtkBin)
- Private
- FAccelGroups:TList;
- FMainLevel : guint;
- FModalAction : integer;
- FOnDialogInit : DialogInitCallback;
- FOnDialogResult : DialogResultCallback;
- FDialogResult : pointer;
- TheWindowType:TGtkWindowType;
- function GetWindowType : TGtkWindowType;
- procedure SetWindowType (TheValue : TGtkWindowType);
- function GetTitle : string;
- procedure SetTitle (TheValue : string);
- function GetModal : boolean;
- procedure SetModal (TheValue : boolean);
- procedure SetModalAction (TheValue : integer);
- procedure ExecuteEnds (Sender:TFPgtkObject; data:pointer);
- function GetUserSizable : boolean;
- procedure SetUserSizable (TheValue : boolean);
- function GetPosition : TGtkWindowPosition;
- procedure SetPosition (TheValue : TGtkWindowPosition);
- function GetAccelGroups(ID:integer) : PGtkAccelGroup;
- Protected
- procedure CreateGtkObject; override;
- property DialogResult : pointer read FDialogResult write FDialogResult;
- procedure DoDialogResult (Action:integer; Sender:TFPgtkObject); Virtual;
- procedure DoDialogInit (InitData:pointer); Virtual;
- Public
- function TheGtkObject : PGtkWindow;
- constructor Create (AType:TGtkWindowType);
- destructor Destroy; Override;
- property WindowType : TGtkWindowType read GetWindowType write SetWindowType;
- property Title : string read GetTitle write SetTitle;
- property Modal : boolean read GetModal write SetModal;
- property OnDialogResult : DialogResultCallback read FOnDialogResult write FOnDialogResult;
- property OnDialogInit : DialogInitCa…