1 TControlBasis 0 %Integer %Integer %Integer %Integer %String $LB($$$akLeft,$$$akTop) %Integer %Integer %Boolean 1 TCanvas Black,Red,Green,Yellow,Blue,Magenta,Cyan,White Empty is erving van parent 'Default' is basis instelling %String TFont %String L=Links, R=Rechts, C=Center, F=Fill %String %Boolean %String CONTROL %String %String $$$fsEdit %String $$$fmNone %Boolean 1 Oproepen wanneer enable/visible wijziging of vernietiging cmp (gaat activecontrol 'weghalen' indien deze zou behoren tot 1 %Boolean parentform en check of bovenliggende componenten visible en enabled zijn Set CanFocus=1 For Quit:((tmpCtrl=ParentForm) || 'CanFocus) Do . Set CanFocus=(tmpCtrl.Visible && tmpCtrl.Enabled) . Set tmpCtrl=tmpCtrl.Parent Quit CanFocus ]]> KillFocusOk:%Boolean Deze control heeft focus in de huidige form, maar een bovenliggend form/menu/popupmenu eist even alle aandacht aTO ClientRect: positie to frame of form waarin deze cmp staat, zoniet to volledig scherm ClientRect:%Boolean=1 %String FontSelected 1 Parent,Name,Caption,Top,Left,Height,Width,PaintVolgNr,TabVolgNr,Visible,Font,Align TControl 1 Parent,Name,Caption,Top,Left,Height,Width,PaintVolgNr,TabVolgNr,Visible,Font,Align Parent,Name,Caption,Top,Left,Height,Width,PaintVolgNr,TabVolgNr,Visible,Font,Align 1 DoelType DoelType