Voortaan is het mogelijkheid om een knop op een formulier te plaatsen waaraan een bitmap kan gekoppeld worden om samen met de eventuele tekst te tonen. Vanaf JoPPS 3.38 P7 is het mogelijk om meer dan 10 knoppen op een formulier te plaatsen d.m.v. eigen “result” waarde.

Daarvoor werd er een nieuw object GLYPH voorzien:

Eigenschappen:

 CANCEL (standaard gedrag ESC) 
 CAPTION (tekst op knop)
 DEFAULT (standaard gedrag ENTER)
 HEIGHT (hoogte knop)
 KIND (bitmap soort)

GLYPH_CUSTOM (custom bitmap)
GLYPH_OK (standaard OK bitmap)
GLYPH_CANCEL (standaard CANCEL bitmap)
GLYPH_HELP (standaard HELP bitmap)
GLYPH_YES (standaard YES bitmap)
GLYPH_NO (standaard NO bitmap)
GLYPH_CLOSE (standaard CLOSE bitmap)
GLYPH_ABORT (standaard ABORT bitmap)
GLYPH_RETRY (standaard RETRY bitmap)
GLYPH_IGNORE (standaard IGNORE bitmap)
GLYPH_ALL (standaard ALL bitmap)

 LAYOUT (Bitmap layout)

 GLYPH_LEFT (bitmap links van tekst)
 GLYPH_RIGHT (bitmap rechts van tekst)
 GLYPH_TOP (bitmap boven tekst)
 GLYPH_BOTTOM (bitmap onder tekst)

WIDTH (breedte knop)

 X (breedte positie knop)
 Y (hoogte positie knop)

Methodes:

 LOAD (laden bitmap vanaf bestand)
 SAVE (bewaren bitmap naar bestand)

Argumenten voor het creëren (=CREATE)van het object:

OWNER (eigenaar knop is dialoog) (*)
RESULT (resultaat waarde knop) (*)
CAPTION (tekst knop) (*)
X (positie X knop)  
Y (positie Y knop)  
WIDTH (breedte knop)   
HEIGHT (hoogte knop)   
KIND (bitmap type is standaard custom)
LAYOUT (bitmap positie is standaard links)

(*) deze argumenten zijn verplicht!

Nieuw vanaf JoPPS 3.38 P7

Bij het BUTTON en GLYPH object is het nu mogelijk een eigen “result” waarde toe te kennen, bijvoorbeeld “999” (zie onderstaande screenshots):

Voorbeeld script:

 /* -------------------------------------------------- */
/* Example Buttons.jss                                */
/* Example for default button actions in scripting    */
/* and new form objects RADIOBOX and CHECKLIST.       */
/*                                                    */
/* TechWIN Software BVBA 2013 (c) - Gunter Selleslagh */
/* -------------------------------------------------- */

/* change form default appearance */
FORMSETTINGS.FONT.BOLD := False;
FORMSETTINGS.FONT.ITALIC := False;
FORMSETTINGS.FONT.FACENAME := 'Verdana';
FORMSETTINGS.FONT.HEIGHT := 20;

/* create form */
/* arguments: title, width, height, sizeable */
frm := FORM.Create('Button sample',640,600,True);

/* create label */
/* arguments: owner, caption, x position, y position, width, height, kind, length */
lbl := LABEL.Create(frm,'Label sample',10,10,frm.ClientWidth-10,25);

/* create editbox */
/* arguments: owner, x position, y position, width, height, kind, length */
/* kinds: EDITBOX_STRING, EDITBOX_LOWER, EDITBOX_UPPER, EDITBOX_INTEGER, EDITBOX_DOUBLE */
/* ranges: property LOW and HIGH */
ed1 := EDITBOX.Create(frm,10,lbl.Y+lbl.Height+10,frm.ClientWidth-10,25,EDITBOX_STRING);
ed1.Value := "Editbox sample 1";
ed2 := EDITBOX.Create(frm,10,ed1.Y+ed1.Height+10,frm.ClientWidth-10,25,EDITBOX_STRING);
ed2.Value := "Editbox sample 2";

/* create radiobox */
/* arguments: owner, caption, x position, y position, width, height, items */
rbb := RADIOBOX.Create(frm,'Radio box sample',10,ed2.Y+ed2.Height+10,frm.ClientWidth-10,100);
rbb.Add('Option A');
rbb.Add('Option B');
rbb.Add('Option C');
rbb.ItemIndex := 2;

/* create checklist */
/* arguments: owner, x position, y position, width, height, data */
clb := CHECKLIST.Create(frm,10,rbb.Y+rbb.Height+10,frm.ClientWidth-10,75);
clb.Add('Supplement 1');
clb.Add('Supplement 2');
clb.Add('Supplement 3');
clb.ItemIndex := 1;
clb.State[0] := CB_UNCHECKED;
clb.Checked[1] := True;
clb.Enabled[2] := False;

/* create buttons */
/* arguments: owner, result, caption, x position, y position, width, height */
/* actions: property DEFAULT and CANCEL */
bt1 := BUTTON.Create(frm,BUTTON_OK,'Ok',10,clb.Y+clb.Height+10,frm.ClientWidth-10,30);
bt1.Default := True; /* this button is executed if ENTER key pressed on form */
bt2 := BUTTON.Create(frm,BUTTON_CANCEL,'Cancel',10,bt1.Y+bt1.Height+10,frm.ClientWidth-10,30);
bt2.Cancel  := True; /* this button is executed if ESC key pressed on form */
bt3 := GLYPH.Create(frm,BUTTON_IGNORE,'Caption',10,bt2.Y+bt2.Height+10,frm.ClientWidth-10,125,GLYPH_CUSTOM,GLYPH_RIGHT);
bt3.Load('D:\J\BMP\ADDLIC_GROOT.BMP');

/* show form */
res := frm.Display();
if (res = BUTTON_OK) then
{
  /* show choices */
  ShowMessage('Ok button pressed, ' + rbb.Items[rbb.ItemIndex] + ' and ' + clb.Items[clb.ItemIndex] + ' selected');
  i := 0; j := clb.Count;
  while (i < j) do
  {
    if clb.Checked[i] then
    {
      ShowMessage('Item <' + clb.Items[i] + '> checked!');
    }
    else
    {
      ShowMessage('Item <' + clb.Items[i] + '> not checked!');
    };
    i := i + 1;
  };
}
else if (res = BUTTON_CANCEL) then
{
  ShowMessage('Cancel button pressed');
}
else
{
  ShowMessage('Result = ' + IntToStr(res));
};

/* free objects */
bt1.Free();
bt2.Free();
bt3.Free();
ed1.Free();
ed2.Free();
rbb.Free();
clb.Free();
lbl.Free();
frm.Free();

 << Terug