SpecialButtons Library

[derez]

a converter program, to convert regular buttons to RectangleButtons, is added to the first post.
It simplifies the visual design - you can place regular buttons using the IDE, then convert them to RectangleButtons using the converter.
The new definitions are stored in a "buttons.txt" file.

[derez]

Version 1.6 enables vertical text to be displayed on Ellipse, Rectangle and State buttons, with SetVertical method added.

Edit: Forgot about autoscale in the vertical buttons. Corrected in 1.61.

[Sir Isaac]

I wonder if the cs file (of some 100 kB) can be split into single functional units (say, just "rounded buttons", and no more additional beauties) and distributed along with the complete lib here. This seems quite reasonable, from minimalists' viewpoint.

[pdabasic]

Hy Derez!

First of all, Thank you for this fantastic collection.

I tried to set my rectanglebutton width programaticaly:

Object("doorCrtlProp").FromControl(Rectanglebutton("lblHelloRectangle").ControlRef)
Object("doorCrtlProp").SetProperty("Width","200")

But always get an error message:
!!!Invalied property!!!

Please tell me why!

[agraham]

lblHelloRectangle.Width = 200

[pdabasic]

Thank you agraham, but I get the property name prog. too

I need it to an "skinning" module

[pdabasic]

I think this is not the sexiest way :

Select ctrlType
        Case "Fggradientbuttons"
            Object("doorCrtlProp").FromControl(Fggradientbuttons(ctrlName).ControlRef) 'Everything works fine
        Case "Rectanglebutton"
            If propName="Text" Then
                Rectanglebutton(ctrlName).Text=propVal
            Else If propName="Left" Then
                Rectanglebutton(ctrlName).Left=propVal
            Else If propName="Top" Then
                Rectanglebutton(ctrlName).Top=propVal
            Else If propName="Width" Then
                Rectanglebutton(ctrlName).Width=propVal
            Else If propName="Height" Then
                Rectanglebutton(ctrlName).Height=propVal
            Else If propName="BringToFront"
                Rectanglebutton(ctrlName).BringToFront
            Else If propName="Visible"
                Rectanglebutton(ctrlName).Visible=propVal
            End If
...

[ionutojica]

I tried to add a "ButtonDown" event, which in this library is named "MouseDown".

What am I doing wrong, so that I have this message:

Object of type 'System.EventHandler' cannot be converted to type 'System.Windows.Forms.MouseEventHandler'.

The "click" event works ok, but this one works by you?

Thank you in advance for any helpful answer.

Sub Globals
End Sub
Sub App_Start
 Form1.Show
 rb3.New1("form1","RB3",150,40,80,30,cWhite,cBlack,1)
End Sub
Sub rb3_mousedown
 Msgbox("Click")
End Sub

This one will give above mentioned error pointing the line "rb3.new1..."

[agraham]

I'm afraid it's a bug in the library. The Basic4ppc MouseDown and MouseUp events are incorrectly declared as MouseEventHandlers where they should be declared as plain EventHandlers.

The library itself has to have MouseEventHandlers to receive those events but it should pass them on to Basic4ppc as ordinary Events and not MouseEvents.

[derez]

Agraham
I understand but I don't know how to correct it.
I have event declarations under the class:

public event EventHandler Click; 
private object[] eventObject; 
public event System.Windows.Forms.MouseEventHandler MouseDown;
private object[] eventObject1;
public event System.Windows.Forms.MouseEventHandler MouseUp; 
private object[] eventObject2;

and the events :

private void gb_Click(Object sender, EventArgs e) 
{
    gb.Image = bmpup ;
    if (Click != null)
          Click(eventObject,null);
}

private void gb_MouseDown(Object sender, System.Windows.Forms.MouseEventArgs ed) 
{
    xpress =  width/2 - ed.X;
    ypress =  height/2 - ed.Y ;
    gb.Image = bmpdn ;
    if (MouseDown != null)
        MouseDown(eventObject1,null);
}

private void gb_MouseUp(Object sender, System.Windows.Forms.MouseEventArgs eu) 
{
    gb.Image = bmpup ;
    if (MouseUp != null)
        MouseUp(eventObject,null);
}

Can you show me how to correct it ?
Thanks