Hi,
How to paint 3D tget to 2D? Only the text box shows? like XP themes, But not the XP themes mode, for #ifdef FLAT
1 24 "./WindowsXP.Manifest"

endif

do not support 2 bytes Chinese words.

Thanks !
Shuming Wang

Please try
GET ... NOBORDER
or
oGet:lNoBorder := .t.

I normally use

oGet:lNoBorder := .not. ( IsAppThemed() .and. IsThemeActive() )

Message not found: TGET:_LNOBORDER,neither control.prg,windows.prg

You modifyed tget.prg ?

Thanks!
Shuming Wang

Yes, I am sorry.

In a nonthemed application, we get a flat effect by using NOBORDER clause. In a thremed application, we get a single line border without using NOBORDER clause.

Earlier I was doing like this.
define GET in the normal way ( without using NOBORDER )
Then
if the application is not themed /
oGet:nStyle -= WS_BORDER
endif

NageswaraRao, G. ,
But the border is needed, only want shows 2D border ,like XP themes mode.
Regards!
Shuming Wang

Shuming,

I don't know if this will do it, but try:

set3dLook( .f. )

James

James Bott,
Do not work either.
Shuming Wang

Hi,
To change redefine get no border, must change the dialog resource (.rc) ? Could change tget.prg to reach the same no border result ?
Also,how to paint the text at center of textbox in Vertical ? the paint method only paint at lost focus time.

Thanks!
Shuming Wang

flat style border
by Linares
How can I create a get with flat style border

http://fwcodesnips.com/

Regards,
Otto

Otto,
I looked, but what about redefine get xx id 101 of odlg ?
Must rewrite resource in .rc ?
Thanks!
Shuming Wang

Mr Otto

Your codesnips.com is very useful. Wish we can run ur program on ur website itself.