Eigenschaften, Methoden und Ereignisse des Symbolleisten-Objekts

Artikel
04/01/2008

Eigenschaften

ActiveControl	Application	BackColor
BaseClass	Caption	Class
ClassLibrary	Comment	ColorSource
ControlBox	ControlCount	Controls
DataSession	DataSessionID	Docked
DockPosition	Enabled	ForeColor
Height	HelpContextID	KeyPreview
Left	LockScreen	MouseIcon
MousePointer	Movable	Name
Objects	OLEDragMode	OLEDragPicture
OLEDropEffects	OLEDropHasData	OLEDropMode
Parent	ParentClass	ScaleMode
ShowTips	ShowWindow	Sizable
Tag	Top	Visible
WhatsThisHelpID	Width

Ereignisse

Activate	AfterDock	BeforeDock
Click	DblClick	Deactivate
Destroy	DragDrop	DragOver
Error	Init	MiddleClick
MouseDown	MouseMove	MouseUp
MouseWheel	Moved	OLECompleteDrag
OLEDragDrop	OLEDragOver	OLEGiveFeedBack
OLESetData	OLEStartDrag	Paint
Resize	RightClick	UnDock

Methoden

AddObject	AddProperty	CloneObject
Dock	Hide	Move
NewObject	OLEDrag	ReadExpression
ReadMethod	Refresh	Release
RemoveObject	ResetToDefault	SaveAsClass
SetAll	Show	ShowWhatsThis
WriteExpression-Methode	ZOrder

Beispiel

Das folgende Beispiel zeigt, wie Sie eine Symbolleiste aus der Symbolleistenklasse erzeugen können. Visual FoxPro ordnet die Schaltflächen neu an, wenn sich die Größe der Symbolleiste ändert. Wenn das Symbolleisten-Objekt erzeugt wird, ordnet Visual FoxPro die Steuerelemente automatisch von links nach rechts in der Reihenfolge an, in der sie der Klassendefinition hinzugefügt werden, wobei die Top- und Left-Eigenschaften der Steuerelemente ignoriert werden.

PUBLIC tbrDesktop
tbrDesktop = CREATEOBJ('mytoolbar')
tbrDesktop.SHOW

DEFINE CLASS myToolBar  AS Toolbar
   ADD OBJECT btnBold  AS CommandButton
   ADD OBJECT sep1      AS Separator
   ADD OBJECT btnItalics AS CommandButton
   
   btnBold.HEIGHT = 20
   btnBold.WIDTH = 50
   btnBold.Caption = "Bold"
   btnItalics.HEIGHT = 20
   btnItalics.WIDTH = 50
   btnItalics.Caption = "Italic"
   btnItalics.FontBold = .F.
   
   LEFT   = 1
   TOP = 1
   WIDTH = 25

   CAPTION = "Desktop Attributes"
   
   PROCEDURE Activate 
   this.btnBold.FontBold = _SCREEN.FONTBOLD
   this.btnItalics.FontItalic = _SCREEN.FONTITALIC
   ENDPROC
   
   PROCEDURE btnBold.CLICK
   _SCREEN.FONTBOLD = !_SCREEN.FONTBOLD
   This.FontBold =_SCREEN.FONTBOLD
   ENDPROC
   
   PROCEDURE btnItalics.CLICK
   _SCREEN.FONTITALIC = !_SCREEN.FONTITALIC
   This.FontItalic = _SCREEN.FONTITALIC
   ENDPROC
ENDDEFINE

Siehe auch

Freigeben über