home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / QKTEMP.SMM < prev    next >
INI File  |  1993-06-25  |  21KB  |  932 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Calculates temperature conversions between Fahrenheit and Celsius.
  19.     
  20.     
  21.     
  22.     
  23.     741043879
  24.     21
  25.     733695425
  26.     629
  27.     4
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         200
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [lay]
  112.     Standard
  113.     516
  114.     [rght]
  115.         16833
  116.         11908
  117.         1
  118.         1440
  119.         792
  120.         1
  121.         1080
  122.         1440
  123.         0
  124.         1
  125.         0
  126.         1
  127.         0
  128.         2
  129.         1
  130.         1440
  131.         10465
  132.         12
  133.         1
  134.         720
  135.         1
  136.         1440
  137.         1
  138.         2160
  139.         1
  140.         2880
  141.         1
  142.         3600
  143.         1
  144.         4320
  145.         1
  146.         5040
  147.         1
  148.         5760
  149.         1
  150.         6480
  151.         1
  152.         7200
  153.         1
  154.         7920
  155.         1
  156.         8640
  157.     [hrght]
  158.     [lyfrm]
  159.         1
  160.         11200
  161.         0
  162.         0
  163.         11908
  164.         1080
  165.         0
  166.         1
  167.         3
  168.         1 0 0 0 0 0 0
  169.         0
  170.         0
  171.         1
  172.     [frmlay]
  173.         1080
  174.         11908
  175.         1
  176.         1440
  177.         0
  178.         1
  179.         504
  180.         1440
  181.         0
  182.         1
  183.         0
  184.         1
  185.         1
  186.         0
  187.         1
  188.         1440
  189.         10465
  190.         2
  191.         2
  192.         4680
  193.         3
  194.         9360
  195.     [txt]
  196. QkTemp: Mark Osborne and Daniel Wilder
  197.  
  198. Lotus WPD
  199.  
  200. >
  201.     [frght]
  202.     [lyfrm]
  203.         1
  204.         13248
  205.         0
  206.         16041
  207.         11908
  208.         16833
  209.         0
  210.         1
  211.         3
  212.         1 0 0 0 0 0 0
  213.         0
  214.         0
  215.         2
  216.     [frmlay]
  217.         16833
  218.         11908
  219.         1
  220.         1440
  221.         720
  222.         1
  223.         16113
  224.         1440
  225.         0
  226.         1
  227.         0
  228.         1
  229.         1
  230.         0
  231.         1
  232.         1440
  233.         10465
  234.         2
  235.         2
  236.         4680
  237.         3
  238.         9360
  239.     [txt]
  240. >
  241. [elay]
  242. [l1]
  243.     0
  244. [pg]
  245.     4
  246.     60 0 70 0 0 1 0 65535 5 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  247.     119 0 65 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  248.     177 0 40 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  249.     187 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  250. [edoc]
  251. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Declare FontDlg(Action, Hdlg, id)
  252.  
  253. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Declare CellEngine(Action)
  254.  
  255. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Declare Callback(hdlg,id,val)
  256.  
  257. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  258.  
  259. <+@><:S+-1><:#240,9025><:X3,-32768;Include "Amixlate.sam!qktemp">Define Descript "Enter the temperature to be converted: "<:X~3,-32768;Include "Amixlate.sam!qktemp">
  260.  
  261. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Define DescriptHolder    1008
  262.  
  263. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Define AnswerHolder1    8010<:f>
  264.  
  265. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Define AnswerHolder2    1007
  266.  
  267. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Define AnswerHolder3    22
  268.  
  269. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  270.  
  271. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>Function Main()
  272.  
  273. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>MacName = GetRunningMacroFile$()
  274.  
  275. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>SetDlgCallBack(0, "{MacName}!InitDlg")
  276.  
  277. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>SetDlgCallBack(20, "{MacName}!CallBack")    'For C raido
  278.  
  279. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>SetDlgCallBack(21, "{MacName}!CallBack")    'For F radio
  280.  
  281. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>SetDlgCallBack(8001, "{MacName}!CallBack")    'For edit field
  282.  
  283. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>SetDlgCallBack(33, "{MacName}!CallBack")    'For copy button
  284.  
  285. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  286.  
  287. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  288.  
  289. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(1,0,0)    'Create font
  290.  
  291. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  292.  
  293. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(DescriptHolder,Descript)
  294.  
  295. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>macpath = GetMacPath$()
  296.  
  297. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(1001,"{macpath}qktemp.bmt")
  298.  
  299. @Outline3@<:S+-1><:#240,9025>DlgKeyInterrupt(112, "{macName}!DisplayHelp")
  300.  
  301. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  302.  
  303. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  304.  
  305. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>box = DialogBox(".","QuickTemp")
  306.  
  307. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>If Box = 3
  308.  
  309. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>    ' Copy the answer to the clipboard
  310.  
  311. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>    Answer = GetDialogField$(8010)
  312.  
  313. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>    ClipBoardWrite(Answer,1)
  314.  
  315. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Endif
  316.  
  317. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  318.  
  319. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(4,0,0)        'Free font object
  320.  
  321. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>End Function
  322.  
  323. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  324.  
  325. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>Function Callback(hdlg,id,val)
  326.  
  327. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>IgnoreKeyboard(2)
  328.  
  329. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,194,0,0>ConvertFraction=9/5    
  330.  
  331. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>if (id  = 33)                  'copy button selected
  332.  
  333. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Temp = GetDlgItemText(hDlg, 8000)
  334.  
  335. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>If Temp <<<;> ""
  336.  
  337. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>ClipBoardWrite(Temp,1) 
  338.  
  339. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>EndIf
  340.  
  341. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>exit function
  342.  
  343. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>endif
  344.  
  345. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  346.  
  347. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>if  GetDlgItemText(hdlg,20)         'F to C
  348.  
  349. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Temp = GetDlgItemText(hDlg, 8001)
  350.  
  351. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>if IsNumeric(Temp)
  352.  
  353. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>F = <:f200,2Times New Roman,194,0,0>(Temp - 32<:f><:f200,2Times New Roman,194,0,0>)/ ConvertFraction
  354.  
  355. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,194,0,0>If F << (0 - 273<:f><:f200,2Times New Roman,194,0,0>)
  356.  
  357. <+@><:S+-1><:#240,9025>                <:f200,2Times New Roman,194,0,0>F = "ERR"
  358.  
  359. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,194,0,0>Else
  360.  
  361. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>F= FormatNum$("","<:f200,2Times New Roman,194,0,0></p><:f200,2Times New Roman,0,0,0>",<:f200,2Times New Roman,194,0,0>2<:f200,2Times New Roman,0,0,0>,F)
  362.  
  363. <+@><:S+-1><:#240,9025>                <:f200,2Times New Roman,194,0,0>If MID$(F, 1, 2) = "-,"
  364.  
  365. <+@><:S+-1><:#480,9025>                    <:f200,2Times New Roman,194,0,0>F = StrCat$(Left$(F, 1),Right$(F,Len(F) - 2))                            EndIf
  366.  
  367. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,194,0,0>EndIf
  368.  
  369. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText( hDlg, AnswerHolder1,F)
  370.  
  371. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText( hDlg, 8000,F)    
  372.  
  373. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText(hDlg,AnswerHolder3,"Answer: 
  374. </p>C" )
  375.  
  376. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>elseif Temp = ""        'if user backspaces number to empty then put null to answer
  377.  
  378. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText( hDlg, AnswerHolder1,"")
  379.  
  380. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText(hDlg,AnswerHolder3,"Answer: 
  381. </p>C" )
  382.  
  383. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>endif
  384.  
  385. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>elseif     GetDlgItemText(hdlg,21)    'C to F
  386.  
  387. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Temp = GetDlgItemText(hDlg, 8001)
  388.  
  389. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>if IsNumeric(Temp)
  390.  
  391. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>C = <:f200,2Times New Roman,194,0,0>(Temp 
  392. <:f200,2Times New Roman,194,0,0>* <:f200,2Times New Roman,194,0,0>ConvertFraction<:f200,2Times New Roman,194,0,0>)<:f200,2Times New Roman,194,0,0> + 32
  393.  
  394. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,194,0,0>If C << (0 - 460<:f><:f200,2Times New Roman,194,0,0>)
  395.  
  396. <+@><:S+-1><:#240,9025>                <:f200,2Times New Roman,194,0,0>C = "ERR"
  397.  
  398. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,194,0,0>Else
  399.  
  400. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,194,0,0>C<:f200,2Times New Roman,0,0,0>= FormatNum$("","<:f200,2Times New Roman,194,0,0></p><:f200,2Times New Roman,0,0,0>",<:f200,2Times New Roman,194,0,0>2<:f200,2Times New Roman,0,0,0>,<:f200,2Times New Roman,194,0,0>C<:f200,2Times New Roman,0,0,0>
  401. )
  402.  
  403. <+@><:S+-1><:#240,9025>                <:f200,2Times New Roman,194,0,0>If MID$(C, 1, 2) = "-,"
  404.  
  405. <+@><:S+-1><:#240,9025>                    <:f200,2Times New Roman,194,0,0>C<:f200,2Times New Roman,194,0,0> = StrCat$(Left$(C, 1),Right$(C,Len(C<:f200,2Times New Roman,194,0,0>) - 2))
  406.  
  407. <+@><:S+-1><:#240,9025>                <:f200,2Times New Roman,194,0,0>EndIf
  408.  
  409. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,194,0,0>EndIf
  410.  
  411. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText( hDlg, AnswerHolder1,C)
  412.  
  413. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText( hDlg,8000,C)
  414.  
  415. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText(hDlg,AnswerHolder3,"Answer: 
  416. </p>F")
  417.  
  418. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>elseif    Temp = ""    'if user backspaces number to empty then put null to answer
  419.  
  420. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText( hDlg, AnswerHolder1,"")
  421.  
  422. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetDlgItemText(hDlg,AnswerHolder3,"Answer: 
  423. </p>F")
  424.  
  425. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>endif
  426.  
  427. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>endif            
  428.  
  429. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>end function
  430.  
  431. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  432.  
  433. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>Function InitDlg(Hdlg, Id, Value)
  434.  
  435. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>IgnoreKeyBoard(2)
  436.  
  437. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>HourGlass(on)
  438.  
  439. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(3, Hdlg, 1005)
  440.  
  441. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(3, Hdlg, 1008)
  442.  
  443. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(3, Hdlg, 1003)
  444.  
  445. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(3,Hdlg, 20)
  446.  
  447. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(3,Hdlg, 22)
  448.  
  449. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>FontDlg(3,Hdlg, 21)        
  450.  
  451. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>SetDlgItemText( hDlg, 20,1)    'init celsius
  452.  
  453. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>HourGlass(off)
  454.  
  455. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>End Function
  456.  
  457. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  458.  
  459. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  460.  
  461. @Subhead@<:S+-1><:#284,9025>function DisplayHelp()
  462.  
  463. @Outline2@<:#240,9025>' two defines needed for help.  The help name and panel number are defined above
  464.  
  465. @Outline2@<:#240,9025>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  466.  
  467. @Outline2@<:#240,9025>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  468.  
  469. @Outline2@<:#240,9025>prohWnd = FindWindowa("AmiProWndA", 0)
  470.  
  471. @Outline2@<:#240,9025>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  472.  
  473. @Outline2@<:#240,9025>PanelNum= 70 
  474.  
  475. @Outline2@<:#240,9025>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  476.  
  477. @Outline2@<:#240,9025>end function
  478.  
  479. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  480.  
  481. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  482.  
  483. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  484.  
  485. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  486.  
  487. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>Function FontDlg(Action, Hdlg, id)
  488.  
  489. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>' 1    Create a font and allocvar
  490.  
  491. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>' 2    Return the handle of the create font 
  492.  
  493. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>' 3    Set the id specified to the font
  494.  
  495. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>' 4    Freeglobalvar and delete created object
  496.  
  497. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  498.  
  499. <+@><:S+-1><:#568,9025><:f240,,>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  500.  
  501. <+@><:S+-1><:#284,9025><:f240,,>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  502.  
  503. <+@><:S+-1><:#568,9025><:f240,,>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  504.  
  505. <+@><:S+-1><:#284,9025><:f240,,>
  506.  
  507. <+@><:S+-1><:#284,9025><:f240,,>
  508.  
  509. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>Switch Action
  510.  
  511. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>Case 1    ' Create the font and store it
  512.  
  513. <+@><:S+-1><:#284,9025>        <:f240,,>Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  514.  
  515. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>AllocGlobalVar("FontHandle",1)
  516.  
  517. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>If Font
  518.  
  519. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SetGlobalVar("FontHandle",Font)
  520.  
  521. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Return Font
  522.  
  523. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Else
  524.  
  525. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Return 0;    ' no font
  526.  
  527. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Endif
  528.  
  529. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Break;
  530.  
  531. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>Case 2    ' Return the handle to the font
  532.  
  533. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Handle = GetGlobalVar$("FontHandle")
  534.  
  535. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>If Handle 
  536.  
  537. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Return Handle
  538.  
  539. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Else
  540.  
  541. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Return 0
  542.  
  543. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Endif
  544.  
  545. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  546.  
  547. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>Case 3    ' Set the id to the font
  548.  
  549. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Handle = GetGlobalVar$("FontHandle")
  550.  
  551. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>If Handle 
  552.  
  553. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>IdControl = GetDlgITem(Hdlg, id)
  554.  
  555. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>SendMessageDlg(idControl, 0x30, Handle, 0)
  556.  
  557. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Return 1
  558.  
  559. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Else
  560.  
  561. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Return 0
  562.  
  563. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Endif
  564.  
  565. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Break;        
  566.  
  567. <+@><:S+-1><:#240,9025>        
  568.  
  569. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>Case 4    ' Delete the font and clear the var
  570.  
  571. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Handle = GetGlobalVar$("FontHandle")
  572.  
  573. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>If Handle
  574.  
  575. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>DeleteObjectDLG(Handle)
  576.  
  577. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Stat = 1    
  578.  
  579. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Else
  580.  
  581. <+@><:S+-1><:#240,9025>            <:f200,2Times New Roman,0,0,0>Stat = 0
  582.  
  583. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Endif
  584.  
  585. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>FreeGlobalVar("FontHandle")
  586.  
  587. <+@><:S+-1><:#240,9025>        <:f200,2Times New Roman,0,0,0>Return Stat        
  588.  
  589. <+@><:S+-1><:#240,9025>    <:f200,2Times New Roman,0,0,0>Default
  590.  
  591. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>EndSwitch    
  592.  
  593. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>End Function
  594.  
  595. <+@><:S+-1><:#284,9025><+!><+"><:f240,2Times New Roman,0,0,0>
  596.  
  597. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  598.  
  599. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  600.  
  601. <+@><:S+-1><:#240,9025><:f200,2Times New Roman,0,0,0>
  602.  
  603. <:#240,9025>DIALOG    QuickTemp
  604.  
  605. <:#240,9025>-2134376448    10    56    36    140    85    ""    "AmiDialog"    "QuickTemp"
  606.  
  607. <:#240,9025>FONT    8    "Helv"
  608.  
  609. <:#240,9025>34    43    36    12    8001    1350631424    "edit"    ""    0 
  610.  
  611. <:#240,9025>8    61    80    10    20    1342242825    "button"    "</p>&Fahrenheit to Celsius"    0 
  612.  
  613. <:#240,9025>8    71    82    11    21    1342242825    "button"    "</p>&Celsius to Fahrenheit"    0 
  614.  
  615. <:#240,9025>95    3    40    14    1    1342373889    "button"    "Done"    0 
  616.  
  617. <:#240,9025>95    19    40    14    3    1342373888    "button"    "Copy"    0 
  618.  
  619. <:#240,9025>4    2    26    34    1001    1342177290    "static"    ""    0 
  620.  
  621. <:#240,9025>97    61    30    11    8010    1342177280    "static"    ""    0 
  622.  
  623. <:#240,9025>34    15    49    27    1008    1342177280    "static"    ""    0 
  624.  
  625. <:#240,9025>91    39    43    41    22    1342177287    "button"    "Answer: </p>C"    0 
  626.  
  627. <:#240,9025>199    48    50    12    8000    1350566016    "edit"    ""    0 
  628.  
  629. <:#240,9025>END DIALOG
  630.  
  631. >
  632.  
  633. [Embedded]
  634. 00017484
  635. >
  636. [macsum] 6
  637. Main 0 0 5 10
  638. Callback 413 3 5 37
  639. InitDlg 1647 3 1 88
  640. DisplayHelp 1858 0 4 102
  641. FontDlg 2043 3 5 115
  642. QuickTemp 2840 0 -1 173
  643. [macse]
  644. 14 Main
  645. 0 802
  646. 13
  647. 8 1
  648. 0 41 0 "{1}!InitDlg"
  649. 0 41 20 "{1}!CallBack"
  650. 0 41 21 "{1}!CallBack"
  651. 0 41 8001 "{1}!CallBack"
  652. 0 41 33 "{1}!CallBack"
  653. 16 FontDlg 1 0 0
  654. 0 31 1008 "Enter the temperature to be converted: "
  655. 0 295
  656. 13
  657. 8 2
  658. 0 31 1001 "{2}qktemp.bmt"
  659. 0 47 112 "{1}!DisplayHelp"
  660. 0 26 "." "QuickTemp"
  661. 13
  662. 8 3
  663. 6 3
  664. 5 3
  665. 18 0
  666. 11 00000383
  667. 0 27 8010
  668. 13
  669. 8 4
  670. 0 1038 "{4}" 1
  671. 16 FontDlg 4 0 0
  672. 6 0
  673. 15
  674. 9
  675. 14 Callback
  676. 0 32 2
  677. 5 9
  678. 5 5
  679. 4 1
  680. 8 4
  681. 6 1
  682. 5 33
  683. 18 0
  684. 11 00000155
  685. 0 42 "{0}" 8000
  686. 13
  687. 8 5
  688. 6 5
  689. 7 ""
  690. 18 1
  691. 11 00000143
  692. 0 1038 "{5}" 1
  693. 6 3
  694. 15
  695. 9
  696. 0 42 "{0}" 20
  697. 13
  698. 11 00000695
  699. 0 42 "{0}" 8001
  700. 13
  701. 8 5
  702. 0 277 "{5}"
  703. 13
  704. 11 00000601
  705. 6 5
  706. 5 32
  707. 3 1
  708. 6 4
  709. 4 1
  710. 8 6
  711. 6 6
  712. 5 0
  713. 5 273
  714. 3 1
  715. 18 5
  716. 11 00000342
  717. 7 "ERR"
  718. 8 6
  719. 10 00000511
  720. 0 19 "" "</p>" 2 "{6}"
  721. 13
  722. 8 6
  723. 0 15 "{6}" 1 2
  724. 13
  725. 7 "-,"
  726. 18 0
  727. 11 00000511
  728. 0 806 "{6}" 1
  729. 13
  730. 0 14 "{6}"
  731. 13
  732. 5 2
  733. 3 1
  734. 0 807 "{6}" [X]
  735. 13
  736. 0 16 [X] [X]
  737. 13
  738. 8 6
  739. 0 43 "{0}" 8010 "{6}"
  740. 0 43 "{0}" 8000 "{6}"
  741. 0 43 "{0}" 22 "Answer: </p>C"
  742. 10 00000682
  743. 6 5
  744. 7 ""
  745. 18 0
  746. 11 00000682
  747. 0 43 "{0}" 8010 ""
  748. 0 43 "{0}" 22 "Answer: </p>C"
  749. 10 00001222
  750. 0 42 "{0}" 21
  751. 13
  752. 11 00001222
  753. 0 42 "{0}" 8001
  754. 13
  755. 8 5
  756. 0 277 "{5}"
  757. 13
  758. 11 00001141
  759. 6 5
  760. 6 4
  761. 4 0
  762. 5 32
  763. 3 0
  764. 8 7
  765. 6 7
  766. 5 0
  767. 5 460
  768. 3 1
  769. 18 5
  770. 11 00000882
  771. 7 "ERR"
  772. 8 7
  773. 10 00001051
  774. 0 19 "" "</p>" 2 "{7}"
  775. 13
  776. 8 7
  777. 0 15 "{7}" 1 2
  778. 13
  779. 7 "-,"
  780. 18 0
  781. 11 00001051
  782. 0 806 "{7}" 1
  783. 13
  784. 0 14 "{7}"
  785. 13
  786. 5 2
  787. 3 1
  788. 0 807 "{7}" [X]
  789. 13
  790. 0 16 [X] [X]
  791. 13
  792. 8 7
  793. 0 43 "{0}" 8010 "{7}"
  794. 0 43 "{0}" 8000 "{7}"
  795. 0 43 "{0}" 22 "Answer: </p>F"
  796. 10 00001222
  797. 6 5
  798. 7 ""
  799. 18 0
  800. 11 00001222
  801. 0 43 "{0}" 8010 ""
  802. 0 43 "{0}" 22 "Answer: </p>F"
  803. 6 3
  804. 15
  805. 9
  806. 14 InitDlg
  807. 0 32 2
  808. 0 296 1
  809. 16 FontDlg 3 "{0}" 1005
  810. 16 FontDlg 3 "{0}" 1008
  811. 16 FontDlg 3 "{0}" 1003
  812. 16 FontDlg 3 "{0}" 20
  813. 16 FontDlg 3 "{0}" 22
  814. 16 FontDlg 3 "{0}" 21
  815. 0 43 "{0}" 20 1
  816. 0 296 0
  817. 6 3
  818. 15
  819. 9
  820. 14 DisplayHelp
  821. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  822. 13
  823. 8 1
  824. 0 798
  825. 13
  826. 0 16 [X] "HelpPack.hlp"
  827. 13
  828. 8 2
  829. 5 70
  830. 8 3
  831. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  832. 6 0
  833. 15
  834. 9
  835. 14 FontDlg
  836. 5 1
  837. 6 0
  838. 18 0
  839. 11 00000255
  840. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  841. 13
  842. 8 4
  843. 0 271 "FontHandle" 1
  844. 6 4
  845. 11 00000217
  846. 0 264 "FontHandle" "{4}"
  847. 6 4
  848. 15
  849. 9
  850. 10 00000229
  851. 5 0
  852. 15
  853. 9
  854. 10 00000785
  855. 10 00000785
  856. 5 2
  857. 6 0
  858. 18 0
  859. 11 00000381
  860. 0 265 "FontHandle"
  861. 13
  862. 8 5
  863. 6 5
  864. 11 00000356
  865. 6 5
  866. 15
  867. 9
  868. 10 00000368
  869. 5 0
  870. 15
  871. 9
  872. 10 00000785
  873. 5 3
  874. 6 0
  875. 18 0
  876. 11 00000596
  877. 0 265 "FontHandle"
  878. 13
  879. 8 5
  880. 6 5
  881. 11 00000558
  882. 0 44 "{1}" "{2}"
  883. 13
  884. 8 6
  885. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  886. 5 1
  887. 15
  888. 9
  889. 10 00000570
  890. 5 0
  891. 15
  892. 9
  893. 10 00000785
  894. 10 00000785
  895. 5 4
  896. 6 0
  897. 18 0
  898. 11 00000785
  899. 0 265 "FontHandle"
  900. 13
  901. 8 5
  902. 6 5
  903. 11 00000730
  904. 0 284 "gdi,DeleteObject,HH" "{5}"
  905. 5 1
  906. 8 7
  907. 10 00000740
  908. 5 0
  909. 8 7
  910. 0 266 "FontHandle"
  911. 6 7
  912. 15
  913. 9
  914. 10 00000785
  915. 6 3
  916. 15
  917. 9
  918. DIALOG QuickTemp
  919. -2134376448 10 56 36 140 85 "" "AmiDialog" "QuickTemp" 
  920. FONT 8 "Helv" 
  921. 34 43 36 12 8001 1350631424 "edit" "" 0 
  922. 8 61 80 10 20 1342242825 "button" "░&Fahrenheit to Celsius" 0 
  923. 8 71 82 11 21 1342242825 "button" "░&Celsius to Fahrenheit" 0 
  924. 95 3 40 14 1 1342373889 "button" "Done" 0 
  925. 95 19 40 14 3 1342373888 "button" "Copy" 0 
  926. 4 2 26 34 1001 1342177290 "static" "" 0 
  927. 97 61 30 11 8010 1342177280 "static" "" 0 
  928. 34 15 49 27 1008 1342177280 "static" "" 0 
  929. 91 39 43 41 22 1342177287 "button" "Answer: ░C" 0 
  930. 199 48 50 12 8000 1350566016 "edit" "" 0 
  931. 00017509
  932.