home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / Addlabel / newlabel.sca < prev    next >
Encoding:
Text File  |  1998-05-01  |  19.1 KB  |  816 lines
  1. SCCTEXT Version 4.0.0.2
  2. PLATFORM C(8,0),UNIQUEID C(10,0),TIMESTAMP N(10,0),CLASS M(4,0),CLASSLOC M(4,0),BASECLASS M(4,0),OBJNAME M(4,0),PARENT M(4,0),PROPERTIES M(4,0),PROTECTED M(4,0),METHODS M(4,0),OBJCODE M(4,0),OLE M(4,0),OLE2 M(4,0),RESERVED1 M(4,0),RESERVED2 M(4,0),RESERVED3 M(4,0),RESERVED4 M(4,0),RESERVED5 M(4,0),RESERVED6 M(4,0),RESERVED7 M(4,0),RESERVED8 M(4,0),USER M(4,0)
  3. 1252
  4.  
  5. [ RECORD]
  6. [PLATFORM] COMMENT 
  7. [UNIQUEID] Screen    
  8. [START RESERVED1]
  9. VERSION =   3.00[END RESERVED1]
  10.  
  11. [ RECORD]
  12. [PLATFORM] WINDOWS 
  13. [UNIQUEID] _R8T13G40P
  14. [CLASS] dataenvironment
  15. [BASECLASS] dataenvironment
  16. [OBJNAME] Dataenvironment
  17. [START PROPERTIES]
  18. Name = "Dataenvironment"
  19. [END PROPERTIES]
  20. [START RESERVED2]
  21. 1[END RESERVED2]
  22. [START RESERVED4]
  23. 1[END RESERVED4]
  24.  
  25. [ RECORD]
  26. [PLATFORM] WINDOWS 
  27. [UNIQUEID] _R8T13G40X
  28. [CLASS] form
  29. [BASECLASS] form
  30. [OBJNAME] Form1
  31. [START PROPERTIES]
  32. Height = 364
  33. Width = 500
  34. DoCreate = .T.
  35. AutoCenter = .T.
  36. BorderStyle = 2
  37. Caption = "New Label Defintion"
  38. WindowType = 1
  39. WindowState = 0
  40. LockScreen = .F.
  41. lenglish = .T.
  42. cchangevalue = ("")
  43. Name = "Form1"
  44. [END PROPERTIES]
  45. [START METHODS]
  46. PROCEDURE convertmm
  47. LPARAMETER cInValue,lwhichway
  48. * Converts metric values entered in millimeters to 10,000ths of an inch.
  49. LOCAL nInValue,cOutValue
  50. *!*    nInValue = VAL(ALLTRIM(m.cInValue))
  51. m.nInValue = m.cInValue
  52. IF !m.lwhichway
  53.     * metric to english
  54.     nInValue = ROUND(((m.nInValue*39.3700787402E-2)),4)
  55. ELSE
  56.     * english to metric
  57.     nInValue = ROUND(((m.nInValue/39.3700787402E-2)),4)
  58. ENDIF
  59. *!*    cOutValue = ALLTRIM(STR(m.nInValue,8,3))
  60. RETURN m.nInValue
  61. ENDPROC
  62. PROCEDURE resetlabel
  63. #DEFINE ENGMEASURE    '"'
  64. #DEFINE METMEASURE    'cm'
  65. #DEFINE ENGPROMPT_LOC    "Enter label measurements in inches:"
  66. #DEFINE    METPROMPT_LOC    "Enter label measurements in centimeters:"
  67. #DEFINE CMDADDCAP_LOC    "\<Update"
  68.  
  69. LOCAL cLblData,cDesc,cDelim,cDataDesc
  70.  
  71. cLblData = ALLTRIM(Data)
  72.  
  73. THIS.cmdAdd.Caption = CMDADDCAP_LOC
  74. This.LayoutName.Value = Name
  75. This.ogpMetric.Value = IIF(RIGHT(m.cLblData,1)="T",2,1)
  76. IF This.ogpMetric.Value = 2 
  77.     This.LblPrompt.Caption = METPROMPT_LOC
  78. ENDIF
  79. cDelim=IIF(This.ogpMetric.Value = 2,METMEASURE,ENGMEASURE)
  80.  
  81. This.LeftMargin.Value= VAL(SUBSTR(m.cLblData,40,8))/10000 
  82. This.NumberAcross.Value= VAL(SUBSTR(m.cLblData,48,2))
  83. This.SpacesBetween.Value= VAL(SUBSTR(m.cLblData,50,8))/10000
  84. This.LabelWidth.Value= VAL(SUBSTR(m.cLblData,58,8))/10000
  85. This.TopMargin.Value= VAL(SUBSTR(m.cLblData,66,8))/10000
  86. This.LabelHeight.Value = VAL(SUBSTR(m.cLblData,74,8))/10000
  87.  
  88. IF This.ogpMetric.Value = 2
  89.     * If the values are metric, convert them to english
  90.     This.LeftMargin.Value= ThisForm.ConvertMM(This.LeftMargin.Value,.T.)
  91.     This.SpacesBetween.Value= ThisForm.ConvertMM(This.SpacesBetween.Value,.T.)
  92.     This.LabelWidth.Value= ThisForm.ConvertMM(This.LabelWidth.Value,.T.)
  93.     This.TopMargin.Value= ThisForm.ConvertMM(This.TopMargin.Value,.T.)
  94.     This.LabelHeight.Value= ThisForm.ConvertMM(This.LabelHeight.Value,.T.)
  95. ENDIF
  96.  
  97. m.cDesc = PADR(LEFT(ALLTRIM(This.LayoutName.Value),11),11)+ " "
  98. m.cDesc = m.cDesc + PADR(ALLTRIM(STR(This.LabelHeight.Value,8,2))+m.cDelim,11)
  99. m.cDesc = m.cDesc + PADR(ALLTRIM(STR(This.LabelWidth.Value,8,2))+m.cDelim,11)
  100. m.cDesc = m.cDesc +    PADL(ALLTRIM(STR(This.NumberAcross.Value)),2," ")+" "
  101.  
  102. cDataDesc = ALLTRIM(SUBSTR(data,3,37))
  103. cDesc = ALLTRIM(m.cDesc)
  104.  
  105. THIS.lChangeDesc = (m.cDataDesc#m.cDesc)
  106.  
  107. IF THIS.lChangeDesc
  108.     LOCAL cPart1,cPart2
  109.     cPart1 = ALLTRIM(SUBSTR(m.cDataDesc,11,11))
  110.     cPart2 = ALLTRIM(SUBSTR(m.cDataDesc,22,11))
  111.     cPart1 = m.cPart1+" x "+m.cPart2
  112.     THIS.Description.Value = m.cPart1
  113.     THIS.Description.Enabled = .T.
  114.     THIS.chkSet.Value = 1
  115.     THIS.cChangeValue = m.cPart1
  116. ELSE
  117.     IF This.ogpMetric.Value = 2
  118.         m.cDelim = " "+m.cDelim
  119.     ENDIF
  120.     This.Description.Value = ALLT(STR(This.LabelHeight.Value,8,2))+;
  121.         m.cDelim+" x "+ALLT(STR(This.LabelWidth.Value,8,2))+m.cDelim
  122. ENDIF
  123.  
  124. THISFORM.REFRESH
  125. ENDPROC
  126. PROCEDURE Init
  127. PARAMETER lEditMode
  128. IF TYPE("m.lEditMode")="L" AND m.lEditMode
  129.     * Edit record - if we ever add support for this
  130.     THIS.EditMode = 1
  131.     THIS.ResetLabel
  132. ELSE
  133.     * Add record
  134.     THIS.EditMode = 0
  135. ENDIF
  136.  
  137. ENDPROC
  138. [END METHODS]
  139. [START RESERVED3]
  140. label_file
  141. lenglish
  142. lchangedesc
  143. editmode
  144. cchangevalue
  145. *convertmm 
  146. *resetlabel 
  147. [END RESERVED3]
  148.  
  149. [ RECORD]
  150. [PLATFORM] WINDOWS 
  151. [UNIQUEID] _R8T13G40P
  152. [CLASS] commandbutton
  153. [BASECLASS] commandbutton
  154. [OBJNAME] cmdCancel
  155. [PARENT] Form1
  156. [START PROPERTIES]
  157. Top = 38
  158. Left = 408
  159. Height = 23
  160. Width = 72
  161. FontName = "MS Sans Serif"
  162. FontSize = 8
  163. Cancel = .T.
  164. Caption = "Cancel"
  165. Default = .F.
  166. TabIndex = 11
  167. Name = "cmdCancel"
  168. [END PROPERTIES]
  169. [START METHODS]
  170. PROCEDURE Click
  171. THISFORM.RELEASE
  172. ENDPROC
  173. [END METHODS]
  174.  
  175. [ RECORD]
  176. [PLATFORM] WINDOWS 
  177. [UNIQUEID] _R8T13G43F
  178. [CLASS] commandbutton
  179. [BASECLASS] commandbutton
  180. [OBJNAME] cmdAdd
  181. [PARENT] Form1
  182. [START PROPERTIES]
  183. Top = 10
  184. Left = 408
  185. Height = 23
  186. Width = 72
  187. FontName = "MS Sans Serif"
  188. FontSize = 8
  189. Caption = "\<Add"
  190. Default = .T.
  191. TabIndex = 10
  192. Name = "cmdAdd"
  193. [END PROPERTIES]
  194. [START METHODS]
  195. PROCEDURE Click
  196. #DEFINE cMess1_loc 'Please supply a value for Label Name'
  197. #DEFINE cMess2_loc 'Please supply a value for Description'
  198. #DEFINE cMess3_loc 'Please supply a value for Left Margin'
  199. #DEFINE cMess4_loc 'Please supply a value for Label Height'
  200. #DEFINE cMess5_loc 'Please supply a value for Number Across'
  201. #DEFINE cMess6_loc 'Please supply a value for Top Margin'
  202. #DEFINE cMess7_loc 'Please supply a value for Label Width'
  203. #DEFINE cMess8_loc 'Please supply a value for Space Between'
  204. #DEFINE cMess9_loc 'New Label Layout successfully added to labels file and registry.'
  205. #DEFINE cMess10_loc 'The new label layout could not be added. Make sure you have Labels file.'
  206. #DEFINE cDupeLbL_LOC "A label with the same name already exists, would you like to replace it?"
  207.  
  208. LOCAL nLeftMarg, nSpace, nLblWid, nTopMarg
  209. LOCAL nLblHgt, cDataFld, cDesc, cDelim
  210. LOCAL lExists, cSaveName
  211.  
  212. DO CASE
  213. CASE EMPTY(ThisForm.LayoutName.Value)
  214.     =messagebox(cMess1_loc)
  215.     ThisForm.LayoutName.SetFocus
  216.     RETURN
  217. CASE EMPTY(ThisForm.LabelHeight.Value)
  218.     =messagebox(cMess4_loc)
  219.     ThisForm.LabelHeight.SetFocus
  220.     RETURN
  221. CASE EMPTY(ThisForm.LabelWidth.Value)
  222.     =messagebox(cMess7_loc)
  223.     ThisForm.LabelWidth.SetFocus
  224.     RETURN
  225. CASE EMPTY(ThisForm.NumberAcross.Value)
  226.     =messagebox(cMess5_loc)
  227.     ThisForm.LabelWidth.SetFocus
  228.     RETURN
  229. ENDCASE
  230.  
  231. m.cSaveName = ""
  232. SELECT userlbls
  233.  
  234. * Add mode only
  235. IF THISFORM.EditMode = 0
  236.     LOCATE FOR UPPER(ALLTRIM(name)) == UPPER(ALLTRIM(THISFORM.LayOutName.Value));
  237.      AND !DELETE()
  238.     IF FOUND()
  239.         IF MESSAGEBOX(cDupeLbL_LOC,36)#6
  240.             RETURN
  241.         ENDIF
  242.         m.lExists = .T.
  243.     m.cSaveName = THISFORM.LayOutName.Value
  244.     ENDIF
  245. ELSE
  246.     * Edit mode
  247.     m.cSaveName = WzLabels.Name    
  248.     LOCATE FOR UPPER(ALLTRIM(name)) == UPPER(ALLTRIM(m.cSaveName));
  249.      AND !DELETE()
  250.     m.lExists = .T.
  251. ENDIF
  252.  
  253. nLeftMarg = ThisForm.LeftMargin.Value
  254. nSpace = ThisForm.SpacesBetween.Value
  255. nLblWid = ThisForm.LabelWidth.Value
  256. nTopMarg =    ThisForm.TopMargin.Value
  257. nLblHgt    = ThisForm.LabelHeight.Value
  258.  
  259. IF (ThisForm.ogpMetric.Value = 2)
  260.     * If the values are metric, convert them to english
  261.     nLeftMarg = ThisForm.ConvertMM(m.nLeftMarg)
  262.     nSpace = ThisForm.ConvertMM(m.nSpace)
  263.     nLblWid = ThisForm.ConvertMM(m.nLblWid)
  264.     nTopMarg = ThisForm.ConvertMM(m.nTopMarg)
  265.     nLblHgt = ThisForm.ConvertMM(m.nLblHgt)
  266. ENDIF
  267.  
  268. * Convert to 1/10000 of an inch for report writer
  269. nLeftMarg = ALLTRIM(STR(ROUND(m.nLeftMarg,5) * 10000))
  270. nSpace = ALLTRIM(STR(ROUND(m.nSpace,5) * 10000))
  271. nLblWid = ALLTRIM(STR(ROUND(m.nLblWid,5) * 10000))
  272. nTopMarg = ALLTRIM(STR(ROUND(m.nTopMarg,5) * 10000))
  273. nLblHgt = ALLTRIM(STR(ROUND(m.nLblHgt,5) * 10000))
  274.  
  275. m.cDelim = IIF(THISFORM.ogpMetric.Value=1,'"','cm')
  276.  
  277. m.cDesc = PADR(LEFT(ALLTRIM(ThisForm.LayoutName.Value),11),11)+ " "
  278. IF THISFORM.lChangeDesc
  279.     LOCAL nSepPos,cPart1,cPart2,cTmpStr
  280.     cTmpStr = LEFT(ALLTRIM(ThisForm.Description.Value),22)
  281.     nSepPos = ATC("X",m.cTmpStr)
  282.     IF nSepPos #0
  283.         cPart1 = PADR(SUBSTR(cTmpStr,1,nSepPos-1),11)
  284.         cPart2 = PADR(ALLTRIM(SUBSTR(cTmpStr,nSepPos+1)),11)
  285.         m.cDesc = m.cDesc + m.cPart1 + m.cPart2
  286.     ELSE
  287.         * No separator, so we can't parse
  288.         THISFORM.lChangeDesc = .F.
  289.     ENDIF
  290. ENDIF
  291. IF !THISFORM.lChangeDesc
  292.     m.cDesc = m.cDesc + PADR(ALLTRIM(STR(ThisForm.LabelHeight.Value,8,2))+m.cDelim,11)
  293.     m.cDesc = m.cDesc + PADR(ALLTRIM(STR(ThisForm.LabelWidth.Value,8,2))+m.cDelim,11)
  294. ENDIF
  295. m.cDesc = m.cDesc +    PADL(ALLTRIM(STR(ThisForm.NumberAcross.Value)),2," ")+" "
  296.  
  297. m.cDataFld = CHR(4)+CHR(0) + m.cDesc + ;
  298.     PADL(m.nLeftMarg,8,"0") + ;
  299.     PADL(ALLTRIM(STR(ThisForm.NumberAcross.Value)),2,"0") + ;
  300.     PADL(m.nSpace,8,"0") + ;
  301.     PADL(m.nLblWid,8,"0") + ;
  302.     PADL(m.nTopMarg,8,"0") + ;
  303.     PADL(m.nLblHgt,8,"0") + ;
  304.     IIF(ThisForm.ogpMetric.Value#1,'T','F')
  305.  
  306. IF m.lExists
  307.     REPLACE Name WITH ThisForm.LayoutName.Value,;
  308.             Ckval WITH VAL(SYS(2007,SUBSTR(m.cDataFld,3))),;
  309.              Data WITH m.cDataFld
  310.     SELECT wzlabels
  311.     LOCATE FOR UPPER(ALLTRIM(name)) == UPPER(ALLTRIM(m.cSaveName)) AND !DELETE()
  312.     IF FOUND()
  313.         REPLACE Name WITH ThisForm.LayoutName.Value,;
  314.             LblDimen WITH ALLT(SUBSTR(userlbls.Data,15,11))+" x "+ALLT(SUBSTR(userlbls.Data,26,11)),;
  315.              LblColumns WITH ALLT(SUBSTR(userlbls.Data,37,2)),;
  316.              Data WITH m.cDataFld
  317.     ENDIF
  318. ELSE
  319.     INSERT INTO userlbls VALUES;
  320.          ('DATAW','LABELLYT' ,ThisForm.LayoutName.Value,.F.,;
  321.          VAL(SYS(2007, SUBSTR(m.cDataFld,3))),m.cDataFld,{})
  322.  
  323.     INSERT INTO WzLabels (Name, LblDimen, LblColumns, Data);
  324.          VALUE (userlbls.Name,;
  325.           ALLTRIM(SUBSTR(userlbls.Data,15,11))+" x "+ALLTRIM(SUBSTR(userlbls.Data,26,11)), ;
  326.           ALLTRIM(SUBSTR(userlbls.Data,37,2)),userlbls.Data)
  327. ENDIF
  328.  
  329. DO labeltoreg
  330.  
  331. WAIT WINDOW cMess9_loc TIMEOUT 1
  332.  
  333. THISFORM.RELEASE
  334.  
  335. ENDPROC
  336. [END METHODS]
  337.  
  338. [ RECORD]
  339. [PLATFORM] WINDOWS 
  340. [UNIQUEID] _R8T13G40P
  341. [CLASS] label
  342. [BASECLASS] label
  343. [OBJNAME] Label1
  344. [PARENT] Form1
  345. [START PROPERTIES]
  346. AutoSize = .T.
  347. FontName = "MS Sans Serif"
  348. FontSize = 8
  349. Caption = "\<Label Name:"
  350. Height = 15
  351. Left = 14
  352. Top = 14
  353. Width = 62
  354. TabIndex = 0
  355. BackColor = 192,192,192
  356. Name = "Label1"
  357. [END PROPERTIES]
  358.  
  359. [ RECORD]
  360. [PLATFORM] WINDOWS 
  361. [UNIQUEID] _R8T13G45X
  362. [CLASS] textbox
  363. [BASECLASS] textbox
  364. [OBJNAME] LayoutName
  365. [PARENT] Form1
  366. [START PROPERTIES]
  367. FontName = "MS Sans Serif"
  368. FontSize = 8
  369. Value = Label1
  370. Height = 21
  371. InputMask = "XXXXXXXXXXX"
  372. Left = 81
  373. TabIndex = 1
  374. Top = 10
  375. Width = 256
  376. Name = "LayoutName"
  377. [END PROPERTIES]
  378.  
  379. [ RECORD]
  380. [PLATFORM] WINDOWS 
  381. [UNIQUEID] _R8T13G472
  382. [CLASS] textbox
  383. [BASECLASS] textbox
  384. [OBJNAME] Description
  385. [PARENT] Form1
  386. [START PROPERTIES]
  387. FontName = "MS Sans Serif"
  388. FontSize = 8
  389. Value = 0.00" x 0.00"
  390. Enabled = .F.
  391. Height = 21
  392. InputMask = "XXXXXXXXXXXXXXXXXXXXXX"
  393. Left = 81
  394. TabIndex = 2
  395. Top = 40
  396. Width = 256
  397. DisabledForeColor = 64,0,64
  398. Name = "Description"
  399. [END PROPERTIES]
  400.  
  401. [ RECORD]
  402. [PLATFORM] WINDOWS 
  403. [UNIQUEID] _R9K15742G
  404. [CLASS] image
  405. [BASECLASS] image
  406. [OBJNAME] Image1
  407. [PARENT] Form1
  408. [START PROPERTIES]
  409. Picture = label2.bmp
  410. Height = 205
  411. Left = 12
  412. Top = 150
  413. Width = 481
  414. Name = "Image1"
  415. [END PROPERTIES]
  416.  
  417. [ RECORD]
  418. [PLATFORM] WINDOWS 
  419. [UNIQUEID] _R9K15742W
  420. [CLASS] shape
  421. [BASECLASS] shape
  422. [OBJNAME] Shape1
  423. [PARENT] Form1
  424. [START PROPERTIES]
  425. Top = 173
  426. Left = 338
  427. Height = 20
  428. Width = 43
  429. FillStyle = 0
  430. Name = "Shape1"
  431. [END PROPERTIES]
  432.  
  433. [ RECORD]
  434. [PLATFORM] WINDOWS 
  435. [UNIQUEID] _R9K15743C
  436. [CLASS] textbox
  437. [BASECLASS] textbox
  438. [OBJNAME] LeftMargin
  439. [PARENT] Form1
  440. [START PROPERTIES]
  441. FontName = "MS Sans Serif"
  442. FontSize = 8
  443. Alignment = 1
  444. BackStyle = 0
  445. BorderStyle = 0
  446. Value = 0.00
  447. Height = 17
  448. InputMask = "999.9999"
  449. Left = 30
  450. SpecialEffect = 1
  451. TabIndex = 4
  452. Top = 269
  453. Width = 55
  454. Name = "LeftMargin"
  455. [END PROPERTIES]
  456.  
  457. [ RECORD]
  458. [PLATFORM] WINDOWS 
  459. [UNIQUEID] _R9K157446
  460. [CLASS] textbox
  461. [BASECLASS] textbox
  462. [OBJNAME] TopMargin
  463. [PARENT] Form1
  464. [START PROPERTIES]
  465. FontName = "MS Sans Serif"
  466. FontSize = 8
  467. Alignment = 1
  468. BackStyle = 0
  469. BorderStyle = 0
  470. Value = 0.0000
  471. Height = 17
  472. InputMask = "999.9999"
  473. Left = 132
  474. SpecialEffect = 1
  475. TabIndex = 5
  476. Top = 172
  477. Width = 55
  478. Name = "TopMargin"
  479. [END PROPERTIES]
  480.  
  481. [ RECORD]
  482. [PLATFORM] WINDOWS 
  483. [UNIQUEID] _R8T13G40P
  484. [CLASS] textbox
  485. [BASECLASS] textbox
  486. [OBJNAME] LabelHeight
  487. [PARENT] Form1
  488. [START PROPERTIES]
  489. FontName = "MS Sans Serif"
  490. FontSize = 8
  491. Alignment = 1
  492. BackStyle = 0
  493. BorderStyle = 0
  494. Value = 0.00
  495. Height = 17
  496. InputMask = "999.9999"
  497. Left = 100
  498. SpecialEffect = 1
  499. TabIndex = 6
  500. Top = 209
  501. Width = 55
  502. Name = "LabelHeight"
  503. [END PROPERTIES]
  504. [START METHODS]
  505. PROCEDURE LostFocus
  506. IF THISFORM.lChangeDesc
  507.     RETURN
  508. ENDIF
  509. LOCAL cDelim
  510. m.cDelim = IIF(THISFORM.ogpMetric.Value=1,'"',' cm')
  511. ThisForm.Description.Value = ALLTRIM(STR(ThisForm.LabelHeight.Value,8,2))+;
  512.         m.cDelim+" x "+ALLTRIM(STR(ThisForm.LabelWidth.Value,8,2))+m.cDelim
  513.  
  514. ENDPROC
  515. [END METHODS]
  516.  
  517. [ RECORD]
  518. [PLATFORM] WINDOWS 
  519. [UNIQUEID] _R9K15745P
  520. [CLASS] textbox
  521. [BASECLASS] textbox
  522. [OBJNAME] LabelWidth
  523. [PARENT] Form1
  524. [START PROPERTIES]
  525. FontName = "MS Sans Serif"
  526. FontSize = 8
  527. Alignment = 1
  528. BackStyle = 0
  529. BorderStyle = 0
  530. Value = 0.00
  531. Height = 17
  532. InputMask = "999.9999"
  533. Left = 162
  534. SpecialEffect = 1
  535. TabIndex = 7
  536. Top = 246
  537. Width = 55
  538. Name = "LabelWidth"
  539. [END PROPERTIES]
  540. [START METHODS]
  541. PROCEDURE LostFocus
  542. IF THISFORM.lChangeDesc
  543.     RETURN
  544. ENDIF
  545. LOCAL cDelim
  546. m.cDelim = IIF(THISFORM.ogpMetric.Value=1,'"',' cm')
  547. ThisForm.Description.Value = ALLTRIM(STR(ThisForm.LabelHeight.Value,8,2))+;
  548.         m.cDelim+" x "+ALLTRIM(STR(ThisForm.LabelWidth.Value,8,2))+m.cDelim
  549.  
  550. ENDPROC
  551. [END METHODS]
  552.  
  553. [ RECORD]
  554. [PLATFORM] WINDOWS 
  555. [UNIQUEID] _R9K15746I
  556. [CLASS] textbox
  557. [BASECLASS] textbox
  558. [OBJNAME] SpacesBetween
  559. [PARENT] Form1
  560. [START PROPERTIES]
  561. FontName = "MS Sans Serif"
  562. FontSize = 8
  563. Alignment = 1
  564. BackStyle = 0
  565. BorderStyle = 0
  566. Value = 0.00
  567. Height = 17
  568. InputMask = "999.9999"
  569. Left = 223
  570. SpecialEffect = 1
  571. TabIndex = 8
  572. Top = 313
  573. Width = 55
  574. Name = "SpacesBetween"
  575. [END PROPERTIES]
  576.  
  577. [ RECORD]
  578. [PLATFORM] WINDOWS 
  579. [UNIQUEID] _R8T13G40P
  580. [CLASS] label
  581. [BASECLASS] label
  582. [OBJNAME] Label3
  583. [PARENT] Form1
  584. [START PROPERTIES]
  585. FontName = "MS Sans Serif"
  586. FontSize = 8
  587. BackStyle = 0
  588. Caption = "Number Across:"
  589. Height = 15
  590. Left = 255
  591. Top = 173
  592. Width = 76
  593. TabIndex = 0
  594. Name = "Label3"
  595. [END PROPERTIES]
  596.  
  597. [ RECORD]
  598. [PLATFORM] WINDOWS 
  599. [UNIQUEID] _R9K15747V
  600. [CLASS] spinner
  601. [BASECLASS] spinner
  602. [OBJNAME] NumberAcross
  603. [PARENT] Form1
  604. [START PROPERTIES]
  605. FontName = "MS Sans Serif"
  606. FontSize = 8
  607. Height = 21
  608. InputMask = "##"
  609. KeyboardHighValue = 20
  610. KeyboardLowValue = 1
  611. Left = 335
  612. SpecialEffect = 1
  613. SpinnerHighValue =  20.00
  614. SpinnerLowValue =   1.00
  615. TabIndex = 9
  616. Top = 170
  617. Width = 44
  618. Value = 0
  619. Name = "NumberAcross"
  620. [END PROPERTIES]
  621. [START METHODS]
  622. PROCEDURE Init
  623. this.value = 1
  624. ENDPROC
  625. [END METHODS]
  626.  
  627. [ RECORD]
  628. [PLATFORM] WINDOWS 
  629. [UNIQUEID] _R8T13G40P
  630. [CLASS] optiongroup
  631. [BASECLASS] optiongroup
  632. [OBJNAME] ogpMetric
  633. [PARENT] Form1
  634. [START PROPERTIES]
  635. ButtonCount = 2
  636. Value = 1
  637. Height = 41
  638. Left = 14
  639. Top = 78
  640. Width = 155
  641. TabIndex = 3
  642. Name = "ogpMetric"
  643. Option1.FontName = "MS Sans Serif"
  644. Option1.FontSize = 8
  645. Option1.Caption = "Englis\<h"
  646. Option1.Value = 1
  647. Option1.Height = 17
  648. Option1.Left = 9
  649. Option1.Top = 13
  650. Option1.Width = 60
  651. Option1.AutoSize = .F.
  652. Option1.Name = "Option1"
  653. Option2.FontName = "MS Sans Serif"
  654. Option2.FontSize = 8
  655. Option2.Caption = "\<Metric"
  656. Option2.Value = 0
  657. Option2.Height = 17
  658. Option2.Left = 82
  659. Option2.Top = 13
  660. Option2.Width = 60
  661. Option2.AutoSize = .F.
  662. Option2.Name = "Option2"
  663. [END PROPERTIES]
  664. [START METHODS]
  665. PROCEDURE Click
  666. #DEFINE ENGMEASURE    '"'
  667. #DEFINE METMEASURE    ' cm'
  668. #DEFINE ENGPROMPT_LOC    "Enter label measurements in inches:"
  669. #DEFINE    METPROMPT_LOC    "Enter label measurements in centimeters:"
  670.  
  671. LOCAL cDelim
  672. IF (THIS.Value = 1 AND THISFORM.lEnglish) OR;
  673.     (THIS.Value # 1 AND !THISFORM.lEnglish)
  674.     RETURN
  675. ENDIF
  676.  
  677. cDelim = IIF(This.Value=1,ENGMEASURE,METMEASURE)
  678. THISFORM.lEnglish = (This.Value = 1)
  679.  
  680. IF This.Value = 1
  681.     ThisForm.lblPrompt.Caption = ENGPROMPT_LOC
  682.     * Convert metric to english
  683.     ThisForm.LeftMargin.Value = ThisForm.ConvertMM(ThisForm.LeftMargin.Value)
  684.     ThisForm.SpacesBetween.Value = ThisForm.ConvertMM(ThisForm.SpacesBetween.Value)
  685.     ThisForm.LabelWidth.Value = ThisForm.ConvertMM(ThisForm.LabelWidth.Value)
  686.     ThisForm.TopMargin.Value = ThisForm.ConvertMM(ThisForm.TopMargin.Value)
  687.     ThisForm.LabelHeight.Value = ThisForm.ConvertMM(ThisForm.LabelHeight.Value)
  688.     ThisForm.Description.Value = ALLTRIM(STR(ThisForm.LabelHeight.Value,8,2))+;
  689.         ALLTRIM(STR(ThisForm.LabelHeight.Value,8,2))
  690. ELSE
  691.     ThisForm.lblPrompt.Caption = METPROMPT_LOC
  692.     * Convert english to metric
  693.     ThisForm.LeftMargin.Value = ThisForm.ConvertMM(ThisForm.LeftMargin.Value,.t.)
  694.     ThisForm.SpacesBetween.Value = ThisForm.ConvertMM(ThisForm.SpacesBetween.Value,.t.)
  695.     ThisForm.LabelWidth.Value = ThisForm.ConvertMM(ThisForm.LabelWidth.Value,.t.)
  696.     ThisForm.TopMargin.Value = ThisForm.ConvertMM(ThisForm.TopMargin.Value,.t.)
  697.     ThisForm.LabelHeight.Value = ThisForm.ConvertMM(ThisForm.LabelHeight.Value,.t.)
  698. ENDIF
  699.  
  700. IF !THISFORM.lChangeDesc
  701.     ThisForm.Description.Value = ALLTRIM(STR(ThisForm.LabelHeight.Value,8,2))+;
  702.         m.cDelim+" x "+ALLTRIM(STR(ThisForm.LabelWidth.Value,8,2))+m.cDelim
  703. ENDIF
  704.  
  705. ThisForm.Refresh
  706. ENDPROC
  707. [END METHODS]
  708.  
  709. [ RECORD]
  710. [PLATFORM] WINDOWS 
  711. [UNIQUEID] _R8T13G40P
  712. [CLASS] label
  713. [BASECLASS] label
  714. [OBJNAME] Label6
  715. [PARENT] Form1
  716. [START PROPERTIES]
  717. FontName = "MS Sans Serif"
  718. FontSize = 8
  719. BackStyle = 1
  720. Caption = "Unit of Measure"
  721. Height = 15
  722. Left = 22
  723. Top = 72
  724. Width = 78
  725. TabIndex = 0
  726. Name = "Label6"
  727. [END PROPERTIES]
  728.  
  729. [ RECORD]
  730. [PLATFORM] WINDOWS 
  731. [UNIQUEID] _R9K163WGW
  732. [CLASS] label
  733. [BASECLASS] label
  734. [OBJNAME] lblPrompt
  735. [PARENT] Form1
  736. [START PROPERTIES]
  737. FontName = "MS Sans Serif"
  738. FontSize = 8
  739. BackStyle = 1
  740. Caption = "Enter label measurements in inches:"
  741. Height = 15
  742. Left = 14
  743. Top = 135
  744. Width = 217
  745. TabIndex = 0
  746. Name = "lblPrompt"
  747. [END PROPERTIES]
  748.  
  749. [ RECORD]
  750. [PLATFORM] WINDOWS 
  751. [UNIQUEID] _R9K163WHK
  752. [CLASS] label
  753. [BASECLASS] label
  754. [OBJNAME] Label8
  755. [PARENT] Form1
  756. [START PROPERTIES]
  757. AutoSize = .T.
  758. FontName = "MS Sans Serif"
  759. FontSize = 8
  760. Caption = "Dimensions:"
  761. Height = 15
  762. Left = 14
  763. Top = 44
  764. Width = 59
  765. TabIndex = 0
  766. BackColor = 192,192,192
  767. Name = "Label8"
  768. [END PROPERTIES]
  769.  
  770. [ RECORD]
  771. [PLATFORM] WINDOWS 
  772. [UNIQUEID] _R9L05FSRW
  773. [CLASS] checkbox
  774. [BASECLASS] checkbox
  775. [OBJNAME] chkSet
  776. [PARENT] Form1
  777. [START PROPERTIES]
  778. Top = 42
  779. Left = 347
  780. Height = 17
  781. Width = 36
  782. FontName = "MS Sans Serif"
  783. FontSize = 8
  784. Caption = "\<Set"
  785. Name = "chkSet"
  786. [END PROPERTIES]
  787. [START METHODS]
  788. PROCEDURE Click
  789. THISFORM.Description.Enabled = (THIS.Value=1)
  790. THISFORM.lChangeDesc = (THIS.Value=1)
  791. IF THIS.Value # 1
  792.     LOCAL cDelim,cSaveValue
  793.     cSaveValue = ALLTRIM(ThisForm.Description.Value)
  794.     m.cDelim = IIF(THISFORM.ogpMetric.Value=1,'"',' cm')
  795.     ThisForm.Description.Value = ALLTRIM(STR(ThisForm.LabelHeight.Value,8,2))+;
  796.         m.cDelim+" x "+ALLTRIM(STR(ThisForm.LabelWidth.Value,8,2))+m.cDelim
  797.     IF ALLTRIM(ThisForm.Description.Value)#m.cSaveValue
  798.         THISFORM.cChangeValue = m.cSaveValue
  799.     ENDIF
  800. ELSE
  801.     IF !EMPTY(THISFORM.cChangeValue)
  802.         ThisForm.Description.Value = THISFORM.cChangeValue
  803.     ENDIF
  804. ENDIF
  805. ENDPROC
  806. [END METHODS]
  807.  
  808. [ RECORD]
  809. [PLATFORM] COMMENT 
  810. [UNIQUEID] RESERVED  
  811. [START PROPERTIES]
  812. Arial, 0, 9, 5, 15, 12, 13, 3, 0
  813. MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  814. [END PROPERTIES]
  815. [EOF]
  816.