home *** CD-ROM | disk | FTP | other *** search
- '***********************************************************************
- ' Custom.rlz
- '
- ' Realizer.ini customization program
- '
- ' Copyright ⌐ 1991-1992 Computer Associates International, Inc.
- ' All rights reserved.
- '
- '***********************************************************************
-
- LOCAL CustProfGetS, CustProfGetI, CustProfSet, startup, editfont, flags, font
- LOCAL MyProfGetS, MyProfSet
-
- EXTERNAL "kernel" PROC CustProfSet(POINTER, POINTER, POINTER, POINTER) ALIAS "WritePrivateProfileString"
- EXTERNAL "kernel" FUNC CustProfGetS(POINTER, POINTER, POINTER, POINTER, INTEGER, POINTER) AS INTEGER ALIAS "GetPrivateProfileString"
- EXTERNAL "kernel" FUNC CustProfGetI(POINTER, POINTER, INTEGER, POINTER) AS WORD ALIAS "GetPrivateProfileInt"
-
- FUNC MyProfGetS(profstr)
- LOCAL length, buf
- buf = String$(255, " ")
- length = CustProfGetS("Realizer", profstr, "?", buf, 255, "Realizer.ini")
- buf = Left$(buf, length)
- RETURN buf
- END FUNC
-
- PROC MyProfSet(profstr, valstr)
- WHILE valstr <> "" AND Left$(valstr, 1) = " "
- valstr = Mid$(valstr, 2)
- END WHILE
- IF valstr = "" THEN
- CustProfSet("Realizer", profstr, "?", "Realizer.ini")
- ELSE
- CustProfSet("Realizer", profstr, valstr, "Realizer.ini")
- END IF
- END PROC
-
- FormNew(FormQUnique; "Set Realizer Initialization Values", _Title)
- FormControl(_Size; _Center, _Center, 60 pct, 40 pct)
- FormSetObject(10, _CaptionLeft, "Startup command:", 3 pct, 10 pct)
- FormSetObject(20, _TextBox, "", 37 pct, 8 pct, 60 pct, _Default)
- FormSetObject(30, _CaptionCenter, "Program Editor Font:", 3 pct, 40 pct)
- FormSetObject(40, _TextBox, "", 40 pct, 38 pct, 32 pct, _Default)
- FormSetObject(50, _Button, "New Font...", 75 pct, 38 pct, 22 pct, FormQObject(40)[_FQO_Height])
- FormSetObject(1, _DefButton, "OK", _Left, _Bottom)
- FormSetObject(2, _Button, "Cancel", _Right, _Bottom)
-
- startup = MyProfGetS("Startup")
- IF startup <> "?" THEN
- FormModifyObject(20, _Normal, startup)
- END IF
- editfont = MyProfGetS("EditFont")
- IF editfont <> "?" THEN
- FormModifyObject(40, _Normal, editfont)
- END IF
-
- LOOP
- SELECT CASE FormWait
- CASE 1 'OK
- MyProfSet("Startup", FormQStr(20))
- MyProfSet("EditFont", FormQStr(40))
- EXIT LOOP
- CASE 2 'Cancel
- EXIT LOOP
- CASE 50 'Font button
- font = StdFont
- IF font[1] <> "" THEN
- editfont = font[1] + "-" + font[2]
- flags = StrToNum(font[3])
- IF flags THEN
- editfont = editfont + "/"
- IF flags mod 2 THEN
- editfont = editfont + "b"
- END IF
- flags = flags \ 2
- IF flags mod 2 THEN
- editfont = editfont + "i"
- END IF
- flags = flags \ 2
- IF flags mod 2 THEN
- editfont = editfont + "u"
- END IF
- flags = flags \ 2
- IF flags mod 2 THEN
- editfont = editfont + "s"
- END IF
- END IF
- FormModifyObject(40, _Normal, editfont)
- END IF
- END SELECT
- END LOOP
-
- FormControl(_Close)
- EXIT PROGRAM
-
-