OpenEuphoria

Re: Buttons in VEL

• Posted by Ad Rienks <kwibus at ZONNET.NL> Dec 04, 1999
• 653 views

Hi Mark,

The following code worked partially for me. Only problem is the ClickEvent
is not always captured. Strange!
Does anyone have a suggestion?

Ad

--Tested code follows:

without warning

include vel005.e

constant Form1 = CreateControl(FORM,0)
SetAttribute(Form1,{{CAPTION, "Form"},{CENTERFORM,TRUE}})

constant Button1 = CreateControl(BUTTON, Form1)
SetAttribute(Button1, {{TOP, 50}, {LEFT,200}, {HEIGHT, 50}, {DEFAULTBTN,
TRUE}})

constant Static1 = CreateControl(STATIC, Button1)
SetAttribute(Static1, {{TOP, 10}, {LEFT, 25}, {CAPTION, "Click"}})

constant Static2 = CreateControl(STATIC, Button1)
SetAttribute(Static2, {{TOP, 25}, {LEFT, 25}, {CAPTION, "Here"}})

procedure Button1_OnClick(integer id, atom p, atom q)
    ShowMsg({"Clicked"})
end procedure

SetEvent(Button1, CLICK_EVENT, routine_id("Button1_OnClick"))

ShowForm(Form1,MODAL)

--End of Tested Code
----- Oorspronkelijk bericht -----
Van: Liquid-Nitrogen Software <nitrogen_069 at HOTMAIL.COM>
Aan: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Verzonden: zaterdag 4 december 1999 8:36
Onderwerp: Buttons in VEL


> Hey, I'm trying to make some buttons which can have more than one line of
> text on them. I try to put new line characters in the caption, but it
doesnt
> work. I tried sticking static labels on the buttons. didn't work.
>
> I'm think i remember VB can do multi line buttons. any ideas how to do it
in
> VEL???
>
> Thanks,
>     Mark.