How to paint tget 3D ->2D, except XP themes

How to paint tget 3D ->2D, except XP themes

Postby ShumingWang » Thu Jul 10, 2008 4:05 am

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
ShumingWang
 
Posts: 460
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Postby nageswaragunupudi » Thu Jul 10, 2008 4:15 am

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

I normally use

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

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10248
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Postby ShumingWang » Thu Jul 10, 2008 7:47 am

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

You modifyed tget.prg ?

Thanks!
Shuming Wang
ShumingWang
 
Posts: 460
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Postby nageswaragunupudi » Thu Jul 10, 2008 8:04 am

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
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10248
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Postby ShumingWang » Fri Jul 11, 2008 12:39 am

NageswaraRao, G. ,
But the border is needed, only want shows 2D border ,like XP themes mode.
Regards!
Shuming Wang
ShumingWang
 
Posts: 460
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Postby James Bott » Fri Jul 11, 2008 1:19 am

Shuming,

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

set3dLook( .f. )

James
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Postby ShumingWang » Fri Jul 11, 2008 6:31 am

James Bott,
Do not work either.
Shuming Wang
ShumingWang
 
Posts: 460
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Postby ShumingWang » Wed Jul 16, 2008 2:58 am

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
ShumingWang
 
Posts: 460
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Postby Otto » Wed Jul 16, 2008 3:31 am

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

http://fwcodesnips.com/

Regards,
Otto
User avatar
Otto
 
Posts: 6005
Joined: Fri Oct 07, 2005 7:07 pm

Postby ShumingWang » Wed Jul 16, 2008 4:00 am

Otto,
I looked, but what about redefine get xx id 101 of odlg ?
Must rewrite resource in .rc ?
Thanks!
Shuming Wang
ShumingWang
 
Posts: 460
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Postby nageswaragunupudi » Wed Jul 16, 2008 5:54 am

Mr Otto

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

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10248
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Postby Otto » Wed Jul 16, 2008 8:21 am

Hello NagesWaraRao,

as I do not know how to do that I thought of using snipkeeper for that:

Regards,
Otto

mark the codesnip



Image



Click on "new poject"



Image



paste the code and click on "compile"



Image




The program starts immediately



Image
User avatar
Otto
 
Posts: 6005
Joined: Fri Oct 07, 2005 7:07 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 81 guests