mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-23 15:56:00 +02:00
8490 lines
238 KiB
Modula-2
8490 lines
238 KiB
Modula-2
definition
|
|
GtkPrefix=gtk
|
|
UsesList=classes, sysutils, gtk, gdk, glib, FPglib
|
|
UnitName=FPgtk
|
|
Count=96
|
|
Object=Object
|
|
GtkFuncName=object
|
|
WithPointer
|
|
Count=52
|
|
Prop=Signal
|
|
PropType=SignalType
|
|
Count=2
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=Data
|
|
PascalType=pointer
|
|
Prop=BooleanSignal
|
|
PropType=SignalType
|
|
Code=begin,end
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=Bool
|
|
PascalType=boolean
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=Types to help
|
|
PropType=TypeDeclaration
|
|
Code=" 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;"
|
|
Count=0
|
|
Prop=private decl
|
|
PropType=Declarations
|
|
Section=Private
|
|
Code=const," dtPascalInstance = 'Pascal_Instance';",,type," TIntegerPointer = record"," case word of "," 0 : (i : integer);"," 1 : (p : pointer);"," end;",,var," ObjectsToFree : TList;"," ip : TIntegerPointer;"
|
|
Count=0
|
|
Prop=
|
|
PropType=Initialization
|
|
Code="ObjectsToFree := TList.Create;"
|
|
Count=0
|
|
Prop=
|
|
PropType=Finilization
|
|
Code=ObjectsToFree.Free;
|
|
Count=0
|
|
Prop=GetPascalInstance
|
|
PropType=HelperFunc
|
|
PascalType=TFPgtkObject
|
|
Code=begin," result := GetPascalInstance(GtkObject);"," if not assigned(result) and assigned(GtkObject) then"," result := ObjClass.CreateFromObject (GtkObject);",end;
|
|
Overload
|
|
Count=2
|
|
Param=gtkObject
|
|
PascalType=PGtkObject
|
|
Param=ObjClass
|
|
PascalType=TFPgtkObjectClass
|
|
Prop=GetPascalInstance
|
|
PropType=HelperFunc
|
|
PascalType=TFPgtkObject
|
|
Code="var p : pointer;",begin," result := nil;"," if assigned (gtkobject) then"," begin"," p := gtk_object_get_data (gtkObject, dtPascalInstance);"," if assigned(p) then"," result := PPascalClassData(p)^.TheInstance;"," end;",end;
|
|
Overload
|
|
Count=1
|
|
Param=gtkObject
|
|
PascalType=PGtkObject
|
|
Prop=ConvertToGtkObject
|
|
PropType=HelperFunc
|
|
PascalType=PGtkObject
|
|
Code=begin," if assigned(AnObject) then"," result := AnObject.TheGtkObject"," else"," result := nil;",end;
|
|
Count=1
|
|
Param=AnObject
|
|
PascalType=TFPgtkObject
|
|
Prop=ConvertToPgChar
|
|
PropType=HelperFunc
|
|
PascalType=PgChar
|
|
Code=begin," result := pointer(aString);",end;
|
|
Count=1
|
|
Param=AString
|
|
PascalType=string
|
|
Prop=ConvertSignalData
|
|
PropType=Function
|
|
Section=Private
|
|
PascalType=PSignalData
|
|
Code=begin," new (result);"," with result^ do"," begin"," TheSignalProc := proc;"," TheWidget := self;"," TheData := data;"," end;"," if FreeIt then"," SignalDatas.Add (result);",end;
|
|
Count=3
|
|
Param=proc
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Param=FreeIt
|
|
PascalType=boolean
|
|
Prop=FGtkObject
|
|
PropType=Field
|
|
Section=Protected
|
|
PascalType=PGtkObject
|
|
Count=0
|
|
Prop=NotifyList
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TList
|
|
Count=0
|
|
Prop=SignalDatas
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TList
|
|
Count=0
|
|
Prop=ConvertDatas
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TStringList
|
|
Count=0
|
|
Prop=PascalInstance
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TPascalClassData
|
|
Count=0
|
|
Prop=FreeFPgtkObjects
|
|
PropType=HelperFunc
|
|
PascalType=longbool
|
|
Code="var r : integer;"," obj : TFPgtkObject;",begin," for r := ObjectsToFree.Count-1 downto 0 do"," begin"," obj := TFPgtkObject(ObjectsToFree[r]);"," if assigned (Obj) then"," Obj.Free;"," end;"," ObjectsToFree.Clear;"," result := False;",end;
|
|
Cdecl
|
|
Count=1
|
|
Param=Data
|
|
PascalType=pointer
|
|
Prop=FreeClass
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if FDestroying = dsAlive then"," begin"," if ObjectsToFree.Count = 0 then"," g_idle_Add (@FreeFPgtkObjects, null);"," ObjectsToFree.Add (self);"," FGtkObject := null;"," FDestroying := dsWaiting;"," end;",end;
|
|
Count=2
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=Data
|
|
PascalType=pointer
|
|
Prop=CheckConvertDatas
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if not assigned (ConvertDatas) then"," begin"," ConvertDatas := TStringList.Create;"," ConvertDatas.Sorted := True;"," end;",end;
|
|
Count=0
|
|
Prop=CheckNotifyList
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if not assigned (Notifylist) then"," NotifyList := TList.Create;",end;
|
|
Count=0
|
|
Prop=InitCreate
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," inherited create;"," SignalDatas := TList.Create;",end;
|
|
Count=0
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Virtual
|
|
Abstract
|
|
Count=0
|
|
Prop=FinalCreate
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," PascalInstance.TheInstance := Self;"," SetData (dtPascalInstance, @PascalInstance);"," ConnectDestroy (@FreeClass, nil);",end;
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," InitCreate;"," CreateGtkObject;"," FinalCreate;",end;
|
|
Count=0
|
|
Prop=CreateFromObject
|
|
PropType=Constructor
|
|
Code=begin," InitCreate;"," FGtkObject := GtkObject;"," FinalCreate;",end;
|
|
Count=1
|
|
Param=GtkObject
|
|
PascalType=PGtkObject
|
|
Prop=Destroying
|
|
PropType=Property
|
|
PascalType=TDestroyState
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=AskNotification
|
|
PropType=Procedure
|
|
Code=begin," CheckNotifyList;"," with NotifyList do"," if indexof(AnObject) < 0 then"," begin"," Add (AnObject);"," AnObject.AskNotification (Self);"," end;",end;
|
|
Count=1
|
|
Param=AnObject
|
|
PascalType=TFPgtkObject
|
|
Prop=Destroy
|
|
PropType=Destructor
|
|
Code="var r : integer;"," datapointer : PSignalData;",begin," FDestroying := dsDestroying;"," if assigned(NotifyList) then"," begin"," for r := 0 to NotifyList.count-1 do"," TFPgtkObject(NotifyList[r]).NotifyDestroy (Self);"," NotifyList.Free;"," NotifyList := nil;"," end;"," if assigned(FGtkObject) and not Gtk_Object_destroyed(FGtkObject) then"," begin"," gtk_object_destroy (FGtkObject);"," FGtkObject := nil;"," end;"," for r := 0 to SignalDatas.count-1 do"," begin"," datapointer := signaldatas[r];"," dispose (datapointer);"," end;"," signaldatas.Free;"," if assigned (convertDatas) then"," ConvertDatas.Free;"," r := ObjectsToFree.indexof (self);"," if r >= 0 then"," ObjectsToFree[r] := nil;"," inherited destroy;",end;
|
|
Override
|
|
Count=0
|
|
Prop=NotifyDestroy
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var r : integer;",begin," if assigned(NotifyList) then"," begin"," r := NotifyList.indexOf (AnObject);"," if r >= 0 then"," NotifyList.Delete (r);"," end;",end;
|
|
Virtual
|
|
Count=1
|
|
Param=AnObject
|
|
PascalType=TFPgtkObject
|
|
Prop=Destroy
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=destroy
|
|
Count=0
|
|
Prop=SignalDisconnect
|
|
PropType=Procedure
|
|
Code=begin," gtk_signal_disconnect (TheGtkObject, SignalHandler);",end;
|
|
Count=1
|
|
Param=SignalHandler
|
|
PascalType=guint
|
|
Prop=SignalBlockHandler
|
|
PropType=Procedure
|
|
Code=begin," gtk_signal_handler_block (TheGtkObject, SignalHandler);",end;
|
|
Count=1
|
|
Param=SignalHandler
|
|
PascalType=guint
|
|
Prop=SignalUnblockHandler
|
|
PropType=Procedure
|
|
Code=begin," gtk_signal_handler_unblock (TheGtkObject, SignalHandler);",end;
|
|
Count=1
|
|
Param=SignalHandler
|
|
PascalType=guint
|
|
Prop=SignalEmit
|
|
PropType=Procedure
|
|
Code=begin," gtk_signal_emit_by_name (TheGtkObject, pgchar(aName), Args);",end;
|
|
Count=2
|
|
Param=aName
|
|
Convert
|
|
PascalType=string
|
|
Param=Args
|
|
PascalType=array of const
|
|
Prop=SignalNEmissions
|
|
PropType=Function
|
|
PascalType=guint
|
|
Code=begin," result := gtk_signal_n_emissions_by_name (FGtkObject, pgchar(aName));",end;
|
|
Count=1
|
|
Param=aName
|
|
Convert
|
|
PascalType=string
|
|
Prop=SignalEmitStop
|
|
PropType=Procedure
|
|
Code=begin," gtk_signal_emit_stop_by_name (FGtkObject, pgchar(aName));",end;
|
|
Count=1
|
|
Param=aName
|
|
Convert
|
|
PascalType=string
|
|
Prop=SetData
|
|
PropType=Procedure
|
|
GtkName=set_data
|
|
Count=2
|
|
Param=Key
|
|
Convert
|
|
PascalType=string
|
|
Param=Data
|
|
PascalType=pointer
|
|
Prop=UserData
|
|
PropType=Property
|
|
PascalType=pointer
|
|
GtkName=user_data
|
|
WriteGtkName=user_data
|
|
Count=0
|
|
Prop=SetDataFull
|
|
PropType=Procedure
|
|
Code=begin," gtk_object_set_data_full (TheGtkObject, pgChar(Key), ConvertSignalData (Destroyer, data, false), TGtkDestroyNotify(@DestroyData));"," CheckConvertDatas;"," ConvertDatas.Add (Key);",end;
|
|
Count=3
|
|
Param=Key
|
|
PascalType=string
|
|
Param=Data
|
|
PascalType=pointer
|
|
Param=Destroyer
|
|
PascalType=TFPgtkSignalFunction
|
|
Prop=RemoveData
|
|
PropType=Procedure
|
|
Code="var r : integer;",begin," gtk_object_remove_data (TheGtkObject, pgChar(Key));"," if assigned (ConvertDatas) then"," begin"," r := ConvertDatas.indexof (Key);"," if r >= 0 then"," ConvertDatas.Delete (r);"," end;",end;
|
|
Count=1
|
|
Param=Key
|
|
PascalType=string
|
|
Prop=GetData
|
|
PropType=Function
|
|
PascalType=pointer
|
|
Code="var p : pointer;",begin," p := gtk_object_get_data (TheGtkObject, pgChar(Key));"," if assigned(ConvertDatas) and (ConvertDatas.IndexOf (Key) >= 0) then"," result := PPascalClassData (PSignalData(p)^.TheData)^.TheInstance"," else"," result := p;",end;
|
|
Count=1
|
|
Param=Key
|
|
PascalType=string
|
|
Prop=DestroyData
|
|
PropType=HelperProc
|
|
Code=begin," with PSignaldata(data)^ do"," TheSignalProc (TheWidget, TheData);",end;
|
|
Cdecl
|
|
Count=1
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=IntToPointer
|
|
PropType=HelperFunc
|
|
PascalType=pointer
|
|
Code=begin," ip.i := Value;"," result := ip.p;",end;
|
|
Count=1
|
|
Param=Value
|
|
PascalType=integer
|
|
Prop=PointerToInt
|
|
PropType=HelperFunc
|
|
PascalType=integer
|
|
Code=begin," ip.p := Value;"," result := ip.i;",end;
|
|
Count=1
|
|
Param=Value
|
|
PascalType=pointer
|
|
Prop=GtkDestroyed
|
|
PropType=Function
|
|
PascalType=boolean
|
|
GtkName=destroyed
|
|
Count=0
|
|
Prop=Constructed
|
|
PropType=Procedure
|
|
GtkName=constructed
|
|
Count=0
|
|
Prop=ConstructedDefault
|
|
PropType=Procedure
|
|
GtkName=default_construct
|
|
Count=0
|
|
Prop=Sink
|
|
PropType=Procedure
|
|
GtkName=sink
|
|
Count=0
|
|
Prop=Ref
|
|
PropType=Procedure
|
|
GtkName=ref
|
|
Count=0
|
|
Prop=Unref
|
|
PropType=Procedure
|
|
GtkName=unref
|
|
Count=0
|
|
Prop=WeakRef
|
|
PropType=Procedure
|
|
Code=begin," gtk_object_weakref (TheGtkObject, TGtkDestroyNotify(@DestroyData), ConvertSignalData (Notify, data, true));",end;
|
|
Count=2
|
|
Param=Notify
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=WeakUnref
|
|
PropType=Procedure
|
|
Code=begin," gtk_object_weakunref (TheGtkObject, TGtkDestroyNotify(@DestroyData), ConvertSignalData (Notify, data, true));",end;
|
|
Count=2
|
|
Param=notify
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Object=Data
|
|
Inherit=Object
|
|
GtkFuncName=data
|
|
Count=1
|
|
Prop=Disconnect
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=disconnect
|
|
Count=0
|
|
Object=Adjustment
|
|
Inherit=Data
|
|
GtkFuncName=Adjustment
|
|
CreateParams=0,0,10,1,2,2
|
|
CreateObject
|
|
Count=12
|
|
Prop=Configure
|
|
PropType=Procedure
|
|
Code=begin," Lower := aLower;"," Upper := anUpper;"," Value := aValue;"," StepIncrement := aStepInc;"," PageIncrement := aPageInc;"," PageSize := aPageSize;",end;
|
|
Count=6
|
|
Param=aLower
|
|
PascalType=gfloat
|
|
Param=anUpper
|
|
PascalType=gfloat
|
|
Param=aValue
|
|
PascalType=gfloat
|
|
Param=aStepInc
|
|
PascalType=gfloat
|
|
Param=aPageInc
|
|
PascalType=gfloat
|
|
Param=aPageSize
|
|
PascalType=gfloat
|
|
Prop=ValueChanged
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Value_Changed
|
|
Count=0
|
|
Prop=Changed
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Changed
|
|
Count=0
|
|
Prop=ValueChanged
|
|
PropType=Procedure
|
|
GtkName=Value_Changed
|
|
Count=0
|
|
Prop=Changed
|
|
PropType=Procedure
|
|
GtkName=Changed
|
|
Count=0
|
|
Prop=ClampPage
|
|
PropType=Procedure
|
|
GtkName=Clamp_Page
|
|
Count=2
|
|
Param=aLower
|
|
PascalType=gfloat
|
|
Param=aUpper
|
|
PascalType=gfloat
|
|
Prop=Value
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=Value
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=Value
|
|
Count=0
|
|
Prop=Lower
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=Lower
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ObjField
|
|
WriteGtkName=Lower
|
|
Count=0
|
|
Prop=Upper
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=Upper
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ObjField
|
|
WriteGtkName=Upper
|
|
Count=0
|
|
Prop=StepIncrement
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=Step_Increment
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ObjField
|
|
WriteGtkName=Step_Increment
|
|
Count=0
|
|
Prop=PageIncrement
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=Page_Increment
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ObjField
|
|
WriteGtkName=Page_increment
|
|
Count=0
|
|
Prop=PageSize
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=Page_Size
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ObjField
|
|
WriteGtkName=Page_Size
|
|
Count=0
|
|
Object=ToolTips
|
|
Inherit=Data
|
|
GtkFuncName=tooltips
|
|
CreateObject
|
|
Count=13
|
|
Prop=SetColors
|
|
PropType=Procedure
|
|
GtkName=set_colors
|
|
Count=2
|
|
Param=Fore
|
|
PascalType=PGdkColor
|
|
Param=Back
|
|
PascalType=PGdkColor
|
|
Prop=SetTip
|
|
PropType=Procedure
|
|
GtkName=set_tip
|
|
Count=3
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Prop=Enabled
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=enabled
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," gtk_tooltips_enable (TheGtkObject)"," else"," gtk_tooltips_disable (TheGtkObject);",end;
|
|
Count=0
|
|
Prop=Delay
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=delay
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=delay
|
|
Count=0
|
|
Prop=ColorForeground
|
|
PropType=Property
|
|
PascalType=PGdkColor
|
|
GtkName=foreground
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetColorForeground
|
|
WriteCode=begin," SetColors (TheValue, ColorBackGround);",end;
|
|
Count=0
|
|
Prop=ColorBackground
|
|
PropType=Property
|
|
PascalType=PGdkColor
|
|
GtkName=background
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetColorBackground
|
|
WriteCode=begin," SetColors (ColorForeground, TheValue);",end;
|
|
Count=0
|
|
Prop=GetTooltipsData
|
|
PropType=HelperFunc
|
|
PascalType=PGtkTooltipsData
|
|
Code=begin," result := gtk_tooltips_data_get (ConvertToGtkWidget(Widget));",end;
|
|
Count=1
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Prop=ComposeTooltip
|
|
PropType=HelperFunc
|
|
PascalType=string
|
|
Code=begin," result := TooltipText;"," if PrivText <> '' then"," result := result + '|' + PrivText;",end;
|
|
Count=2
|
|
Param=TooltipText
|
|
PascalType=string
|
|
Param=PrivText
|
|
PascalType=string
|
|
Prop=DecomposeTooltip
|
|
PropType=HelperProc
|
|
Code="var r : integer;",begin," r := pos ('|', tooltip);"," if r > 0 then"," begin"," TooltipText := copy(Tooltip, 1, r-1);"," PrivText := copy (Tooltip, r+1, maxint);"," end"," else"," begin"," TooltipText := Tooltip;"," PrivText := '';"," end;",end;
|
|
Count=3
|
|
Param=Tooltip
|
|
PascalType=string
|
|
Param=TooltipText
|
|
PascalType=string
|
|
ParamType=Var
|
|
Param=PrivText
|
|
PascalType=string
|
|
ParamType=Var
|
|
Prop=TheTooltips
|
|
PropType=Declarations
|
|
Code="var "," TheTooltips : TFPgtkTooltips;"
|
|
Count=0
|
|
Prop=CheckTooltips
|
|
PropType=HelperProc
|
|
Section=Private
|
|
Code=begin,"if not assigned (TheTooltips) then"," TheTooltips := TFPgtkTooltips.Create;",end;
|
|
Count=0
|
|
Prop=
|
|
PropType=Finilization
|
|
Code="if assigned (TheTooltips) then"," TheTooltips.Free;"
|
|
Count=0
|
|
Prop=ForceWindow
|
|
PropType=Procedure
|
|
GtkName=force_window
|
|
Count=0
|
|
Object=Widget
|
|
Inherit=Object
|
|
GtkFuncName=widget
|
|
Count=107
|
|
Prop=TheGtkWidget
|
|
PropType=Property
|
|
PascalType=PGtkWidget
|
|
Code=begin," result := PGtkWidget (TheGtkObject);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," FGtkObject := PgtkObject (TheValue);",end;
|
|
Count=0
|
|
Prop=GetPascalInstance
|
|
PropType=HelperFunc
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := TFPgtkWidget (GetPascalInstance (PGtkObject(widget)));",end;
|
|
Overload
|
|
Count=1
|
|
Param=Widget
|
|
PascalType=PGtkWidget
|
|
Prop=GetPascalInstance
|
|
PropType=HelperFunc
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := TFPgtkWidget (GetPascalInstance (PGtkObject(Widget), ObjClass));",end;
|
|
Overload
|
|
Count=2
|
|
Param=Widget
|
|
PascalType=PGtkWidget
|
|
Param=ObjClass
|
|
PascalType=TFPgtkObjectClass
|
|
Prop=ConvertToGtkWidget
|
|
PropType=HelperFunc
|
|
PascalType=PGtkWidget
|
|
Code=begin," if assigned(AnObject) then"," result := AnObject.TheGtkWidget"," else"," result := nil;",end;
|
|
Count=1
|
|
Param=AnObject
|
|
PascalType=TFPgtkWidget
|
|
Prop=WidgetSignal
|
|
PropType=SignalType
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Data
|
|
PascalType=pointer
|
|
Prop=SetFlags
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=set_flags
|
|
Count=1
|
|
Param=NewFlags
|
|
PascalType=longint
|
|
Prop=UnsetFlags
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=unset_flags
|
|
Count=1
|
|
Param=NewUnsetFlags
|
|
PascalType=longint
|
|
Prop=Map
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=map
|
|
Count=0
|
|
Prop=Unmap
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=unmap
|
|
Count=0
|
|
Prop=QueueDraw
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=queue_draw
|
|
Count=0
|
|
Prop=QueueResize
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=queue_resize
|
|
Count=0
|
|
Prop=Draw
|
|
PropType=Procedure
|
|
GtkName=draw
|
|
Overload
|
|
Count=1
|
|
Param=Rectangle
|
|
PascalType=PGdkRectangle
|
|
Prop=DrawFocus
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=draw_focus
|
|
Count=0
|
|
Prop=DrawDefault
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=draw_default
|
|
Count=0
|
|
Prop=Show
|
|
PropType=Procedure
|
|
GtkName=show
|
|
Count=0
|
|
Prop=Hide
|
|
PropType=Procedure
|
|
GtkName=hide
|
|
Count=0
|
|
Prop=Realize
|
|
PropType=Procedure
|
|
GtkName=realize
|
|
Count=0
|
|
Prop=Unrealize
|
|
PropType=Procedure
|
|
GtkName=unrealize
|
|
Count=0
|
|
Prop=ShowNow
|
|
PropType=Procedure
|
|
GtkName=show_now
|
|
Count=0
|
|
Prop=ShowAll
|
|
PropType=Procedure
|
|
GtkName=show_all
|
|
Count=0
|
|
Prop=HideAll
|
|
PropType=Procedure
|
|
GtkName=hide_all
|
|
Count=0
|
|
Prop=SetAllocation
|
|
PropType=Procedure
|
|
Code=begin," with AnAllocation do"," SetAllocation (x, y, width, height);",end;
|
|
Overload
|
|
Count=1
|
|
Param=AnAllocation
|
|
PascalType=TGtkAllocation
|
|
Prop=SetAllocation
|
|
PropType=Procedure
|
|
Code=begin," SetUPosition (x, y);"," SetUSize (width, height);",end;
|
|
Overload
|
|
Count=4
|
|
Param=x
|
|
PascalType=integer
|
|
Param=y
|
|
PascalType=integer
|
|
Param=width
|
|
PascalType=integer
|
|
Param=height
|
|
PascalType=integer
|
|
Prop=Allocation
|
|
PropType=Property
|
|
PascalType=TGtkAllocation
|
|
GtkName=allocation
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ExistingProc
|
|
WriteGtkName=SetAllocation
|
|
Count=0
|
|
Prop=SetUPosition
|
|
PropType=Procedure
|
|
GtkName=set_uposition
|
|
Count=2
|
|
Param=x
|
|
PascalType=integer
|
|
Param=y
|
|
PascalType=integer
|
|
Prop=SetUsize
|
|
PropType=Procedure
|
|
GtkName=set_usize
|
|
Count=2
|
|
Param=width
|
|
PascalType=integer
|
|
Param=height
|
|
PascalType=integer
|
|
Prop=Name
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=name
|
|
WriteGtkName=name
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Flags
|
|
PropType=Property
|
|
PascalType=longint
|
|
GtkName=GetPropFlags
|
|
Code=begin," result := gtk_widget_Flags (TheGtkObject);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetPropFlags
|
|
WriteCode="var f : integer;",begin," f := GetPropFlags;"," UnsetFlags (f and not TheValue);"," SetFlags (not f and TheValue);",end;
|
|
Count=0
|
|
Prop=State
|
|
PropType=Property
|
|
PascalType=longint
|
|
GtkName=State
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=SavedState
|
|
PropType=Property
|
|
PascalType=longint
|
|
GtkName=Saved_State
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Parent
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
Code="var gtkparent : PgtkWidget;"," o : TFPgtkObject;",begin," gtkParent := TheGtkObject^.parent;"," o := GetPascalInstance (PgtkObject(GtkParent));"," if o is TFPgtkWidget then"," result := TFPgtkWidget(o)"," else"," result := nil;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode="var gtkparent : PgtkWidget;",begin," gtkParent := TheGtkObject^.parent;"," if assigned(TheValue) then"," if assigned(gtkParent) then"," reparent (TheValue)"," else"," gtk_widget_set_parent (TheGtkWidget, ConvertToGtkWidget(TheValue))"," else"," if assigned(gtkParent) then"," gtk_widget_unparent (TheGtkWidget);","end; "," "
|
|
Count=0
|
|
Prop=ParentWindow
|
|
PropType=Property
|
|
PascalType=PGdkWindow
|
|
GtkName=parent_window
|
|
WriteGtkName=parent_window
|
|
Count=0
|
|
Prop=Unparent
|
|
PropType=Procedure
|
|
GtkName=unparent
|
|
Count=0
|
|
Prop=Reparent
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if (NewParent is TFpgtkContainer) then"," begin"," ref;"," TFPgtkContainer(Parent).remove (self);"," TFPgtkContainer(NewParent).Add (Self);"," unref;"," end;",end;
|
|
Count=1
|
|
Param=NewParent
|
|
PascalType=TFPgtkWidget
|
|
Prop=Visible
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Visible
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," Show"," else"," Hide;",end;
|
|
Count=0
|
|
Prop=NoWindow
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=No_Window
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," SetFlags (GTK_NO_WINDOW)"," else"," UnSetFlags (GTK_NO_WINDOW);",end;
|
|
Count=0
|
|
Prop=Realized
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=realized
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then "," Realize"," else"," Unrealize;",end;
|
|
Count=0
|
|
Prop=Mapped
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Mapped
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," Map"," else"," Unmap;",end;
|
|
Count=0
|
|
Prop=Drawable
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Drawable
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=IsSensitive
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Is_Sensitive
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Sensitive
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Sensitive
|
|
ReadFuncType=GtkMacro
|
|
WriteGtkName=sensitive
|
|
Count=0
|
|
Prop=ParentSensitive
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Parent_Sensitive
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," SetFlags (GTK_PARENT_SENSITIVE)"," else"," UnSetFlags (GTK_PARENT_SENSITIVE);",end;
|
|
Count=0
|
|
Prop=AppPaintable
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=App_Paintable
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
WriteGtkName=app_paintable
|
|
WriteCode="// conditional compile ; niet bij gtkwin"
|
|
Count=0
|
|
Prop=CanFocus
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Can_Focus
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," SetFlags (GTK_CAN_FOCUS)"," else"," UnSetFlags (GTK_CAN_FOCUS);",end;
|
|
Count=0
|
|
Prop=GrabFocus
|
|
PropType=Procedure
|
|
GtkName=grab_focus
|
|
Count=0
|
|
Prop=HasFocus
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Has_Focus
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=CanDefault
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Can_Default
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," SetFlags (GTK_CAN_DEFAULT)"," else"," UnSetFlags (GTK_CAN_DEFAULT);",end;
|
|
Count=0
|
|
Prop=GrabDefault
|
|
PropType=Procedure
|
|
GtkName=grab_default
|
|
Count=0
|
|
Prop=HasDefault
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Has_Default
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ReceivesDefault
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Receives_Default
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=CompositeChild
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Composite_Child
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Tooltip
|
|
PropType=Property
|
|
PascalType=string
|
|
Code="var data : PGtkTooltipsData;",begin," data := Gtk_Tooltips_Data_Get (TheGtkObject);"," if assigned(data) then"," with data^ do"," result := ComposeTooltip (Tip_Text, tip_private)"," else"," result := '';",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode="var t, p : string;"," ttdata : PGtkTooltipsData;",begin," if TheValue = '' then"," begin"," ttdata := GetTooltipsData (Self);"," if assigned (ttdata) then"," ; // find a way to remove the hint. Setting '' does not remove"," end"," else"," begin"," CheckTooltips;"," DecomposeTooltip (TheValue, t, p);"," TheToolTips.SetTip (self, t, p);"," end;",end;
|
|
Count=0
|
|
Prop=HideOnDelete
|
|
PropType=Procedure
|
|
GtkName=hide_on_delete
|
|
Count=0
|
|
Prop=Colormap
|
|
PropType=Property
|
|
PascalType=PGdkColormap
|
|
GtkName=colormap
|
|
WriteGtkName=colormap
|
|
Count=0
|
|
Prop=Show
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=show
|
|
Count=0
|
|
Prop=hide
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=hide
|
|
Count=0
|
|
Prop=map
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=map
|
|
Count=0
|
|
Prop=unmap
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=unmap
|
|
Count=0
|
|
Prop=realize
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=realize
|
|
Count=0
|
|
Prop=unrealize
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=unrealize
|
|
Count=0
|
|
Prop=DrawFocus
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=draw-focus
|
|
Count=0
|
|
Prop=DrawDefault
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=draw-defaut
|
|
Count=0
|
|
Prop=ParentSet
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=parent-set
|
|
Count=0
|
|
Prop=GrabFocus
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=grab-focus
|
|
Count=0
|
|
Prop=Event
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEvent
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=Event
|
|
PropType=Signal
|
|
PascalType=Event
|
|
GtkName=event
|
|
Count=0
|
|
Prop=EventButton
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventButton
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ButtonPressEvent
|
|
PropType=Signal
|
|
PascalType=EventButton
|
|
GtkName=button-press-event
|
|
Count=0
|
|
Prop=ButtonReleaseEvent
|
|
PropType=Signal
|
|
PascalType=EventButton
|
|
GtkName=button-release-event
|
|
Count=0
|
|
Prop=EventMotion
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventMotion
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=MotionNotifyEvent
|
|
PropType=Signal
|
|
PascalType=EventMotion
|
|
GtkName=motion-notify-event
|
|
Count=0
|
|
Prop=DeleteEvent
|
|
PropType=Signal
|
|
PascalType=Event
|
|
GtkName=delete-event
|
|
Count=0
|
|
Prop=DestroyEvent
|
|
PropType=Signal
|
|
PascalType=Event
|
|
GtkName=destroy-event
|
|
Count=0
|
|
Prop=EventExpose
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventExpose
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ExposeEvent
|
|
PropType=Signal
|
|
PascalType=EventExpose
|
|
GtkName=expose-event
|
|
Count=0
|
|
Prop=EventKey
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventKey
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=KeyPressEvent
|
|
PropType=Signal
|
|
PascalType=EventKey
|
|
GtkName=key-press-event
|
|
Count=0
|
|
Prop=KeyReleaseEvent
|
|
PropType=Signal
|
|
PascalType=EventKey
|
|
GtkName=key-release-event
|
|
Count=0
|
|
Prop=EventCrossing
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventCrossing
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=EnterNotifyEvent
|
|
PropType=Signal
|
|
PascalType=EventCrossing
|
|
GtkName=enter-notify-event
|
|
Count=0
|
|
Prop=LeaveNotifyEvent
|
|
PropType=Signal
|
|
PascalType=EventCrossing
|
|
GtkName=leave-notify-event
|
|
Count=0
|
|
Prop=EventConfigure
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventConfigure
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ConfigureEvent
|
|
PropType=Signal
|
|
PascalType=EventConfigure
|
|
GtkName=configure-event
|
|
Count=0
|
|
Prop=EventFocus
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventFocus
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=FocusInEvent
|
|
PropType=Signal
|
|
PascalType=EventFocus
|
|
GtkName=focus-in-event
|
|
Count=0
|
|
Prop=FocusOutEvent
|
|
PropType=Signal
|
|
PascalType=EventFocus
|
|
GtkName=focus-out-event
|
|
Count=0
|
|
Prop=MapEvent
|
|
PropType=Signal
|
|
PascalType=Event
|
|
GtkName=map-event
|
|
Count=0
|
|
Prop=UnmapEvent
|
|
PropType=Signal
|
|
PascalType=Event
|
|
GtkName=unmap-event
|
|
Count=0
|
|
Prop=EventProperty
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventProperty
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PropertyNotifyEvent
|
|
PropType=Signal
|
|
PascalType=EventProperty
|
|
GtkName=property-notify-event
|
|
Count=0
|
|
Prop=EventSelection
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventSelection
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=SelectionClearEvent
|
|
PropType=Signal
|
|
PascalType=EventSelection
|
|
GtkName=selection-clear-event
|
|
Count=0
|
|
Prop=SelectionRequestEvent
|
|
PropType=Signal
|
|
PascalType=EventSelection
|
|
GtkName=selection-request-event
|
|
Count=0
|
|
Prop=SelectionNotifyEvent
|
|
PropType=Signal
|
|
PascalType=EventSelection
|
|
GtkName=selection-notify-event
|
|
Count=0
|
|
Prop=EventProximity
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventProximity
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ProximityInEvent
|
|
PropType=Signal
|
|
PascalType=EventProximity
|
|
GtkName=proximity-in-event
|
|
Count=0
|
|
Prop=ProximityOutEvent
|
|
PropType=Signal
|
|
PascalType=EventProximity
|
|
GtkName=proximity-out-event
|
|
Count=0
|
|
Prop=EventClient
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventClient
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ClientEvent
|
|
PropType=Signal
|
|
PascalType=EventClient
|
|
GtkName=client-event
|
|
Count=0
|
|
Prop=EventNoExpose
|
|
PropType=SignalType
|
|
PascalType=boolean
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Event
|
|
PascalType=PGdkEventNoExpose
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=NoExposeEvent
|
|
PropType=Signal
|
|
PascalType=EventNoExpose
|
|
GtkName=no-expose-event
|
|
Count=0
|
|
Prop=VisibilityNotifyEvent
|
|
PropType=Signal
|
|
PascalType=Event
|
|
GtkName=visibility-notify-event
|
|
Count=0
|
|
Prop=LockAccelerators
|
|
PropType=Procedure
|
|
GtkName=lock_accelerators
|
|
Count=0
|
|
Prop=UnlockAccelerators
|
|
PropType=Procedure
|
|
GtkName=unlock_accelerators
|
|
Count=0
|
|
Prop=RemoveAccelerators
|
|
PropType=Procedure
|
|
GtkName=remove_accelerators
|
|
Count=2
|
|
Param=aSignal
|
|
Convert
|
|
PascalType=string
|
|
Param=OnlyVisible
|
|
Convert
|
|
PascalType=boolean
|
|
Prop=ActivateAccelGroups
|
|
PropType=Procedure
|
|
Code=begin," gtk_accel_groups_activate (FGtkObject, Key, Mods);",end;
|
|
Count=2
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Prop=AcceleratorAdd
|
|
PropType=Procedure
|
|
Code=begin," gtk_widget_add_accelerator (TheGtkWidget, pgchar(aSignal),"," AG, Key, Mods, acFlags);",end;
|
|
Overload
|
|
Count=5
|
|
Param=AG
|
|
PascalType=PGtkAccelGroup
|
|
Param=aSignal
|
|
PascalType=string
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Param=acFlags
|
|
PascalType=TGtkAccelFlags
|
|
Object=Group
|
|
Inherit=*List
|
|
Count=26
|
|
Prop=FGSList
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=PGSList
|
|
Count=0
|
|
Prop=FGList
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=PGList
|
|
Count=0
|
|
Prop=FNotUpdating
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=boolean
|
|
Count=0
|
|
Prop=FClassesChanged
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=boolean
|
|
Count=0
|
|
Prop=FSListChanged
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=boolean
|
|
Count=0
|
|
Prop=FListChanged
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=boolean
|
|
Count=0
|
|
Prop=ManageLists
|
|
PropType=Property
|
|
PascalType=boolean
|
|
ReadFuncType=Field
|
|
WriteProcType=Field
|
|
Count=0
|
|
Prop=FreeList
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if FGList <> null then"," begin"," if FManageLists then"," g_list_free (FGList);"," FGList := null;"," end;",end;
|
|
Count=0
|
|
Prop=FreeSList
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if FGSList <> null then"," begin"," if FManageLists then"," g_slist_free (FGSList);"," FGSlist := null;"," end;",end;
|
|
Count=0
|
|
Prop=CreateGList
|
|
PropType=Function
|
|
Section=Private
|
|
PascalType=PGList
|
|
Code="var r : integer;",begin," FreeList;"," result := null;"," for r := pred(count) downto 0 do"," result := g_list_prepend (result, GetData(r));"," FGList := result;",end;
|
|
Count=0
|
|
Prop=CreateGSList
|
|
PropType=Function
|
|
Section=Private
|
|
PascalType=PGSList
|
|
Code="var r : integer;",begin," FreeSList;"," result := null;"," for r := pred(count) downto 0 do"," result := g_slist_prepend (result, GetData(r));"," FGSList := result;",end;
|
|
Count=0
|
|
Prop=BuildFromGtkList
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var p : PGList;",begin," clear;"," p := FGList;"," while p <> null do"," begin"," add (UngetData(p^.data));"," p := p^.Next;"," end;"," FListChanged := False;"," FSListChanged := False;"," FClassesChanged := False;"," FreeSList;",end;
|
|
Count=0
|
|
Prop=BuildFromGtkSList
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var p :PGSList;",begin," clear;"," p := FGSList;"," while p <> null do"," begin"," add (UngetData(p^.data));"," p := p^.Next;"," end;"," FListChanged := False;"," FSListChanged := False;"," FClassesChanged := False;"," FreeList;",end;
|
|
Count=0
|
|
Prop=Notify
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," inherited;"," FClassesChanged := True;",end;
|
|
Override
|
|
Count=2
|
|
Param=ptr
|
|
PascalType=pointer
|
|
Param=Action
|
|
PascalType=TListNotification
|
|
Prop=GetData
|
|
PropType=Function
|
|
Section=Protected
|
|
PascalType=pointer
|
|
Code="// GetData needs to give the pointer to the data in the List or SList of GTK",begin," result := items[index];",end;
|
|
Dynamic
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Prop=UngetData
|
|
PropType=Function
|
|
Section=Protected
|
|
PascalType=pointer
|
|
Code="// UngetData needs to give the item in this list from the datapointer of GTK",begin," result := data",end;
|
|
Dynamic
|
|
Count=1
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," FClassesChanged := False;"," FListChanged := false;"," FSListChanged := False;"," FGList := null;"," FGSList := null;"," FNotUpdating := True;"," FManageLists := True;",end;
|
|
Count=0
|
|
Prop=Destroy
|
|
PropType=Destructor
|
|
Code=begin," if ManageLists then"," begin"," FreeList;"," FreeSList;"," end;"," inherited Destroy;",end;
|
|
Override
|
|
Count=0
|
|
Prop=GetGtkList
|
|
PropType=Function
|
|
PascalType=PGList
|
|
Code=begin," if buffered then"," if FClasseschanged then"," result := CreateGList"," else if FSListChanged then"," begin"," BuildFromGtkSList;"," result := CreateGList;"," end"," else"," result := FGlist"," else"," result := CreateGList;",end;
|
|
Count=1
|
|
Param=buffered
|
|
PascalType=boolean
|
|
Prop=GetGtkSList
|
|
PropType=Function
|
|
PascalType=PGSList
|
|
Code=begin," if buffered then"," if FClassesChanged then"," result := CreateGSList"," else if FListChanged then"," begin"," BuildFromGtkList;"," result := CreateGSList;"," end"," else"," result := FGSlist"," else"," result := CreateGSList;",end;
|
|
Count=1
|
|
Param=buffered
|
|
PascalType=boolean
|
|
Prop=BeginUpdate
|
|
PropType=Procedure
|
|
Code=begin," FNotUpdating := False;",end;
|
|
Count=0
|
|
Prop=EndUpdate
|
|
PropType=Procedure
|
|
Code=begin," FNotUpdating := True;"," if FlistChanged then"," BuildFromGtkSList"," else if FSListChanged then"," BuildFromGtkSList"," else if FClassesChanged then"," begin"," FreeSList;"," FreeList;"," end;",end;
|
|
Count=0
|
|
Prop=ForEachFunction
|
|
PropType=TypeDeclaration
|
|
Code=" TFPgtkForEachProcedure = procedure (item : pointer; data : pointer) of object;"
|
|
Count=0
|
|
Prop=ForEach
|
|
PropType=Procedure
|
|
Code="var r: integer;",begin," for r := 0 to pred(count) do"," Proc (items[r], data);",end;
|
|
Count=2
|
|
Param=Proc
|
|
PascalType=TFPgtkForEachProcedure
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=GtkList
|
|
PropType=Property
|
|
PascalType=PGList
|
|
GtkName=GetGtkListProp
|
|
Code=begin," result := GetGtkList (True);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetGtkListProp
|
|
WriteCode=begin," FGList := TheValue;"," if FNotUpdating then"," BuildFromGtkList"," else"," FListChanged := True;",end;
|
|
Count=0
|
|
Prop=GtkSList
|
|
PropType=Property
|
|
PascalType=PGSList
|
|
GtkName=GetGtkSListProp
|
|
Code=begin," result := GetGtkSList (True);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetGtkSListProp
|
|
WriteCode=begin," FGSlist := TheValue;"," if FNotUpdating then"," BuildFromGtkSList"," else"," FSListChanged := True;",end;
|
|
Count=0
|
|
Object=WidgetGroup
|
|
Inherit=Group
|
|
Count=6
|
|
Prop=GetData
|
|
PropType=Function
|
|
PascalType=pointer
|
|
Code=begin," result := items[index].FgtkObject;",end;
|
|
Override
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Prop=UnGetData
|
|
PropType=Function
|
|
PascalType=pointer
|
|
Code=begin," result := GetPascalInstance (PGtkObject(Data));",end;
|
|
Override
|
|
Count=1
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=AddToContainer
|
|
PropType=Procedure
|
|
Code="var r : integer;",begin," for r := 0 to pred(count) do"," Container.Add (items[r]);",end;
|
|
Count=1
|
|
Param=Container
|
|
PascalType=TFPgtkContainer
|
|
Prop=PackInBox
|
|
PropType=Procedure
|
|
Code="var r : integer;",begin," if AtStart then"," for r := 0 to pred(Count) do"," box.PackStart (items[r], expanding, fill, padding)"," else"," for r := pred(Count) downto 0 do"," box.PackEnd (items[r], expanding, fill, padding);",end;
|
|
Count=5
|
|
Param=box
|
|
PascalType=TFPgtkBox
|
|
Param=AtStart
|
|
PascalType=boolean
|
|
Param=Expanding
|
|
PascalType=boolean
|
|
Param=Fill
|
|
PascalType=boolean
|
|
Param=Padding
|
|
PascalType=integer
|
|
Prop=Items
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=GetItem
|
|
Code=begin," result := TFPgtkWidget (Inherited items[index]);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetItem
|
|
WriteCode=begin," inherited items[index] := TheValue;",end;
|
|
Count=1
|
|
Param=Index
|
|
PascalType=integer
|
|
Prop=Tooltips
|
|
PropType=Property
|
|
PascalType=string
|
|
Code=begin," result := items[index].Tooltip;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," Items[index].Tooltip := TheValue;",end;
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Object=Misc
|
|
Inherit=Widget
|
|
GtkFuncName=misc
|
|
Count=6
|
|
Prop=SetAlignment
|
|
PropType=Procedure
|
|
GtkName=set_alignment
|
|
Count=2
|
|
Param=x
|
|
PascalType=gfloat
|
|
Param=y
|
|
PascalType=gfloat
|
|
Prop=SetPadding
|
|
PropType=Procedure
|
|
GtkName=set_padding
|
|
Count=2
|
|
Param=x
|
|
PascalType=word
|
|
Param=y
|
|
PascalType=word
|
|
Prop=XAlign
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=XAlign
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," SetAlignment (TheValue, YAlign);",end;
|
|
Count=0
|
|
Prop=YAlign
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=YAlign
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," SetAlignment (XAlign, TheValue);",end;
|
|
Count=0
|
|
Prop=XPad
|
|
PropType=Property
|
|
PascalType=word
|
|
GtkName=XPad
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," SetPadding (TheValue, YPad);",end;
|
|
Count=0
|
|
Prop=YPad
|
|
PropType=Property
|
|
PascalType=word
|
|
GtkName=YPad
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," SetPadding (XPad, TheValue);",end;
|
|
Count=0
|
|
Object=Label
|
|
Inherit=Misc
|
|
GtkFuncName=label
|
|
CreateParams=null
|
|
CreateObject
|
|
Count=7
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," Text := aText;"," SetAlignment (0.0, 0.5);",end;
|
|
Count=1
|
|
Param=aText
|
|
PascalType=string
|
|
Prop=Text
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=TheLabel
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=text
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Pattern
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=pattern
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=pattern
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Justify
|
|
PropType=Property
|
|
PascalType=TGtkJustification
|
|
GtkName=jtype
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=justify
|
|
Count=0
|
|
Prop=LineWrap
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=wrap
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=line_wrap
|
|
Count=0
|
|
Prop=ParseUline
|
|
PropType=Function
|
|
PascalType=guint
|
|
GtkName=parse_uline
|
|
Count=1
|
|
Param=aText
|
|
Convert
|
|
PascalType=string
|
|
Prop=LabelClass
|
|
PropType=TypeDeclaration
|
|
Code=" TFPgtkLabelClass = class of TFPgtkLabel;"
|
|
Count=0
|
|
Object=AccelLabel
|
|
Inherit=Label
|
|
GtkFuncName=accel_label
|
|
CreateParams=''
|
|
CreateObject
|
|
Count=3
|
|
Prop=AccelWidget
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=accel_widget
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=accel_widget
|
|
WriteConvert
|
|
Count=0
|
|
Prop=AccelText
|
|
PropType=Function
|
|
PascalType=string
|
|
Code=begin," result := TheGtkObject^.accel_string;",end;
|
|
Count=0
|
|
Prop=Refetch
|
|
PropType=Procedure
|
|
GtkName=refetch
|
|
Count=0
|
|
Object=TipsQuery
|
|
Inherit=Label
|
|
GtkFuncName=tips_query
|
|
CreateObject
|
|
Count=0
|
|
Object=Arrow
|
|
Inherit=Misc
|
|
GtkFuncName=arrow
|
|
CreateParams=GTK_ARROW_LEFT,GTK_SHADOW_NONE
|
|
CreateObject
|
|
Count=4
|
|
Prop=ArrowType
|
|
PropType=Property
|
|
PascalType=TGtkArrowType
|
|
Code=begin," result := TGtkArrowType (TheGtkObject^.arrow_type);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_arrow_set (TheGtkObject, TheValue, ShadowType);",end;
|
|
Count=0
|
|
Prop=ShadowType
|
|
PropType=Property
|
|
PascalType=TGtkShadowType
|
|
Code=begin," result := TGtkShadowtype (TheGtkObject^.shadow_type);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_arrow_set (TheGtkObject, ArrowType, TheValue);",end;
|
|
Count=0
|
|
Prop=SetTypes
|
|
PropType=Procedure
|
|
GtkName=set
|
|
Count=2
|
|
Param=AnArrowType
|
|
PascalType=TGtkArrowType
|
|
Param=AShadowtype
|
|
PascalType=TGtkShadowType
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," SetTypes (AnArrowType, AShadowType);",end;
|
|
Count=2
|
|
Param=AnArrowType
|
|
PascalType=TGtkArrowType
|
|
Param=AShadowType
|
|
PascalType=TGtkShadowType
|
|
Object=Image
|
|
Inherit=Misc
|
|
GtkFuncName=image
|
|
CreateParams=FImage, FMask
|
|
CreateObject
|
|
Count=7
|
|
Prop=FImage
|
|
PropType=Field
|
|
PascalType=PGdkImage
|
|
Count=0
|
|
Prop=FMask
|
|
PropType=Field
|
|
PascalType=PGdkBitMap
|
|
Count=0
|
|
Prop=Image
|
|
PropType=Property
|
|
PascalType=PGdkImage
|
|
GtkName=GetImageProp
|
|
Code="var m : PGdkBitmap;",begin," gtk_image_get (TheGtkObject, @result, @m);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetImageProp
|
|
WriteCode=begin," gtk_Image_set (TheGtkObject, TheValue, nil);",end;
|
|
Count=0
|
|
Prop=Mask
|
|
PropType=Property
|
|
PascalType=PGdkBitMap
|
|
Code="var p : PGdkPixmap;",begin," gtk_image_get (TheGtkObject, @p, @result);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_image_set (TheGtkObject, Image, TheValue);",end;
|
|
Count=0
|
|
Prop=SetImage
|
|
PropType=Procedure
|
|
GtkName=set
|
|
Count=2
|
|
Param=anImage
|
|
PascalType=PGdkImage
|
|
Param=aMask
|
|
PascalType=PGdkBitmap
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FImage := anImage;"," FMask := aMask;"," inherited create;",end;
|
|
Count=2
|
|
Param=anImage
|
|
PascalType=PGdkImage
|
|
Param=aMask
|
|
PascalType=PGdkBitmap
|
|
Prop=NewImage
|
|
PropType=HelperFunc
|
|
PascalType=PGdkImage
|
|
Code=begin," result := gdk_image_new (gdk_image_fastest, gdk_visual_get_system, aWidth, aHeight);",end;
|
|
Count=2
|
|
Param=aWidth
|
|
PascalType=integer
|
|
Param=aHeight
|
|
PascalType=integer
|
|
Object=Pixmap
|
|
Inherit=Misc
|
|
GtkFuncName=pixmap
|
|
CreateParams=FPixMap, FMask
|
|
CreateObject
|
|
Count=20
|
|
Prop=EmptyBitMap
|
|
PropType=Declarations
|
|
Section=Private
|
|
Code=var," EmptyBitmap : PGdkPixmap;"
|
|
Count=0
|
|
Prop=PStringArray
|
|
PropType=TypeDeclaration
|
|
Code=" TStringArray = array[0..32000] of pgchar;"," PStringArray = ^TStringArray;"
|
|
Count=0
|
|
Prop=StringsToPPgchar
|
|
PropType=HelperFunc
|
|
PascalType=PPgchar
|
|
Code="var r : integer;"," a : PStringArray;",begin," getmem (a, sizeof (pgchar) * Data.count);"," for r := 0 to Data.Count-1 do"," a^[r] := pchar (Data[r]);"," result := ppgchar (a);",end;
|
|
Count=1
|
|
Param=Data
|
|
PascalType=TStrings
|
|
Prop=ArrayToPPgchar
|
|
PropType=HelperFunc
|
|
PascalType=PPgchar
|
|
Code="var r,t : integer;"," a : PStringArray;",begin," getmem (a, sizeof (pgchar) * (high(data)-low(data)+1));"," t := 0;"," for r := low(data) to high(data) do"," begin"," a^[r] := pchar (data[t]);"," inc (t);"," end;"," result := ppgchar (a);",end;
|
|
Count=1
|
|
Param=Data
|
|
PascalType=array of string
|
|
Prop=BuildInsensitive
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=build_insensitive
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=build_insensitive
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," if not assigned (EmptyBitmap) then"," EmptyBitmap := gdk_pixmap_new (null, 1, 1, 1);"," FPixMap := EmptyBitmap;"," FMask := PGdkBitmap (EmptyBitmap);"," inherited create;",end;
|
|
Count=0
|
|
Prop=CreateFromFile
|
|
PropType=Constructor
|
|
Code=begin," FPixMap := gdk_pixmap_create_from_xpm (ConvertToGtkWidget(Window)^.window, @FMask, nil, pgchar(Filename));"," inherited create;",end;
|
|
Count=2
|
|
Param=Filename
|
|
PascalType=string
|
|
Param=Window
|
|
PascalType=TFPgtkWidget
|
|
Prop=CreateFromStrings
|
|
PropType=Constructor
|
|
Code="var ppdata : ppgchar;",begin," ppdata := StringsToPPgchar(Data);"," FPixMap := gdk_pixmap_create_from_xpm_d (ConvertToGtkWidget(Window)^.window, @FMask, nil, ppdata);"," inherited create;"," freemem (ppdata, sizeof (pgchar) * Data.count);",end;
|
|
Count=2
|
|
Param=Data
|
|
PascalType=TStrings
|
|
Param=Window
|
|
PascalType=TFPgtkWidget
|
|
Prop=CreateFromText
|
|
PropType=Constructor
|
|
Code="var l : TStrings;",begin," l := TStringList.Create;"," try"," l.Text := data;"," CreateFromStrings (l, Window);"," finally"," l.Free;"," end;",end;
|
|
Count=2
|
|
Param=Data
|
|
PascalType=string
|
|
Param=Window
|
|
PascalType=TFPgtkWidget
|
|
Prop=FPixMap
|
|
PropType=Field
|
|
PascalType=PGdkPixmap
|
|
Count=0
|
|
Prop=FMask
|
|
PropType=Field
|
|
PascalType=PGdkBitMap
|
|
Count=0
|
|
Prop=PixMap
|
|
PropType=Property
|
|
PascalType=PGdkPixMap
|
|
GtkName=GetPixmapProp
|
|
Code="var m : PGdkBitmap;",begin," gtk_pixmap_get (TheGtkObject, @result, @m);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetPixmapProp
|
|
WriteCode=begin," gtk_pixmap_set (TheGtkObject, TheValue, nil);",end;
|
|
Count=0
|
|
Prop=Mask
|
|
PropType=Property
|
|
PascalType=PGdkBitMap
|
|
Code="var p : PGdkPixmap;",begin," gtk_pixmap_get (TheGtkObject, @p, @result);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_pixmap_set (TheGtkObject, Pixmap, TheValue);",end;
|
|
Count=0
|
|
Prop=SetPixmap
|
|
PropType=Procedure
|
|
GtkName=set
|
|
Count=2
|
|
Param=aPixmap
|
|
PascalType=PGdkPixMap
|
|
Param=aMask
|
|
PascalType=PGdkBitmap
|
|
Prop=GetPixmap
|
|
PropType=Procedure
|
|
Code="var P:PGdkPixmap; "," M:PGdkBitmap;",begin," gtk_pixmap_get (TheGtkObject, @p, @m);"," apixmap := p;"," amask := m;",end;
|
|
Count=2
|
|
Param=aPixmap
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=aMask
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Prop=LoadFromFile
|
|
PropType=Procedure
|
|
Code="var bm : PGdkBitmap;"," pm : PGdkPixmap;",begin," pm := gdk_pixmap_colormap_create_from_xpm (nil, Colormap, @bm, nil, pgchar(Filename));"," SetPixmap (pm, bm);",end;
|
|
Count=1
|
|
Param=Filename
|
|
PascalType=string
|
|
Prop=LoadFromStrings
|
|
PropType=Procedure
|
|
Code="var bm : PGdkBitmap;"," pm : PGdkPixmap;"," ppdata : ppgchar;",begin," ppdata := StringsToPPgchar(Data);"," pm := gdk_pixmap_colormap_create_from_xpm_d (nil, Colormap, @bm, nil, ppdata);"," SetPixmap (pm, bm);"," freemem (ppdata, sizeof (pgchar) * Data.count);",end;
|
|
Count=1
|
|
Param=data
|
|
PascalType=TStrings
|
|
Prop=LoadFromText
|
|
PropType=Procedure
|
|
Code="var l : TStrings;",begin," l := TStringList.Create;"," try"," l.Text := data;"," LoadFromStrings (l);"," finally"," l.Free;"," end;",end;
|
|
Count=1
|
|
Param=data
|
|
PascalType=string
|
|
Prop=LoadFromArray
|
|
PropType=Procedure
|
|
Code="var bm : PGdkBitmap;"," pm : PGdkPixmap;"," ppdata : ppgchar;",begin," ppdata := ArrayToPPgchar(Data);"," pm := gdk_pixmap_colormap_create_from_xpm_d (nil, Colormap, @bm, nil, ppdata);"," SetPixmap (pm, bm);"," freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
|
|
Count=1
|
|
Param=data
|
|
PascalType=array of string
|
|
Prop=CreateGdkPixmap
|
|
PropType=HelperProc
|
|
Code="var ppdata : ppgchar;",begin," ppdata := ArrayToPPgchar(Data);"," ThePixmap := gdk_pixmap_create_from_xpm_d (aWindow, @TheMask, nil, ppdata);"," freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
|
|
Count=4
|
|
Param=ThePixmap
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=TheMask
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Param=aWindow
|
|
PascalType=PGdkWindow
|
|
Param=data
|
|
PascalType=array of string
|
|
Object=Container
|
|
Inherit=Widget
|
|
GtkFuncName=container
|
|
Count=19
|
|
Prop=Border
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=border_width
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=border_width
|
|
Count=0
|
|
Prop=Add
|
|
PropType=Procedure
|
|
Code=begin," gtk_container_add (TheGtkObject, ConvertToGtkWidget(AWidget));"," if IsVisible then"," AWidget.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=AWidget
|
|
PascalType=TFPgtkWidget
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=Add
|
|
PropType=Procedure
|
|
Code=begin," gtk_container_add (TheGtkObject, ConvertToGtkWidget(AWidget));"," AWidget.Show;",end;
|
|
Overload
|
|
Count=1
|
|
Param=AWidget
|
|
PascalType=TFPgtkWidget
|
|
Prop=Remove
|
|
PropType=Procedure
|
|
GtkName=remove
|
|
Count=1
|
|
Param=AWidget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," FChildren := TFPgtkWidgetGroup.Create;",end;
|
|
Count=0
|
|
Prop=Destroy
|
|
PropType=Destructor
|
|
Code=begin," if assigned(FChildren) then"," FChildren.Free;"," inherited destroy;",end;
|
|
Override
|
|
Count=0
|
|
Prop=Children
|
|
PropType=Property
|
|
PascalType=TFPgtkWidgetGroup
|
|
Code=begin," FChildren.GtkList := gtk_container_children (TheGtkObject);"," result := FChildren;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=FChildren
|
|
PropType=Field
|
|
PascalType=TFPgtkWidgetGroup
|
|
Count=0
|
|
Prop=Focus
|
|
PropType=Procedure
|
|
GtkName=focus
|
|
Count=1
|
|
Param=Direction
|
|
PascalType=TGtkDirectionType
|
|
Prop=FocusChild
|
|
PropType=Procedure
|
|
GtkName=set_focus_child
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=RegisterToplevel
|
|
PropType=Procedure
|
|
GtkName=register_toplevel
|
|
Count=0
|
|
Prop=UnregisterToplevel
|
|
PropType=Procedure
|
|
GtkName=unregister_toplevel
|
|
Count=0
|
|
Prop=ResizeChildren
|
|
PropType=Procedure
|
|
GtkName=resize_children
|
|
Count=0
|
|
Prop=DirectionFunctionSignal
|
|
PropType=SignalType
|
|
PascalType=TGtkDirectionType
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=Direction
|
|
PascalType=TGtkDirectionType
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=Add
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=add
|
|
Count=0
|
|
Prop=Remove
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=remove
|
|
Count=0
|
|
Prop=CheckResize
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=check-resize
|
|
Count=0
|
|
Prop=Focus
|
|
PropType=Signal
|
|
PascalType=DirectionFunctionSignal
|
|
GtkName=focus
|
|
Count=0
|
|
Prop=SetFocusChild
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=set-focus
|
|
Count=0
|
|
Object=Bin
|
|
Inherit=Container
|
|
GtkFuncName=bin
|
|
Count=1
|
|
Prop=Child
|
|
PropType=Property
|
|
Section=Protected
|
|
PascalType=TFPgtkWidget
|
|
GtkName=Child
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," Add (TheValue);",end;
|
|
Count=0
|
|
Object=Alignment
|
|
Inherit=Bin
|
|
GtkFuncName=alignment
|
|
CreateParams=0,0,1,1
|
|
Count=1
|
|
Prop=Configure
|
|
PropType=Procedure
|
|
GtkName=set
|
|
Count=4
|
|
Param=anXAlign
|
|
PascalType=gfloat
|
|
Param=anYAlign
|
|
PascalType=gfloat
|
|
Param=anXScale
|
|
PascalType=gfloat
|
|
Param=anYScale
|
|
PascalType=gfloat
|
|
Object=Frame
|
|
Inherit=Bin
|
|
GtkFuncName=frame
|
|
CreateParams=nil
|
|
CreateObject
|
|
Count=3
|
|
Prop=Text
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=thelabel
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=label
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Alignment
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=label_xalign
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_frame_set_label_align (ThegtkObject, TheValue, 0.0);",end;
|
|
Count=0
|
|
Prop=ShadowType
|
|
PropType=Property
|
|
PascalType=TgtkShadowType
|
|
GtkName=shadow_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=shadow_type
|
|
Count=0
|
|
Object=AspectFrame
|
|
Inherit=Frame
|
|
GtkFuncName=aspect_frame
|
|
CreateParams=nil,0,0,1,1
|
|
CreateObject
|
|
Count=1
|
|
Prop=Configure
|
|
PropType=Procedure
|
|
GtkName=set
|
|
Count=4
|
|
Param=anXAlign
|
|
PascalType=gfloat
|
|
Param=anYAlign
|
|
PascalType=gfloat
|
|
Param=Ratio
|
|
PascalType=gfloat
|
|
Param=ObeyChild
|
|
Convert
|
|
PascalType=longbool
|
|
Object=Button
|
|
Inherit=Bin
|
|
GtkFuncName=button
|
|
CreateObject
|
|
Count=23
|
|
Prop=LabelClass
|
|
PropType=Function
|
|
Section=Protected
|
|
PascalType=TFPgtkLabelClass
|
|
Code=begin," result := TFPgtkLabel;",end;
|
|
Virtual
|
|
Count=0
|
|
Prop=CreateLabel
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin,"if not assigned (FLabel) then"," begin"," FLabel := LabelClass.Create ('');"," with FLabel do"," begin"," AskNotification (Self);"," FAccelKey := ParseULine (aText);"," end;"," if assigned(AddContainer) then"," AddContainer.Add (FLabel)"," else"," Add (FLabel);"," LabelCreated; "," end;",end;
|
|
Count=1
|
|
Param=aText
|
|
PascalType=string
|
|
Prop=NotifyDestroy
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," inherited;"," if AnObject = FLabel then"," FLabel := nil;",end;
|
|
Override
|
|
Count=1
|
|
Param=AnObject
|
|
PascalType=TFPgtkObject
|
|
Prop=Clicked
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Clicked
|
|
Count=0
|
|
Prop=Pressed
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Pressed
|
|
Count=0
|
|
Prop=Released
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Released
|
|
Count=0
|
|
Prop=Enter
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Enter
|
|
Count=0
|
|
Prop=Leave
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Leave
|
|
Count=0
|
|
Prop=Clicked
|
|
PropType=Procedure
|
|
GtkName=Clicked
|
|
Count=0
|
|
Prop=Pressed
|
|
PropType=Procedure
|
|
GtkName=Pressed
|
|
Count=0
|
|
Prop=Released
|
|
PropType=Procedure
|
|
GtkName=Released
|
|
Count=0
|
|
Prop=Enter
|
|
PropType=Procedure
|
|
GtkName=Enter
|
|
Count=0
|
|
Prop=Leave
|
|
PropType=Procedure
|
|
GtkName=Leave
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," FAddContainer := nil;",end;
|
|
Count=0
|
|
Prop=CreateWithLabel
|
|
PropType=Constructor
|
|
Code=begin," create;"," Text := aText;",end;
|
|
Overload
|
|
Count=1
|
|
Param=aText
|
|
PascalType=string
|
|
Prop=CreateWithLabel
|
|
PropType=Constructor
|
|
Code=begin," create;"," Text := aText;"," if (FAccelKey <> 0) and assigned(AccelGroup) then"," AcceleratorAdd (AccelGroup, sgClicked, FAccelKey, DefaultButtonModifiers, GTK_ACCEL_Visible);",end;
|
|
Overload
|
|
Count=2
|
|
Param=aText
|
|
PascalType=string
|
|
Param=AccelGroup
|
|
PascalType=PGtkAccelGroup
|
|
Prop=TheLabel
|
|
PropType=Property
|
|
PascalType=TFPgtkLabel
|
|
GtkName=FLabel
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Text
|
|
PropType=Property
|
|
PascalType=string
|
|
Code=begin," if assigned (FLabel) then"," result := FLabel.Text"," else"," result := '';",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if assigned (FLabel) then"," FLabel.Text := TheValue"," else"," if TheValue <> '' then"," CreateLabel (TheValue);",end;
|
|
Count=0
|
|
Prop=ReliefStyle
|
|
PropType=Property
|
|
PascalType=TGtkReliefStyle
|
|
GtkName=relief
|
|
WriteGtkName=relief
|
|
Count=0
|
|
Prop=AddContainer
|
|
PropType=Property
|
|
PascalType=TFPgtkContainer
|
|
GtkName=FAddContainer
|
|
ReadFuncType=Field
|
|
WriteProcType=Field
|
|
WriteGtkName=FAddContainer
|
|
Count=0
|
|
Prop=LabelCreated
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," FLabel.setalignment (0.5,0.5);",end;
|
|
Virtual
|
|
Count=0
|
|
Prop=AccelKey
|
|
PropType=Property
|
|
PascalType=guint
|
|
GtkName=FAccelKey
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=New
|
|
PropType=Declarations
|
|
Code=const," DefaultButtonModifiers : TGdkModifierType = GDK_MOD1_MASK;"
|
|
Count=0
|
|
Object=ToggleButton
|
|
Inherit=Button
|
|
GtkFuncName=toggle_button
|
|
CreateObject
|
|
Count=4
|
|
Prop=Toggled
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=toggled
|
|
Count=0
|
|
Prop=Toggled
|
|
PropType=Procedure
|
|
GtkName=toggled
|
|
Count=0
|
|
Prop=Active
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=active
|
|
WriteGtkName=active
|
|
Count=0
|
|
Prop=DrawIndicator
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=draw_indicator
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=ObjFunc
|
|
WriteGtkName=draw_indicator
|
|
WriteConvert
|
|
Count=0
|
|
Object=CheckButton
|
|
Inherit=ToggleButton
|
|
GtkFuncName=check_button
|
|
CreateObject
|
|
Count=0
|
|
Object=RadioButton
|
|
Inherit=CheckButton
|
|
GtkFuncName=radio_button
|
|
Count=4
|
|
Prop=FGroup
|
|
PropType=Field
|
|
PascalType=TFPgtkRadioButtonGroup
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FGroup := AGroup;"," inherited create;",end;
|
|
Count=1
|
|
Param=AGroup
|
|
PascalType=TFPgtkRadioButtonGroup
|
|
Prop=CreateWithLabel
|
|
PropType=Constructor
|
|
Code=begin," FGroup := AGroup;"," inherited CreateWithLabel (aText);",end;
|
|
Count=2
|
|
Param=AGroup
|
|
PascalType=TFPgtkRadioButtonGroup
|
|
Param=aText
|
|
PascalType=string
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," if not assigned (FGroup) then"," FGroup := TFPgtkRadioButtonGroup.Create;"," TheGtkWidget := gtk_radio_button_new (FGroup.GtkSList);"," FGroup.GtkSList := gtk_radio_button_group (TheGtkObject);",end;
|
|
Override
|
|
Count=0
|
|
Object=RadioButtonGroup
|
|
Inherit=WidgetGroup
|
|
Count=5
|
|
Prop=Items
|
|
PropType=Property
|
|
PascalType=TFPgtkRadioButton
|
|
GtkName=GetItem
|
|
Code=begin," result := TFPgtkRadioButton(Inherited items[index]);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetItem
|
|
WriteCode=begin," inherited items[index] := TheValue;",end;
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Prop=ActiveButtonText
|
|
PropType=Function
|
|
PascalType=string
|
|
Code=begin," result := ActiveButton.Text;",end;
|
|
Count=0
|
|
Prop=ActiveButtonIndex
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," Result := pred(count);"," while (Result >= 0) and (not items[Result].Active) do"," dec (Result);",end;
|
|
Count=0
|
|
Prop=ActiveButton
|
|
PropType=Function
|
|
PascalType=TFPgtkRadioButton
|
|
Code="var r : integer;",begin," r := ActiveButtonIndex;"," if r >= 0 then"," result := items[r]"," else"," result := nil;",end;
|
|
Count=0
|
|
Prop=RadioButtonGroupCreateFromStrings
|
|
PropType=HelperFunc
|
|
PascalType=TFPgtkRadioButtonGroup
|
|
Code="var r : integer;"," b : TFPgtkRadioButton;",begin," result := TFPgtkRadioButtonGroup.Create;"," result.BeginUpdate;"," for r := TheItems.count-1 downto 0 do"," begin"," b := TFPgtkRadioButton.CreateWithLabel (result, TheItems[r]);"," if assigned(toggledfunction) then"," b.connecttoggled (ToggledFunction, IntToPointer(r));"," end;"," b.active := true;"," result.EndUpdate;",end;
|
|
Count=2
|
|
Param=TheItems
|
|
PascalType=TStrings
|
|
Param=ToggledFunction
|
|
PascalType=TFPgtkSignalFunction
|
|
Object=OptionMenu
|
|
Inherit=Button
|
|
GtkFuncName=option_menu
|
|
CreateObject
|
|
Count=4
|
|
Prop=Menu
|
|
PropType=Property
|
|
PascalType=TFPgtkMenu
|
|
GtkName=menu
|
|
ReadConvert
|
|
WriteProcType=Proc
|
|
WriteGtkName=setmenu
|
|
WriteCode=begin," gtk_option_menu_set_menu(TheGtkObject, ConvertToGtkWidget(TheValue));",end;
|
|
Count=0
|
|
Prop=RemoveMenu
|
|
PropType=Procedure
|
|
GtkName=remove_menu
|
|
Count=0
|
|
Prop=SetHistory
|
|
PropType=Procedure
|
|
GtkName=set_history
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Prop=Clear
|
|
PropType=Procedure
|
|
Code="var w : TFPgtkWidget;",begin," w := Menu;"," if assigned(w) then"," begin"," w := TFPgtkMenu(w).Active;"," if assigned (w) then"," TFPgtkItem(w).Deselect;"," end;",end;
|
|
Count=0
|
|
Object=Item
|
|
Inherit=Bin
|
|
GtkFuncName=item
|
|
Count=17
|
|
Prop=LabelClass
|
|
PropType=Function
|
|
Section=Protected
|
|
PascalType=TFPgtkLabelClass
|
|
Code=begin," result := TFPgtkLabel;",end;
|
|
Virtual
|
|
Count=0
|
|
Prop=CreateLabel
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if not assigned (FLabel) then"," begin"," FLabel := LabelClass.Create ('');"," with FLabel do"," begin"," AskNotification (Self);"," FAccelKey := ParseULine (aText);"," end;"," if assigned(AddContainer) then"," AddContainer.Add (FLabel)"," else"," Add (FLabel);"," LabelCreated;"," end;",end;
|
|
Count=1
|
|
Param=aText
|
|
PascalType=string
|
|
Prop=NotifyDestroy
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," inherited;"," if AnObject = FLabel then"," FLabel := nil;",end;
|
|
Override
|
|
Count=1
|
|
Param=AnObject
|
|
PascalType=TFPgtkObject
|
|
Prop=Select
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Select
|
|
Count=0
|
|
Prop=Deselect
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Deselect
|
|
Count=0
|
|
Prop=Toggle
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=Toggle
|
|
Count=0
|
|
Prop=Select
|
|
PropType=Procedure
|
|
GtkName=Select
|
|
Count=0
|
|
Prop=Deselect
|
|
PropType=Procedure
|
|
GtkName=Deselect
|
|
Count=0
|
|
Prop=Toggle
|
|
PropType=Procedure
|
|
GtkName=Toggle
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited;"," FAddContainer := nil;",end;
|
|
Count=0
|
|
Prop=CreateWithLabel
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," Text := aText;",end;
|
|
Count=1
|
|
Param=aText
|
|
PascalType=string
|
|
Prop=TheLabel
|
|
PropType=Property
|
|
PascalType=TFPgtkLabel
|
|
GtkName=FLabel
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Text
|
|
PropType=Property
|
|
PascalType=string
|
|
Code=begin," if assigned (FLabel) then"," result := FLabel.Text"," else"," result := '';",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if assigned (FLabel) then"," FLabel.Text := TheValue"," else"," if TheValue <> '' then"," CreateLabel (TheValue);",end;
|
|
Count=0
|
|
Prop=ItemClass
|
|
PropType=TypeDeclaration
|
|
Code=" TFPgtkItemClass = class of TFPgtkItem;"
|
|
Count=0
|
|
Prop=AddContainer
|
|
PropType=Property
|
|
PascalType=TFPgtkContainer
|
|
GtkName=FAddContainer
|
|
ReadFuncType=Field
|
|
WriteProcType=Field
|
|
WriteGtkName=FAddContainer
|
|
Count=0
|
|
Prop=LabelCreated
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin,end;
|
|
Virtual
|
|
Count=0
|
|
Prop=AccelKey
|
|
PropType=Property
|
|
PascalType=guint
|
|
GtkName=FAccelKey
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Object=ItemGroup
|
|
Inherit=WidgetGroup
|
|
Count=8
|
|
Prop=Items
|
|
PropType=Property
|
|
PascalType=TFPgtkItem
|
|
GtkName=GetItem
|
|
Code=begin," result := TFPgtkItem (inherited items[index]);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetItem
|
|
WriteCode=begin," inherited items[index] := TheValue;",end;
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Prop=FillFromList
|
|
PropType=Procedure
|
|
Code="var r : integer;"," i : TFPgtkItem;",begin," BeginUpdate;"," for r := 0 to aList.count-1 do"," begin"," i := FItemClass.CreateWithLabel (aList[r]);"," add (i);"," i.Show;"," end;"," EndUpdate;",end;
|
|
Count=1
|
|
Param=aList
|
|
PascalType=TStrings
|
|
Prop=FillFromCommaText
|
|
PropType=Procedure
|
|
Code="var l : TStrings;",begin," l := TStringList.Create;"," try"," l.commatext := aList;"," FillFromList (l);"," finally"," l.Free;"," end;",end;
|
|
Count=1
|
|
Param=aList
|
|
PascalType=string
|
|
Prop=FillFromArray
|
|
PropType=Procedure
|
|
Code="var r : integer;"," l : TStrings;",begin," l := TStringlist.Create;"," try"," for r := low (aList) to high(aList) do"," l.Add (aList[r]);"," FillFromList (l);"," finally"," l.Free;"," end;",end;
|
|
Count=1
|
|
Param=aList
|
|
PascalType=array of string
|
|
Prop=ItemClass
|
|
PropType=Property
|
|
PascalType=TFPgtkItemClass
|
|
ReadFuncType=Field
|
|
WriteProcType=Field
|
|
Count=0
|
|
Prop=SignalConnect
|
|
PropType=Procedure
|
|
Code="var r : integer;",begin," if assigned (Proc) then"," for r := 0 to count-1 do"," Items[r].SignalConnect (Signal, proc, data);",end;
|
|
Count=3
|
|
Param=Signal
|
|
PascalType=string
|
|
Param=proc
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," FItemClass := AnItemClass;",end;
|
|
Count=1
|
|
Param=AnItemClass
|
|
PascalType=TFPgtkItemClass
|
|
Prop=AddTextItem
|
|
PropType=Function
|
|
PascalType=TFPgtkItem
|
|
Code=begin," result := FItemClass.CreateWithLabel (aText);"," Add (result);"," result.Show;",end;
|
|
Count=1
|
|
Param=aText
|
|
PascalType=string
|
|
Object=MenuItem
|
|
Inherit=Item
|
|
GtkFuncName=menu_item
|
|
CreateObject
|
|
Count=14
|
|
Prop=Activate
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=activate
|
|
Count=0
|
|
Prop=ActivateItem
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=activate-item
|
|
Count=0
|
|
Prop=Activate
|
|
PropType=Procedure
|
|
GtkName=activate
|
|
Count=0
|
|
Prop=SetSubMenu
|
|
PropType=Procedure
|
|
GtkName=Set_submenu
|
|
Count=1
|
|
Param=aSubMenu
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=RemoveSubMenu
|
|
PropType=Procedure
|
|
GtkName=remove_submenu
|
|
Count=0
|
|
Prop=Configure
|
|
PropType=Procedure
|
|
Code=begin," gtk_menu_item_configure (TheGtkObject, ord(ShowToggleIndicator), ord(ShowSubmenuIndicator));",end;
|
|
Count=2
|
|
Param=ShowToggleIndicator
|
|
Convert
|
|
PascalType=boolean
|
|
Param=ShowSubmenuIndicator
|
|
Convert
|
|
PascalType=boolean
|
|
Prop=RightJustify
|
|
PropType=Procedure
|
|
GtkName=right_justify
|
|
Count=0
|
|
Prop=Placement
|
|
PropType=Property
|
|
PascalType=TGtkSubmenuPlacement
|
|
Code=begin," result := TGtkSubmenuPlacement(submenu_placement(TheGtkObject^));",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteGtkName=placement
|
|
Count=0
|
|
Prop=ToggleIndicator
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=show_toggle_indicator
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," Configure (TheValue, SubMenuIndicator);",end;
|
|
Count=0
|
|
Prop=SubMenuIndicator
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=show_submenu_indicator
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," configure (ToggleIndicator, TheValue);",end;
|
|
Count=0
|
|
Prop=JustifyRight
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=right_justify
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=ObjFunc
|
|
WriteGtkName=right_justify
|
|
WriteConvert
|
|
Count=0
|
|
Prop=SubMenu
|
|
PropType=Property
|
|
PascalType=TFPgtkMenuShell
|
|
GtkName=submenu
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetPropSubMenu
|
|
WriteCode=begin," SetSubMenu (TheValue);",end;
|
|
Count=0
|
|
Prop=LabelClass
|
|
PropType=Function
|
|
Section=Protected
|
|
PascalType=TFPgtkLabelClass
|
|
Code=begin," result := TFPgtkAccelLabel;",end;
|
|
Override
|
|
Count=0
|
|
Prop=LabelCreated
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," with (TheLabel as TFPgtkAccelLabel) do"," AccelWidget := Self;",end;
|
|
Override
|
|
Count=0
|
|
Object=CheckMenuItem
|
|
Inherit=MenuItem
|
|
GtkFuncName=check_menu_item
|
|
CreateObject
|
|
Count=4
|
|
Prop=Toggled
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=toggled
|
|
Count=0
|
|
Prop=Toggled
|
|
PropType=Procedure
|
|
GtkName=toggled
|
|
Count=0
|
|
Prop=Active
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=active
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=active
|
|
Count=0
|
|
Prop=ShowToggle
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=always_show_toggle
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=show_toggle
|
|
Count=0
|
|
Object=RadioMenuItem
|
|
Inherit=CheckMenuItem
|
|
GtkFuncName=radio_menu_item
|
|
Count=4
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," if not assigned(FGroup) then"," FGroup := TFPgtkRadioMenuGroup.Create;"," TheGtkWidget := gtk_radio_menu_item_new (FGroup.GtkSList);"," FGroup.GtkSList := gtk_radio_menu_item_group (TheGtkObject);",end;
|
|
Override
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FGroup := AGroup;"," inherited create;",end;
|
|
Count=1
|
|
Param=AGroup
|
|
PascalType=TFPgtkRadioMenuGroup
|
|
Prop=CreateWithLabel
|
|
PropType=Constructor
|
|
Code=begin," FGroup := Agroup;"," inherited CreateWithLabel (aText);",end;
|
|
Count=2
|
|
Param=Agroup
|
|
PascalType=TFPgtkRadioMenuGroup
|
|
Param=aText
|
|
PascalType=string
|
|
Prop=Group
|
|
PropType=Property
|
|
PascalType=TFPgtkRadioMenuGroup
|
|
GtkName=FGroup
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
WriteConvert
|
|
Count=0
|
|
Object=RadioMenuGroup
|
|
Inherit=ItemGroup
|
|
Count=5
|
|
Prop=Items
|
|
PropType=Property
|
|
PascalType=TFPgtkRadioMenuItem
|
|
GtkName=GetItem
|
|
Code=begin," result := TFPgtkRadioMenuItem(Inherited items[index]);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetItem
|
|
WriteCode=begin," inherited items[index] := TheValue;",end;
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Prop=ActiveMenuText
|
|
PropType=Function
|
|
PascalType=string
|
|
Code=begin," result := ActiveMenu.Text;",end;
|
|
Count=0
|
|
Prop=ActiveMenuIndex
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," Result := pred(count);"," while (Result >= 0) and (not items[Result].Active) do"," dec (Result);",end;
|
|
Count=0
|
|
Prop=ActiveMenu
|
|
PropType=Function
|
|
PascalType=TFPgtkRadioMenuItem
|
|
Code="var r : integer;",begin," r := ActiveMenuIndex;"," if r >= 0 then"," result := items[r]"," else"," result := nil;",end;
|
|
Count=0
|
|
Prop=create
|
|
PropType=Constructor
|
|
Code=begin," inherited create (TFPgtkRadioMenuItem);",end;
|
|
Count=0
|
|
Object=TearOffMenuItem
|
|
Inherit=MenuItem
|
|
GtkFuncName=tearoff_menu_item
|
|
CreateObject
|
|
Count=0
|
|
Object=ListItem
|
|
Inherit=Item
|
|
GtkFuncName=list_item
|
|
CreateObject
|
|
Count=14
|
|
Prop=ScrollSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkObject
|
|
Param=ScrollType
|
|
PascalType=TgtkScrollType
|
|
Param=position
|
|
PascalType=gfloat
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ScrollBooleanSignal
|
|
PropType=SignalType
|
|
Count=5
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkObject
|
|
Param=ScrolType
|
|
PascalType=TgtkScrollType
|
|
Param=Position
|
|
PascalType=gfloat
|
|
Param=AutoStartSelection
|
|
PascalType=boolean
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ToggleFocusRow
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=toggle-focus-row
|
|
Count=0
|
|
Prop=SelectAll
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=select-all
|
|
Count=0
|
|
Prop=UnselectAll
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=unselect-all
|
|
Count=0
|
|
Prop=UndoSelection
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=undo-selection
|
|
Count=0
|
|
Prop=StartSelection
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=start-selection
|
|
Count=0
|
|
Prop=EndSelection
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=end-selection
|
|
Count=0
|
|
Prop=ToggleAddMode
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=toggle-add-mode
|
|
Count=0
|
|
Prop=ExtendSelection
|
|
PropType=Signal
|
|
PascalType=ScrollBooleanSignal
|
|
GtkName=extend-selection
|
|
Count=0
|
|
Prop=ScrollVertical
|
|
PropType=Signal
|
|
PascalType=ScrollSignal
|
|
GtkName=scroll-vertical
|
|
Count=0
|
|
Prop=ScrollHorizontal
|
|
PropType=Signal
|
|
PascalType=ScrollSignal
|
|
GtkName=scroll-horizontal
|
|
Count=0
|
|
Prop=Select
|
|
PropType=Procedure
|
|
GtkName=select
|
|
Count=0
|
|
Prop=Deselect
|
|
PropType=Procedure
|
|
GtkName=deselect
|
|
Count=0
|
|
Object=ListItemGroup
|
|
Inherit=ItemGroup
|
|
Count=1
|
|
Prop=create
|
|
PropType=Constructor
|
|
Code=begin," inherited create (TFPgtkListItem);"," ManageLists := false;",end;
|
|
Count=0
|
|
Object=TreeItem
|
|
Inherit=Item
|
|
GtkFuncName=tree_item
|
|
CreateObject
|
|
Count=10
|
|
Prop=SubTree
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=subtree
|
|
ReadConvert
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if assigned(TheValue) then"," gtk_tree_item_set_subtree (TheGtkObject, ConvertToGtkWidget(TheValue))"," else"," gtk_tree_item_remove_subtree (TheGtkObject);",end;
|
|
WriteConvert
|
|
Count=0
|
|
Prop=PixPlus
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=plus_pix_widget
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=PixMinus
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=minus_pix_widget
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Expanded
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=expanded
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," Expand"," else"," collapse;",end;
|
|
Count=0
|
|
Prop=Select
|
|
PropType=Procedure
|
|
GtkName=select
|
|
Count=0
|
|
Prop=Deselect
|
|
PropType=Procedure
|
|
GtkName=deselect
|
|
Count=0
|
|
Prop=Expand
|
|
PropType=Procedure
|
|
GtkName=expand
|
|
Count=0
|
|
Prop=Collapse
|
|
PropType=Procedure
|
|
GtkName=collapse
|
|
Count=0
|
|
Prop=Collapse
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=collapse
|
|
Count=0
|
|
Prop=Expand
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=expand
|
|
Count=0
|
|
Object=Window
|
|
Inherit=Bin
|
|
GtkFuncName=window
|
|
CreateParams=TheWindowType
|
|
CreateObject
|
|
Count=46
|
|
Prop=TheWindowType
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TGtkWindowType
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," TheWindowType := AType;"," inherited Create;"," FAccelGroups := TList.Create;"," FMainLevel := NoMainLevel;",end;
|
|
Count=1
|
|
Param=AType
|
|
PascalType=TGtkWindowType
|
|
Prop=Destroy
|
|
PropType=Destructor
|
|
Code=begin," FAccelGroups.Free;"," inherited;",end;
|
|
Override
|
|
Count=0
|
|
Prop=WindowType
|
|
PropType=Property
|
|
PascalType=TGtkWindowType
|
|
GtkName=thetype
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ObjField
|
|
WriteGtkName=thetype
|
|
Count=0
|
|
Prop=Title
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=title
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=title
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Modal
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=modal
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=modal
|
|
Count=0
|
|
Prop=DialogResult constants
|
|
PropType=Declarations
|
|
Code=const," drNone = 0;"," drOk = 1;"," drCancel = 2;"," drYes = 3;"," drNo = 4;"," drRetry = 5;"," NoMainLevel = high (guint);"
|
|
Count=0
|
|
Prop=DialogCallback
|
|
PropType=TypeDeclaration
|
|
Section=Published
|
|
Code=" DialogResultCallback = procedure (Sender:TFPgtkWindow; DialogResult:pointer; "," Action:integer; initiator:TFPgtkObject) of object;"," DialogInitCallback = procedure (Sender : TFPgtkWindow; InitData : pointer) of object;"," TFPgtkWindowClass = class of TFPgtkWindow;"
|
|
Count=0
|
|
Prop=DialogResult
|
|
PropType=Property
|
|
Section=Protected
|
|
PascalType=pointer
|
|
GtkName=FDialogResult
|
|
ReadFuncType=Field
|
|
WriteProcType=Field
|
|
WriteGtkName=FDialogResult
|
|
Count=0
|
|
Prop=DoDialogResult
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," if assigned (OnDialogResult) then"," OnDialogResult (self, FDialogResult, Action, Sender);",end;
|
|
Virtual
|
|
Count=2
|
|
Param=Action
|
|
PascalType=integer
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Prop=OnDialogResult
|
|
PropType=Property
|
|
PascalType=DialogResultCallback
|
|
ReadFuncType=Field
|
|
WriteProcType=Field
|
|
Count=0
|
|
Prop=DoDialogInit
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," if assigned (OnDialogInit) then"," OnDialogInit (self, InitData);"," FDialogResult := InitData;",end;
|
|
Virtual
|
|
Count=1
|
|
Param=InitData
|
|
PascalType=pointer
|
|
Prop=OnDialogInit
|
|
PropType=Property
|
|
PascalType=DialogInitCallback
|
|
ReadFuncType=Field
|
|
WriteProcType=Field
|
|
Count=0
|
|
Prop=Close
|
|
PropType=Procedure
|
|
Code=begin," if (FDestroying = dsAlive) then"," gtk_widget_destroy (TheGtkWidget);",end;
|
|
Count=0
|
|
Prop=CloseWindow
|
|
PropType=Procedure
|
|
Code=begin," Close;",end;
|
|
Count=2
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=CloseWithResult
|
|
PropType=Procedure
|
|
Code=begin," ModalAction := pointertoint(data);",end;
|
|
Count=2
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ModalAction
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=FModalAction
|
|
ReadFuncType=Field
|
|
WriteProcType=Proc
|
|
WriteCode=begin," FModalAction := TheValue;"," if TheValue <> 0 then"," begin"," DoDialogResult (FModalAction, self);"," close;"," end;",end;
|
|
Count=0
|
|
Prop=MainLevel
|
|
PropType=Property
|
|
PascalType=guint
|
|
GtkName=FMainLevel
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ExecuteEnds
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," if gtk_main_level = FMainLevel then"," gtk_main_quit;",end;
|
|
Count=2
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=Execute
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," FModalAction := drNone;"," if assigned (anOnDialogInit) then"," OnDialogInit := anOnDialogInit;"," DoDialogInit (anInitData);"," if assigned (anOnDialogResult) then"," OnDialogResult := anOnDialogResult;"," ConnectDestroy (@ExecuteEnds, nil);"," Modal := True;"," Show;"," FMainLevel := gtk_main_level + 1;"," try"," gtk_main;"," result := FModalAction;"," finally"," FMainLevel := NoMainLevel;"," end;",end;
|
|
Count=3
|
|
Param=anOnDialogInit
|
|
PascalType=DialogInitCallBack
|
|
Param=anInitData
|
|
PascalType=pointer
|
|
Param=anOnDialogResult
|
|
PascalType=DialogResultCallBack
|
|
Prop=SetFocus
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=set-focus
|
|
Count=0
|
|
Prop=SetTransientFor
|
|
PropType=Procedure
|
|
GtkName=set_transient_for
|
|
Count=1
|
|
Param=aParent
|
|
Convert
|
|
PascalType=TFPgtkWindow
|
|
Prop=DefaultWidget
|
|
PropType=Procedure
|
|
PascalType=TFPgtkWidget
|
|
GtkName=set_default
|
|
Count=1
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=FocusedWidget
|
|
PropType=Procedure
|
|
GtkName=set_focus
|
|
Count=1
|
|
Param=NewFocus
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=UserSizable
|
|
PropType=Property
|
|
PascalType=boolean
|
|
Code=begin," result := (allow_grow(TheGtkObject^)=1) and (auto_shrink(TheGtkObject^)=0);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if TheValue then"," gtk_window_set_policy (TheGtkObject, gint(FALSE), gint(TRUE), gint(FALSE))"," else"," gtk_window_set_policy (TheGtkObject, gint(FALSE), gint(FALSE), gint(TRUE));",end;
|
|
Count=0
|
|
Prop=ActivateFocus
|
|
PropType=Procedure
|
|
GtkName=activate_focus
|
|
Count=0
|
|
Prop=ActivateDefault
|
|
PropType=Procedure
|
|
GtkName=activate_default
|
|
Count=0
|
|
Prop=SetDefaultSize
|
|
PropType=Procedure
|
|
GtkName=set_default_size
|
|
Count=2
|
|
Param=Width
|
|
PascalType=gint
|
|
Param=Height
|
|
PascalType=gint
|
|
Prop=Position
|
|
PropType=Property
|
|
PascalType=TGtkWindowPosition
|
|
Code=begin," result := TGtkWindowPosition (gtk.position (TheGtkObject^));",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=position
|
|
Count=0
|
|
Prop=AccelGroups
|
|
PropType=Finilization
|
|
PascalType=PGtk_accel_group
|
|
Count=1
|
|
Param=index
|
|
PascalType=integer
|
|
Prop=FAccelGroups
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TList
|
|
Count=0
|
|
Prop=AccelGroups
|
|
PropType=Property
|
|
PascalType=PGtkAccelGroup
|
|
Code=begin," result := FAccelGroups[ID];"," if result = nil then"," result := FAccelGroups[-1];",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=1
|
|
Param=ID
|
|
PascalType=integer
|
|
Prop=AccelGroupNew
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code="var ag : Pgtkaccelgroup;",begin," result := FAccelGroups.Count;"," ag := gtk_accel_group_new;"," FAccelGroups.Add (ag);"," gtk_window_add_accel_group (TheGtkObject, ag);",end;
|
|
Count=0
|
|
Prop=AccelGroupDelete
|
|
PropType=Procedure
|
|
Code=begin," gtk_accel_group_detach (FAccelGroups[ID], FGtkObject);"," FAccelGroups[ID] := nil;",end;
|
|
Count=1
|
|
Param=ID
|
|
PascalType=integer
|
|
Prop=AcceleratorAdd
|
|
PropType=Procedure
|
|
Code=begin," gtk_widget_add_accelerator (ConvertToGtkWidget(aWidget), pgchar(aSignal),"," AccelGroups[AG], Key, Mods, acFlags);",end;
|
|
Overload
|
|
Count=6
|
|
Param=AG
|
|
PascalType=integer
|
|
Param=aWidget
|
|
PascalType=TFPgtkWidget
|
|
Param=aSignal
|
|
PascalType=string
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Param=acFlags
|
|
PascalType=TGtkAccelFlags
|
|
Prop=AcceleratorAdd
|
|
PropType=HelperProc
|
|
Code=begin," gtk_widget_add_accelerator (ConvertToGtkWidget(aWidget), pgchar(aSignal),"," AG, Key, Mods, Flags);",end;
|
|
Count=6
|
|
Param=AG
|
|
PascalType=PGtkAccelGroup
|
|
Param=aWidget
|
|
PascalType=TFPgtkWidget
|
|
Param=aSignal
|
|
PascalType=string
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Param=Flags
|
|
PascalType=TGtkAccelFlags
|
|
Prop=AcceleratorRemove
|
|
PropType=Procedure
|
|
Code=begin," gtk_widget_remove_accelerator (ConvertToGtkWidget(aWidget), AccelGroups[AG], Key, Mods);",end;
|
|
Overload
|
|
Count=4
|
|
Param=AG
|
|
PascalType=integer
|
|
Param=aWidget
|
|
PascalType=TFPgtkWidget
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Prop=AcceleratorRemove
|
|
PropType=HelperProc
|
|
Code=begin," gtk_widget_remove_accelerator (ConvertToGtkWidget(aWidget), AG, Key, Mods);",end;
|
|
Overload
|
|
Count=4
|
|
Param=AG
|
|
PascalType=PGtkAccelGroup
|
|
Param=aWidget
|
|
PascalType=TFPgtkWidget
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Prop=AccelGroupLock
|
|
PropType=Procedure
|
|
Code=begin," gtk_accel_group_lock (AccelGroups[AG]);",end;
|
|
Count=1
|
|
Param=AG
|
|
PascalType=integer
|
|
Prop=AccelGroupLock
|
|
PropType=HelperProc
|
|
Code=begin," gtk_accel_group_lock (AG);",end;
|
|
Count=1
|
|
Param=AG
|
|
PascalType=PGtkAccelGroup
|
|
Prop=AccelGroupUnlock
|
|
PropType=Procedure
|
|
Code=begin," gtk_accel_group_unlock (AccelGroups[AG]);",end;
|
|
Count=1
|
|
Param=AG
|
|
PascalType=integer
|
|
Prop=AccelGroupUnlock
|
|
PropType=HelperProc
|
|
Code=begin," gtk_accel_group_unlock (AG);",end;
|
|
Count=1
|
|
Param=AG
|
|
PascalType=PGtkAccelGroup
|
|
Prop=AccelKeyName
|
|
PropType=HelperFunc
|
|
PascalType=string
|
|
Code=begin," result := string (gtk_accelerator_name(Key, Mods));",end;
|
|
Count=2
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Prop=AccelKeyParse
|
|
PropType=HelperProc
|
|
Code="var k : guint;"," m : TGdkModifierType;",begin," gtk_accelerator_parse (pgchar(AccelName), @k, @m);"," Key := k;"," Mods := m;",end;
|
|
Count=3
|
|
Param=AccelName
|
|
PascalType=string
|
|
Param=Key
|
|
PascalType=guint
|
|
ParamType=Var
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
ParamType=Var
|
|
Prop=AccelGroupActivate
|
|
PropType=Procedure
|
|
Code=begin," gtk_accel_group_activate (AccelGroups[AG], Key, Mods);",end;
|
|
Count=3
|
|
Param=AG
|
|
PascalType=integer
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Prop=AccelGroupActivate
|
|
PropType=HelperProc
|
|
Code=begin," gtk_accel_group_activate (AG, Key, Mods);",end;
|
|
Count=3
|
|
Param=AG
|
|
PascalType=PGtkAccelGroup
|
|
Param=Key
|
|
PascalType=guint
|
|
Param=Mods
|
|
PascalType=TGdkModifierType
|
|
Object=ColorSelectionDialog
|
|
Inherit=Window
|
|
GtkFuncName=color_selection_dialog
|
|
CreateParams=''
|
|
CreateObject
|
|
Count=4
|
|
Prop=ColorSel
|
|
PropType=Property
|
|
PascalType=TFPgtkColorSelection
|
|
GtkName=Colorsel
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ButtonOK
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=ok_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ButtonCancel
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=cancel_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ButtonHelp
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=help_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Object=Dialog
|
|
Inherit=Window
|
|
GtkFuncName=dialog
|
|
CreateObject
|
|
Count=3
|
|
Prop=ActionArea
|
|
PropType=Property
|
|
PascalType=TFPgtkHBox
|
|
GtkName=action_area
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=VBox
|
|
PropType=Property
|
|
PascalType=TFPgtkVBox
|
|
GtkName=vbox
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=create
|
|
PropType=Constructor
|
|
Code=begin," inherited create (gtk_window_dialog);",end;
|
|
Count=0
|
|
Object=InputDialog
|
|
Inherit=Dialog
|
|
GtkFuncName=input_dialog
|
|
CreateObject
|
|
Count=5
|
|
Prop=ButtonClose
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=close_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ButtonSave
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=save_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=DeviceSignal
|
|
PropType=SignalType
|
|
Count=3
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkInputDialog
|
|
Param=DeviceID
|
|
PascalType=integer
|
|
Param=Data
|
|
PascalType=pointer
|
|
Prop=EnableDevice
|
|
PropType=Signal
|
|
PascalType=DeviceSignal
|
|
GtkName=enable-device
|
|
Count=0
|
|
Prop=DisableDevice
|
|
PropType=Signal
|
|
PascalType=DeviceSignal
|
|
GtkName=disable-device
|
|
Count=0
|
|
Object=FileSelection
|
|
Inherit=Window
|
|
GtkFuncName=file_selection
|
|
CreateParams='Select a file'
|
|
CreateObject
|
|
Count=13
|
|
Prop=Filename
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=filename
|
|
ReadConvert
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_file_selection_set_filename(TheGtkObject,Pgchar(TheValue));",end;
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Complete
|
|
PropType=Procedure
|
|
GtkName=complete
|
|
Count=1
|
|
Param=Pattern
|
|
Convert
|
|
PascalType=string
|
|
Prop=ShowFileOpButtons
|
|
PropType=Procedure
|
|
GtkName=show_fileop_buttons
|
|
Count=0
|
|
Prop=HideFileOpButtons
|
|
PropType=Procedure
|
|
GtkName=hide_fileop_buttons
|
|
Count=0
|
|
Prop=DirList
|
|
PropType=Property
|
|
PascalType=TFPgtkCList
|
|
GtkName=dir_list
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=FileList
|
|
PropType=Property
|
|
PascalType=TFPgtkCList
|
|
GtkName=file_list
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=OkButton
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=ok_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=CancelButton
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=cancel_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=HistoryPulldown
|
|
PropType=Property
|
|
PascalType=TFPgtkOptionMenu
|
|
GtkName=history_pulldown
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=FileOpDialog
|
|
PropType=Property
|
|
PascalType=TFPgtkDialog
|
|
GtkName=fileop_dialog
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=FileOpCreateDir
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=fileop_c_dir
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=FileOpDelFile
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=fileop_del_file
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=FileOpRenFile
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=fileop_ren_file
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Object=FontSelectionDialog
|
|
Inherit=Window
|
|
GtkFuncName=font_selection_dialog
|
|
CreateParams=''
|
|
CreateObject
|
|
Count=4
|
|
Prop=FontSel
|
|
PropType=Property
|
|
PascalType=TFPgtkFontSelection
|
|
GtkName=fontsel
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ButtonOk
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=ok_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ButtonApply
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=apply_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ButtonCancel
|
|
PropType=Property
|
|
PascalType=TFPgtkButton
|
|
GtkName=cancel_button
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Object=EventBox
|
|
Inherit=Bin
|
|
GtkFuncName=event_box
|
|
CreateObject
|
|
Count=0
|
|
Object=HandleBox
|
|
Inherit=Bin
|
|
GtkFuncName=handle_box
|
|
CreateObject
|
|
Count=6
|
|
Prop=ShadowType
|
|
PropType=Property
|
|
PascalType=TGtkShadowtype
|
|
GtkName=shadow_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=shadow_type
|
|
Count=0
|
|
Prop=HandlePosition
|
|
PropType=Property
|
|
PascalType=TGtkPositionType
|
|
Code=begin," result := TGtkPositionType (gtk.handle_position(TheGtkObject^));",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=handle_position
|
|
Count=0
|
|
Prop=SnapEdge
|
|
PropType=Property
|
|
PascalType=TGtkPositionType
|
|
Code=begin," result := TGtkPositionType (gtk.snap_edge(TheGtkObject^));",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=snap_edge
|
|
Count=0
|
|
Prop=ChildDetached
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=child_detached
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ChildAttached
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=child-attached
|
|
Count=0
|
|
Prop=ChildDetached
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=child-detached
|
|
Count=0
|
|
Object=ScrolledWindow
|
|
Inherit=Bin
|
|
GtkFuncName=scrolled_window
|
|
Count=15
|
|
Prop=FHScroll
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TFPgtkAdjustment
|
|
Count=0
|
|
Prop=FVScroll
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TFPgtkAdjustment
|
|
Count=0
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var h, v : PgtkAdjustment;",begin," if assigned (FHScroll) then"," h := PGtkAdjustment(ConvertToGtkObject(FHScroll))"," else"," h := null;"," if assigned (FVScroll) then"," v := PGtkAdjustment(ConvertToGtkObject(FVScroll))"," else"," v := null;"," FGtkObject := PGtkObject (gtk_scrolled_window_new (h, v));",end;
|
|
Override
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FVScroll := vadj;"," FHScroll := hadj;"," inherited create;"," setusize (200,170);",end;
|
|
Count=2
|
|
Param=hadj
|
|
PascalType=TFPgtkAdjustment
|
|
Param=vadj
|
|
PascalType=TFPgtkAdjustment
|
|
Prop=HPolicy
|
|
PropType=Property
|
|
PascalType=TGtkPolicyType
|
|
GtkName=hscrollbar_policy
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_scrolled_window_set_policy (TheGtkObject, TheValue, VPolicy);",end;
|
|
Count=0
|
|
Prop=VPolicy
|
|
PropType=Property
|
|
PascalType=TGtkPolicyType
|
|
GtkName=vscrollbar_policy
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_scrolled_window_set_policy (TheGtkObject, HPolicy, TheValue);",end;
|
|
Count=0
|
|
Prop=SetPolicy
|
|
PropType=Procedure
|
|
GtkName=set_policy
|
|
Overload
|
|
Count=2
|
|
Param=aHScrollBar
|
|
PascalType=TGtkPolicyType
|
|
Param=aVScrollbar
|
|
PascalType=TGtkPolicyType
|
|
Prop=SetPolicy
|
|
PropType=Procedure
|
|
Code=begin," SetPolicy (aPolicy, aPolicy);",end;
|
|
Overload
|
|
Count=1
|
|
Param=aPolicy
|
|
PascalType=TGtkPolicyType
|
|
Prop=HAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=hadjustment
|
|
ReadConvert
|
|
WriteGtkName=hadjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=VAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=vadjustment
|
|
ReadConvert
|
|
WriteGtkName=vadjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=AddWithViewport
|
|
PropType=Procedure
|
|
Code=begin," gtk_scrolled_window_add_with_viewport (TheGtkObject, ConvertToGtkWidget(aChild));"," TFPgtkViewport.createFromObject (PGtkObject(PGtkBin(TheGtkObject)^.child));"," aChild.Show;",end;
|
|
Count=1
|
|
Param=aChild
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Placement
|
|
PropType=Property
|
|
PascalType=TGtkCornerType
|
|
GtkName=window_placement
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=placement
|
|
Count=0
|
|
Prop=HScrollbar
|
|
PropType=Property
|
|
PascalType=TFPgtkScrollbar
|
|
Code="var w : TFPgtkObject;"," gtkwidg : PGtkObject;",begin," gtkwidg := PGtkObject(TheGtkObject^.hscrollbar);"," w := GetPascalInstance (gtkwidg);"," if assigned (w) then"," result := (w as TFPgtkScrollbar)"," else"," result := TFPgtkHScrollbar.CreateFromObject (gtkwidg);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=VScrollbar
|
|
PropType=Property
|
|
PascalType=TFPgtkScrollbar
|
|
Code="var w : TFPgtkObject;"," gtkwidg : PGtkObject;",begin," gtkwidg := PGtkObject(TheGtkObject^.vscrollbar);"," w := GetPascalInstance (gtkwidg);"," if assigned (w) then"," result := (w as TFPgtkScrollbar)"," else"," result := TFPgtkVScrollbar.CreateFromObject (gtkwidg);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=UpdatePolicy
|
|
PropType=Procedure
|
|
Code="var sb : TFpgtkScrollbar;",begin," sb := HScrollbar;"," if assigned(sb) then"," sb.UpdatePolicy := UpdPolicy;"," sb := VScrollbar;"," if assigned(sb) then"," sb.UpdatePolicy := UpdPolicy;",end;
|
|
Count=1
|
|
Param=UpdPolicy
|
|
PascalType=TGtkUpdateType
|
|
Object=Viewport
|
|
Inherit=Bin
|
|
GtkFuncName=viewport
|
|
Count=7
|
|
Prop=FHScroll
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TFPgtkAdjustment
|
|
Count=0
|
|
Prop=FVScroll
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TFPgtkAdjustment
|
|
Count=0
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var h, v : PgtkAdjustment;",begin," if assigned (FHScroll) then"," h := PGtkAdjustment(ConvertToGtkObject(FHScroll))"," else"," h := null;"," if assigned (FVScroll) then"," v := PGtkAdjustment(ConvertToGtkObject(FVScroll))"," else"," v := null;"," FGtkObject := PGtkObject (gtk_scrolled_window_new (h, v));",end;
|
|
Override
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FVScroll := vadj;"," FHScroll := hadj;"," inherited create;",end;
|
|
Count=2
|
|
Param=hadj
|
|
PascalType=TFPgtkAdjustment
|
|
Param=vadj
|
|
PascalType=TFPgtkAdjustment
|
|
Prop=HAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=hadjustment
|
|
ReadConvert
|
|
WriteGtkName=hadjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=VAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=vadjustment
|
|
ReadConvert
|
|
WriteGtkName=vadjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=ShadowType
|
|
PropType=Property
|
|
PascalType=TgtkShadowType
|
|
GtkName=shadow_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=shadow_type
|
|
Count=0
|
|
Object=Box
|
|
Inherit=Container
|
|
GtkFuncName=Box
|
|
Count=13
|
|
Prop=Homogeneous
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=homogeneous
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=homogeneous
|
|
Count=0
|
|
Prop=Spacing
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=spacing
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=spacing
|
|
Count=0
|
|
Prop=ReorderChild
|
|
PropType=Procedure
|
|
GtkName=reorder_child
|
|
Count=2
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Position
|
|
PascalType=integer
|
|
Prop=GetChildPacking
|
|
PropType=Procedure
|
|
Code="var PT : PGtkPackType;",begin," pt := @PackType;"," gtk_box_query_child_packing (TheGtkObject, ConvertToGtkWidget(Widget), "," @expand, @fill, @padding, pt);",end;
|
|
Count=5
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=Expand
|
|
PascalType=boolean
|
|
ParamType=Var
|
|
Param=Fill
|
|
PascalType=boolean
|
|
ParamType=Var
|
|
Param=Padding
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Param=PackType
|
|
PascalType=TGtkPackType
|
|
ParamType=Var
|
|
Prop=SetChildPacking
|
|
PropType=Procedure
|
|
GtkName=set_child_packing
|
|
Count=5
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Expand
|
|
PascalType=boolean
|
|
Param=Fill
|
|
PascalType=boolean
|
|
Param=Padding
|
|
PascalType=integer
|
|
Param=PackType
|
|
PascalType=TGtkPackType
|
|
Prop=PackStart
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_start_defaults (TheGtkObject, ConvertToGtkWidget(Widget));"," widget.Show;",end;
|
|
Overload
|
|
Count=1
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Prop=PackStart
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_start_defaults (TheGtkObject, ConvertToGtkWidget(Widget));"," if isvisible then"," widget.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=PackStart
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_start (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);"," widget.Show;",end;
|
|
Overload
|
|
Count=4
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=expand
|
|
PascalType=boolean
|
|
Param=fill
|
|
PascalType=boolean
|
|
Param=padding
|
|
PascalType=integer
|
|
Prop=PackStart
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_start (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);"," if isvisible then"," widget.Show;",end;
|
|
Overload
|
|
Count=5
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=expand
|
|
PascalType=boolean
|
|
Param=fill
|
|
PascalType=boolean
|
|
Param=padding
|
|
PascalType=integer
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=PackEnd
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_end_defaults (TheGtkObject, ConvertToGtkWidget(Widget));"," widget.Show;",end;
|
|
Overload
|
|
Count=1
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Prop=PackEnd
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_end_defaults (TheGtkObject, ConvertToGtkWidget(Widget));"," if isvisible then"," widget.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=PackEnd
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_end (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);"," widget.Show;",end;
|
|
Overload
|
|
Count=4
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=expand
|
|
PascalType=boolean
|
|
Param=fill
|
|
PascalType=boolean
|
|
Param=padding
|
|
PascalType=integer
|
|
Prop=PackEnd
|
|
PropType=Procedure
|
|
Code=begin," gtk_box_pack_end (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);"," if isvisible then"," widget.Show;",end;
|
|
Overload
|
|
Count=5
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=expand
|
|
PascalType=boolean
|
|
Param=fill
|
|
PascalType=boolean
|
|
Param=padding
|
|
PascalType=integer
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Object=ButtonBox
|
|
Inherit=Box
|
|
GtkFuncName=button_box
|
|
Count=10
|
|
Prop=SetButtonBoxDefaultSize
|
|
PropType=HelperProc
|
|
PascalType=integer
|
|
Code=begin," gtk_button_box_set_child_size_default (aMinWidth, aMinheight);",end;
|
|
Count=2
|
|
Param=aMinWidth
|
|
PascalType=integer
|
|
Param=aMinHeight
|
|
PascalType=integer
|
|
Prop=GetButtonBoxDefaultSize
|
|
PropType=HelperProc
|
|
PascalType=integer
|
|
Code=begin," gtk_button_box_get_child_size_default (@aMinWidth, @aMinheight);",end;
|
|
Count=2
|
|
Param=aMinWidth
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Param=aMinHeight
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Prop=SetButtonBoxDefaultPadding
|
|
PropType=HelperProc
|
|
PascalType=integer
|
|
Code=begin," gtk_button_box_set_child_size_default (aIPadX, aIPadY);",end;
|
|
Count=2
|
|
Param=aIPadX
|
|
PascalType=integer
|
|
Param=aIPadY
|
|
PascalType=integer
|
|
Prop=GetButtonBoxDefaultPadding
|
|
PropType=HelperProc
|
|
PascalType=integer
|
|
Code=begin," gtk_button_box_get_child_size_default (@aIPadX, @aIPadY);",end;
|
|
Count=2
|
|
Param=aIPadX
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Param=aIPadY
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Prop=Spacing
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=spacing
|
|
WriteGtkName=spacing
|
|
Count=0
|
|
Prop=Layout
|
|
PropType=Property
|
|
PascalType=TGtkButtonBoxStyle
|
|
GtkName=layout
|
|
WriteGtkName=layout
|
|
Count=0
|
|
Prop=ChildMinWidth
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=GetMinWidth
|
|
Code="var x, y : integer;",begin," gtk_button_box_get_child_size (TheGtkObject, @x, @y);"," result := x;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetMinWidth
|
|
WriteCode=begin," gtk_button_box_set_child_size (TheGtkObject, TheValue, ChildMinHeight);",end;
|
|
Count=0
|
|
Prop=ChildMinHeight
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=GetMinHeight
|
|
Code="var x, y : integer;",begin," gtk_button_box_get_child_size (TheGtkObject, @x, @y);"," result := y;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetMinHeight
|
|
WriteCode=begin," gtk_button_box_set_child_size (TheGtkObject, ChildMinWidth, TheValue);",end;
|
|
Count=0
|
|
Prop=ChildPadX
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=GetChildPadX
|
|
Code="var x, y : integer;",begin," gtk_button_box_get_child_ipadding (TheGtkObject, @x, @y);"," result := x;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetChildPadX
|
|
WriteCode=begin," gtk_button_box_set_child_ipadding (TheGtkObject, TheValue, ChildPadY);",end;
|
|
Count=0
|
|
Prop=ChildPadY
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=GetChildPadY
|
|
Code="var x, y : integer;",begin," gtk_button_box_get_child_ipadding (TheGtkObject, @x, @y);"," result := y;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetChildPadY
|
|
WriteCode=begin," gtk_button_box_set_child_ipadding (TheGtkObject, ChildPadX, TheValue);",end;
|
|
Count=0
|
|
Object=HButtonBox
|
|
Inherit=ButtonBox
|
|
GtkFuncName=hbutton_box
|
|
CreateObject
|
|
Count=0
|
|
Object=VButtonBox
|
|
Inherit=ButtonBox
|
|
GtkFuncName=vbutton_box
|
|
CreateObject
|
|
Count=0
|
|
Object=VBox
|
|
Inherit=Box
|
|
GtkFuncName=VBox
|
|
CreateParams=False, 1
|
|
CreateObject
|
|
Count=0
|
|
Object=ColorSelection
|
|
Inherit=VBox
|
|
GtkFuncName=color_selection
|
|
CreateObject
|
|
Count=3
|
|
Prop=UpdatePolicy
|
|
PropType=Property
|
|
PascalType=TGtkUpdateType
|
|
GtkName=policy
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=update_policy
|
|
Count=0
|
|
Prop=Color
|
|
PropType=Property
|
|
PascalType=double
|
|
Code="var c : double;",begin," gtk_color_selection_get_color (TheGtkObject, @c);"," result := c;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_color_selection_set_color (TheGtkObject, @TheValue);",end;
|
|
Count=0
|
|
Prop=UseOpacity
|
|
PropType=Property
|
|
PascalType=longbool
|
|
Code=begin," result := longbool(TheGtkObject^.use_opacity);",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteGtkName=opacity
|
|
WriteConvert
|
|
Count=0
|
|
Object=GammaCurve
|
|
Inherit=VBOX
|
|
GtkFuncName=gamma_curve
|
|
CreateObject
|
|
Count=0
|
|
Object=HBox
|
|
Inherit=Box
|
|
GtkFuncName=HBox
|
|
CreateParams=False, 1
|
|
CreateObject
|
|
Count=0
|
|
Object=Combo
|
|
Inherit=HBox
|
|
GtkFuncName=combo
|
|
CreateObject
|
|
Count=11
|
|
Prop=Entry
|
|
PropType=Property
|
|
PascalType=TFPgtkEntry
|
|
Code=begin," result := GetPascalInstance(PGtkObject(TheGtkObject^.entry), TFPgtkEntry) as tfpgtkentry;",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=List
|
|
PropType=Property
|
|
PascalType=TFPgtkList
|
|
Code=begin," result := GetPascalInstance(PGtkObject(TheGtkObject^.list), TFPgtkList) as TFPgtkList;",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Button
|
|
PropType=Property
|
|
PascalType=TFpGtkButton
|
|
Code=begin," result := GetPascalInstance(PGtkObject(TheGtkObject^.button), TFPgtkButton) as TFPgtkButton;",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ValueInList
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=value_in_list
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteGtkName=SetValueInListProp
|
|
WriteCode=begin," gtk_combo_set_value_in_list (TheGtkObject, gint(TheValue), gint(OkIfEmpty));",end;
|
|
Count=0
|
|
Prop=OkIfEmpty
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=ok_if_empty
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_combo_set_value_in_list (TheGtkObject, gint(ValueInList), gint(TheValue));",end;
|
|
Count=0
|
|
Prop=UseArrows
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=use_arrows
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=use_arrows
|
|
WriteConvert
|
|
Count=0
|
|
Prop=UseArrowsAlways
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=use_arrows_always
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=use_arrows_always
|
|
WriteConvert
|
|
Count=0
|
|
Prop=CaseSensitive
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=case_sensitive
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=case_sensitive
|
|
WriteConvert
|
|
Count=0
|
|
Prop=SetItemString
|
|
PropType=Procedure
|
|
GtkName=set_item_string
|
|
Count=2
|
|
Param=Item
|
|
Convert
|
|
PascalType=TFPgtkItem
|
|
Param=ItemValue
|
|
Convert
|
|
PascalType=string
|
|
Prop=DisableActivate
|
|
PropType=Procedure
|
|
GtkName=disable_activate
|
|
Count=0
|
|
Prop=SetValueInList
|
|
PropType=Procedure
|
|
GtkName=set_value_in_list
|
|
Count=2
|
|
Param=Val
|
|
Convert
|
|
PascalType=longbool
|
|
Param=IsOkIfEmpty
|
|
Convert
|
|
PascalType=longbool
|
|
Object=Statusbar
|
|
Inherit=HBox
|
|
GtkFuncName=statusbar
|
|
CreateObject
|
|
Count=7
|
|
Prop=GetContextID
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=get_context_id
|
|
Count=1
|
|
Param=ContextDescr
|
|
Convert
|
|
PascalType=string
|
|
Prop=Push
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=push
|
|
Count=2
|
|
Param=contextID
|
|
PascalType=integer
|
|
Param=text
|
|
Convert
|
|
PascalType=string
|
|
Prop=Pop
|
|
PropType=Procedure
|
|
GtkName=pop
|
|
Count=1
|
|
Param=contextID
|
|
PascalType=integer
|
|
Prop=Remove
|
|
PropType=Procedure
|
|
GtkName=remove
|
|
Count=2
|
|
Param=contextID
|
|
PascalType=integer
|
|
Param=MessageID
|
|
PascalType=integer
|
|
Prop=StatusbarSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkObject
|
|
Param=contextID
|
|
PascalType=integer
|
|
Param=text
|
|
Convert
|
|
PascalType=string
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=TextPopped
|
|
PropType=Signal
|
|
PascalType=StatusbarSignal
|
|
GtkName=text-popped
|
|
Count=0
|
|
Prop=TextPushed
|
|
PropType=Signal
|
|
PascalType=StatusbarSignal
|
|
GtkName=test-pushed
|
|
Count=0
|
|
Object=CList
|
|
Inherit=Container
|
|
GtkFuncName=clist
|
|
CreateParams=FColumnCount
|
|
CreateObject
|
|
Count=89
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FColumnCount := aColumnCount;"," inherited create;",end;
|
|
Count=1
|
|
Param=aColumnCount
|
|
PascalType=integer
|
|
Prop=ColumnCount
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=FColumnCount
|
|
ReadFuncType=Field
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ShadowType
|
|
PropType=Property
|
|
PascalType=TGtkShadowType
|
|
GtkName=shadow_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=shadow_type
|
|
Count=0
|
|
Prop=SelectionMode
|
|
PropType=Property
|
|
PascalType=TGtkSelectionMode
|
|
GtkName=selection_mode
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=selection_mode
|
|
Count=0
|
|
Prop=Freeze
|
|
PropType=Procedure
|
|
GtkName=freeze
|
|
Count=0
|
|
Prop=Thaw
|
|
PropType=Procedure
|
|
GtkName=thaw
|
|
Count=0
|
|
Prop=ShowTitles
|
|
PropType=Procedure
|
|
GtkName=Column_titles_show
|
|
Count=0
|
|
Prop=HideTitles
|
|
PropType=Procedure
|
|
GtkName=column_titles_hide
|
|
Count=0
|
|
Prop=ActiveTitles
|
|
PropType=Procedure
|
|
GtkName=column_titles_active
|
|
Count=0
|
|
Prop=PassiveTitles
|
|
PropType=Procedure
|
|
GtkName=column_titles_passive
|
|
Count=0
|
|
Prop=ActiveTitle
|
|
PropType=Procedure
|
|
GtkName=column_title_active
|
|
Count=1
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=PassiveTitle
|
|
PropType=Procedure
|
|
GtkName=column_title_passive
|
|
Count=1
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=ColumnTitle
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=column_title
|
|
ReadConvert
|
|
WriteGtkName=column_title
|
|
WriteConvert
|
|
Count=1
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=ColumnWidget
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=column_widget
|
|
ReadConvert
|
|
WriteGtkName=column_widget
|
|
WriteConvert
|
|
Count=1
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=SetColumnJustification
|
|
PropType=Procedure
|
|
GtkName=set_column_justification
|
|
Count=2
|
|
Param=column
|
|
PascalType=integer
|
|
Param=justification
|
|
PascalType=TGtkJustification
|
|
Prop=SetColumnVisibility
|
|
PropType=Procedure
|
|
GtkName=set_column_visibility
|
|
Count=2
|
|
Param=column
|
|
PascalType=integer
|
|
Param=aVisible
|
|
PascalType=boolean
|
|
Prop=SetColumnResizeable
|
|
PropType=Procedure
|
|
GtkName=set_column_resizeable
|
|
Count=2
|
|
Param=column
|
|
PascalType=integer
|
|
Param=Resizeable
|
|
PascalType=boolean
|
|
Prop=SetColumnAutoResize
|
|
PropType=Procedure
|
|
GtkName=set_column_auto_resize
|
|
Count=2
|
|
Param=column
|
|
PascalType=integer
|
|
Param=autoResize
|
|
PascalType=boolean
|
|
Prop=OptimalColumnWidth
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=optimal_column_width
|
|
Code=,
|
|
Count=1
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=SetColumnWidth
|
|
PropType=Procedure
|
|
GtkName=set_column_width
|
|
Count=2
|
|
Param=column
|
|
PascalType=integer
|
|
Param=width
|
|
PascalType=integer
|
|
Prop=SetColumnMinWidth
|
|
PropType=Procedure
|
|
GtkName=set_column_min_width
|
|
Count=2
|
|
Param=column
|
|
PascalType=integer
|
|
Param=MinWidth
|
|
PascalType=integer
|
|
Prop=SetColumnMaxWidth
|
|
PropType=Procedure
|
|
GtkName=set_column_max_width
|
|
Count=2
|
|
Param=column
|
|
PascalType=integer
|
|
Param=MaxWidth
|
|
PascalType=integer
|
|
Prop=AutoSizeColumns
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=columns_autosize
|
|
Count=0
|
|
Prop=ConfigureColumnWidth
|
|
PropType=Procedure
|
|
Code=begin," SetColumnWidth (column, Width);"," SetColumnMaxWidth (column, MaxWidth);"," SetColumnMinWidth (column, MinWidth);",end;
|
|
Count=4
|
|
Param=column
|
|
PascalType=integer
|
|
Param=Width
|
|
PascalType=integer
|
|
Param=MinWidth
|
|
PascalType=integer
|
|
Param=MaxWidth
|
|
PascalType=integer
|
|
Prop=ConfigureColumn
|
|
PropType=Procedure
|
|
Code=begin," SetColumnJustification (column, Justification);"," SetColumnVisibility (column, Visibility);"," SetColumnResizeable (column, Resizeable);"," SetColumnAutoResize (column, AutoSize);",end;
|
|
Count=5
|
|
Param=column
|
|
PascalType=integer
|
|
Param=Justification
|
|
PascalType=TGtkJustification
|
|
Param=Visibility
|
|
PascalType=boolean
|
|
Param=Resizeable
|
|
PascalType=boolean
|
|
Param=AutoSize
|
|
PascalType=boolean
|
|
Prop=SetRowHeight
|
|
PropType=Procedure
|
|
GtkName=set_row_height
|
|
Count=1
|
|
Param=height
|
|
PascalType=integer
|
|
Prop=MoveTo
|
|
PropType=Procedure
|
|
GtkName=moveto
|
|
Count=4
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Param=RowAlign
|
|
PascalType=gfloat
|
|
Param=ColAlign
|
|
PascalType=gfloat
|
|
Prop=RowIsVisible
|
|
PropType=Function
|
|
PascalType=TGtkVisibility
|
|
GtkName=row_is_visible
|
|
Count=1
|
|
Param=Row
|
|
PascalType=integer
|
|
Prop=GetCellType
|
|
PropType=Function
|
|
PascalType=TGtkCellType
|
|
GtkName=get_cell_type
|
|
Count=2
|
|
Param=Row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=CellText
|
|
PropType=Property
|
|
PascalType=string
|
|
Code="var s : pgchar;"," r : integer;",begin," r := gtk_clist_get_text (TheGtkObject, row, column, @s);"," if (r = 0) then"," result := ''"," else"," result := string(s^);",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=text
|
|
WriteConvert
|
|
Count=2
|
|
Param=Row
|
|
PascalType=integer
|
|
Param=Column
|
|
PascalType=integer
|
|
Prop=SetPixmap
|
|
PropType=Procedure
|
|
GtkName=set_pixmap
|
|
Count=4
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Param=pixmap
|
|
Convert
|
|
PascalType=PGdkPixmap
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
Prop=GetPixmap
|
|
PropType=Procedure
|
|
Code=begin," gtk_clist_get_pixmap (TheGtkObject, row, column, @pixmap, @mask);",end;
|
|
Count=4
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Param=pixmap
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Prop=SetPixText
|
|
PropType=Procedure
|
|
GtkName=set_pixtext
|
|
Count=6
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Param=text
|
|
Convert
|
|
PascalType=string
|
|
Param=spacing
|
|
PascalType=guint8
|
|
Param=pixmap
|
|
PascalType=PGdkPixmap
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
Prop=GetPixText
|
|
PropType=Procedure
|
|
Code="var r : integer;"," s : PPgchar;",begin," s := nil;"," r := gtk_clist_get_pixtext (TheGtkObject, row, column, s, @aspacing, @pixmap, @mask);"," if r = 0 then"," begin"," text := '';"," pixmap := nil;"," mask := nil;"," end"," else"," text := string (s^);",end;
|
|
Count=6
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Param=text
|
|
PascalType=string
|
|
ParamType=Var
|
|
Param=aspacing
|
|
PascalType=guint8
|
|
ParamType=Var
|
|
Param=pixmap
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Prop=SetForeground
|
|
PropType=Procedure
|
|
GtkName=set_foreground
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=color
|
|
PascalType=PGdkColor
|
|
Prop=SetBackground
|
|
PropType=Procedure
|
|
GtkName=set_background
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=color
|
|
PascalType=PGdkColor
|
|
Prop=CellStyle
|
|
PropType=Property
|
|
PascalType=PGtkStyle
|
|
GtkName=cell_style
|
|
WriteGtkName=cell_style
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=RowStyle
|
|
PropType=Property
|
|
PascalType=PGtkStyle
|
|
GtkName=row_style
|
|
WriteGtkName=row_style
|
|
Count=1
|
|
Param=row
|
|
PascalType=integer
|
|
Prop=SetShift
|
|
PropType=Procedure
|
|
GtkName=set_shift
|
|
Count=4
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Param=vertical
|
|
PascalType=integer
|
|
Param=horizontal
|
|
PascalType=integer
|
|
Prop=Remove
|
|
PropType=Procedure
|
|
GtkName=remove
|
|
Count=1
|
|
Param=row
|
|
PascalType=integer
|
|
Prop=Prepend
|
|
PropType=Procedure
|
|
Code="var ppdata : ppgchar;",begin," ppdata := StringsToPPgchar (Data);"," gtk_clist_prepend (TheGtkObject, ppdata);"," freemem (ppdata, sizeof (pgchar) * data.count);",end;
|
|
Overload
|
|
Count=1
|
|
Param=Data
|
|
PascalType=TStrings
|
|
Prop=Prepend
|
|
PropType=Procedure
|
|
Code="var l : TStrings;"," s : string;",begin," l := TStringList.Create;"," try"," if pos('""',separator) = 0 then"," s := stringreplace (Text, '""', '""""', [rfReplaceAll]);"," if separator <> '' then"," s := stringreplace(Text, separator, '"",""', [rfReplaceAll]);"," l.CommaText := '""'+s+'""';"," Prepend (l);"," finally"," l.Free;"," end;",end;
|
|
Overload
|
|
Count=2
|
|
Param=Text
|
|
PascalType=string
|
|
Param=separator
|
|
PascalType=string
|
|
Prop=Prepend
|
|
PropType=Procedure
|
|
Code="var ppdata : ppgchar;",begin," ppdata := ArrayToPPgchar (Data);"," gtk_clist_prepend (TheGtkObject, ppdata);"," freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
|
|
Overload
|
|
Count=1
|
|
Param=data
|
|
PascalType=array of string
|
|
Prop=Append
|
|
PropType=Procedure
|
|
Code="var ppdata : ppgchar;",begin," ppdata := StringsToPPgchar (Data);"," gtk_clist_append (TheGtkObject, ppdata);"," freemem (ppdata, sizeof (pgchar) * data.count);",end;
|
|
Overload
|
|
Count=1
|
|
Param=data
|
|
PascalType=TStrings
|
|
Prop=Append
|
|
PropType=Procedure
|
|
Code="var l : TStrings;"," s : string;",begin," l := TStringList.Create;"," try"," if pos('""',separator) = 0 then"," s := stringreplace (Text, '""', '""""', [rfReplaceAll]);"," if separator <> '' then"," s := stringreplace(Text, separator, '"",""', [rfReplaceAll]);"," l.CommaText := '""' + s + '""';"," Append (l);"," finally"," l.Free;"," end;",end;
|
|
Overload
|
|
Count=2
|
|
Param=Text
|
|
PascalType=string
|
|
Param=Separator
|
|
PascalType=string
|
|
Prop=Append
|
|
PropType=Procedure
|
|
Code="var ppdata : ppgchar;",begin," ppdata := ArrayToPPgchar (Data);"," gtk_clist_append (TheGtkObject, ppdata);"," freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
|
|
Overload
|
|
Count=1
|
|
Param=data
|
|
PascalType=array of string
|
|
Prop=Insert
|
|
PropType=Procedure
|
|
Code="var ppdata : ppgchar;",begin," ppdata := StringsToPPgchar (Data);"," gtk_clist_insert (TheGtkObject, row, ppdata);"," freemem (ppdata, sizeof (pgchar) * data.count);",end;
|
|
Overload
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=TStrings
|
|
Prop=Insert
|
|
PropType=Procedure
|
|
Code="var l : TStrings;"," s : string;",begin," l := TStringList.Create;"," try"," if pos('""',separator) = 0 then"," s := stringreplace (Text, '""', '""""', [rfReplaceAll]);"," if separator <> '' then"," s := stringreplace(Text, separator, '"",""', [rfReplaceAll]);"," l.CommaText := '""' + s + '""';"," Insert (row, l);"," finally"," l.Free;"," end;",end;
|
|
Overload
|
|
Count=3
|
|
Param=row
|
|
PascalType=integer
|
|
Param=Text
|
|
PascalType=string
|
|
Param=Separator
|
|
PascalType=string
|
|
Prop=Insert
|
|
PropType=Procedure
|
|
Code="var ppdata : ppgchar;",begin," ppdata := ArrayToPPgchar (Data);"," gtk_clist_insert (TheGtkObject, row, ppdata);"," freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
|
|
Overload
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=array of string
|
|
Prop=RowData
|
|
PropType=Property
|
|
PascalType=pointer
|
|
GtkName=row_data
|
|
WriteGtkName=row_data
|
|
Count=1
|
|
Param=row
|
|
PascalType=integer
|
|
Prop=FindRowFromData
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=find_row_from_data
|
|
Count=1
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=SelectRow
|
|
PropType=Procedure
|
|
GtkName=select_row
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=UnselectRow
|
|
PropType=Procedure
|
|
GtkName=unselect_row
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=Clear
|
|
PropType=Procedure
|
|
GtkName=clear
|
|
Count=0
|
|
Prop=SelectAll
|
|
PropType=Procedure
|
|
GtkName=select_all
|
|
Count=0
|
|
Prop=UnselectAll
|
|
PropType=Procedure
|
|
GtkName=unselect_all
|
|
Count=0
|
|
Prop=SwapRows
|
|
PropType=Procedure
|
|
GtkName=swap_rows
|
|
Count=2
|
|
Param=row1
|
|
PascalType=integer
|
|
Param=row2
|
|
PascalType=integer
|
|
Prop=RowMove
|
|
PropType=Procedure
|
|
Code=begin," if sourceRow = DestRow then"," Exit;"," gtk_clist_row_move (TheGtkObject, sourceRow, destRow);",end;
|
|
Count=2
|
|
Param=sourceRow
|
|
PascalType=integer
|
|
Param=destRow
|
|
PascalType=integer
|
|
Prop=Sort
|
|
PropType=Procedure
|
|
GtkName=sort
|
|
Count=0
|
|
Prop=CompareFunc
|
|
PropType=Property
|
|
PascalType=TGtkCListCompareFunc
|
|
GtkName=compare
|
|
ReadFuncType=Field
|
|
WriteGtkName=Compare_func
|
|
Count=0
|
|
Prop=SortColumn
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=sort_column
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=sort_column
|
|
Count=0
|
|
Prop=SetSortType
|
|
PropType=Property
|
|
PascalType=TGtkSortType
|
|
GtkName=sort_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=sort_type
|
|
Count=0
|
|
Prop=SetAutoSort
|
|
PropType=Procedure
|
|
GtkName=set_auto_sort
|
|
Count=1
|
|
Param=autoSort
|
|
PascalType=boolean
|
|
Prop=HAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=hadjustment
|
|
ReadConvert
|
|
WriteGtkName=hadjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=VAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=vadjustment
|
|
ReadConvert
|
|
WriteGtkName=vadjustment
|
|
WriteCode=,
|
|
WriteConvert
|
|
Count=0
|
|
Prop=SetReorderable
|
|
PropType=Procedure
|
|
GtkName=set_reorderable
|
|
Count=1
|
|
Param=reorderable
|
|
PascalType=boolean
|
|
Prop=Count
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," result := TheGtkObject^.rows;",end;
|
|
Count=0
|
|
Prop=CListScrollSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkObject
|
|
Param=ScrollType
|
|
PascalType=TgtkScrollType
|
|
Param=position
|
|
PascalType=gfloat
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=CListScrollBooleanSignal
|
|
PropType=SignalType
|
|
Count=5
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkObject
|
|
Param=ScrollType
|
|
PascalType=TgtkScrollType
|
|
Param=Position
|
|
PascalType=gfloat
|
|
Param=AutoStartSelection
|
|
PascalType=boolean
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=SelectRowSignal
|
|
PropType=SignalType
|
|
Count=5
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=row
|
|
PascalType=integer
|
|
Param=column
|
|
PascalType=integer
|
|
Param=event
|
|
PascalType=PGdkEventButton
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=SelectRow
|
|
PropType=Signal
|
|
PascalType=SelectRowSignal
|
|
GtkName=select-row
|
|
Count=0
|
|
Prop=UnselectRow
|
|
PropType=Signal
|
|
PascalType=SelectRowSignal
|
|
GtkName=unselect-row
|
|
Count=0
|
|
Prop=MoveSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=arg1
|
|
PascalType=integer
|
|
Param=arg2
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=RowMove
|
|
PropType=Signal
|
|
PascalType=MoveSignal
|
|
GtkName=row-move
|
|
Count=0
|
|
Prop=ScrollVertical
|
|
PropType=Signal
|
|
PascalType=CListScrollSignal
|
|
GtkName=scroll-vertical
|
|
Count=0
|
|
Prop=ScrolHorizontal
|
|
PropType=Signal
|
|
PascalType=CListScrollSignal
|
|
GtkName=scroll-horizontal
|
|
Count=0
|
|
Prop=ToggleFocusRow
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=toggle-focus-row
|
|
Count=0
|
|
Prop=SelectAll
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=select-all
|
|
Count=0
|
|
Prop=UnselectAll
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=unselect-all
|
|
Count=0
|
|
Prop=UndoSelection
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=undo-selection
|
|
Count=0
|
|
Prop=StartSelection
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=start-selection
|
|
Count=0
|
|
Prop=EndSelection
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=end-selection
|
|
Count=0
|
|
Prop=ToggleAddMode
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=toggle-add-mode
|
|
Count=0
|
|
Prop=AbortColumnResize
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=abort-column-resize
|
|
Count=0
|
|
Prop=ExtendSelection
|
|
PropType=Signal
|
|
PascalType=CListScrollBooleanSignal
|
|
GtkName=extend-selection
|
|
Count=0
|
|
Prop=ColumnClickedSignal
|
|
PropType=SignalType
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=column
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ClickColumn
|
|
PropType=Signal
|
|
PascalType=ColumnClickedSignal
|
|
GtkName=click-column
|
|
Count=0
|
|
Prop=ResizeColumnSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=column
|
|
PascalType=integer
|
|
Param=width
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=ResizeColumn
|
|
PropType=Signal
|
|
PascalType=ResizeColumnSignal
|
|
GtkName=resize-column
|
|
Count=0
|
|
Object=CTree
|
|
Inherit=CList
|
|
GtkFuncName=ctree
|
|
CreateParams=FColumnCount, FTreeColumn
|
|
Count=55
|
|
Prop=LineStyle
|
|
PropType=Property
|
|
PascalType=TGtkCTreeLineStyle
|
|
Code=begin," result := TGtkCTreeLineStyle(gtk.line_style(TheGtkObject^));",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteGtkName=line_style
|
|
Count=0
|
|
Prop=ShowStub
|
|
PropType=Property
|
|
PascalType=boolean
|
|
Code=begin," result := boolean(gtk.show_stub(TheGtkObject^));",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteGtkName=show_stub
|
|
WriteCode=,
|
|
Count=0
|
|
Prop=ExpanderStyle
|
|
PropType=Property
|
|
PascalType=TGtkCTreeExpanderStyle
|
|
Code=begin," result := TGtkCTreeExpanderStyle(gtk.expander_style(TheGtkObject^));",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=expander_style
|
|
Count=0
|
|
Prop=Spacing
|
|
PropType=Property
|
|
PascalType=guint
|
|
GtkName=tree_spacing
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=spacing
|
|
Count=0
|
|
Prop=Indent
|
|
PropType=Property
|
|
PascalType=guint
|
|
GtkName=tree_indent
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=indent
|
|
Count=0
|
|
Prop=FTreeColumn
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=integer
|
|
Count=0
|
|
Prop=TreeColumn
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=tree_column
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FTreeColumn := aTreeColumn;"," inherited Create (aColumnCount);",end;
|
|
Count=2
|
|
Param=aColumnCount
|
|
PascalType=integer
|
|
Param=aTreeColumn
|
|
PascalType=integer
|
|
Prop=RemoveNode
|
|
PropType=Procedure
|
|
GtkName=remove_node
|
|
Count=1
|
|
Param=node
|
|
PascalType=PGtkCTreeNode
|
|
Prop=InsertNode
|
|
PropType=Function
|
|
PascalType=PGtkCTreeNode
|
|
GtkName=insert_node
|
|
Overload
|
|
Count=10
|
|
Param=aParent
|
|
PascalType=PGtkCTreeNode
|
|
Param=Sibling
|
|
PascalType=PGtkCTreeNode
|
|
Param=data
|
|
Convert
|
|
PascalType=string
|
|
Param=aSpacing
|
|
PascalType=guint8
|
|
Param=PixmapClosed
|
|
PascalType=PGdkPixmap
|
|
Param=MaskClosed
|
|
PascalType=PGdkBitmap
|
|
Param=PixmapOpened
|
|
PascalType=PGdkPixmap
|
|
Param=MaskOpened
|
|
PascalType=PGdkBitmap
|
|
Param=IsLeaf
|
|
PascalType=boolean
|
|
Param=Expanded
|
|
PascalType=boolean
|
|
Prop=InsertNode
|
|
PropType=Function
|
|
PascalType=PGtkCTreeNode
|
|
Code=begin," result := InsertNode (aParent, Sibling, data, aSpacing, nil, nil, nil, nil, IsLeaf, Expanded);",end;
|
|
Overload
|
|
Count=6
|
|
Param=aParent
|
|
PascalType=PGtkCTreeNode
|
|
Param=Sibling
|
|
PascalType=PGtkCTreeNode
|
|
Param=data
|
|
Convert
|
|
PascalType=string
|
|
Param=aSpacing
|
|
PascalType=guint8
|
|
Param=IsLeaf
|
|
PascalType=boolean
|
|
Param=Expanded
|
|
PascalType=boolean
|
|
Prop=FunctionTypes
|
|
PropType=TypeDeclaration
|
|
Code=" TFPgtkCTreeFunction = procedure (TheTree:TFPgtkCTree; TheNode:PGtkCTreeNode; data:pointer) of object;"
|
|
Count=0
|
|
Prop=FPgtkCTreeFunc
|
|
PropType=HelperProc
|
|
Section=Private
|
|
Code="var p : TFPgtkCTreeFunction;",begin," with PSignalData(data)^ do"," begin"," p := TFPgtkCTreeFunction (TheSignalProc);"," p (TFPgtkCTree(GetPascalInstance(PgtkObject(Tree))), Node, data);"," end;",end;
|
|
Cdecl
|
|
Count=3
|
|
Param=Tree
|
|
PascalType=PGtkCTree
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PostRecursive
|
|
PropType=Procedure
|
|
Code=begin," gtk_CTree_post_recursive (TheGtkObject, aNode, @FPgtkCTreeFunc, "," ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
|
|
Count=3
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=func
|
|
PascalType=TFPgtkCTreeFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PostRecursiveToDepth
|
|
PropType=Procedure
|
|
Code=begin," gtk_CTree_post_recursive_to_depth (TheGtkObject, aNode, aDepth, @FPgtkCTreeFunc, "," ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
|
|
Count=4
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=aDepth
|
|
PascalType=integer
|
|
Param=func
|
|
PascalType=TFPgtkCTreeFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PreRecursive
|
|
PropType=Procedure
|
|
Code=begin," gtk_CTree_pre_recursive (TheGtkObject, aNode, @FPgtkCTreeFunc, "," ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
|
|
Count=3
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=func
|
|
PascalType=TFPgtkCTreeFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PreRecursiveToDepth
|
|
PropType=Procedure
|
|
Code=begin," gtk_CTree_pre_recursive_to_depth (TheGtkObject, aNode, aDepth, @FPgtkCTreeFunc, "," ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
|
|
Count=4
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=aDepth
|
|
PascalType=integer
|
|
Param=func
|
|
PascalType=TFPgtkCTreeFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=IsViewable
|
|
PropType=Procedure
|
|
GtkName=is_viewable
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=LastChild
|
|
PropType=Procedure
|
|
GtkName=last
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=IsChild
|
|
PropType=Function
|
|
PascalType=boolean
|
|
GtkName=find
|
|
Count=2
|
|
Param=anAncestor
|
|
PascalType=PGtkCTreeNode
|
|
Param=aChild
|
|
PascalType=PGtkCTreeNode
|
|
Prop=IsAncestor
|
|
PropType=Function
|
|
PascalType=boolean
|
|
GtkName=is_ancestor
|
|
Count=2
|
|
Param=anAncestor
|
|
PascalType=PGtkCTreeNode
|
|
Param=aChild
|
|
PascalType=PGtkCTreeNode
|
|
Prop=IsHotSpot
|
|
PropType=Function
|
|
PascalType=boolean
|
|
GtkName=is_hot_spot
|
|
Count=2
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Prop=MoveNode
|
|
PropType=Procedure
|
|
GtkName=move
|
|
Count=3
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=NewParent
|
|
PascalType=PGtkCTreeNode
|
|
Param=NewSibling
|
|
PascalType=PGtkCTreeNode
|
|
Prop=Expand
|
|
PropType=Procedure
|
|
GtkName=expand
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=ExpandRecursive
|
|
PropType=Procedure
|
|
GtkName=expand_recursive
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=ExpandToDepth
|
|
PropType=Procedure
|
|
GtkName=expand_to_depth
|
|
Count=2
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=aDepth
|
|
PascalType=integer
|
|
Prop=Collapse
|
|
PropType=Procedure
|
|
GtkName=collapse
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=CollapseRecursive
|
|
PropType=Procedure
|
|
GtkName=collapse_recursive
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=CollapseToDepth
|
|
PropType=Procedure
|
|
GtkName=collapse_to_depth
|
|
Count=2
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=aDepth
|
|
PascalType=integer
|
|
Prop=SelectNode
|
|
PropType=Procedure
|
|
GtkName=select
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=SelectRecursive
|
|
PropType=Procedure
|
|
GtkName=select_recursive
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=UnselectNode
|
|
PropType=Procedure
|
|
GtkName=unselect
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=UnselectRecursive
|
|
PropType=Procedure
|
|
GtkName=unselect_recursive
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=RealSelectRecursive
|
|
PropType=Procedure
|
|
Code=begin," gtk_ctree_real_select_recursive (TheGtkObject, aNode, ord(aState));",end;
|
|
Count=2
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=aState
|
|
PascalType=boolean
|
|
Prop=NodeGetCellType
|
|
PropType=Function
|
|
PascalType=TGtkCellType
|
|
GtkName=node_get_cell_type
|
|
Count=2
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=NodeCellText
|
|
PropType=Property
|
|
PascalType=string
|
|
Code="var s : pgchar;"," r : integer;",begin," r := gtk_ctree_node_get_text (TheGtkObject, node, column, @s);"," if (r = 0) then"," result := ''"," else"," result := string(s^);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=GtkMacro
|
|
WriteGtkName=node_set_text
|
|
WriteConvert
|
|
Count=2
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=Column
|
|
PascalType=integer
|
|
Prop=NodeSetPixmap
|
|
PropType=Procedure
|
|
GtkName=node_set_pixmap
|
|
Count=4
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Param=pixmap
|
|
Convert
|
|
PascalType=PGdkPixmap
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
Prop=NodeGetPixmap
|
|
PropType=Procedure
|
|
Code=begin," gtk_ctree_node_get_pixmap (TheGtkObject, node, column, @pixmap, @mask);",end;
|
|
Count=4
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Param=pixmap
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Prop=NodeSetPixText
|
|
PropType=Procedure
|
|
GtkName=node_set_pixtext
|
|
Count=6
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Param=text
|
|
Convert
|
|
PascalType=string
|
|
Param=aspacing
|
|
PascalType=guint8
|
|
Param=pixmap
|
|
PascalType=PGdkPixmap
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
Prop=NodeGetPixText
|
|
PropType=Procedure
|
|
Code="var r : integer;"," s : PPgchar;",begin," s := nil;"," r := gtk_ctree_node_get_pixtext (TheGtkObject, node, column, s, @aspacing, @pixmap, @mask);"," if r = 0 then"," begin"," text := '';"," pixmap := nil;"," mask := nil;"," end"," else"," text := string (s^);",end;
|
|
Count=6
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Param=text
|
|
PascalType=string
|
|
ParamType=Var
|
|
Param=aspacing
|
|
PascalType=guint8
|
|
ParamType=Var
|
|
Param=pixmap
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=mask
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Prop=SetNodeInfo
|
|
PropType=Procedure
|
|
GtkName=set_node_info
|
|
Overload
|
|
Count=9
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=aText
|
|
Convert
|
|
PascalType=string
|
|
Param=aSpacing
|
|
PascalType=guint8
|
|
Param=PixmapClosed
|
|
PascalType=PGdkPixmap
|
|
Param=MaskClosed
|
|
PascalType=PGdkBitmap
|
|
Param=PixmapOpened
|
|
PascalType=PGdkPixmap
|
|
Param=MaskOpened
|
|
PascalType=PGdkBitmap
|
|
Param=IsLeaf
|
|
PascalType=boolean
|
|
Param=Expanded
|
|
PascalType=boolean
|
|
Prop=GetNodeInfo
|
|
PropType=Procedure
|
|
Code="var r : integer;"," s : PPgchar;",begin," s := nil;"," r := gtk_ctree_get_node_info (TheGtkObject, aNode, s, "," @aspacing, @pixmapClosed, @maskClosed, @pixmapOpened, @maskOpened,"," @IsLeaf, @expanded);"," if r = 0 then"," begin"," atext := '';"," Spacing := 0;"," pixmapClosed := nil;"," maskClosed := nil;"," pixmapOpened := nil;"," maskOpened := nil;"," IsLeaf := false;"," Expanded := false;"," end"," else"," atext := string (s^);",end;
|
|
Overload
|
|
Count=9
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=aText
|
|
Convert
|
|
PascalType=string
|
|
ParamType=Var
|
|
Param=aSpacing
|
|
Convert
|
|
PascalType=guint8
|
|
ParamType=Var
|
|
Param=PixmapClosed
|
|
Convert
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=MaskClosed
|
|
Convert
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Param=PixmapOpened
|
|
Convert
|
|
PascalType=PGdkPixmap
|
|
ParamType=Var
|
|
Param=MaskOpened
|
|
Convert
|
|
PascalType=PGdkBitmap
|
|
ParamType=Var
|
|
Param=IsLeaf
|
|
Convert
|
|
PascalType=boolean
|
|
ParamType=Var
|
|
Param=Expanded
|
|
Convert
|
|
PascalType=boolean
|
|
ParamType=Var
|
|
Prop=NodeSetShift
|
|
PropType=Procedure
|
|
GtkName=node_set_shift
|
|
Count=4
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Param=vertical
|
|
Convert
|
|
PascalType=integer
|
|
Param=horizontal
|
|
PascalType=integer
|
|
Prop=NodeSelectable
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=node_get_selectable
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=GtkMacro
|
|
WriteGtkName=node_set_selectable
|
|
Count=1
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Prop=NodeSetForeground
|
|
PropType=Procedure
|
|
GtkName=node_set_foreground
|
|
Count=2
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=color
|
|
PascalType=PGdkColor
|
|
Prop=NodeSetBackground
|
|
PropType=Procedure
|
|
GtkName=node_set_background
|
|
Count=2
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=color
|
|
PascalType=PGdkColor
|
|
Prop=NodeCellStyle
|
|
PropType=Property
|
|
PascalType=PGtkStyle
|
|
GtkName=node_get_cell_style
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=GtkMacro
|
|
WriteGtkName=node_set_cell_style
|
|
Count=2
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Prop=NodeRowStyle
|
|
PropType=Property
|
|
PascalType=PGtkStyle
|
|
GtkName=node_get_row_style
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=GtkMacro
|
|
WriteGtkName=node_set_row_style
|
|
Count=1
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Prop=NodeData
|
|
PropType=Property
|
|
PascalType=pointer
|
|
GtkName=node_get_row_data
|
|
ReadFuncType=GtkMacro
|
|
WriteProcType=GtkMacro
|
|
WriteGtkName=node_set_row_data
|
|
Count=1
|
|
Param=Node
|
|
PascalType=PGtkCTreeNode
|
|
Prop=NodeMoveTo
|
|
PropType=Procedure
|
|
GtkName=node_moveto
|
|
Count=4
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Param=column
|
|
PascalType=integer
|
|
Param=RowAlign
|
|
PascalType=gfloat
|
|
Param=ColAlign
|
|
PascalType=gfloat
|
|
Prop=IsVisible
|
|
PropType=Function
|
|
PascalType=TGtkVisibility
|
|
GtkName=node_is_visible
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=CompareDragFunc
|
|
PropType=Property
|
|
PascalType=TGtkCTreeCompareDragFunc
|
|
GtkName=drag_compare
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=drag_compare_func
|
|
Count=0
|
|
Prop=SortNode
|
|
PropType=Procedure
|
|
GtkName=sort_node
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=SortRecursive
|
|
PropType=Procedure
|
|
GtkName=sort_recursive
|
|
Count=1
|
|
Param=aNode
|
|
PascalType=PGtkCTreeNode
|
|
Prop=NthNode
|
|
PropType=Function
|
|
PascalType=PGtkCTreeNode
|
|
GtkName=node_Nth
|
|
Count=1
|
|
Param=Row
|
|
PascalType=integer
|
|
Object=Fixed
|
|
Inherit=Container
|
|
GtkFuncName=fixed
|
|
CreateObject
|
|
Count=3
|
|
Prop=Put
|
|
PropType=Procedure
|
|
GtkName=put
|
|
Count=3
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=x
|
|
PascalType=integer
|
|
Param=y
|
|
PascalType=integer
|
|
Prop=Move
|
|
PropType=Procedure
|
|
GtkName=move
|
|
Count=3
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=x
|
|
PascalType=integer
|
|
Param=y
|
|
PascalType=integer
|
|
Prop=GetPos
|
|
PropType=Procedure
|
|
Code="var g : TFPgtkGroup;"," r : integer;",begin," g := TFPgtkGroup.Create;"," try"," g.ManageLists := false;"," g.gtkList := TheGtkObject^.children;"," r := g.indexof (Widget);"," if r < 0 then"," begin"," PosX := -1;"," PosY := -1;"," end"," else"," with PGtkFixedChild(g.Items[r])^ do"," begin"," PosX := x;"," PosY := Y;"," end;"," finally"," g.Free;"," end;",end;
|
|
Count=3
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=PosX
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Param=PosY
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Object=Notebook
|
|
Inherit=Container
|
|
GtkFuncName=notebook
|
|
CreateObject
|
|
Count=32
|
|
Prop=AppendPage
|
|
PropType=Procedure
|
|
Code=begin," gtk_notebook_append_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));"," Child.Show;",end;
|
|
Count=2
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TabLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=AppendPageFull
|
|
PropType=Procedure
|
|
Code=begin," if assigned (MenuLabel) then"," gtk_notebook_append_page_menu (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), ConvertTogtkWidget(MenuLabel))"," else"," gtk_notebook_append_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));"," if isvisible then"," Child.Show;",end;
|
|
Count=4
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TabLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=MenuLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=PrependPage
|
|
PropType=Procedure
|
|
GtkName=Prepend_page
|
|
Code=begin," gtk_notebook_prepend_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));"," Child.Show;",end;
|
|
Count=2
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TabLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=PrependPageFull
|
|
PropType=Procedure
|
|
Code=begin," if assigned (MenuLabel) then"," gtk_notebook_prepend_page_menu (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), ConvertTogtkWidget(MenuLabel))"," else"," gtk_notebook_prepend_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));"," if isvisible then"," Child.Show;",end;
|
|
Count=4
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TabLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=MenuLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=InsertPage
|
|
PropType=Procedure
|
|
GtkName=insert_page
|
|
Code=begin," gtk_notebook_insert_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), position);"," Child.Show;",end;
|
|
Count=3
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TabLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Position
|
|
PascalType=integer
|
|
Prop=InsertPageFull
|
|
PropType=Procedure
|
|
Code=begin," if assigned (MenuLabel) then"," gtk_notebook_insert_page_menu (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), ConvertTogtkWidget(MenuLabel), position)"," else"," gtk_notebook_insert_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), position);"," if isvisible then"," Child.Show;",end;
|
|
Count=5
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TabLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=MenuLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Param=Position
|
|
PascalType=integer
|
|
Prop=RemovePage
|
|
PropType=Procedure
|
|
GtkName=remove_page
|
|
Count=1
|
|
Param=PageNumber
|
|
PascalType=integer
|
|
Prop=PageNumberOf
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=page_num
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=NextPage
|
|
PropType=Procedure
|
|
GtkName=next_page
|
|
Count=0
|
|
Prop=PrevPage
|
|
PropType=Procedure
|
|
GtkName=prev_page
|
|
Count=0
|
|
Prop=ReorderPage
|
|
PropType=Procedure
|
|
GtkName=reorder_child
|
|
Count=2
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=PageNum
|
|
PascalType=integer
|
|
Prop=PageIndex
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=current_page
|
|
WriteGtkName=page
|
|
Count=0
|
|
Prop=Page
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := GetChildOnPage (PageIndex);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode="var r : integer;",begin," r := PageNumberOf (TheValue);"," if r > -1 then"," PageIndex := r;",end;
|
|
Count=0
|
|
Prop=TabPos
|
|
PropType=Property
|
|
PascalType=TGtkPositionType
|
|
GtkName=tab_pos
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=tab_pos
|
|
Count=0
|
|
Prop=ShowTabs
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=show_tabs
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=show_tabs
|
|
Count=0
|
|
Prop=ShowBorder
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=show_border
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=show_border
|
|
Count=0
|
|
Prop=Scrollable
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=scrollable
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=scrollable
|
|
Count=0
|
|
Prop=Homogenous
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=homogeneous
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=homogeneous_tabs
|
|
Count=0
|
|
Prop=TabHBorder
|
|
PropType=Property
|
|
PascalType=word
|
|
GtkName=tab_hborder
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=tab_hborder
|
|
Count=0
|
|
Prop=TabVBorder
|
|
PropType=Property
|
|
PascalType=word
|
|
GtkName=tab_vborder
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=tab_vborder
|
|
Count=0
|
|
Prop=SetTabBorders
|
|
PropType=Procedure
|
|
GtkName=set_tab_border
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=tab_border
|
|
Count=1
|
|
Param=BorderWidth
|
|
PascalType=word
|
|
Prop=GetMenuLabelOf
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := GetPascalInstance (PGtkObject(gtk_notebook_get_menu_label (TheGtkObject, ConvertTogtkWidget(Child)))) as TFPgtkWidget;",end;
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=SetMenuLabel
|
|
PropType=Procedure
|
|
GtkName=set_menu_label
|
|
Count=2
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=MenuLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=GetTabLabelOf
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := GetPascalInstance (PGtkObject(gtk_notebook_get_tab_label (TheGtkObject, ConvertTogtkWidget(Child)))) as TFPgtkWidget;",end;
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=SetTabLabel
|
|
PropType=Procedure
|
|
GtkName=set_tab_label
|
|
Count=2
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TabLabel
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=GetChildOnPage
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := GetPascalInstance (PGtkObject(gtk_notebook_get_nth_page (TheGtkObject, PageNum))) as TFPgtkWidget;",end;
|
|
Count=1
|
|
Param=PageNum
|
|
PascalType=integer
|
|
Prop=GetTabLabelPacking
|
|
PropType=Procedure
|
|
Code="var PT : PGtkPackType;",begin," pt := @PackType;"," gtk_notebook_query_tab_label_packing (TheGtkObject, ConvertTogtkWidget(widget), "," @expand, @fill, pt);",end;
|
|
Count=4
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Expand
|
|
PascalType=boolean
|
|
ParamType=Var
|
|
Param=Fill
|
|
PascalType=boolean
|
|
ParamType=Var
|
|
Param=PackType
|
|
PascalType=TGtkPackType
|
|
ParamType=Var
|
|
Prop=SetTabLabelPacking
|
|
PropType=Procedure
|
|
GtkName=set_tab_label_packing
|
|
Count=4
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Expand
|
|
PascalType=boolean
|
|
Param=Fill
|
|
PascalType=boolean
|
|
Param=PackType
|
|
PascalType=TGtkPackType
|
|
Prop=EnablePopup
|
|
PropType=Procedure
|
|
GtkName=popup_enable
|
|
Count=0
|
|
Prop=DisablePopup
|
|
PropType=Procedure
|
|
GtkName=popup_disable
|
|
Count=0
|
|
Prop=PageSwitchSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
Convert
|
|
PascalType=TFPgtkObject
|
|
Param=PageRec
|
|
PascalType=PGtkNotebookPage
|
|
Param=aPageNum
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=SwitchPage
|
|
PropType=Signal
|
|
PascalType=PageSwitchSignal
|
|
GtkName=switch-page
|
|
Count=0
|
|
Object=FontSelection
|
|
Inherit=Notebook
|
|
GtkFuncName=font_selection
|
|
CreateObject
|
|
Count=5
|
|
Prop=resourcestrings
|
|
PropType=Declarations
|
|
Code=resourcestring," sFontNotFound = 'Can''t find font ""%s"" on this system';"
|
|
Count=0
|
|
Prop=FontName
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=font_name
|
|
ReadConvert
|
|
WriteProcType=Proc
|
|
WriteCode=begin," if not gtk_font_selection_set_font_name (TheGtkObject, pgchar(TheValue)) then"," raise exception.CreateFmt (sFontNotFound, [TheValue]);",end;
|
|
Count=0
|
|
Prop=GetFont
|
|
PropType=Function
|
|
PascalType=PGdkFont
|
|
GtkName=get_font
|
|
Count=0
|
|
Prop=PreviewText
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=preview_text
|
|
ReadConvert
|
|
WriteGtkName=preview_text
|
|
WriteConvert
|
|
Count=0
|
|
Prop=SetFilter
|
|
PropType=Procedure
|
|
Code="var ppF, ppW, ppSl, ppSW, ppSp, ppC : ppgchar;",," function MakePP (data : array of string) : ppgchar;"," begin"," if high(data) > low(data) then"," result := ArrayToPPgchar(data)"," else"," result := nil;"," end;",," procedure FreePP (ppdata : ppgchar; data : array of string);"," begin"," if assigned (ppdata) then"," freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));"," end;",,begin," ppF := MakePP(Foundries);"," ppW := MakePP(Weights);"," ppSl := MakePP(Slants);"," ppSW := MakePP(SetWidths);"," ppSp := MakePP(Spacings);"," ppC := MakePP(CharSets);"," gtk_font_selection_set_filter (TheGtkObject, FilterType, FontType, ppF, ppW, ppSl, ppSW, ppSp, ppC);"," FreePP (ppF, Foundries);"," FreePP (ppW, Weights);"," FreePP (ppSl, Slants);"," FreePP (ppSW, SetWidths);"," FreePP (ppSp, Spacings);"," FreePP (ppC, CharSets);",end;
|
|
Count=8
|
|
Param=FilterType
|
|
PascalType=TGtkFontFilterType
|
|
Param=FontType
|
|
PascalType=TGtkFontType
|
|
Param=Foundries
|
|
PascalType=array of string
|
|
Param=Weights
|
|
PascalType=array of string
|
|
Param=Slants
|
|
PascalType=array of string
|
|
Param=SetWidths
|
|
PascalType=array of string
|
|
Param=Spacings
|
|
PascalType=array of string
|
|
Param=CharSets
|
|
PascalType=array of string
|
|
Object=Paned
|
|
Inherit=Container
|
|
GtkFuncName=paned
|
|
Count=12
|
|
Prop=GutterSize
|
|
PropType=Property
|
|
PascalType=word
|
|
GtkName=gutter_size
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," {$ifdef gtkwin}"," TheGtkObject^.gutter_size := TheValue;"," {$else}"," gtk_paned_set_gutter_size(TheGtkObject,TheValue);"," {$endif}",end;
|
|
Count=0
|
|
Prop=HandleSize
|
|
PropType=Property
|
|
PascalType=word
|
|
GtkName=handle_size
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=handle_size
|
|
Count=0
|
|
Prop=Position
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=child1_size
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=position
|
|
Count=0
|
|
Prop=ComputePosition
|
|
PropType=Procedure
|
|
GtkName=compute_position
|
|
Count=3
|
|
Param=AnAllocation
|
|
PascalType=integer
|
|
Param=Child1Req
|
|
PascalType=integer
|
|
Param=Child2Req
|
|
PascalType=integer
|
|
Prop=Add1
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_add1 (TheGtkObject, ConvertToGtkWidget(Child));"," Child.Show;",end;
|
|
Overload
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Pack1
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_pack1 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);"," Child.Show;",end;
|
|
Overload
|
|
Count=3
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Resize
|
|
Convert
|
|
PascalType=boolean
|
|
Param=Shrink
|
|
Convert
|
|
PascalType=boolean
|
|
Prop=Add1
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_add1 (TheGtkObject, ConvertToGtkWidget(Child));"," if isvisible then"," Child.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=isVisible
|
|
PascalType=boolean
|
|
Prop=Pack1
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_pack1 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);"," if isvisible then"," Child.Show;",end;
|
|
Overload
|
|
Count=4
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Resize
|
|
Convert
|
|
PascalType=boolean
|
|
Param=Shrink
|
|
Convert
|
|
PascalType=boolean
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=Add2
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_add2 (TheGtkObject, ConvertToGtkWidget(Child));"," Child.Show;",end;
|
|
Overload
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Pack2
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_pack2 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);"," Child.Show;",end;
|
|
Overload
|
|
Count=3
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Resize
|
|
Convert
|
|
PascalType=boolean
|
|
Param=Shrink
|
|
Convert
|
|
PascalType=boolean
|
|
Prop=Add2
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_add2 (TheGtkObject, ConvertToGtkWidget(Child));"," if isvisible then"," Child.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=Pack2
|
|
PropType=Procedure
|
|
Code=begin," gtk_paned_pack2 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);"," if isvisible then"," Child.Show;",end;
|
|
Overload
|
|
Count=4
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Resize
|
|
Convert
|
|
PascalType=boolean
|
|
Param=Shrink
|
|
Convert
|
|
PascalType=boolean
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Object=HPaned
|
|
Inherit=Paned
|
|
GtkFuncName=hpaned
|
|
CreateObject
|
|
Count=0
|
|
Object=VPaned
|
|
Inherit=Paned
|
|
GtkFuncName=vpaned
|
|
CreateObject
|
|
Count=0
|
|
Object=Layout
|
|
Inherit=Container
|
|
GtkFuncName=layout
|
|
CreateParams=nil,nil
|
|
CreateObject
|
|
Count=8
|
|
Prop=HAdj
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=hadjustment
|
|
ReadConvert
|
|
WriteGtkName=hadjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=VAdj
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=vadjustment
|
|
ReadConvert
|
|
WriteGtkName=vadjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Freeze
|
|
PropType=Procedure
|
|
GtkName=freeze
|
|
Count=0
|
|
Prop=Thaw
|
|
PropType=Procedure
|
|
GtkName=thaw
|
|
Count=0
|
|
Prop=Put
|
|
PropType=Procedure
|
|
Code=begin," gtk_layout_put (TheGtkObject, PGtkwidget(ConvertToGtkObject(aWidget)), X, Y);"," aWidget.Show;",end;
|
|
Overload
|
|
Count=3
|
|
Param=aWidget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Prop=Put
|
|
PropType=Procedure
|
|
Code=begin," gtk_layout_put (TheGtkObject, PGtkwidget(ConvertToGtkObject(aWidget)), X, Y);"," if aVisible then"," aWidget.Show;",end;
|
|
Overload
|
|
Count=4
|
|
Param=aWidget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Param=aVisible
|
|
PascalType=boolean
|
|
Prop=Move
|
|
PropType=Procedure
|
|
GtkName=move
|
|
Count=3
|
|
Param=aWidget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Prop=SetSize
|
|
PropType=Procedure
|
|
GtkName=set_size
|
|
Count=2
|
|
Param=aWidth
|
|
PascalType=integer
|
|
Param=aHeight
|
|
PascalType=integer
|
|
Object=List
|
|
Inherit=Container
|
|
GtkFuncName=list
|
|
CreateObject
|
|
Count=29
|
|
Prop=SelectionChanged
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=selection-changed
|
|
Count=0
|
|
Prop=SelectChild
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=select-child
|
|
Count=0
|
|
Prop=UnselectChild
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=unselect-child
|
|
Count=0
|
|
Prop=SelectionMode
|
|
PropType=Property
|
|
PascalType=TGtkSelectionMode
|
|
Code=begin," result := TGtkSelectionMode(Selection_mode(TheGtkObject^));",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=selection_mode
|
|
Count=0
|
|
Prop=InsertItems
|
|
PropType=Procedure
|
|
Code=begin," gtk_list_insert_items (TheGtkObject, TheItems.GtkList, position);",end;
|
|
Count=2
|
|
Param=TheItems
|
|
PascalType=TFPgtkListItemGroup
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=AppendItems
|
|
PropType=Procedure
|
|
Code=begin," gtk_list_append_items (TheGtkObject, TheItems.GtkList);",end;
|
|
Count=1
|
|
Param=TheItems
|
|
PascalType=TFPgtkListItemGroup
|
|
Prop=PrependItems
|
|
PropType=Procedure
|
|
Code=begin," gtk_list_prepend_items (TheGtkObject, TheItems.GtkList);",end;
|
|
Count=1
|
|
Param=TheItems
|
|
PascalType=TFPgtkListItemGroup
|
|
Prop=RemoveItems
|
|
PropType=Procedure
|
|
Code=begin," gtk_list_remove_items (TheGtkObject, TheItems.GtkList);",end;
|
|
Count=1
|
|
Param=TheItems
|
|
PascalType=TFPgtkListItemGroup
|
|
Prop=RemoveItemsNoUnref
|
|
PropType=Procedure
|
|
Code=begin," gtk_list_remove_items_no_unref (TheGtkObject, TheItems.GtkList);",end;
|
|
Count=1
|
|
Param=TheItems
|
|
PascalType=TFPgtkListItemGroup
|
|
Prop=ClearItems
|
|
PropType=Procedure
|
|
Code=begin," if ToItem >= 0 then"," inc (ToItem);"," gtk_list_clear_items (TheGtkObject, FromItem, ToItem);",end;
|
|
Count=2
|
|
Param=FromItem
|
|
PascalType=integer
|
|
Param=ToItem
|
|
PascalType=integer
|
|
Prop=ClearAll
|
|
PropType=Procedure
|
|
Code=begin," ClearItems (0,-1);",end;
|
|
Count=0
|
|
Prop=SelectItem
|
|
PropType=Procedure
|
|
GtkName=select_item
|
|
Count=1
|
|
Param=Item
|
|
PascalType=integer
|
|
Prop=UnselectItem
|
|
PropType=Procedure
|
|
GtkName=unselect_item
|
|
Count=1
|
|
Param=Item
|
|
PascalType=integer
|
|
Prop=SelectChild
|
|
PropType=Procedure
|
|
GtkName=select_child
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=UnselectChild
|
|
PropType=Procedure
|
|
GtkName=unselect_child
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=ChildPosition
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=child_position
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=ExtendSelection
|
|
PropType=Procedure
|
|
GtkName=extend_selection
|
|
Count=3
|
|
Param=ScrollType
|
|
PascalType=TGtkScrollType
|
|
Param=Position
|
|
PascalType=gfloat
|
|
Param=AutoStartSelection
|
|
PascalType=boolean
|
|
Prop=StartSelection
|
|
PropType=Procedure
|
|
GtkName=start_selection
|
|
Count=0
|
|
Prop=EndSelection
|
|
PropType=Procedure
|
|
GtkName=end_selection
|
|
Count=0
|
|
Prop=SelectAll
|
|
PropType=Procedure
|
|
GtkName=select_all
|
|
Count=0
|
|
Prop=UnselectAll
|
|
PropType=Procedure
|
|
GtkName=unselect_all
|
|
Count=0
|
|
Prop=ScrollHorizontal
|
|
PropType=Procedure
|
|
GtkName=scroll_horizontal
|
|
Count=2
|
|
Param=ScrollType
|
|
PascalType=TGtkScrollType
|
|
Param=Position
|
|
PascalType=gfloat
|
|
Prop=ScrollVertical
|
|
PropType=Procedure
|
|
GtkName=scroll_vertical
|
|
Count=2
|
|
Param=ScrollType
|
|
PascalType=TGtkScrollType
|
|
Param=Position
|
|
PascalType=gfloat
|
|
Prop=ToggleAddMode
|
|
PropType=Procedure
|
|
GtkName=toggle_add_mode
|
|
Count=0
|
|
Prop=ToggleFocusRow
|
|
PropType=Procedure
|
|
GtkName=toggle_focus_row
|
|
Count=0
|
|
Prop=ToggleRow
|
|
PropType=Procedure
|
|
GtkName=toggle_row
|
|
Count=1
|
|
Param=Child
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=UndoSelection
|
|
PropType=Procedure
|
|
GtkName=undo_selection
|
|
Count=0
|
|
Prop=EndDragSelection
|
|
PropType=Procedure
|
|
GtkName=end_drag_selection
|
|
Count=0
|
|
Prop=GetSelection
|
|
PropType=Procedure
|
|
Code=begin," with aGroup do"," begin"," ManageLists := False;"," GtkList := TheGtkObject^.Selection;"," end;",end;
|
|
Count=1
|
|
Param=aGroup
|
|
PascalType=TFPgtkGroup
|
|
Object=MenuShell
|
|
Inherit=Container
|
|
GtkFuncName=menu_shell
|
|
Count=18
|
|
Prop=MoveCurrentSignal
|
|
PropType=SignalType
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=dir
|
|
PascalType=TGtkMenuDirectionType
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=GtkPrepend
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=prepend
|
|
Virtual
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=GtkInsert
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=insert
|
|
Virtual
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=GtkAppend
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=append
|
|
Virtual
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=ActivateItem
|
|
PropType=Procedure
|
|
GtkName=activate_item
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=ForceDeactivate
|
|
PascalType=boolean
|
|
Prop=SelectItem
|
|
PropType=Procedure
|
|
GtkName=select_item
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=DeActivate
|
|
PropType=Procedure
|
|
GtkName=deactivate
|
|
Count=0
|
|
Prop=Prepend
|
|
PropType=Procedure
|
|
Code=begin," GtkPrepend (MenuItem);"," MenuItem.Show;",end;
|
|
Overload
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Prepend
|
|
PropType=Procedure
|
|
Code=begin," GtkPrepend (MenuItem);"," if createvisible then"," MenuItem.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CreateVisible
|
|
PascalType=boolean
|
|
Prop=Insert
|
|
PropType=Procedure
|
|
Code=begin," GtkInsert (MenuItem, position);"," MenuItem.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=Insert
|
|
PropType=Procedure
|
|
Code=begin," GtkInsert (MenuItem, position);"," if createvisible then"," MenuItem.Show;",end;
|
|
Overload
|
|
Count=3
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Param=CreateVisible
|
|
PascalType=boolean
|
|
Prop=Append
|
|
PropType=Procedure
|
|
Code=begin," GtkAppend (MenuItem);"," MenuItem.Show;",end;
|
|
Overload
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Append
|
|
PropType=Procedure
|
|
Code=begin," GtkAppend (MenuItem);"," if createvisible then"," MenuItem.Show;",end;
|
|
Overload
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CreateVisible
|
|
PascalType=boolean
|
|
Prop=DeActivate
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=deactivate
|
|
Count=0
|
|
Prop=SelectionDone
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=selection-done
|
|
Count=0
|
|
Prop=Cancel
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=cancel
|
|
Count=0
|
|
Prop=MoveCurrent
|
|
PropType=Signal
|
|
PascalType=MoveCurrentSignal
|
|
GtkName=move-current
|
|
Count=0
|
|
Prop=ActivateCurrent
|
|
PropType=Signal
|
|
PascalType=BooleanSignal
|
|
GtkName=activate-current
|
|
Count=0
|
|
Object=MenuBar
|
|
Inherit=MenuShell
|
|
GtkFuncName=menu_bar
|
|
CreateObject
|
|
Count=4
|
|
Prop=GtkPrepend
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=prepend
|
|
Override
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=GtkInsert
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=insert
|
|
Override
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=GtkAppend
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=append
|
|
Override
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Shadow
|
|
PropType=Property
|
|
PascalType=TgtkShadowType
|
|
GtkName=shadow_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=shadow_type
|
|
Count=0
|
|
Object=Menu
|
|
Inherit=MenuShell
|
|
GtkFuncName=menu
|
|
CreateObject
|
|
Count=20
|
|
Prop=GtkPrepend
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=prepend
|
|
Override
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=GtkInsert
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=insert
|
|
Override
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=GtkAppend
|
|
PropType=Procedure
|
|
Section=Protected
|
|
GtkName=append
|
|
Override
|
|
Count=1
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Functiontypes
|
|
PropType=TypeDeclaration
|
|
Code=" TFPgtkMenuDetachFunction = procedure (Widget:TFPgtkWidget; menu:TFPgtkMenu) of object;"," TFPgtkMenuPosFunction = procedure (menu:TFPgtkMenu; var x,y:integer; data:pointer) of object;"
|
|
Count=0
|
|
Prop=FPgtkMenuPos
|
|
PropType=HelperProc
|
|
Section=Private
|
|
Code="var p : TFPgtkMenuPosFunction;",begin," with PSignalData (data)^ do"," begin"," p := TFPgtkMenuPosFunction (TheSignalProc);"," p(TFPgtkMenu(GetPascalInstance(PgtkObject(Sender))), x^, y^, data);"," end;",end;
|
|
Cdecl
|
|
Count=4
|
|
Param=Sender
|
|
PascalType=PgtkMenu
|
|
Param=x
|
|
PascalType=pgint
|
|
Param=y
|
|
PascalType=pgint
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=FPgtkMenuDetacher
|
|
PropType=HelperProc
|
|
Section=Private
|
|
Code="var m : TFPgtkMenu;"," a : TFPgtkWidget;",begin," m := (GetPascalInstance(PgtkObject(TheMenu)) as TFPgtkMenu);"," if assigned(m) and assigned(m.FDetacher) then"," begin"," a := TFPgtkWidget (GetPascalInstance(PgtkObject(AttachedWidget)));"," m.FDetacher (a, m);"," end",end;
|
|
Cdecl
|
|
Count=2
|
|
Param=AttachedWidget
|
|
PascalType=PgtkWidget
|
|
Param=TheMenu
|
|
PascalType=PgtkMenu
|
|
Prop=FDetacher
|
|
PropType=Field
|
|
PascalType=TFPgtkMenuDetachFunction
|
|
Count=0
|
|
Prop=ReorderChild
|
|
PropType=Procedure
|
|
GtkName=reorder_child
|
|
Count=2
|
|
Param=MenuItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=Popup
|
|
PropType=Procedure
|
|
Code=begin," gtk_menu_popup (TheGtkObject, null, null, null, null, button, 0);",end;
|
|
Overload
|
|
Count=1
|
|
Param=button
|
|
PascalType=guint
|
|
Prop=Popup
|
|
PropType=Procedure
|
|
Code=begin," gtk_menu_popup (TheGtkObject, ConvertTogtkWidget(ParentShell), ConvertTogtkWidget(ParentItem),"," @FPgtkMenuPos, ConvertSignalData(TFPgtkSignalFunction(func), data, true), button, ActivateTime);",end;
|
|
Overload
|
|
Count=6
|
|
Param=ParentShell
|
|
PascalType=TFPgtkWidget
|
|
Param=ParentItem
|
|
PascalType=TFPgtkWidget
|
|
Param=func
|
|
PascalType=TFPgtkMenuPosFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Param=button
|
|
PascalType=guint
|
|
Param=ActivateTime
|
|
PascalType=guint32
|
|
Prop=PopDown
|
|
PropType=Procedure
|
|
GtkName=popdown
|
|
Count=0
|
|
Prop=Reposition
|
|
PropType=Procedure
|
|
GtkName=reposition
|
|
Count=0
|
|
Prop=AttachToWidget
|
|
PropType=Procedure
|
|
Code=begin," FDetacher := detacher;"," gtk_menu_attach_to_widget (TheGtkObject, ConvertTogtkWidget(Widget), @FPgtkMenuDetacher);",end;
|
|
Count=2
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=detacher
|
|
PascalType=TFPgtkMenuDetachFunction
|
|
Prop=Detach
|
|
PropType=Procedure
|
|
GtkName=detach
|
|
Count=0
|
|
Prop=Title
|
|
PropType=Property
|
|
PascalType=string
|
|
ReadFuncType=NotImplemented
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_menu_set_title(TheGtkObject,Pgchar(TheValue));",end;
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Active
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=active
|
|
ReadConvert
|
|
WriteProcType=Proc
|
|
WriteCode="var r : integer;",begin," r := Children.indexof (TheValue);"," if r >= 0 then"," SetActiveIndex (r);",end;
|
|
Count=0
|
|
Prop=ActiveIndex
|
|
PropType=Property
|
|
PascalType=integer
|
|
Code=begin," result := Children.indexof (GetActive);",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=active
|
|
Count=0
|
|
Prop=TearOffState
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=torn_off
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=tearoff_state
|
|
Count=0
|
|
Prop=AttachedTo
|
|
PropType=Property
|
|
PascalType=TFPgtkWidget
|
|
GtkName=attach_widget
|
|
ReadConvert
|
|
WriteProcType=Proc
|
|
WriteCode=begin," AttachToWidget (TheValue, nil);",end;
|
|
Count=0
|
|
Prop=AccelGroup
|
|
PropType=Property
|
|
PascalType=PGtkAccelGroup
|
|
GtkName=ensure_uline_accel_group
|
|
ReadFuncType=GtkMacro
|
|
WriteGtkName=accel_group
|
|
Count=0
|
|
Object=Packer
|
|
Inherit=Container
|
|
GtkFuncName=packer
|
|
CreateObject
|
|
Count=10
|
|
Prop=Add
|
|
PropType=Procedure
|
|
Code=begin," gtk_packer_add_defaults (TheGtkObject, Child.TheGtkWidget, Side, anchor, options);"," Child.Show;",end;
|
|
Overload
|
|
Count=4
|
|
Param=Child
|
|
PascalType=TFPgtkWidget
|
|
Param=Side
|
|
PascalType=TGtkSideType
|
|
Param=Anchor
|
|
PascalType=TGtkAnchorType
|
|
Param=options
|
|
PascalType=TGtkPackerOptions
|
|
Prop=Add
|
|
PropType=Procedure
|
|
Code=begin," gtk_packer_add_defaults (TheGtkObject, Child.TheGtkWidget, Side, anchor, options);"," if aVisible then"," Child.Show;",end;
|
|
Overload
|
|
Count=5
|
|
Param=Child
|
|
PascalType=TFPgtkWidget
|
|
Param=Side
|
|
PascalType=TGtkSideType
|
|
Param=Anchor
|
|
PascalType=TGtkAnchorType
|
|
Param=options
|
|
PascalType=TGtkPackerOptions
|
|
Param=aVisible
|
|
PascalType=boolean
|
|
Prop=Add
|
|
PropType=Procedure
|
|
Code=begin," gtk_packer_add (TheGtkObject, Child.TheGtkWidget, Side, anchor, options, aborder, padX, PadY, IPadX, IPadY);"," Child.Show;",end;
|
|
Overload
|
|
Count=9
|
|
Param=Child
|
|
PascalType=TFPgtkWidget
|
|
Param=Side
|
|
PascalType=TGtkSideType
|
|
Param=Anchor
|
|
PascalType=TGtkAnchorType
|
|
Param=options
|
|
PascalType=TGtkPackerOptions
|
|
Param=aBorder
|
|
PascalType=guint
|
|
Param=PadX
|
|
PascalType=Guint
|
|
Param=PadY
|
|
PascalType=guint
|
|
Param=IPadX
|
|
PascalType=guint
|
|
Param=IPadY
|
|
PascalType=guint
|
|
Prop=Add
|
|
PropType=Procedure
|
|
Code=begin," gtk_packer_add (TheGtkObject, Child.TheGtkWidget, Side, anchor, options, aborder, padX, PadY, IPadX, IPadY);"," if aVisible then"," Child.Show;",end;
|
|
Overload
|
|
Count=10
|
|
Param=Child
|
|
PascalType=TFPgtkWidget
|
|
Param=Side
|
|
PascalType=TGtkSideType
|
|
Param=Anchor
|
|
PascalType=TGtkAnchorType
|
|
Param=options
|
|
PascalType=TGtkPackerOptions
|
|
Param=aBorder
|
|
PascalType=guint
|
|
Param=PadX
|
|
PascalType=Guint
|
|
Param=PadY
|
|
PascalType=guint
|
|
Param=IPadX
|
|
PascalType=guint
|
|
Param=IPadY
|
|
PascalType=guint
|
|
Param=aVisible
|
|
PascalType=boolean
|
|
Prop=ReorderChild
|
|
PropType=Procedure
|
|
GtkName=reorder_child
|
|
Count=2
|
|
Param=aChild
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=Spacing
|
|
PropType=Property
|
|
PascalType=guint
|
|
GtkName=spacing
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=spacing
|
|
Count=0
|
|
Prop=DefaultBorder
|
|
PropType=Procedure
|
|
PascalType=guint
|
|
GtkName=set_default_border_width
|
|
WriteGtkName=border_width
|
|
Count=1
|
|
Param=aBorder
|
|
PascalType=guint
|
|
Prop=DefaultPad
|
|
PropType=Procedure
|
|
PascalType=guint
|
|
GtkName=set_default_pad
|
|
WriteGtkName=border_width
|
|
Count=2
|
|
Param=PadX
|
|
PascalType=guint
|
|
Param=PadY
|
|
PascalType=guint
|
|
Prop=DefaultIPad
|
|
PropType=Procedure
|
|
PascalType=guint
|
|
GtkName=set_default_ipad
|
|
WriteGtkName=border_width
|
|
Count=2
|
|
Param=IPadX
|
|
PascalType=guint
|
|
Param=IPadY
|
|
PascalType=guint
|
|
Prop=Configure
|
|
PropType=Procedure
|
|
GtkName=set_child_packing
|
|
Overload
|
|
Count=9
|
|
Param=aChild
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Side
|
|
PascalType=TGtkSideType
|
|
Param=Anchor
|
|
PascalType=TGtkAnchorType
|
|
Param=options
|
|
PascalType=TGtkPackerOptions
|
|
Param=aBorder
|
|
PascalType=guint
|
|
Param=PadX
|
|
PascalType=Guint
|
|
Param=PadY
|
|
PascalType=guint
|
|
Param=IPadX
|
|
PascalType=guint
|
|
Param=IPadY
|
|
PascalType=guint
|
|
Object=Table
|
|
Inherit=Container
|
|
GtkFuncName=table
|
|
CreateParams=1,1,False
|
|
CreateObject
|
|
Count=13
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," resize (AColumns, ARows);",end;
|
|
Count=2
|
|
Param=AColumns
|
|
PascalType=integer
|
|
Param=ARows
|
|
PascalType=integer
|
|
Prop=Resize
|
|
PropType=Procedure
|
|
Code=begin," gtk_table_resize (TheGtkObject, ARows, AColumns);",end;
|
|
Count=2
|
|
Param=AColumns
|
|
PascalType=integer
|
|
Param=ARows
|
|
PascalType=integer
|
|
Prop=Attach
|
|
PropType=Procedure
|
|
Code=begin," gtk_table_attach (TheGtkObject, ConvertToGtkWidget(Widget), left, right, top, bottom,"," XOptions, YOptions, XPadding, YPadding);"," if isvisible then"," widget.Show;",end;
|
|
Count=10
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=left
|
|
PascalType=integer
|
|
Param=right
|
|
PascalType=integer
|
|
Param=top
|
|
PascalType=integer
|
|
Param=bottom
|
|
PascalType=integer
|
|
Param=XOptions
|
|
PascalType=integer
|
|
Param=YOptions
|
|
PascalType=integer
|
|
Param=XPadding
|
|
PascalType=integer
|
|
Param=YPadding
|
|
PascalType=integer
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=Attach
|
|
PropType=Procedure
|
|
Code=begin," gtk_table_attach (TheGtkObject, ConvertTogtkWidget(Widget), left, right, top, bottom,"," XOptions, YOptions, XPadding, YPadding);"," widget.Show;",end;
|
|
Count=9
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=left
|
|
PascalType=integer
|
|
Param=right
|
|
PascalType=integer
|
|
Param=top
|
|
PascalType=integer
|
|
Param=bottom
|
|
PascalType=integer
|
|
Param=XOptions
|
|
PascalType=integer
|
|
Param=YOptions
|
|
PascalType=integer
|
|
Param=XPadding
|
|
PascalType=integer
|
|
Param=YPadding
|
|
PascalType=integer
|
|
Prop=Attach
|
|
PropType=Procedure
|
|
Code=begin," gtk_table_attach_defaults (TheGtkObject, ConvertTogtkWidget(Widget), left, right, top, bottom);"," if isvisible then"," widget.Show;",end;
|
|
Count=6
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=left
|
|
PascalType=integer
|
|
Param=right
|
|
PascalType=integer
|
|
Param=top
|
|
PascalType=integer
|
|
Param=bottom
|
|
PascalType=integer
|
|
Param=IsVisible
|
|
PascalType=boolean
|
|
Prop=Attach
|
|
PropType=Procedure
|
|
Code=begin," gtk_table_attach_defaults (TheGtkObject, ConvertTogtkWidget(Widget), left, right, top, bottom);"," widget.Show;",end;
|
|
Count=5
|
|
Param=Widget
|
|
PascalType=TFPgtkWidget
|
|
Param=left
|
|
PascalType=integer
|
|
Param=right
|
|
PascalType=integer
|
|
Param=top
|
|
PascalType=integer
|
|
Param=bottom
|
|
PascalType=integer
|
|
Prop=RowCount
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=nrows
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=ColCount
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=ncols
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Homogeneous
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=homogeneous
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=homogeneous
|
|
Count=0
|
|
Prop=RowSpacings
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=column_spacing
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=row_spacings
|
|
Count=0
|
|
Prop=ColSpacings
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=row_spacing
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=col_spacings
|
|
Count=0
|
|
Prop=SetOneRowSpacing
|
|
PropType=Procedure
|
|
GtkName=set_row_spacing
|
|
Count=2
|
|
Param=row
|
|
PascalType=integer
|
|
Param=TheValue
|
|
PascalType=integer
|
|
Prop=SetOneColSpacing
|
|
PropType=Procedure
|
|
GtkName=set_col_spacing
|
|
Count=2
|
|
Param=Column
|
|
PascalType=integer
|
|
Param=TheValue
|
|
PascalType=integer
|
|
Object=Toolbar
|
|
Inherit=Container
|
|
GtkFuncName=toolbar
|
|
CreateParams=GTK_ORIENTATION_HORIZONTAL,GTK_TOOLBAR_BOTH
|
|
CreateObject
|
|
Count=22
|
|
Prop=ButtonRelief
|
|
PropType=Property
|
|
PascalType=TGtkReliefStyle
|
|
GtkName=button_relief
|
|
WriteGtkName=button_relief
|
|
Count=0
|
|
Prop=Tooltips
|
|
PropType=Property
|
|
PascalType=TFPgtkTooltips
|
|
GtkName=tooltips
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=EnableTooltips
|
|
PropType=Property
|
|
PascalType=longbool
|
|
Code=begin," result := tooltips.enabled;",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=tooltips
|
|
WriteConvert
|
|
Count=0
|
|
Prop=SpaceStyle
|
|
PropType=Property
|
|
PascalType=TGtkToolbarSpaceStyle
|
|
GtkName=space_style
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=space_style
|
|
Count=0
|
|
Prop=SpaceSize
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=space_size
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=space_size
|
|
Count=0
|
|
Prop=Style
|
|
PropType=Property
|
|
PascalType=TGtkToolbarStyle
|
|
GtkName=style
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=style
|
|
Count=0
|
|
Prop=Orientation
|
|
PropType=Property
|
|
PascalType=tGtkOrientation
|
|
GtkName=orientation
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=orientation
|
|
Count=0
|
|
Prop=InsertWidget
|
|
PropType=Procedure
|
|
Code=begin," gtk_toolbar_insert_widget (TheGtkObject, ConvertToGtkWidget(Widget), ConvertToPgchar(TooltipText), ConvertTopgchar(TooltipPrivate), Position);"," Widget.Show;",end;
|
|
Count=4
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Position
|
|
PascalType=integer
|
|
Prop=PrependWidget
|
|
PropType=Procedure
|
|
Code=begin," gtk_toolbar_prepend_widget (TheGtkObject, ConvertToGtkWidget(Widget), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate));"," Widget.Show;",end;
|
|
Count=3
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Prop=AppendWidget
|
|
PropType=Procedure
|
|
Code=begin," gtk_toolbar_append_widget (TheGtkObject, ConvertToGtkWidget(Widget), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate));"," Widget.Show;",end;
|
|
Count=3
|
|
Param=Widget
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Prop=InsertElement
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code="var w : PGtkWidget;"," t : TFPgtkObjectClass;",begin," w := gtk_toolbar_insert_element (TheGtkObject, ButtonType, "," ConvertToGtkwidget(PrevRadioBut), ConvertTopgchar(Text), "," ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), "," ConvertToGtkwidget(Icon), "," gtk_signal_func(@SignalProc), "," ConvertSignalData(TFPgtkSignalFunction(callback), data, true), "," position);"," if assigned (w) then"," begin"," case ButtonType of"," GTK_TOOLBAR_CHILD_WIDGET:"," t := TFPgtkWidget;"," GTK_TOOLBAR_CHILD_BUTTON:"," t := TFPgtkButton;"," GTK_TOOLBAR_CHILD_TOGGLEBUTTON:"," t := TFPgtkToggleButton;"," GTK_TOOLBAR_CHILD_RADIOBUTTON:"," t := TFPgtkRadioButton;"," end;"," if t = TFPgtkWidget then"," result := GetPascalInstance (w)"," else"," result := GetPascalInstance (w, t);"," end"," else"," result := nil;",end;
|
|
Count=9
|
|
Param=ButtonType
|
|
PascalType=TGtkToolbarChildType
|
|
Param=PrevRadioBut
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=AppendElement
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code="var w : PGtkWidget;"," t : TFPgtkObjectClass;",begin," w := gtk_toolbar_append_element (TheGtkObject, ButtonType, ConvertToGtkwidget(PrevRadioBut), "," ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), "," ConvertToGtkwidget(Icon), gtk_signal_func(@SignalProc), "," ConvertSignalData(TFPgtkSignalFunction(callback), data, true));"," if assigned (w) then"," begin"," case ButtonType of"," GTK_TOOLBAR_CHILD_WIDGET:"," t := TFPgtkWidget;"," GTK_TOOLBAR_CHILD_BUTTON:"," t := TFPgtkButton;"," GTK_TOOLBAR_CHILD_TOGGLEBUTTON:"," t := TFPgtkToggleButton;"," GTK_TOOLBAR_CHILD_RADIOBUTTON:"," t := TFPgtkRadioButton;"," end;"," if t = TFPgtkWidget then"," result := GetPascalInstance (w)"," else"," result := GetPascalInstance (w, t);"," end"," else"," result := nil;",end;
|
|
Count=8
|
|
Param=ButtonType
|
|
PascalType=TGtkToolbarChildType
|
|
Param=PrevRadioBut
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PrependElement
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code="var w : PGtkWidget;"," t : TFPgtkObjectClass;",begin," w := gtk_toolbar_prepend_element (TheGtkObject, ButtonType, ConvertToGtkwidget(PrevRadioBut), "," ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), "," ConvertToGtkwidget(Icon), gtk_signal_func(@SignalProc), "," ConvertSignalData(TFPgtkSignalFunction(callback), data, true));"," if assigned (w) then"," begin"," case ButtonType of"," GTK_TOOLBAR_CHILD_WIDGET:"," t := TFPgtkWidget;"," GTK_TOOLBAR_CHILD_BUTTON:"," t := TFPgtkButton;"," GTK_TOOLBAR_CHILD_TOGGLEBUTTON:"," t := TFPgtkToggleButton;"," GTK_TOOLBAR_CHILD_RADIOBUTTON:"," t := TFPgtkRadioButton;"," end;"," if t = TFPgtkWidget then"," result := GetPascalInstance (w)"," else"," result := GetPascalInstance (w, t);"," end"," else"," result := nil;",end;
|
|
Count=8
|
|
Param=ButtonType
|
|
PascalType=TGtkToolbarChildType
|
|
Param=PrevRadioBut
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=InsertItem
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := GetPascalInstance ("," gtk_toolbar_insert_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ConvertToGtkWidget(Icon), "," gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true), position),"," TFPgtkButton);",end;
|
|
Overload
|
|
Count=7
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=AppendItem
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := GetPascalInstance ("," gtk_toolbar_append_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), "," ConvertToGtkWidget(Icon), gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true)),"," TFPgtkButton);",end;
|
|
Overload
|
|
Count=6
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PrependItem
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code=begin," result := GetPascalInstance ("," gtk_toolbar_prepend_item (TheGtkObject, Converttopgchar(Text), Converttopgchar(TooltipText), "," Converttopgchar(TooltipPrivate), ConvertToGtkWidget(Icon), gtk_signal_func(@SignalProc), "," ConvertSignalData(TFPgtkSignalFunction(callback), data, true)), "," TFPgtkButton);",end;
|
|
Overload
|
|
Count=6
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=InsertItem
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code="var pm : TFPgtkPixmap;",begin," if low(icon) < high(icon) then"," begin"," pm := TFPgtkPixmap.Create;"," pm.loadFromArray (icon);"," end"," else"," pm := nil;"," result := GetPascalInstance ("," gtk_toolbar_insert_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ConvertToGtkWidget(pm), "," gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true), position),"," TFPgtkButton);",end;
|
|
Overload
|
|
Count=7
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=array of string
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=AppendItem
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code="var pm : TFPgtkPixmap;",begin," if low(icon) < high(icon) then"," begin"," pm := TFPgtkPixmap.Create;"," pm.loadFromArray (icon);"," end"," else"," pm := nil;"," result := GetPascalInstance ("," gtk_toolbar_append_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), "," ConvertToGtkWidget(pm), gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true)),"," TFPgtkButton);",end;
|
|
Overload
|
|
Count=6
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=array of string
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=PrependItem
|
|
PropType=Function
|
|
PascalType=TFPgtkWidget
|
|
Code="var pm : TFPgtkPixmap;",begin," if low(icon) < high(icon) then"," begin"," pm := TFPgtkPixmap.Create;"," pm.loadFromArray (icon);"," end"," else"," pm := nil;"," result := GetPascalInstance ("," gtk_toolbar_prepend_item (TheGtkObject, Converttopgchar(Text), Converttopgchar(TooltipText), "," Converttopgchar(TooltipPrivate), ConvertToGtkWidget(pm), gtk_signal_func(@SignalProc), "," ConvertSignalData(TFPgtkSignalFunction(callback), data, true)), "," TFPgtkButton);",end;
|
|
Overload
|
|
Count=6
|
|
Param=Text
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipText
|
|
Convert
|
|
PascalType=string
|
|
Param=TooltipPrivate
|
|
Convert
|
|
PascalType=string
|
|
Param=Icon
|
|
Convert
|
|
PascalType=array of string
|
|
Param=CallBack
|
|
Convert
|
|
PascalType=TFPgtkSignalFunction
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=InsertSpace
|
|
PropType=Procedure
|
|
GtkName=insert_space
|
|
Count=1
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=AppendSpace
|
|
PropType=Procedure
|
|
GtkName=append_space
|
|
Count=0
|
|
Prop=PrependSpace
|
|
PropType=Procedure
|
|
GtkName=prepend_space
|
|
Count=0
|
|
Object=Tree
|
|
Inherit=Container
|
|
GtkFuncName=tree
|
|
CreateObject
|
|
Count=20
|
|
Prop=SelectionChanged
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=selection-changed
|
|
Count=0
|
|
Prop=SelectChild
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=select-child
|
|
Count=0
|
|
Prop=UnselectChild
|
|
PropType=Signal
|
|
PascalType=WidgetSignal
|
|
GtkName=unselect-child
|
|
Count=0
|
|
Prop=SelectionMode
|
|
PropType=Property
|
|
PascalType=TGtkSelectionMode
|
|
GtkName=selection_mode
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=selection_mode
|
|
Count=0
|
|
Prop=ViewLines
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=view_line
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_tree_set_view_lines(TheGtkObject,guint(TheValue));",end;
|
|
WriteConvert
|
|
Count=0
|
|
Prop=ViewMode
|
|
PropType=Property
|
|
PascalType=TGtkTreeViewMode
|
|
GtkName=view_mode
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=view_mode
|
|
Count=0
|
|
Prop=Append
|
|
PropType=Procedure
|
|
Code=begin," gtk_tree_append (TheGtkObject, PGtkwidget(ConvertToGtkObject(TreeItem)));"," TreeItem.Show;",end;
|
|
Count=1
|
|
Param=TreeItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Prepend
|
|
PropType=Procedure
|
|
Code=begin," gtk_tree_prepend (TheGtkObject, PGtkwidget(ConvertToGtkObject(TreeItem)));"," TreeItem.Show;",end;
|
|
Count=1
|
|
Param=TreeItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=Insert
|
|
PropType=Procedure
|
|
Code=begin," gtk_tree_insert (TheGtkObject, PGtkwidget(ConvertToGtkObject(TreeItem)),position);"," TreeItem.show;",end;
|
|
Count=2
|
|
Param=TreeItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Param=position
|
|
PascalType=integer
|
|
Prop=Remove
|
|
PropType=Procedure
|
|
Code="var l : PGList;",begin,"{$ifndef win32}"," gtk_tree_remove_item (TheGtkObject, ConvertToGtkWidget(TreeItem));",{$else}," l := null;"," l := g_list_append (l, ConvertToGtkWidget(TreeItem));"," gtk_tree_remove_items (TheGtkObject, l);"," g_list_free (l);",{$endif},end;
|
|
Count=1
|
|
Param=TreeItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=ClearItems
|
|
PropType=Procedure
|
|
GtkName=clear_items
|
|
Count=2
|
|
Param=StartPos
|
|
PascalType=integer
|
|
Param=EndPos
|
|
PascalType=integer
|
|
Prop=SelectItem
|
|
PropType=Procedure
|
|
GtkName=select_item
|
|
Count=1
|
|
Param=Item
|
|
Convert
|
|
PascalType=integer
|
|
Prop=UnselectItem
|
|
PropType=Procedure
|
|
GtkName=unselect_item
|
|
Count=1
|
|
Param=Item
|
|
PascalType=integer
|
|
Prop=SelectChild
|
|
PropType=Procedure
|
|
GtkName=select_child
|
|
Count=1
|
|
Param=TreeItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=UnselectChild
|
|
PropType=Procedure
|
|
GtkName=unselect_child
|
|
Count=1
|
|
Param=TreeItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=ChildPosition
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=child_position
|
|
Count=1
|
|
Param=TreeItem
|
|
Convert
|
|
PascalType=TFPgtkWidget
|
|
Prop=RootTree
|
|
PropType=Function
|
|
PascalType=TFPgtkTree
|
|
Code=begin," result := GetPascalInstance(PGtkObject(GTK_TREE_ROOT_TREE(TheGtkObject))) as TFPgtkTree;",end;
|
|
Count=0
|
|
Prop=IsRootTree
|
|
PropType=Function
|
|
PascalType=boolean
|
|
Code=begin," result := GTK_IS_ROOT_TREE (TheGtkObject);",end;
|
|
Count=0
|
|
Prop=GetSelection
|
|
PropType=Procedure
|
|
PascalType=TFPgtkTreeItemGroup
|
|
Code=begin," aGroup.ManageLists := false;"," aGroup.GtkList := Gtk_Tree_selection (TheGtkObject);",end;
|
|
Count=1
|
|
Param=aGroup
|
|
PascalType=TFPgtkGroup
|
|
Prop=Level
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," result := TheGtkObject^.level;",end;
|
|
Count=0
|
|
Object=Calendar
|
|
Inherit=Widget
|
|
GtkFuncName=calendar
|
|
CreateObject
|
|
Count=16
|
|
Prop=SelectMonth
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," result := gtk_calendar_select_month (TheGtkObject, aMonth-1, aYear);",end;
|
|
Count=2
|
|
Param=aMonth
|
|
PascalType=guint
|
|
Param=aYear
|
|
PascalType=guint
|
|
Prop=SelectDay
|
|
PropType=Procedure
|
|
GtkName=select_day
|
|
Count=1
|
|
Param=aDay
|
|
PascalType=guint
|
|
Prop=MarkDay
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=mark_day
|
|
Count=1
|
|
Param=aDay
|
|
PascalType=guint
|
|
Prop=UnmarkDay
|
|
PropType=Function
|
|
PascalType=integer
|
|
GtkName=unmark_day
|
|
Count=1
|
|
Param=aDay
|
|
PascalType=guint
|
|
Prop=ClearMarks
|
|
PropType=Procedure
|
|
GtkName=clear_marks
|
|
Count=0
|
|
Prop=DisplayOptions
|
|
PropType=Property
|
|
PascalType=TGtkCalendarDisplayOptions
|
|
GtkName=display_flags
|
|
ReadFuncType=ObjField
|
|
WriteProcType=GtkMacro
|
|
WriteGtkName=display_options
|
|
Count=0
|
|
Prop=Date
|
|
PropType=Property
|
|
PascalType=TDatetime
|
|
Code="var y, m, d : guint;",begin," gtk_calendar_get_date (TheGtkObject, @y, @m, @d);"," result := encodedate (y,m+1,d);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=Proc
|
|
WriteCode="var y,m,d : word;",begin," decodedate (TheValue, y,m,d);"," SelectMonth(m,y);"," SelectDay(d);",end;
|
|
Count=0
|
|
Prop=Freeze
|
|
PropType=Procedure
|
|
GtkName=freeze
|
|
Count=0
|
|
Prop=Thaw
|
|
PropType=Procedure
|
|
GtkName=thaw
|
|
Count=0
|
|
Prop=MonthChanged
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=month-changed
|
|
Count=0
|
|
Prop=DaySelected
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=day-selected
|
|
Count=0
|
|
Prop=DaySelectedDoubleClick
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=day-selected-double-click
|
|
Count=0
|
|
Prop=PrevMonth
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=prev-month
|
|
Count=0
|
|
Prop=NextMonth
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=next-month
|
|
Count=0
|
|
Prop=PrevYear
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=prev-year
|
|
Count=0
|
|
Prop=NextYear
|
|
PropType=Signal
|
|
PascalType=signal
|
|
GtkName=next-year
|
|
Count=0
|
|
Object=DrawingArea
|
|
Inherit=Widget
|
|
GtkFuncName=drawing_area
|
|
CreateObject
|
|
Count=1
|
|
Prop=SetSize
|
|
PropType=Procedure
|
|
GtkName=Size
|
|
Count=2
|
|
Param=Width
|
|
PascalType=integer
|
|
Param=Height
|
|
PascalType=integer
|
|
Object=Curve
|
|
Inherit=DrawingArea
|
|
GtkFuncName=curve
|
|
CreateObject
|
|
Count=4
|
|
Prop=SetRange
|
|
PropType=Procedure
|
|
GtkName=set_range
|
|
Count=4
|
|
Param=MinX
|
|
PascalType=float
|
|
Param=MaxX
|
|
PascalType=float
|
|
Param=MinY
|
|
PascalType=float
|
|
Param=MaxY
|
|
PascalType=float
|
|
Prop=Reset
|
|
PropType=Procedure
|
|
GtkName=reset
|
|
Count=0
|
|
Prop=SetGamma
|
|
PropType=Procedure
|
|
GtkName=set_gamma
|
|
Count=1
|
|
Param=GammaValue
|
|
PascalType=float
|
|
Prop=CurveType
|
|
PropType=Property
|
|
PascalType=TGtkCurveType
|
|
GtkName=curve_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=curve_type
|
|
Count=0
|
|
Object=Editable
|
|
Inherit=Widget
|
|
GtkFuncName=Editable
|
|
Count=45
|
|
Prop=GetHasSelection
|
|
PropType=Function
|
|
Section=Protected
|
|
PascalType=boolean
|
|
Code=begin," result := SelectionStart <> SelectionEnd;",end;
|
|
Dynamic
|
|
Count=0
|
|
Prop=HasSelection
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=GetHasSelection
|
|
ReadConvert
|
|
ReadFuncType=ExistingProc
|
|
WriteProcType=NotImplemented
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Editable
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=editable
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=editable
|
|
Count=0
|
|
Prop=Visible
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=visible
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=ObjFunc
|
|
WriteGtkName=visible
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Position
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=position
|
|
WriteGtkName=position
|
|
Count=0
|
|
Prop=SelectionStart
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=selection_start_pos
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_editable_select_region (TheGtkObject, TheValue, SelectionEnd);",end;
|
|
Count=0
|
|
Prop=SelectionEnd
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=Selection_end_pos
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_editable_select_region (TheGtkObject, SelectionStart, TheValue);",end;
|
|
Count=0
|
|
Prop=SetSelection
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var b : integer;",begin," if HasSelection then"," begin"," b := SelectionStart;"," deleteText (SelectionStart, SelectionEnd);"," end"," else"," b := position;"," InsertText (TheValue, b);"," Position := b + length(TheValue);"," SelectRegion (b, position);","end; "
|
|
Dynamic
|
|
Count=1
|
|
Param=TheValue
|
|
PascalType=string
|
|
Prop=Selection
|
|
PropType=Property
|
|
PascalType=string
|
|
Code="var c : pgchar;",begin," c := gtk_editable_get_chars (TheGtkObject, SelectionStart, SelectionEnd);"," result := string (c);"," g_free (c);",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=ExistingProc
|
|
WriteGtkName=SetSelection
|
|
Count=0
|
|
Prop=GetText
|
|
PropType=Function
|
|
Section=Protected
|
|
PascalType=string
|
|
Code="var c : pgchar;",begin," c := gtk_editable_get_chars (TheGtkObject, 0, -1);"," result := string (c);"," g_free (c);",end;
|
|
Dynamic
|
|
Count=0
|
|
Prop=SetText
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Dynamic
|
|
Abstract
|
|
Count=1
|
|
Param=TheValue
|
|
PascalType=string
|
|
Prop=Text
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=GetText
|
|
ReadFuncType=ExistingProc
|
|
WriteProcType=ExistingProc
|
|
WriteGtkName=SetText
|
|
Count=0
|
|
Prop=Changed
|
|
PropType=Procedure
|
|
GtkName=Changed
|
|
Count=0
|
|
Prop=InsertText
|
|
PropType=Procedure
|
|
Code="var p : integer;",begin," p := AtPosition;"," gtk_editable_insert_text (TheGtkObject, pgchar(NewText), length(NewText), @p);",end;
|
|
Count=2
|
|
Param=NewText
|
|
PascalType=string
|
|
Param=AtPosition
|
|
PascalType=integer
|
|
Prop=DeleteText
|
|
PropType=Procedure
|
|
GtkName=Delete_Text
|
|
Count=2
|
|
Param=StartPos
|
|
PascalType=integer
|
|
Param=EndPos
|
|
PascalType=integer
|
|
Prop=GetChars
|
|
PropType=Procedure
|
|
PascalType=string
|
|
GtkName=get_chars
|
|
Count=2
|
|
Param=StartPos
|
|
PascalType=integer
|
|
Param=EndPos
|
|
PascalType=integer
|
|
Prop=CutClipboard
|
|
PropType=Procedure
|
|
GtkName=cut_clipboard
|
|
Count=0
|
|
Prop=CopyClipboard
|
|
PropType=Procedure
|
|
GtkName=copy_clipboard
|
|
Count=0
|
|
Prop=PasteClipboard
|
|
PropType=Procedure
|
|
GtkName=paste_clipboard
|
|
Count=0
|
|
Prop=SelectRegion
|
|
PropType=Procedure
|
|
GtkName=select_region
|
|
Count=2
|
|
Param=StartPos
|
|
PascalType=integer
|
|
Param=EndPos
|
|
PascalType=integer
|
|
Prop=ClaimSelection
|
|
PropType=Procedure
|
|
GtkName=claim_selection
|
|
Count=2
|
|
Param=claim
|
|
PascalType=boolean
|
|
Param=time
|
|
PascalType=guint32
|
|
Prop=DeleteSelection
|
|
PropType=Procedure
|
|
GtkName=delete_selection
|
|
Count=0
|
|
Prop=Clear
|
|
PropType=Procedure
|
|
Code=begin," DeleteText (0,-1);",end;
|
|
Count=0
|
|
Prop=InsertSignal
|
|
PropType=SignalType
|
|
Count=5
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=NewText
|
|
Convert
|
|
PascalType=string
|
|
Param=TextLength
|
|
PascalType=integer
|
|
Param=Position
|
|
PascalType=integer
|
|
ParamType=Var
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=DeleteSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=StartPos
|
|
PascalType=integer
|
|
Param=EndPos
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=XYSignal
|
|
PropType=SignalType
|
|
Count=4
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=x
|
|
PascalType=integer
|
|
Param=y
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=DirectionSignal
|
|
PropType=SignalType
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=Direction
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=MoveWordSignal
|
|
PropType=SignalType
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=NumWords
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=MovetoSignal
|
|
PropType=SignalType
|
|
Count=3
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=MoveTo
|
|
PascalType=integer
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=Changed
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=changed
|
|
Count=0
|
|
Prop=Activate
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=activate
|
|
Count=0
|
|
Prop=InsertText
|
|
PropType=Signal
|
|
PascalType=InsertSignal
|
|
GtkName=insert-text
|
|
Count=0
|
|
Prop=DeleteText
|
|
PropType=Signal
|
|
PascalType=DeleteSignal
|
|
GtkName=delete-text
|
|
Count=0
|
|
Prop=SetEditable
|
|
PropType=Signal
|
|
PascalType=BooleanSignal
|
|
GtkName=set-editable
|
|
Count=0
|
|
Prop=MoveCursor
|
|
PropType=Signal
|
|
PascalType=XYSignal
|
|
GtkName=move-cursor
|
|
Count=0
|
|
Prop=MoveWord
|
|
PropType=Signal
|
|
PascalType=MoveWordSignal
|
|
GtkName=move-word
|
|
Count=0
|
|
Prop=MovePage
|
|
PropType=Signal
|
|
PascalType=XYSignal
|
|
GtkName=move-page
|
|
Count=0
|
|
Prop=MoveToRow
|
|
PropType=Signal
|
|
PascalType=MoveToSignal
|
|
GtkName=move-to-row
|
|
Count=0
|
|
Prop=MoveToCol
|
|
PropType=Signal
|
|
PascalType=MoveToSignal
|
|
GtkName=move-to-column
|
|
Count=0
|
|
Prop=KillChar
|
|
PropType=Signal
|
|
PascalType=DirectionSignal
|
|
GtkName=kill-char
|
|
Count=0
|
|
Prop=KillWord
|
|
PropType=Signal
|
|
PascalType=DirectionSignal
|
|
GtkName=kill-word
|
|
Count=0
|
|
Prop=KillLine
|
|
PropType=Signal
|
|
PascalType=DirectionSignal
|
|
GtkName=kill-line
|
|
Count=0
|
|
Prop=CutClipboard
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=cut-clipboard
|
|
Count=0
|
|
Prop=CopyClipboard
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=copy-clipboard
|
|
Count=0
|
|
Prop=PasteClipboard
|
|
PropType=Signal
|
|
PascalType=Signal
|
|
GtkName=paste-clipboard
|
|
Count=0
|
|
Object=Entry
|
|
Inherit=Editable
|
|
GtkFuncName=Entry
|
|
CreateObject
|
|
Count=5
|
|
Prop=SetText
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," gtk_Entry_set_text (TheGtkObject, Pgchar(TheValue));",end;
|
|
Override
|
|
Count=1
|
|
Param=TheValue
|
|
PascalType=string
|
|
Prop=AppendText
|
|
PropType=Procedure
|
|
GtkName=append_text
|
|
Count=1
|
|
Param=aText
|
|
Convert
|
|
PascalType=string
|
|
Prop=PrependText
|
|
PropType=Procedure
|
|
GtkName=prepend_text
|
|
Count=1
|
|
Param=aText
|
|
Convert
|
|
PascalType=string
|
|
Prop=Visibility
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=visible
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=visibility
|
|
Count=0
|
|
Prop=MaxLength
|
|
PropType=Property
|
|
PascalType=word
|
|
GtkName=text_max_length
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=max_length
|
|
Count=0
|
|
Object=SpinButton
|
|
Inherit=Entry
|
|
GtkFuncName=spin_button
|
|
CreateParams=TFPgtkAdjustment.Create.TheGtkObject,1,0
|
|
CreateObject
|
|
Count=13
|
|
Prop=Configure
|
|
PropType=Procedure
|
|
Code=begin," if assigned (Adj) then"," gtk_spin_button_configure (TheGtkObject, PGtkadjustment(Adj.TheGtkObject), aClimbRate, aDigits)"," else"," gtk_spin_button_configure (TheGtkObject, nil, aClimbRate, aDigits);",end;
|
|
Count=3
|
|
Param=Adj
|
|
Convert
|
|
PascalType=TFPgtkAdjustment
|
|
Param=aClimbRate
|
|
PascalType=gfloat
|
|
Param=aDigits
|
|
PascalType=integer
|
|
Prop=Adjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
Code=begin," result := GetPascalInstance(PGtkObject(gtk_spin_button_get_adjustment(TheGtkObject)),TFPGtkAdjustment) as TFPgtkAdjustment;",end;
|
|
ReadConvert
|
|
ReadFuncType=Proc
|
|
WriteGtkName=adjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=ClimbRate
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=climb_rate
|
|
ReadFuncType=ObjField
|
|
WriteProcType=ObjField
|
|
WriteGtkName=climb_rate
|
|
Count=0
|
|
Prop=Digits
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=digits
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=digits
|
|
Count=0
|
|
Prop=AsInteger
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=value_as_int
|
|
WriteGtkName=Value
|
|
Count=0
|
|
Prop=AsFloat
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=value_as_int
|
|
WriteGtkName=Value
|
|
Count=0
|
|
Prop=UpdatePolicy
|
|
PropType=Property
|
|
PascalType=TGtkSpinButtonUpdatePolicy
|
|
GtkName=update_policy
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=update_policy
|
|
Count=0
|
|
Prop=Numeric
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=numeric
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=numeric
|
|
Count=0
|
|
Prop=Spin
|
|
PropType=Procedure
|
|
GtkName=spin
|
|
Count=2
|
|
Param=direction
|
|
PascalType=TGtkSpinType
|
|
Param=increment
|
|
PascalType=gfloat
|
|
Prop=Wrap
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=wrap
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=wrap
|
|
Count=0
|
|
Prop=ShadowType
|
|
PropType=Property
|
|
PascalType=TGtkShadowType
|
|
GtkName=shadow_type
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=shadow_type
|
|
Count=0
|
|
Prop=SnapToTicks
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=snap_to_ticks
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=snap_to_ticks
|
|
Count=0
|
|
Prop=Update
|
|
PropType=Procedure
|
|
GtkName=update
|
|
Code=,
|
|
Count=0
|
|
Object=Text
|
|
Inherit=Editable
|
|
GtkFuncName=Text
|
|
CreateParams=null,null
|
|
CreateObject
|
|
Count=20
|
|
Prop=FIsChanged
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=boolean
|
|
Count=0
|
|
Prop=FLines
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TStrings
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," inherited create;"," editable := true;"," wordwrap := true;"," linewrap := true;"," FLines := TStringlist.Create;"," ConnectChanged (@SigChanged, nil);",end;
|
|
Count=0
|
|
Prop=Destroy
|
|
PropType=Destructor
|
|
Code=begin," FLines.Free;"," inherited;",end;
|
|
Override
|
|
Count=0
|
|
Prop=SigChanged
|
|
PropType=Procedure
|
|
Section=Private
|
|
Code=begin," FIsChanged := True;",end;
|
|
Count=2
|
|
Param=Sender
|
|
PascalType=TFPgtkObject
|
|
Param=data
|
|
PascalType=pointer
|
|
Prop=RefreshLines
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," if not assigned (FLines) then"," FLines := TStringlist.Create;"," FLines.Text := Text;",end;
|
|
Count=0
|
|
Prop=Lines
|
|
PropType=Property
|
|
PascalType=TStrings
|
|
Code=begin," if FIsChanged then"," RefreshLines;"," result := FLines;",end;
|
|
ReadFuncType=Proc
|
|
WriteProcType=NotImplemented
|
|
Count=0
|
|
Prop=Freeze
|
|
PropType=Procedure
|
|
GtkName=Freeze
|
|
Count=0
|
|
Prop=Thaw
|
|
PropType=Procedure
|
|
GtkName=Thaw
|
|
Count=0
|
|
Prop=TextLength
|
|
PropType=Function
|
|
PascalType=guint
|
|
GtkName=get_length
|
|
Count=0
|
|
Prop=Insert
|
|
PropType=Procedure
|
|
Code=begin," gtk_text_insert (TheGtkObject, font, fore, back, pgchar(TheText), length(TheText));",end;
|
|
Count=4
|
|
Param=font
|
|
PascalType=PgdkFont
|
|
Param=fore
|
|
PascalType=PgdkColor
|
|
Param=back
|
|
PascalType=PgdkColor
|
|
Param=TheText
|
|
Convert
|
|
PascalType=string
|
|
Prop=DeleteBackward
|
|
PropType=Procedure
|
|
GtkName=Backward_Delete
|
|
Count=1
|
|
Param=number
|
|
PascalType=longword
|
|
Prop=DeleteForward
|
|
PropType=Procedure
|
|
GtkName=Forward_Delete
|
|
Count=1
|
|
Param=number
|
|
PascalType=longword
|
|
Prop=WordWrap
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=word_wrap
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_text_set_word_wrap (TheGtkObject,gint(TheValue));",end;
|
|
WriteConvert
|
|
Count=0
|
|
Prop=LineWrap
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=Line_Wrap
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteProcType=Proc
|
|
WriteCode=begin,"{$IFDEF win32 or go32v2}"," Set_Line_Wrap (TheGtkObject^, gint(TheValue));",{$ELSE}," gtk_Text_Set_Line_Wrap (TheGtkObject, gint(TheValue));",{$ENDIF},end;
|
|
Count=0
|
|
Prop=Point
|
|
PropType=Property
|
|
PascalType=integer
|
|
GtkName=Point
|
|
WriteGtkName=Point
|
|
Count=0
|
|
Prop=SetAdjustments
|
|
PropType=Procedure
|
|
Code=begin," gtk_text_set_adjustments (TheGtkObject, hadj.TheGtkObject, vadj.TheGtkObject);",end;
|
|
Count=2
|
|
Param=hadj
|
|
PascalType=TFPgtkAdjustment
|
|
Param=vadj
|
|
PascalType=TFPgtkAdjustment
|
|
Prop=HAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=hadj
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_Text_Set_Adjustments(TheGtkObject, TheValue.TheGtkObject, TheGtkObject^.vadj);",end;
|
|
Count=0
|
|
Prop=VAdjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=vadj
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_Text_Set_Adjustments(TheGtkObject, TheGtkObject^.hadj, TheValue.TheGtkObject);",end;
|
|
Count=0
|
|
Prop=SetText
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," Freeze;"," {$ifdef gtkwin}"," TheValue := stringreplace (TheValue, #13#10, #10, [rfReplaceAll]);"," {$endif}"," clear;"," Insert (null, null, null, TheValue);"," Thaw;",end;
|
|
Override
|
|
Count=1
|
|
Param=TheValue
|
|
PascalType=string
|
|
Object=Ruler
|
|
Inherit=Widget
|
|
GtkFuncName=ruler
|
|
Count=2
|
|
Prop=SetMetric
|
|
PropType=Procedure
|
|
PascalType=TGtkMetricType
|
|
GtkName=set_metric
|
|
Count=1
|
|
Param=aMetric
|
|
PascalType=TGtkMetricType
|
|
Prop=SetRange
|
|
PropType=Procedure
|
|
GtkName=set_range
|
|
Count=4
|
|
Param=Lower
|
|
PascalType=float
|
|
Param=Upper
|
|
PascalType=float
|
|
Param=Position
|
|
PascalType=float
|
|
Param=MaxSize
|
|
PascalType=float
|
|
Object=HRuler
|
|
Inherit=Ruler
|
|
GtkFuncName=hruler
|
|
CreateObject
|
|
Count=0
|
|
Object=VRuler
|
|
Inherit=Ruler
|
|
GtkFuncName=vruler
|
|
CreateObject
|
|
Count=0
|
|
Object=Range
|
|
Inherit=Widget
|
|
GtkFuncName=Range
|
|
Count=18
|
|
Prop=Adjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
GtkName=Adjustment
|
|
ReadConvert
|
|
WriteGtkName=adjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=UpdatePolicy
|
|
PropType=Property
|
|
PascalType=TgtkUpdateType
|
|
GtkName=policy
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=update_policy
|
|
Count=0
|
|
Prop=FAdj
|
|
PropType=Field
|
|
Section=Protected
|
|
PascalType=TFPgtkAdjustment
|
|
Count=0
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FAdj := AnAdjustment;"," inherited create;",end;
|
|
Count=1
|
|
Param=AnAdjustment
|
|
PascalType=TFPgtkAdjustment
|
|
Prop=DrawBackground
|
|
PropType=Procedure
|
|
GtkName=draw_background
|
|
Count=0
|
|
Prop=DrawTrough
|
|
PropType=Procedure
|
|
GtkName=draw_trough
|
|
Count=0
|
|
Prop=DrawStepForw
|
|
PropType=Procedure
|
|
GtkName=draw_step_forw
|
|
Count=0
|
|
Prop=DrawStepBack
|
|
PropType=Procedure
|
|
GtkName=draw_step_back
|
|
Count=0
|
|
Prop=DrawSlider
|
|
PropType=Procedure
|
|
GtkName=draw_slider
|
|
Count=0
|
|
Prop=SliderUpdate
|
|
PropType=Procedure
|
|
GtkName=slider_update
|
|
Count=0
|
|
Prop=TroughClick
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," result := gtk_Range_trough_click (TheGtkObject, X, Y, @JumpPerc);",end;
|
|
Count=3
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Param=JumpPerc
|
|
PascalType=gfloat
|
|
ParamType=Var
|
|
Prop=DefaultHSliderUpdate
|
|
PropType=Procedure
|
|
GtkName=default_hslider_update
|
|
Count=0
|
|
Prop=DefaultVSliderUpdate
|
|
PropType=Procedure
|
|
GtkName=default_vslider_update
|
|
Count=0
|
|
Prop=DefaultHTroughClick
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," result := gtk_Range_default_htrough_click (TheGtkObject, X, Y, @JumpPerc);",end;
|
|
Count=3
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Param=JumpPerc
|
|
PascalType=gfloat
|
|
ParamType=Var
|
|
Prop=DefaultVTroughClick
|
|
PropType=Function
|
|
PascalType=integer
|
|
Code=begin," result := gtk_Range_default_vtrough_click (TheGtkObject, X, Y, @JumpPerc);",end;
|
|
Count=3
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Param=JumpPerc
|
|
PascalType=gfloat
|
|
ParamType=Var
|
|
Prop=defaultHMotion
|
|
PropType=Procedure
|
|
GtkName=default_hmotion
|
|
Count=2
|
|
Param=XDelta
|
|
PascalType=integer
|
|
Param=YDelta
|
|
PascalType=integer
|
|
Prop=defaultVMotion
|
|
PropType=Procedure
|
|
GtkName=default_vmotion
|
|
Count=2
|
|
Param=XDelta
|
|
PascalType=integer
|
|
Param=YDelta
|
|
PascalType=integer
|
|
Prop=ClearBackground
|
|
PropType=Procedure
|
|
GtkName=clear_background
|
|
Count=0
|
|
Object=Scale
|
|
Inherit=Range
|
|
GtkFuncName=scale
|
|
Count=3
|
|
Prop=SetDigits
|
|
PropType=Procedure
|
|
GtkName=set_digits
|
|
ReadFuncType=ObjField
|
|
Count=1
|
|
Param=TheValue
|
|
PascalType=integer
|
|
Prop=DrawValue
|
|
PropType=Property
|
|
PascalType=boolean
|
|
GtkName=draw_value
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=draw_value
|
|
WriteConvert
|
|
Count=0
|
|
Prop=ValuePos
|
|
PropType=Property
|
|
PascalType=TGtkPositionType
|
|
GtkName=value_pos
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=value_pos
|
|
Count=0
|
|
Object=HScale
|
|
Inherit=Scale
|
|
GtkFuncName=hscale
|
|
CreateParams=nil
|
|
CreateObject
|
|
Count=0
|
|
Object=VScale
|
|
Inherit=Scale
|
|
GtkFuncName=vscale
|
|
CreateParams=nil
|
|
CreateObject
|
|
Count=0
|
|
Object=Scrollbar
|
|
Inherit=Range
|
|
GtkFuncName=Scrollbar
|
|
Count=0
|
|
Object=HScrollbar
|
|
Inherit=Scrollbar
|
|
GtkFuncName=hscrollbar
|
|
Count=1
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var a : PgtkAdjustment;",begin," if assigned (FAdj) then"," a := FAdj.TheGtkObject"," else"," a := null;"," FGtkObject := PgtkObject (gtk_hscrollbar_new (a));"," FAdj := nil;",end;
|
|
Override
|
|
Count=0
|
|
Object=VScrollbar
|
|
Inherit=Scrollbar
|
|
Count=1
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code="var a : PgtkAdjustment;",begin," if assigned (FAdj) then"," a := FAdj.TheGtkObject"," else"," a := null;"," FGtkObject := PgtkObject (gtk_vscrollbar_new (a));"," FAdj := nil;",end;
|
|
Override
|
|
Count=0
|
|
Object=Separator
|
|
Inherit=Widget
|
|
GtkFuncName=Separator
|
|
Count=0
|
|
Object=HSeparator
|
|
Inherit=Separator
|
|
GtkFuncName=HSeparator
|
|
CreateObject
|
|
Count=0
|
|
Object=VSeparator
|
|
Inherit=Separator
|
|
GtkFuncName=VSeparator
|
|
CreateObject
|
|
Count=0
|
|
Object=Preview
|
|
Inherit=Widget
|
|
GtkFuncName=preview
|
|
CreateParams=GTK_PREVIEW_COLOR
|
|
CreateObject
|
|
Count=6
|
|
Prop=Size
|
|
PropType=Procedure
|
|
GtkName=size
|
|
Count=2
|
|
Param=aWidth
|
|
PascalType=integer
|
|
Param=aHeight
|
|
PascalType=integer
|
|
Prop=Put
|
|
PropType=Procedure
|
|
GtkName=put
|
|
Count=8
|
|
Param=aWindow
|
|
PascalType=PGdkWindow
|
|
Param=gc
|
|
PascalType=PGdkGC
|
|
Param=SrcX
|
|
PascalType=integer
|
|
Param=SrcY
|
|
PascalType=integer
|
|
Param=destX
|
|
PascalType=integer
|
|
Param=DestY
|
|
PascalType=integer
|
|
Param=aWidth
|
|
PascalType=integer
|
|
Param=aHeight
|
|
PascalType=integer
|
|
Prop=DrawRow
|
|
PropType=Procedure
|
|
GtkName=draw_row
|
|
Count=4
|
|
Param=data
|
|
PascalType=pguchar
|
|
Param=X
|
|
PascalType=integer
|
|
Param=Y
|
|
PascalType=integer
|
|
Param=W
|
|
PascalType=integer
|
|
Prop=SetGamma
|
|
PropType=HelperProc
|
|
Code=begin," gtk_preview_set_gamma (aGamma);",end;
|
|
Count=1
|
|
Param=aGamma
|
|
PascalType=double
|
|
Prop=Expand
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=expand
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=expand
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Dither
|
|
PropType=Property
|
|
PascalType=TGdkRgbDither
|
|
GtkName=dither
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=dither
|
|
Count=0
|
|
Object=Progress
|
|
Inherit=Widget
|
|
GtkFuncName=progress
|
|
Count=13
|
|
Prop=Showtext
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=show_text
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=show_text
|
|
WriteConvert
|
|
Count=0
|
|
Prop=TextXAlign
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=x_align
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_progress_set_text_alignment (TheGtkObject, TheValue, TextYAlign);",end;
|
|
Count=0
|
|
Prop=TextYAlign
|
|
PropType=Property
|
|
PascalType=gfloat
|
|
GtkName=y_align
|
|
ReadFuncType=ObjField
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_progress_set_text_alignment (TheGtkObject, TextXAlign, TheValue);",end;
|
|
Count=0
|
|
Prop=SetTextAlignment
|
|
PropType=Procedure
|
|
GtkName=set_text_alignment
|
|
Count=2
|
|
Param=anXalign
|
|
PascalType=gfloat
|
|
Param=anYAlign
|
|
PascalType=gfloat
|
|
Prop=CurrentValue
|
|
PropType=Property
|
|
PascalType=float
|
|
GtkName=Value
|
|
WriteProcType=Proc
|
|
WriteCode=begin," gtk_progress_Set_value (TheGtkObject, TheValue);"," Draw (nil);",end;
|
|
Count=0
|
|
Prop=Percentage
|
|
PropType=Property
|
|
PascalType=float
|
|
GtkName=current_percentage
|
|
WriteGtkName=percentage
|
|
Count=0
|
|
Prop=PercentageFromValue
|
|
PropType=Function
|
|
PascalType=gfloat
|
|
GtkName=get_percentage_from_value
|
|
Count=1
|
|
Param=aValue
|
|
PascalType=gfloat
|
|
Prop=FormatString
|
|
PropType=Property
|
|
PascalType=string
|
|
GtkName=format
|
|
ReadConvert
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=format_string
|
|
WriteConvert
|
|
Count=0
|
|
Prop=Adjustment
|
|
PropType=Property
|
|
PascalType=TFPgtkAdjustment
|
|
Code=begin," result := GetPascalInstance (PGtkObject(TheGtkObject^.adjustment), TFPgtkAdjustment) as TFPgtkAdjustment;",end;
|
|
ReadFuncType=Proc
|
|
WriteGtkName=adjustment
|
|
WriteConvert
|
|
Count=0
|
|
Prop=ActivityMode
|
|
PropType=Property
|
|
PascalType=longbool
|
|
GtkName=activity_mode
|
|
ReadConvert
|
|
ReadFuncType=ObjFunc
|
|
WriteGtkName=activity_mode
|
|
WriteConvert
|
|
Count=0
|
|
Prop=CurrentText
|
|
PropType=Function
|
|
PascalType=string
|
|
GtkName=get_current_text
|
|
Count=0
|
|
Prop=TextFromValue
|
|
PropType=Function
|
|
PascalType=string
|
|
GtkName=get_text_from_value
|
|
Count=1
|
|
Param=aValue
|
|
PascalType=gfloat
|
|
Prop=Configure
|
|
PropType=Procedure
|
|
GtkName=configure
|
|
Count=3
|
|
Param=aValue
|
|
PascalType=gfloat
|
|
Param=aMin
|
|
PascalType=gfloat
|
|
Param=aMax
|
|
PascalType=gfloat
|
|
Object=ProgressBar
|
|
Inherit=Progress
|
|
GtkFuncName=progress_bar
|
|
Count=8
|
|
Prop=Create
|
|
PropType=Constructor
|
|
Code=begin," FAdj := adj;"," inherited create;",end;
|
|
Count=1
|
|
Param=adj
|
|
PascalType=TFPgtkAdjustment
|
|
Prop=CreateGtkObject
|
|
PropType=Procedure
|
|
Section=Protected
|
|
Code=begin," if assigned (FAdj) then"," TheGtkWidget := gtk_progress_bar_new_with_adjustment (FAdj.TheGtkObject)"," else"," TheGtkWidget := gtk_progress_bar_new;",end;
|
|
Override
|
|
Count=0
|
|
Prop=FAdj
|
|
PropType=Field
|
|
Section=Private
|
|
PascalType=TFPgtkAdjustment
|
|
Count=0
|
|
Prop=BarStyle
|
|
PropType=Property
|
|
PascalType=TGtkProgressBarStyle
|
|
GtkName=bar_style
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=bar_style
|
|
Count=0
|
|
Prop=DiscreteBlocks
|
|
PropType=Property
|
|
PascalType=longword
|
|
GtkName=blocks
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=discrete_blocks
|
|
Count=0
|
|
Prop=ActivityStep
|
|
PropType=Property
|
|
PascalType=longword
|
|
GtkName=activity_step
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=activity_step
|
|
Count=0
|
|
Prop=ActivityBlocks
|
|
PropType=Property
|
|
PascalType=longword
|
|
GtkName=activity_blocks
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=activity_blocks
|
|
Count=0
|
|
Prop=Orientation
|
|
PropType=Property
|
|
PascalType=TGtkProgressBarOrientation
|
|
GtkName=orientation
|
|
ReadFuncType=ObjField
|
|
WriteGtkName=orientation
|
|
Count=0
|
|
Object=ItemFactory
|
|
Inherit=Object
|
|
Count=0
|