Hi Tehenne,
On 4 May 2006, at 02:47, Tehenne wrote:
My solution ;o( :
In the event OPEN of each pushbutton this code :
#if targetLinux
me.top=me.top-2
me.height=26
me.textSize=11
#endif
You don't need to do that for every pushbutton. Simply create a
method like this:
Sub ResizeButtons(yDiff As Integer)
dim totControls As Integer
totControls = me.controlcount-1
for i As Integer = 0 to totControls
if me.Control(i) isA PushButton then
PushButton(me.Control(i)).Height = PushButton(me.Control
(i)).Height + yDiff
PushButton(me.Control(i)).Top = PushButton(me.Control(i)).Top
- yDiff
end if
next
End Sub
...where the function resides inside the window - hence calling "me".
you could of course replace "me" with Window(0) or whatever.
I hope that helps.
All the best,
Mark.
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
