Border around GET

[ukoenig]

Frances

I added a Testbutton.
External SetFocus works fine and draws the Border.

dDate := Date()
@ 70, 95 DTPICKER oDate VAR dDate SIZE 50, 12 FONT oGetFont OF oDlg PIXEL
oDate:bGotFocus := {|hDC| Draw_Box( oDlg, oDate, nColorF, nSpace, nPen, 0, nStyle, nShPos ) }
oDate:bLostFocus := {|hDC| Draw_Box(oDlg, oDate, nColorL, nSpace, nPen, 0, nStyle, nShPos ) }


@ 170, 80 BTNBMP oBtn1 OF oDlg ;
SIZE 70, 25 PIXEL 2007 ;
NOBORDER ;
PROMPT "&Border " ;
FILENAME c_path + "\Bitmaps\Select.Bmp" ;
ACTION ( oDate:SetFocus(), oDate:Refresh() ) ;
FONT oGetFont ;
LEFT



Best Regards
Uwe

[fraxzi]

Dear Uwe,

I already did that.. but when redefine dialog was init.. the DatePicker has no border even if I put oDate:SetFocus() on dialog's init..

[ukoenig]

Frances,

I'm working on a Solution using RESOURCES !!!
Define Color- or brushed Border.
This Solution doesn't need Focus / Lostfocus of a Object.
( but can be used as well )
Define a Borderchange on any Action and Object You like.

I think I will Update the Tool I created and it will work on Code and Resource.
Also there will be a Brush-support, not possible with the Solution I created before.



Best Regards
Uwe

[fraxzi]

Dear Uwe,

Looking forward for the update. Thanks

[ukoenig]

Frances,

a extra Tool, only for Resources.
Realtime Tests of Colors and Brushes.
Get / Lost Focus and external color / brush - border-define is supported.

Download ( 1.3 MB ) :
http://www.pflegeplus.com/fw_downloads/resbord.zip





Best Regards
Uwe

[fraxzi]

Dear Uwe,

I downloaded and will test this weekend.. I will adapt and post feedback asap.
Thank you so much for the great efforts!

[ukoenig]

Frances

There will be still some more options.
Getting some funny effects, using a Gradient :







Best Regards
Uwe