$PBExportHeader$st_transparent_rgbborder.sru
forward
global type st_transparent_rgbborder from statictext
end type
type a from structure within st_transparent_rgbborder
end type
type point from structure within st_transparent_rgbborder
end type
type rect from structure within st_transparent_rgbborder
end type
end forward

type point from structure
	long		cx
	long		cy
end type

type rect from structure
	long		left
	long		top
	long		right
	long		bottom
end type

global type st_transparent_rgbborder from statictext
integer width =  197 
integer height =  60 
integer textsize = - 8 
integer weight =  400 
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor =  33554432 
long backcolor =  67108864 
boolean enabled = false
boolean focusrectangle = false
boolean disabledlook = true
event paint pbm_paint
end type
global st_transparent_rgbborder st_transparent_rgbborder

type prototypes
Function ulong SelectObject(ulong hdc, ulong hWnd) Library "GDI32.DLL"
Function int SetBkMode(ulong hdcr, integer mode) Library "GDI32.DLL"
Function BOOLEAN GetClientRect(ulong hWnd,  REF Rect rect) library "user32.dll"
FUNCTION ulong  CreatePen ( uint nPenStyle, uint nWidth, long crColor )Library "GDI32.DLL"
Function BOOLEAN DeleteObject(ulong hdc) Library "GDI32.DLL"
FUNCTION long   MoveToEx ( ulong hDC, int xp, int yp, ref point lppt ) LIBRARY "GDI32.DLL"
FUNCTION int    LineTo ( ulong hDC, int xEnd, int yEnd ) LIBRARY "GDI32.DLL"
Function long ReleaseDC(ulong hWnd, ulong hdcr) Library "USER32.DLL"
Function ulong GetDC(ulong hWnd) Library "USER32.DLL"


end prototypes

type variables
public uint 	PENWIDTH =  3  
protected:
Boolean				ib_painting
end variables

event paint;/*------------------------------------------------------------------------------

 Event   :			 st_transparent_rgbborder.Paint

 Returns:         Long

 Parameters:      value Long hdc

 Copyright © 2005 DTI - Philip Salgannik

 Date Created: 1/13/2005

 Description:	pbm_paint
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/

int ctlLeft, ctlTop, ctlWidth, ctlHeight
	long result 
	long charNull, fbFontItalic, fbFontUnderLine
	ulong hpen, hOldPen, hBorderPen, lul_border_color
	ulong hBrush, hOldBrush
	long curpos
	rect rect
	ulong  hWnd,lhDC
	point lp

IF NOT IsValid (This) THEN Return  0 
IF ib_painting THEN Return  0 

ib_painting		= TRUE
This.Visible	= FALSE

DO WHILE Yield ()
LOOP

This.Visible	= TRUE

IF NOT this.border THEN	
	// Get the window handle and the device context
	hWnd = Handle ( this )
	lhDC = GetDC ( hWnd )	
	If lhDC >  0  Then 
	
	// Get the client rectangle.  That is the control minus the border, if any
		GetClientRect ( hWnd, rect )
		
		
		
		ctlLeft = rect.Left  + PENWIDTH /  2 
		ctlTop = rect.Top + PENWIDTH /  2 
		ctlWidth = rect.Right - rect.Left  - PENWIDTH /  2 
		ctlHeight = rect.Bottom - rect.Top  - PENWIDTH /  2 
		
	
		lul_border_color = this.bordercolor 
	
		// Create the  pen required	
		
		hBorderPen  = CreatePen ( 0 , PENWIDTH, lul_border_color)
		
		// Save the old pen and select the dark pen
		hOldPen = SelectObject ( lhDC, hBorderPen )
		
		// Use MoveTo and LineTo functions to draw the lines
		curPos = MoveToEx ( lhDC, ctlLeft, ctlHeight, lp )
		result = LineTo ( lhDC, ctlWidth, ctlHeight )
		result = LineTo ( lhDC, ctlWidth, ctlTop )	
		
		curPos = MoveToEx ( lhDC, ctlLeft, ctlHeight, lp )
		result = LineTo ( lhDC, ctlLeft, ctlTop )
		result = LineTo ( lhDC, ctlwidth, ctlTop )
		
		// Select the old pen and delete other pens
		hPen = SelectObject ( lhDC, hOldPen )
		//DeleteObject ( hLightPen )
		DeleteObject ( hBorderPen )
		
		// Release the Device Context and let PowerBuilder know that we handled the event
		ReleaseDC ( hWnd, lhDC )
	END IF
	
END IF



ib_painting		= FALSE
Message.Processed = True

Return  0 
end event

event constructor;This.BackColor =  2 ^ 29 
end event

on st_transparent_rgbborder.create
end on

on st_transparent_rgbborder.destroy
end on