Sybase NNTP forums - End Of Life (EOL)

The NNTP forums from Sybase - forums.sybase.com - are now closed.

All new questions should be directed to the appropriate forum at the SAP Community Network (SCN).

Individual products have links to the respective forums on SCN, or you can go to SCN and search for your product in the search box (upper right corner) to find your specific developer center.

buttons styles

2 posts in Objects Last posting was on 2004-05-21 14:52:30.0Z
Anderson Calos Parucker Posted on 2004-05-21 11:47:09.0Z
From: "Anderson Calos Parucker" <anderson.parucker@bol.com.br>
Newsgroups: sybase.public.powerbuilder.objects
Subject: buttons styles
Lines: 6
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1409
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409
X-Original-NNTP-Posting-Host: 200-102-053-027.jvece7003.e.brasiltelecom.net.br
Message-ID: <40adec52$1@forums-2-dub>
X-Original-Trace: 21 May 2004 04:47:30 -0700, 200-102-053-027.jvece7003.e.brasiltelecom.net.br
X-Original-NNTP-Posting-Host: forums-2-dub.sybase.com
X-Original-Trace: 21 May 2004 04:46:29 -0700, forums-2-dub.sybase.com
NNTP-Posting-Host: forums-master.sybase.com
X-Original-NNTP-Posting-Host: forums-master.sybase.com
Date: 21 May 2004 04:47:09 -0700
X-Trace: forums-1-dub 1085140029 10.22.108.75 (21 May 2004 04:47:09 -0700)
X-Original-Trace: 21 May 2004 04:47:09 -0700, forums-master.sybase.com
X-Authenticated-User: ngsysop
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.powerbuilder.objects:7902
Article PK: 735175

how to create a flat style or a single 3d border button??


acp


Philip Salgannik Posted on 2004-05-21 14:52:30.0Z
Sender: 35bf.40ad48ac.1804289383@sybase.com
From: Philip Salgannik
Newsgroups: sybase.public.powerbuilder.objects
Subject: Re: buttons styles
X-Mailer: WebNews to Mail Gateway v1.1t
Message-ID: <40ae17c4.3d58.1681692777@sybase.com>
References: <40adec52$1@forums-2-dub>
X-Original-NNTP-Posting-Host: 10.22.241.42
X-Original-Trace: 21 May 2004 07:52:52 -0700, 10.22.241.42
Lines: 55
X-Original-NNTP-Posting-Host: forums-2-dub.sybase.com
X-Original-Trace: 21 May 2004 07:51:50 -0700, forums-2-dub.sybase.com
NNTP-Posting-Host: forums-master.sybase.com
X-Original-NNTP-Posting-Host: forums-master.sybase.com
Date: 21 May 2004 07:52:30 -0700
X-Trace: forums-1-dub 1085151150 10.22.108.75 (21 May 2004 07:52:30 -0700)
X-Original-Trace: 21 May 2004 07:52:30 -0700, forums-master.sybase.com
X-Authenticated-User: ngsysop
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.powerbuilder.objects:7903
Article PK: 735172

> how to create a flat style or a single 3d border button??


Here is a FLAT button:

$PBExportHeader$u_cbflat.sru
forward
global type u_cbflat from commandbutton
end type
end forward

global type u_cbflat from commandbutton
integer width = 402
integer height = 112
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "Flat?"
end type
global u_cbflat u_cbflat

type prototypes
Function long GetWindowLongA (long hWindow, integer nIndex)
Library
"user32.dll"
Function long SetWindowLongA (long hWindow, integer nIndex,
long dwNewLong)
Library "user32.dll"

end prototypes

type variables
CONSTANT LONG BS_FLAT = 32768
CONSTANT int GWL_STYLE = -16

end variables

on u_cbflat.create
end on

on u_cbflat.destroy
end on

event constructor;ulong ll_style
ll_style = GetWindowLongA(handle(this), GWL_STYLE)

IF ll_style <> 0 THEN
SetWindowLongA(handle(this), GWL_STYLE, ll_style +
BS_FLAT)
END IF

end event