Q5/ws_objects/Ew_publ903.pbl.src/uo_angle.sru

$PBExportHeader$uo_angle.sru
forward
global type uo_angle from UserObject
end type
type ln_2 from line within uo_angle
end type
type ln_4 from line within uo_angle
end type
type ln_1 from line within uo_angle
end type
type ln_3 from line within uo_angle
end type
end forward

global type uo_angle from UserObject
int Width=32
int Height=16
long BackColor=12632256
long PictureMaskColor=536870912
long TabTextColor=33554432
long TabBackColor=67108864
ln_2 ln_2
ln_4 ln_4
ln_1 ln_1
ln_3 ln_3
end type
global uo_angle uo_angle

forward prototypes
public subroutine of_setenabled (boolean ab_enabled)
end prototypes

public subroutine of_setenabled (boolean ab_enabled);//====================================================================
// Function - of_setenabled for uo_angle
//--------------------------------------------------------------------
// Description:	draw black (enabled) triangle or gray (disabled) 
//						triangle for the toolbottom which has child menu.
//--------------------------------------------------------------------
// Arguments:	
//
//	boolean ab_enabled
//		<description>
//--------------------------------------------------------------------
// Returns:	(None) 
//--------------------------------------------------------------------
// Author:	Brave_QQ		Date: December, 2002
//====================================================================

IF	ab_enabled	THEN
	ln_1.linecolor	=	0
	ln_2.linecolor	=	0
	ln_3.linecolor	=	0
	ln_4.linecolor	=	0
ELSE
	ln_1.linecolor	=	16777215	//白色
	ln_2.linecolor	=	0			//黑色
	ln_3.linecolor	=	10789024	//中灰
	ln_4.linecolor	=	10789024
END	IF
end subroutine

on uo_angle.create
this.ln_2=create ln_2
this.ln_4=create ln_4
this.ln_1=create ln_1
this.ln_3=create ln_3
this.Control[]={this.ln_2,&
this.ln_4,&
this.ln_1,&
this.ln_3}
end on

on uo_angle.destroy
destroy(this.ln_2)
destroy(this.ln_4)
destroy(this.ln_1)
destroy(this.ln_3)
end on

type ln_2 from line within uo_angle
boolean Enabled=false
int EndX=27
int LineThickness=4
end type

type ln_4 from line within uo_angle
boolean Enabled=false
int BeginX=9
int BeginY=8
int EndX=18
int EndY=8
int LineThickness=4
long LineColor=10789024
end type

type ln_1 from line within uo_angle
boolean Enabled=false
int BeginX=14
int BeginY=12
int EndX=32
int EndY=-4
int LineThickness=4
long LineColor=16777215
end type

type ln_3 from line within uo_angle
boolean Enabled=false
int BeginX=5
int BeginY=4
int EndX=23
int EndY=4
int LineThickness=4
long LineColor=10789024
end type