Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Tariq Mehmood
  Where is Tariq Mehmood?
 BAHAWALPUR
 Pakistan
 Tariq Mehmood
 To: abdul waheed
  Where is abdul waheed?
 Rahim Yar Kkhan
 Pakistan
 abdul waheed
 Tags
Subject: RE: URDU FONT
Thread ID: 50745 Message ID: 50755 # Views: 1 # Ratings: 0
Version: Visual FoxPro 5 Category: General VFP Topics
Date: Monday, September 06, 2004 6:37:02 AM         
   


Hello Dear

In your project create a program file and put the following code in it and make this prg as default

CLEAR All
CLOSE All
CLEAR
= Capslock(.T.)
= Numlock(.T.)
SET Deleted On
SET Status Off
SET Mouse On
SET Talk Off
SET Echo Off
SET Safety Off
SET Device To Screen
SET Printer Off
SET Carry Off
SET Date TO BRITISH
SET Exact On
SET Autosave On
SET Escape Off
SET Exclusive On
SET Confirm On
SET Century On
SET Hours To 24
* Date1 = Date()
SET Bell On
*----------------------------------
*SET DEFAULT TO CURDIR()
SET DEFAULT TO (sys(5)+alltrim(sys(2003)))
CLOSE ALL
CLOSE DATABASES
OPEN DATABAS CURDIR()+'TABLES\ACCOUNT' EXCLUSIVE
USE group1 IN 0
*----------------------------------
*ON KEY LABEL F11 DO CALCAL.PRG
ON KEY LABEL F10 DO FORM date.SCX

ON KEY LABEL "Ctrl+C" SYS(1500, '_MED_COPY', '_MEDIT')
ON KEY LABEL "Ctrl+X" SYS(1500, '_MED_CUT', '_MEDIT')
ON KEY LABEL "Ctrl+V" SYS(1500, '_MED_PASTE', '_MEDIT')
ON KEY LABEL "Ctrl+A" SYS(1500, '_MED_SLCTA', '_MEDIT')
ON KEY LABEL F5 RUN /N2 C:\WINDOWS\Calc.exe

SET LIBRARY TO FOXTOOLS ADDI

*SET CLOCK TO 0,67
ON KEY LABEL F11 DO FORM CLOSE
*SET PATH TO D:\ACCOUNTS
*-----------------------------------------------------------
ON ERROR DO ERRHAND WITH ;
ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
*-----------------------------------------
do form abc && name your first form here
READ EVENTS

*-----------------------------------------
PROCEDURE ERRHAND
PARAMETER MERROR, MESS, MESS1, MPROG, MLINENO
PROCEDURE ERRHAND
PARAMETER MERROR, MESS, MESS1, MPROG, MLINENO
MESSAGEBOX('Error number: ' + LTRIM(STR(MERROR)) + CHR(13) + ;
'ERROR MESSAGE: ' + MESS + CHR(13) + ;
'LINE OF CODE WITH ERROR: ' + MESS1 + CHR(13) + ;
'LINE NUMBER OF ERROR: ' + LTRIM(STR(MLINENO)) + CHR(13) + ;
'PROGRAM WITH ERROR: ' + MPROG, ;
48, 'Ginning Accounting System')
*-----------------------------------------
After this make exe from this prg.

I hope this will help
Wish you good luck

ENTIRE THREAD

URDU FONT Posted by abdul waheed @ 9/6/2004 3:06:28 AM
RE: URDU FONT Posted by Tariq mehmood @ 9/6/2004 6:37:02 AM
RE: URDU FONT Posted by Boudewijn Lutgerink @ 9/6/2004 7:09:38 AM
RE: URDU FONT Posted by Tariq mehmood @ 9/6/2004 1:06:44 PM
RE: URDU FONT Posted by abdul waheed @ 9/7/2004 3:58:43 AM
RE: URDU FONT Posted by Boudewijn Lutgerink @ 9/7/2004 6:04:12 AM
RE: URDU FONT Posted by abdul waheed @ 9/8/2004 3:39:53 AM