New class Sticky Label BETA TEST

[Silvio]

I'm creating a new class : Sticky Label

this is a beta screenshot with a Sticky Label Get and a normal get







I create the possibilty to have the old clipper get type :

x,y say "test"
READ





Any suggestions ?

[Willi Quintana]

Hi Silvio...
where are the sources for testing ?

Salu2

[Silvio]

When I finished ....perhaps!!!

Now run ok but I must create also something

It run as the old GET.. READ of our old clipper

[Silvio]

First Test

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Stiky.ch"



Function TEST()
Local oDlgStick, oSAY[6] ,oGet[6]
LOCAL oBMP
local  oBtn, oBtn2


Local cCustomerId :=0
Local cCustomername :=SPACE(20)
Local cCustomersurname :=SPACE(20)


 STYKLABEL BEGIN TITLE "TEST STICK LABEL"  SIZE 400,400 NAME oDlgStick PIXEL  COLOR CLR_BLACK , CLR_WHITE

    @ 0, 15  BITMAP oBMP   FILENAME "PHOTO.BMP"  NOBORDER  SIZE 100,100  OF oDlgStick


    @ 3,5    STYKLABELSAY  oSAY[1]  PROMPT "Customer Id"  SIZE 60, 12  COLOR  CLR_RED
    @ 3,45   STYKLABELGET  oGet[1]  VAR cCustomerId    SIZE 10,10 COLOR CLR_BLUE


   @ 18,5    STYKLABELSAY  oSAY[2]   PROMPT "First Name"  SIZE 100, 12 COLOR  CLR_BLUE
   @ 18,45   STYKLABELGET  oGet[2]   VAR cCustomername   SIZE 55,10 COLOR CLR_BLUE


    @ 33,5    STYKLABELSAY  oSAY[3]   PROMPT "Last Name"  SIZE 100, 12 COLOR  CLR_YELLOW
    @ 33,45   STYKLABELGET  oGet[3]   VAR cCustomersurname   SIZE 55,10 COLOR CLR_BLUE



    @ 140, 5  STYKLABELBUTTON oBtn  PROMPT "&Yes"   SIZE  60,10  ACTION NIL
    @ 140, 85  STYKLABELBUTTON oBtn2  PROMPT "&NO"   SIZE  60,10  ACTION NIL

   STYKLABELREAD



   return nil

this run as @ x,y say get ( read) of old clipper return to confirm each get



the stiky Beta lib http://www.mediafire.com/download.php?imqjrqfgoyi







you can use this control

SAY ===> STYKLABELSAY
GET ===> STYKLABELGET
BUTTON ===> STYKLABELBUTTON
CHECKBOX ===> STYKLABELCHECKBOX
COMBOBOX ===> STYKLABELCOMBOBOX OR STYKLABELDBCOMBOBOX
RADIOBUTTONS ===> STYKLABELRADIO


FOR FIRST BETA I NOT INSERT THE BMP ON STIKYLABEL