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