Touchscreen For Restaurant Project (Login Form)

-
Today i wanna share how to make a touchscreen using Visual Foxpro
























Here The Code :
**************************************************
*-- Form:         form1 (alpha_key.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   08/11/15 08:41:06 AM
*
DEFINE CLASS form1 AS form


Height = 238
Width = 675
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Form1"
TitleBar = 0
Name = "Form1"


ADD OBJECT command1 AS commandbutton WITH ;
Top = 62, ;
Left = 1, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "Q", ;
TabStop = .F., ;
Alignment = 2, ;
Name = "Command1"


ADD OBJECT command2 AS commandbutton WITH ;
Top = 62, ;
Left = 62, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "W", ;
TabStop = .F., ;
Name = "Command2"


ADD OBJECT command3 AS commandbutton WITH ;
Top = 62, ;
Left = 123, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "E", ;
TabStop = .F., ;
Name = "Command3"


ADD OBJECT text2 AS textbox WITH ;
FontSize = 14, ;
Anchor = 240, ;
Height = 58, ;
Left = 2, ;
Top = 2, ;
Width = 670, ;
PasswordChar = "", ;
SelectedForeColor = RGB(255,255,255), ;
Name = "Text2"


ADD OBJECT command13 AS commandbutton WITH ;
Top = 62, ;
Left = 184, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "R", ;
TabStop = .F., ;
Name = "Command13"


ADD OBJECT command14 AS commandbutton WITH ;
Top = 62, ;
Left = 245, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "T", ;
TabStop = .F., ;
Name = "Command14"


ADD OBJECT command15 AS commandbutton WITH ;
Top = 62, ;
Left = 306, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "Y", ;
TabStop = .F., ;
Name = "Command15"


ADD OBJECT command25 AS commandbutton WITH ;
Top = 62, ;
Left = 367, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "U", ;
TabStop = .F., ;
Name = "Command25"


ADD OBJECT command26 AS commandbutton WITH ;
Top = 62, ;
Left = 428, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "I", ;
TabStop = .F., ;
Name = "Command26"


ADD OBJECT command27 AS commandbutton WITH ;
Top = 62, ;
Left = 490, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "O", ;
TabStop = .F., ;
Name = "Command27"


ADD OBJECT command4 AS commandbutton WITH ;
Top = 62, ;
Left = 551, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "P", ;
TabStop = .F., ;
Name = "Command4"


ADD OBJECT command5 AS commandbutton WITH ;
Top = 120, ;
Left = 1, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "A", ;
TabStop = .F., ;
Alignment = 2, ;
Name = "Command5"


ADD OBJECT command6 AS commandbutton WITH ;
Top = 120, ;
Left = 62, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "S", ;
TabStop = .F., ;
Name = "Command6"


ADD OBJECT command7 AS commandbutton WITH ;
Top = 120, ;
Left = 123, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "D", ;
TabStop = .F., ;
Name = "Command7"


ADD OBJECT command8 AS commandbutton WITH ;
Top = 120, ;
Left = 184, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "F", ;
TabStop = .F., ;
Name = "Command8"


ADD OBJECT command9 AS commandbutton WITH ;
Top = 120, ;
Left = 245, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "G", ;
TabStop = .F., ;
Name = "Command9"


ADD OBJECT command10 AS commandbutton WITH ;
Top = 120, ;
Left = 306, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "H", ;
TabStop = .F., ;
Name = "Command10"


ADD OBJECT command11 AS commandbutton WITH ;
Top = 120, ;
Left = 367, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "J", ;
TabStop = .F., ;
Name = "Command11"


ADD OBJECT command12 AS commandbutton WITH ;
Top = 120, ;
Left = 428, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "K", ;
TabStop = .F., ;
Name = "Command12"


ADD OBJECT command16 AS commandbutton WITH ;
Top = 120, ;
Left = 490, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "L", ;
TabStop = .F., ;
Name = "Command16"


ADD OBJECT command17 AS commandbutton WITH ;
Top = 120, ;
Left = 551, ;
Height = 55, ;
Width = 123, ;
FontBold = .T., ;
FontSize = 11, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "ENTER", ;
TabStop = .F., ;
Name = "Command17"


ADD OBJECT command18 AS commandbutton WITH ;
Top = 180, ;
Left = 0, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "Z", ;
TabStop = .F., ;
Alignment = 2, ;
Name = "Command18"


ADD OBJECT command19 AS commandbutton WITH ;
Top = 180, ;
Left = 61, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "X", ;
TabStop = .F., ;
Name = "Command19"


ADD OBJECT command20 AS commandbutton WITH ;
Top = 180, ;
Left = 122, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "C", ;
TabStop = .F., ;
Name = "Command20"


ADD OBJECT command21 AS commandbutton WITH ;
Top = 180, ;
Left = 183, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "V", ;
TabStop = .F., ;
Name = "Command21"


ADD OBJECT command22 AS commandbutton WITH ;
Top = 180, ;
Left = 244, ;
Height = 55, ;
Width = 184, ;
FontBold = .T., ;
FontSize = 11, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "SPACE", ;
TabStop = .F., ;
Name = "Command22"


ADD OBJECT command28 AS commandbutton WITH ;
Top = 180, ;
Left = 427, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "B", ;
TabStop = .F., ;
Name = "Command28"


ADD OBJECT command29 AS commandbutton WITH ;
Top = 180, ;
Left = 489, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "N", ;
TabStop = .F., ;
Name = "Command29"


ADD OBJECT command30 AS commandbutton WITH ;
Top = 180, ;
Left = 550, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 16, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "M", ;
TabStop = .F., ;
Name = "Command30"


ADD OBJECT command23 AS commandbutton WITH ;
Top = 62, ;
Left = 612, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 11, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "BKSP", ;
TabStop = .F., ;
Name = "Command23"


ADD OBJECT command24 AS commandbutton WITH ;
Top = 180, ;
Left = 612, ;
Height = 55, ;
Width = 62, ;
FontBold = .T., ;
FontSize = 11, ;
Anchor = 240, ;
WordWrap = .T., ;
Caption = "CLEAR", ;
TabStop = .F., ;
Name = "Command24"


PROCEDURE Init
PARAMETERS VALPHA
ENDPROC


PROCEDURE command1.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command2.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command3.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE text2.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF LASTKEY()=13
THISFORM.COMMAND17.Click
ENDIF

ENDPROC


PROCEDURE command13.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command14.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command15.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command25.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command26.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command27.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command4.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command5.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command6.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command7.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command8.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command9.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command10.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command11.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command12.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command16.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command17.Click
VALPHA=THISFORM.TEXT2.VALUE
THISFORM.RELEASE
ENDPROC


PROCEDURE command18.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command19.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command20.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command21.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command22.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command28.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command29.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command30.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command23.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


PROCEDURE command24.Click
DO CASE
CASE This.Caption ="BKSP"
    KEYBOARD "{BACKSPACE}" 
CASE This.Caption ="SPACE"
    KEYBOARD " "
CASE This.Caption ="CLEAR"
THISFORM.TEXT2.Value=''
OTHERWISE
    KEYBOARD This.Caption
ENDCASE

THISFORM.TEXT2.SetFocus
ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************


Comments

Post a Comment

Popular posts from this blog

(VFP) - Running Visual FoxPro on Linux

-
Running Visual FoxPro on Linux By Paul McNett (FoxTalk, March 2003) While Microsoft publicly refuses to release Visual FoxPro for alternate platforms, there's still hope for a multi-platform VFP. Using an open-source product called Wine, Paul McNett shows how we can take matters into our own hands and put the fox on Linux ourselves. Remember last century, when one of FoxPro's greatest selling points was its ability to run and deploy to not one, not two, not three, but four separate platforms? This was a powerful selling point for me when I was choosing my development environment: Even though I only ever deployed to Windows, it was reassuring to know I wouldn't be painted into a corner should a client ask about a Mac, Unix, or DOS version of my software. Contrast that to today: As new versions of Visual FoxPro emerge with their great features and fixes, I keep finding myself thinking that our situation as VFP developers is pretty dire, being limited to developing and deployi...
Read more

(VFP) - How to insert simple Progress Bar

-
************************************************** ** The following shows Records for progress bar ** ************************************************** ** Create By : Leosan ** ** Date Create : 22-12-2004 Time 08.00 am ** ** Class Name : ProgressingBar ** ** Form : ProgressingBar ** ** ParentClass : form ** ** BaseClass : form ** ** Time Stamp : 22/12/2004 08:09:04 AM ** ************************************************** DEFINE CLASS ProgressingBar AS form Height = 70 Width = 408 AutoCenter = .T. BackColor = RGB(240,240,240) BorderStyle = 3 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. AlwaysOnTop = .f. ShowWindow = 1 Name = "ProgressBar" ADD OBJECT shape1 AS shape WITH ; Curvature = 10, ; Top = 6, ; Left ...
Read more

(VFP) - How to put calendar on your vfp application

-
DEFINE CLASS form1 AS form Height = 239 Width = 286 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Calendar" MaxButton = .F. MinButton = .F. Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; AutoSize = .F., ; Top = 204, ; Left = 82, ; Height = 27, ; Width = 55, ; Caption = "\ Name = "Command1" ADD OBJECT olecontrol1 AS olecontrol WITH ; Top = 0, ; Left = -1, ; Height = 200, ; Width = 289, ; Name = "Olecontrol1" ADD OBJECT command2 AS commandbutton WITH ; AutoSize = .F., ; Top = 204, ; Left = 149, ; Height = 27, ; Width = 54, ; Caption = "\ Name = "Command2" PROCEDURE Init SET DATE BRITISH PUBLIC OCAL AS DATE THISFORM.OleControl1.OBJECT.DAY = DAY(DATETIME()) THISFORM.OleControl1.OBJECT.MONTH = MONTH(DATETIME()) THISFORM.OleControl1.OBJECT.YEAR = YEAR(DATETIME()) ENDPROC PROCEDURE command1.Click OCAL = SUBSTR(DTOC(THISFORM.OLEcontrol1.OBJECT.Va...
Read more