Does this help? It allows you to place the picture in any position, not just
centred.
Dave
************
* Start of Code
*
PUBLIC oform1
oform1=CREATEOBJECT("form1")
oform1.ADDOBJECT("cmdbutton","cmdbutton")
oform1.SHOW
RETURN
DEFINE CLASS form1 AS FORM
DOCREATE = .T.
CAPTION = "Form1"
NAME = "Form1"
ENDDEFINE
DEFINE CLASS cmdButton AS OLECONTROL
PROCEDURE INIT
WITH THIS
.pictureposition = 1 &&Change This
.PICTURE = LOADPICTURE(HOME() +
"graphics\bitmaps\offctlbr\small\color\open.bmp")
.OBJECT.BACKCOLOR = RGB(255,255,255)
.CAPTION = "Open me!"
ENDWITH
ENDPROC
OLECLASS = "forms.commandbutton.1"
VISIBLE = .T.
HEIGHT =40
TOP = 100
LEFT = 125
AUTOSIZE = .T.
PROCEDURE CLICK
=GETDIR("","Locate application:", "Browse for File or Folder",16464)
ENDPROC
ENDDEFINE
*
* End of Code
******************
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of
Michael Savage
Sent: 11 January 2012 01:53
To: ProFox Email List
Subject: Someone, somewhere develop a command buttons class that held the
picture in one of its properties.
Does anybody remember who, and where I could get it?
TIA,
Mike
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
