**Dian S 2005
**di kamar peraduan bersama compaq presario
LOCAL odForm as Form

odForm=CREATEOBJECT('DianS')
odForm.Show(1)
RETURN 

DEFINE CLASS DianS as Form 
left =1
top =1
autocenter=.f.
height=180
width=400
Caption="DianS 2005"

ADD OBJECT teks as label WITH ;
Top=10,;
Left=50,;
Autosize=.t.,;
Caption="Dian Sastro Fox ID Fans Club"

PROCEDURE init
SET TALK OFF
SET MULTILOCKS ON 
CLEAR
CLOSE ALL 
ON ERROR return 
ENDPROC

PROCEDURE activate 
PUBLIC tbrDesktop
tbrDesktop = CREATEOBJ('DianTool')
tbrDesktop.SHOW()
ENDPROC
 
PROCEDURE destroy
tbrDesktop.hide()
RELEASE tbrDesktop
ENDPROC 
ENDDEFINE

DEFINE CLASS DianTool as Toolbar
	ADD OBJECT btnBold  AS CommandButton
	ADD OBJECT sep1      AS Separator
	ADD OBJECT btnItalics AS CommandButton
	ADD OBJECT sep2      AS Separator
	ADD OBJECT btnUnder AS CommandButton
	   
	btnBold.HEIGHT = 20
	btnBold.WIDTH = 60
	btnBold.Caption = "Bold"
	
	btnItalics.HEIGHT = 20
	btnItalics.WIDTH = 60
	btnItalics.Caption = "Italic"
	btnItalics.FontBold = .F.
	btnItalics.FontItalic = .T.
	   
	btnUnder.HEIGHT = 20
	btnUnder.WIDTH = 60
	btnUnder.Caption = "Underline"
	btnUnder.FontUnderline = .T.

	LEFT   = 250
	TOP = 25
	WIDTH = 100

	CAPTION = "Dian 2005"

	PROCEDURE Activate 
		this.btnBold.FontBold = _SCREEN.FONTBOLD
		this.btnItalics.FontItalic = _SCREEN.FONTITALIC
	ENDPROC
	   
	PROCEDURE btnBold.CLICK
	   	_SCREEN.Activeform.teks.fontbold =IIF(_SCREEN.Activeform.teks.fontbold,.f.,.t.)
	ENDPROC
	   
	PROCEDURE btnItalics.CLICK
	   	_SCREEN.Activeform.teks.fontitalic =IIF(_SCREEN.Activeform.teks.fontitalic,.f.,.t.)
	ENDPROC

	PROCEDURE btnUnder.CLICK
	   	_SCREEN.Activeform.teks.fontunderline =IIF(_SCREEN.Activeform.teks.fontunderline,.f.,.t.)
	ENDPROC

	PROCEDURE destroy
		_SCREEN.Activeform.release
	ENDPROC
	
ENDDEFINE