home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / CNTRFRAM.SMM < prev    next >
INI File  |  1992-06-30  |  9KB  |  638 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet III
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     Center frame horizontally on page
  19.     Lotus Technical Support
  20.     Advanced
  21.     FrameModType
  22.     noautorun
  23.     709942410
  24.     19
  25.     705189788
  26.     720
  27.     3
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  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.     Outline2
  57.     5
  58.     [fnt]
  59.         Arial
  60.         240
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  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.         2
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Outline2
  109.     0
  110.     0
  111. [lay]
  112.     Standard
  113.     513
  114.     [rght]
  115.         15840
  116.         12240
  117.         1
  118.         1440
  119.         1440
  120.         1
  121.         1440
  122.         1440
  123.         0
  124.         1
  125.         0
  126.         1
  127.         0
  128.         2
  129.         1
  130.         1440
  131.         10800
  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.         12240
  164.         1440
  165.         0
  166.         1
  167.         3
  168.         1 0 0 0 0 0 0
  169.         0
  170.         0
  171.         1
  172.     [frmlay]
  173.         1440
  174.         12240
  175.         1
  176.         1440
  177.         72
  178.         1
  179.         792
  180.         1440
  181.         0
  182.         1
  183.         0
  184.         1
  185.         1
  186.         0
  187.         1
  188.         1440
  189.         10800
  190.         1
  191.         3
  192.         9360
  193.     [txt]
  194. <+B><:f240,2Times New Roman,>Centre<:f><:f240,2Times New Roman,> Frame<:f>
  195.  
  196. <+B>Moves frame to centre of page
  197.  
  198. >
  199.     [frght]
  200.     [lyfrm]
  201.         1
  202.         13248
  203.         0
  204.         14400
  205.         12240
  206.         15840
  207.         0
  208.         1
  209.         3
  210.         1 0 0 0 0 0 0
  211.         0
  212.         0
  213.         2
  214.     [frmlay]
  215.         15840
  216.         12240
  217.         1
  218.         1440
  219.         792
  220.         1
  221.         14472
  222.         1440
  223.         0
  224.         1
  225.         0
  226.         1
  227.         1
  228.         0
  229.         1
  230.         1440
  231.         10800
  232.         2
  233.         2
  234.         4680
  235.         3
  236.         9360
  237.     [txt]
  238. @@1992     Lotus Development Corporation    Pete Housley
  239.  
  240. >
  241. [elay]
  242. [l1]
  243.     0
  244. [pg]
  245.     3
  246.     44 0 34 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
  247.     88 0 40 0 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
  248.     91 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
  249. [edoc]
  250. @Function@<:#293,9360>'declares and defines
  251.  
  252. @Outline2@<:#284,9360>define GetFocus()
  253.  
  254. @Outline2@<:#284,9360>    DllCall("user,GetFocus,H")
  255.  
  256. @Outline2@<:#284,9360>define SetFocus()
  257.  
  258. @Outline2@<:#284,9360>    DllCall("user,SetFocus,HH",%1)
  259.  
  260. @Outline2@<:#284,9360>define EnableWindow()
  261.  
  262. @Outline2@<:#284,9360>    DllCall("user,EnableWindow,HHH", %1, %2)
  263.  
  264. @Function@<:#293,9360>Function CenterFrame()
  265.  
  266. @Outline2@<:#284,9360>DefStr Length, Wide, Units, Paper, WinDir, INI, in, Fwide, FHigh, Top, Left, LMargin
  267.  
  268. @Outline2@<:#284,9360>DefStr TMargin, RMargin, BMargin, Funits, FType, FRound, FMacName
  269.  
  270. @Outline2@<:#284,9360>WinDir=GetWindowsDirectory$()
  271.  
  272. @Outline2@<:#284,9360>INI=strcat$(Windir, "AMIPRO2.INI")
  273.  
  274. @Outline2@<:#284,9360>in=getprofilestring$("CenterFrame", "Default", INI)
  275.  
  276. @Outline2@<:#284,9360>if in=""
  277.  
  278. @Outline2@<:#284,9360>    writeprofilestring("CenterFrame", "Default", "0", INI)
  279.  
  280. @Outline2@<:#284,9360>    in=0
  281.  
  282. @Outline2@<:#284,9360>endif
  283.  
  284. @Outline2@<:#284,9360>recheck:
  285.  
  286. @Outline2@<:#284,9360>If IsFrameSelected()=0
  287.  
  288. @Outline2@<:#284,9360>    usercontrol("Please select a frame, then click resume.")
  289.  
  290. @Outline2@<:#284,9360>    goto recheck
  291.  
  292. @Outline2@<:#284,9360>    endif
  293.  
  294. @Outline2@<:#284,9360>If IsFrameSelected()<<<;>0
  295.  
  296. @Outline2@<:#284,9360>    fillitem=20 + in
  297.  
  298. @Outline2@<:#284,9360>    FillEdit(fillitem, 1)
  299.  
  300. @Outline2@<:#284,9360>    rmac=GetRunningMacroFile$()
  301.  
  302. @Outline2@<:#284,9360>    SetDlgCallBack(0, "{rmac}!SetButton")
  303.  
  304. @Outline2@<:#284,9360>    setdlgcallback(30, "{rmac}!FLayout")
  305.  
  306. @Outline2@<:#284,9360>    box=DialogBox(".", "Options")
  307.  
  308. @Outline2@<:#284,9360>    if box=0
  309.  
  310. @Outline2@<:#284,9360>        Exit Function
  311.  
  312. @Outline2@<:#284,9360>    EndIf
  313.  
  314. @Outline2@<:#284,9360>    Cnt=GetLayoutParmCnt(ModLayoutRightPage)
  315.  
  316. @Outline2@<:#284,9360>    DIM Info(Cnt)
  317.  
  318. @Outline2@<:#284,9360>    GetLayoutParameters(ModLayoutRightPage, &Info)
  319.  
  320. @Outline2@<:#284,9360>    LeftMargin=Info(1)
  321.  
  322. @Outline2@<:#284,9360>    RightMargin=Info(3)
  323.  
  324. @Outline2@<:#284,9360>    TopMargin=Info(2)
  325.  
  326. @Outline2@<:#284,9360>    BottomMargin=Info(4)
  327.  
  328. @Outline2@<:#284,9360>    GetLayoutPageSize(&Length, &Wide, &Units, &Paper)
  329.  
  330. @Outline2@<:#568,9360>    GetCurFrameBorders(&FWide, &FHigh, &Top, &Left, &LMargin, &TMargin, &RMargin, &BMargin, &Funits)
  331.  
  332. @Outline2@<:#284,9360>    if GetDialogField$(21)=1
  333.  
  334. @Outline2@<:#284,9360>        LReduce=TopMargin + BottomMargin
  335.  
  336. @Outline2@<:#284,9360>        WReduce=LeftMargin + RightMargin
  337.  
  338. @Outline2@<:#284,9360>        l=fHigh
  339.  
  340. @Outline2@<:#284,9360>        w=fWide
  341.  
  342. @Outline2@<:#284,9360>        x=(((Length-LReduce) /2)-(fHigh/2))+TopMargin
  343.  
  344. @Outline2@<:#284,9360>        y=(((Wide-Wreduce) /2)-(fWide/2))+LeftMargin
  345.  
  346. @Outline2@<:#284,9360>        writeprofilestring("CenterFrame", "Default", "1", INI)
  347.  
  348. @Outline2@<:#284,9360>    Elseif GetDialogField$(20)=1
  349.  
  350. @Outline2@<:#284,9360>        x=((Length) /2)-(fHigh/2)
  351.  
  352. @Outline2@<:#284,9360>        y=((Wide) /2)-(fwide/2)
  353.  
  354. @Outline2@<:#284,9360>        writeprofilestring("CenterFrame", "Default", "0", INI)
  355.  
  356. @Outline2@<:#284,9360>    EndIf
  357.  
  358. @Outline2@<:#284,9360>    if getmode() <<<;> 1
  359.  
  360. @Outline2@<:#284,9360>        layoutmode()
  361.  
  362. @Outline2@<:#284,9360>    endif
  363.  
  364. @Outline2@<:#284,9360>    GetCurFrameType(&FType, &FRound, &FMacName)
  365.  
  366. @Outline2@<:#284,9360>    if ftype <;> 524288
  367.  
  368. @Outline2@<:#284,9360>        ftype=128
  369.  
  370. @Outline2@<:#284,9360>    endif
  371.  
  372. @Outline2@<:#284,9360>    FrameModInit( )
  373.  
  374. @Outline2@<:#284,9360>    FrameModType(Ftype, Fround, FMacName)
  375.  
  376. @Outline2@<:#568,9360>    FrameModBorders(fWide, FHigh, <:f240,BArial,255,0,0>top<:f>, y, LMargin, TMargin, RMargin, BMargin,1  )
  377.  
  378. @Outline2@<:#284,9360>    FrameModFinish( )
  379.  
  380. @Outline2@<:#284,9360>Endif
  381.  
  382. @Outline2@<:#284,9360>End Function
  383.  
  384. @Function@<:#293,9360>Function SetButton(Hdlg)
  385.  
  386. @Outline2@<:#284,9360>WinDir=GetWindowsDirectory$()
  387.  
  388. @Outline2@<:#284,9360>INI=strcat$(Windir, "AMIPRO2.INI")
  389.  
  390. @Outline2@<:#284,9360>in=getprofilestring$("CenterFrame", "Default", INI)
  391.  
  392. @Outline2@<:#284,9360>fillitem= 20 + in
  393.  
  394. @Outline2@<:#284,9360>setfocus(getdlgitem(hdlg, fillitem))    
  395.  
  396. @Outline2@<:#284,9360>end function
  397.  
  398. @Function@<:#293,9360>Function FLayout(hdlg)
  399.  
  400. @Outline2@<:#284,9360>focus=getfocus()
  401.  
  402. @Outline2@<:#284,9360>enablewindow(hdlg, 0)
  403.  
  404. @Outline2@<:#284,9360>FrameLayout
  405.  
  406. @Outline2@<:#284,9360>enablewindow(hdlg, 1)
  407.  
  408. @Outline2@<:#284,9360>setfocus(focus)
  409.  
  410. @Outline2@<:#284,9360>end function
  411.  
  412. @Function@<:#293,9360>DIALOG Options
  413.  
  414. @Outline2@<:#284,9360>-2134376448 6 126 29 140 55 "" "" "Centre Frame Horizontally"
  415.  
  416. @Outline2@<:#284,9360>FONT 8 "Helv"
  417.  
  418. @Outline2@<:#284,9360>4 3 82 38 24 1342308359 "button" "Centre frame within:" 0 
  419.  
  420. @Outline2@<:#284,9360>9 13 66 12 21 1342242825 "button" "&Margins" 0 
  421.  
  422. @Outline2@<:#284,9360>9 25 65 12 20 1342242825 "button" "&Page" 0 
  423.  
  424. @Outline2@<:#284,9360>96 3 40 14 1 1342373889 "button" "OK" 0 
  425.  
  426. @Outline2@<:#284,9360>96 20 40 14 2 1342373888 "button" "Cancel" 0 
  427.  
  428. @Outline2@<:#284,9360>96 37 40 14 30 1342373888 "button" "&Layout..." 0 
  429.  
  430. @Outline2@<:#284,9360>END DIALOG
  431.  
  432. >
  433.  
  434. [Embedded]
  435. 00007084
  436. >
  437. [macsum] 4
  438. CenterFrame 0 0 35 7
  439. SetButton 1370 1 5 67
  440. FLayout 1567 1 2 74
  441. Options 1743 0 -1 81
  442. [macse]
  443. 14 CenterFrame
  444. 0 1288
  445. 13
  446. 8 5
  447. 0 16 "{5}" "AMIPRO2.INI"
  448. 13
  449. 8 6
  450. 0 286 "CenterFrame" "Default" "{6}"
  451. 13
  452. 8 7
  453. 6 7
  454. 7 ""
  455. 18 0
  456. 11 00000195
  457. 0 287 "CenterFrame" "Default" "0" "{6}"
  458. 5 0
  459. 8 7
  460. 0 800
  461. 13
  462. 5 0
  463. 18 0
  464. 11 00000292
  465. 0 7 "Please select a frame, then click resume."
  466. 10 00000195
  467. 0 800
  468. 13
  469. 5 0
  470. 18 1
  471. 11 00001358
  472. 5 20
  473. 6 7
  474. 3 0
  475. 8 20
  476. 0 31 "{20}" 1
  477. 0 802
  478. 13
  479. 8 21
  480. 0 41 0 "{21}!SetButton"
  481. 0 41 30 "{21}!FLayout"
  482. 0 26 "." "Options"
  483. 13
  484. 8 22
  485. 6 22
  486. 5 0
  487. 18 0
  488. 11 00000502
  489. 6 0
  490. 15
  491. 9
  492. 0 1285 363
  493. 13
  494. 8 23
  495. 6 23
  496. 21 24 [X]
  497. 0 1286 363 &24
  498. 5 1
  499. 22 24
  500. 8 25
  501. 5 3
  502. 22 24
  503. 8 26
  504. 5 2
  505. 22 24
  506. 8 27
  507. 5 4
  508. 22 24
  509. 8 28
  510. 0 1282 &1 &2 &3 &4
  511. 0 795 &8 &9 &10 &11 &12 &13 &14 &15 &16
  512. 0 27 21
  513. 13
  514. 5 1
  515. 18 0
  516. 11 00000975
  517. 6 27
  518. 6 28
  519. 3 0
  520. 8 29
  521. 6 25
  522. 6 26
  523. 3 0
  524. 8 30
  525. 6 9
  526. 8 31
  527. 6 8
  528. 8 32
  529. 6 1
  530. 6 29
  531. 3 1
  532. 5 2
  533. 4 1
  534. 6 9
  535. 5 2
  536. 4 1
  537. 3 1
  538. 6 27
  539. 3 0
  540. 8 33
  541. 6 2
  542. 6 30
  543. 3 1
  544. 5 2
  545. 4 1
  546. 6 8
  547. 5 2
  548. 4 1
  549. 3 1
  550. 6 25
  551. 3 0
  552. 8 34
  553. 0 287 "CenterFrame" "Default" "1" "{6}"
  554. 10 00001135
  555. 0 27 20
  556. 13
  557. 5 1
  558. 18 0
  559. 11 00001135
  560. 6 1
  561. 5 2
  562. 4 1
  563. 6 9
  564. 5 2
  565. 4 1
  566. 3 1
  567. 8 33
  568. 6 2
  569. 5 2
  570. 4 1
  571. 6 8
  572. 5 2
  573. 4 1
  574. 3 1
  575. 8 34
  576. 0 287 "CenterFrame" "Default" "0" "{6}"
  577. 0 29
  578. 13
  579. 5 1
  580. 18 1
  581. 11 00001178
  582. 2 210 1
  583. 0 794 &17 &18 &19
  584. 6 17
  585. 5 524288
  586. 18 3
  587. 11 00001245
  588. 5 128
  589. 8 17
  590. 2 421 1
  591. 2 417 1 "{17}" "{18}" "{19}"
  592. 2 418 1 "{8}" "{9}" "{10}" "{34}" "{12}" "{13}" "{14}" "{15}" 1
  593. 2 420 1
  594. 6 0
  595. 15
  596. 9
  597. 14 SetButton
  598. 0 1288
  599. 13
  600. 8 2
  601. 0 16 "{2}" "AMIPRO2.INI"
  602. 13
  603. 8 3
  604. 0 286 "CenterFrame" "Default" "{3}"
  605. 13
  606. 8 4
  607. 5 20
  608. 6 4
  609. 3 0
  610. 8 5
  611. 0 44 "{0}" "{5}"
  612. 13
  613. 0 284 "user,SetFocus,HH" [X]
  614. 6 1
  615. 15
  616. 9
  617. 14 FLayout
  618. 0 284 "user,GetFocus,H"
  619. 13
  620. 8 2
  621. 0 284 "user,EnableWindow,HHH" "{0}" 0
  622. 24 402
  623. 0 284 "user,EnableWindow,HHH" "{0}" 1
  624. 0 284 "user,SetFocus,HH" "{2}"
  625. 6 1
  626. 15
  627. 9
  628. DIALOG Options
  629. -2134376448 6 126 29 140 55 "" "" "Centre Frame Horizontally" 
  630. FONT 8 "Helv" 
  631. 4 3 82 38 24 1342308359 "button" "Centre frame within:" 0 
  632. 9 13 66 12 21 1342242825 "button" "&Margins" 0 
  633. 9 25 65 12 20 1342242825 "button" "&Page" 0 
  634. 96 3 40 14 1 1342373889 "button" "OK" 0 
  635. 96 20 40 14 2 1342373888 "button" "Cancel" 0 
  636. 96 37 40 14 30 1342373888 "button" "&Layout..." 0 
  637. 00007109
  638.