Announcement

Collapse
No announcement yet.

Phi Calculator

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Phi Calculator

    I have been playing around with different GUI design protocols
    and came across Phi, the Golden Number. (see http://goldennumber.net/ )

    Basically, a rectangle using Phi as the ratio from X to Y is
    supposed to create the most eye pleasing design.

    I took it a step further and created this GUI calculator
    to help in doing the math quickly when you want to do different
    scales of Phi.

    Hope it's usefull for someone.

    Additions in v2:
    + Added a visual example of the rectangle proportions


    Code:
    '----------------------------------------------------------------------------(')
    'Phi Calculator v2
    'Created by George B. Bleck
    'Created on 2003-10-05
    '*** Public domain ***
    '*** Alterations/reprints permitted without authorizaion ***
    '
    
    #COMPILE EXE
    #DIM ALL
    #IF NOT %DEF( %WINAPI )
    	#INCLUDE "WIN32API.INC"
    #ENDIF
    #INCLUDE "PBForms.INC"
    
    '----------------------------------------------------------------------------(')
    
    %dlgMain = 102
    %lbxDimensions = 110
    %btn1qX1qY = 119
    %btn1hX1qY = 113
    %btn3qX1qY = 125
    %btnFullX1qY = 132
    %btn1qX1hY = 118
    %btn1hX1hY = 112
    %btn3qX1hY = 124
    %btnFullX1hY = 131
    %btn1qX3qY = 120
    %btn1hX3qY = 114
    %btn3qX3qY = 126
    %btnFullX3qY = 133
    %btn1qXFullY = 121
    %btn1hXFullY = 115
    %btn3qXFullY = 127
    %btnFullXFullY = 134
    %staticExample = 129
    %staticTemplate = 200
    %btnCLOSE = 101
    %frameGrid = 136
    %static1qX = 117
    %static1hX = 111
    %static3qX = 123
    %staticFullX = 130
    %static1qY = 122
    %static1hY = 116
    %static3qY = 128
    %staticFullY = 135
    %IDC_LINE1 = 104
    %IDC_LINE2 = 105
    %IDC_LINE3 = 106
    %IDC_LINE4 = 107
    %IDC_LINE5 = 108
    %IDC_LINE6 = 109
    
    '----------------------------------------------------------------------------(')
    
    DECLARE CALLBACK FUNCTION dlgMain_Callback( )
    DECLARE FUNCTION SampleListBox( BYVAL hDlg AS DWORD, BYVAL lID AS LONG, BYVAL lCount AS LONG ) AS LONG
    DECLARE FUNCTION dlgMain_Create( BYVAL hParent AS DWORD ) AS LONG
    
    '----------------------------------------------------------------------------(')
    
    CALLBACK FUNCTION dlgMain_Callback( )
    	LOCAL lngCounter AS LONG
    	LOCAL strTemp AS STRING
    	LOCAL lng1qX AS LONG
    	LOCAL lng1hX AS LONG
    	LOCAL lng3qX AS LONG
    	LOCAL lngFullX AS LONG
    	SELECT CASE CBMSG
    		CASE %WM_INITDIALOG
    			FOR lngCounter = 1 TO 640
    				LISTBOX ADD CBHNDL, %lbxDimensions, "(" & FORMAT$( lngCounter, "* #" ) & " x " & FORMAT$( lngCounter / 1.6180339887, "* #" ) & ")"
    			NEXT lngCounter
    			CONTROL SEND CBHNDL, %lbxDimensions, %LB_SETCURSEL, 0, 0
    			DIALOG POST CBHNDL, %WM_COMMAND, MAKDWD( %lbxDimensions, %LBN_SELCHANGE ), GETDLGITEM( CBHNDL, %lbxDimensions )
    		CASE %WM_COMMAND
    			SELECT CASE CBCTL
    				CASE %btnCLOSE
    					IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
    						DIALOG END CBHNDL
    					END IF
    				CASE %btn1qX1qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 36, 22
    					CONTROL SET TEXT CBHNDL, %staticExample, "1q X 1q"
    				CASE %btn1hX1qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 71, 22
    					CONTROL SET TEXT CBHNDL, %staticExample, "1h X 1q"
    				CASE %btn3qX1qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 107, 22
    					CONTROL SET TEXT CBHNDL, %staticExample, "3q X 1q"
    				CASE %btnFullX1qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 142, 22
    					CONTROL SET TEXT CBHNDL, %staticExample, "Full X 1q"
    				CASE %btn1qX1hY
    					CONTROL SET SIZE CBHNDL, %staticExample, 36,44
    					CONTROL SET TEXT CBHNDL, %staticExample, "1q X 1h"
    				CASE %btn1hX1hY
    					CONTROL SET SIZE CBHNDL, %staticExample, 71,44
    					CONTROL SET TEXT CBHNDL, %staticExample, "1h X 1h"
    				CASE %btn3qX1hY
    					CONTROL SET SIZE CBHNDL, %staticExample, 107,44
    					CONTROL SET TEXT CBHNDL, %staticExample, "3q X 1h"
    				CASE %btnFullX1hY
    					CONTROL SET SIZE CBHNDL, %staticExample, 142,44
    					CONTROL SET TEXT CBHNDL, %staticExample, "Full X 1h"
    				CASE %btn1qX3qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 36,66
    					CONTROL SET TEXT CBHNDL, %staticExample, "1q X 3q"
    				CASE %btn1hX3qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 71,66
    					CONTROL SET TEXT CBHNDL, %staticExample, "1h X 3q"
    				CASE %btn3qX3qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 107,66
    					CONTROL SET TEXT CBHNDL, %staticExample, "3q X 3q"
    				CASE %btnFullX3qY
    					CONTROL SET SIZE CBHNDL, %staticExample, 142, 66
    					CONTROL SET TEXT CBHNDL, %staticExample, "Full X 3q"
    				CASE %btn1qXFullY
    					CONTROL SET SIZE CBHNDL, %staticExample, 36,88
    					CONTROL SET TEXT CBHNDL, %staticExample, "1q X Full"
    				CASE %btn1hXFullY
    					CONTROL SET SIZE CBHNDL, %staticExample, 71,88
    					CONTROL SET TEXT CBHNDL, %staticExample, "1h X Full"
    				CASE %btn3qXFullY
    					CONTROL SET SIZE CBHNDL, %staticExample, 107,88
    					CONTROL SET TEXT CBHNDL, %staticExample, "3q X Full"
    				CASE %btnFullXFullY
    					CONTROL SET SIZE CBHNDL, %staticExample, 142, 88
    					CONTROL SET TEXT CBHNDL, %staticExample, "Full X Full"
    				CASE %lbxDimensions
    					IF CBCTLMSG = %LBN_SELCHANGE THEN
    						LISTBOX GET TEXT CBHNDL, %lbxDimensions TO strTemp
    						lngFullX = VAL( MID$( strTemp, 2, 3 )) : lng1qX = lngFullX / 4 : lng1hX = lngFullX / 2 : lng3qX = lngFullX * .75
    						CONTROL SET TEXT CBHNDL, %btn1qX1qY, FORMAT$( lng1qX, "* #" ) & " x " & FORMAT$( lng1qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn1qX1hY, FORMAT$( lng1qX, "* #" ) & " x " & FORMAT$( lng1hX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn1qX3qY, FORMAT$( lng1qX, "* #" ) & " x " & FORMAT$( lng3qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn1qXFullY, FORMAT$( lng1qX, "* #" ) & " x " & FORMAT$( lngFullX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn1hX1qY, FORMAT$( lng1hX, "* #" ) & " x " & FORMAT$( lng1qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn1hX1hY, FORMAT$( lng1hX, "* #" ) & " x " & FORMAT$( lng1hX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn1hX3qY, FORMAT$( lng1hX, "* #" ) & " x " & FORMAT$( lng3qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn1hXFullY, FORMAT$( lng1hX, "* #" ) & " x " & FORMAT$( lngFullX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn3qX1qY, FORMAT$( lng3qX, "* #" ) & " x " & FORMAT$( lng1qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn3qX1hY, FORMAT$( lng3qX, "* #" ) & " x " & FORMAT$( lng1hX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn3qX3qY, FORMAT$( lng3qX, "* #" ) & " x " & FORMAT$( lng3qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btn3qXFullY, FORMAT$( lng3qX, "* #" ) & " x " & FORMAT$( lngFullX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btnFullX1qY, FORMAT$( lngFullX, "* #" ) & " x " & FORMAT$( lng1qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btnFullX1hY, FORMAT$( lngFullX, "* #" ) & " x " & FORMAT$( lng1hX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btnFullX3qY, FORMAT$( lngFullX, "* #" ) & " x " & FORMAT$( lng3qX / 1.6180339887, "* #" )
    						CONTROL SET TEXT CBHNDL, %btnFullXFullY, FORMAT$( lngFullX, "* #" ) & " x " & FORMAT$( lngFullX / 1.6180339887, "* #" )
    					END IF
    			END SELECT
    	END SELECT
    END FUNCTION
    
    '----------------------------------------------------------------------------(')
    
    FUNCTION PBMAIN( )
    	LOCAL lngResult AS LONG
    	LOCAL hDlg AS DWORD
    	LOCAL hFont1 AS DWORD
    	LOCAL hFont2 AS DWORD
    	DIALOG NEW %HWND_DESKTOP, "Phi Calculator", 151, 154, 428, 220, %WS_POPUP OR %WS_BORDER OR %WS_DLGFRAME OR %WS_CAPTION OR %WS_SYSMENU OR %WS_MINIMIZEBOX OR %WS_CLIPSIBLINGS OR %WS_VISIBLE OR %DS_MODALFRAME OR %DS_CENTER OR %DS_3DLOOK OR _
    	  %DS_NOFAILCREATE OR %DS_SETFONT, %WS_EX_WINDOWEDGE OR %WS_EX_CONTROLPARENT OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR, TO hDlg
    	CONTROL ADD LISTBOX, hDlg, %lbxDimensions,, 8, 8, 80, 204, %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_VSCROLL OR %LBS_HASSTRINGS OR %LBS_NOTIFY OR %LBS_NOINTEGRALHEIGHT, %WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
    	  %WS_EX_RIGHTSCROLLBAR
    	CONTROL ADD BUTTON, hDlg, %btn1qX1qY, "1000 x 1000", 156, 24, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1qX1qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn1hX1qY, "1000 x 1000", 224, 24, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1hX1qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn3qX1qY, "1000 x 1000", 292, 24, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn3qX1qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btnFullX1qY, "1000 x 1000", 360, 24, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btnFullX1qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn1qX1hY, "1000 x 1000", 156, 48, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1qX1hY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn1hX1hY, "1000 x 1000", 224, 48, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1hX1hY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn3qX1hY, "1000 x 1000", 292, 48, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn3qX1hY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btnFullX1hY, "1000 x 1000", 360, 48, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btnFullX1hY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn1qX3qY, "1000 x 1000", 156, 72, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1qX3qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn1hX3qY, "1000 x 1000", 224, 72, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1hX3qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn3qX3qY, "1000 x 1000", 292, 72, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn3qX3qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btnFullX3qY, "1000 x 1000", 360, 72, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btnFullX3qY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn1qXFullY, "1000 x 1000", 156, 96, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1qXFullY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn1hXFullY, "1000 x 1000", 224, 96, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn1hXFullY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btn3qXFullY, "1000 x 1000", 292, 96, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btn3qXFullY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD BUTTON, hDlg, %btnFullXFullY, "1000 x 1000", 360, 96, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL SET COLOR hDlg, %btnFullXFullY, %YELLOW, RGB( 0, 0, 128 )
    	CONTROL ADD LABEL, hDlg, %staticTemplate, "(Full x Full)", 184, 124, 142, 88, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_DLGMODALFRAME OR %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %staticExample, "Example (Full x Full)", 184, 124, 142, 88, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_DLGMODALFRAME OR %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD BUTTON, hDlg, %btnCLOSE, "&Close", 372, 196, 48, 16
    	CONTROL ADD FRAME, hDlg, %frameGrid, "", 96, 4, 324, 112
    	CONTROL ADD LABEL, hDlg, %static1qX, "1/4", 156, 12, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %static1hX, "1/2", 224, 12, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %static3qX, "3/4", 292, 12, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %staticFullX, "Full", 360, 12, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %static1qY, "1/4", 100, 24, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %static1hY, "1/2", 100, 48, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %static3qY, "3/4", 100, 72, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LABEL, hDlg, %staticFullY, "Full", 100, 96, 56, 12, %WS_CHILD OR %WS_VISIBLE OR %SS_CENTER OR %SS_CENTERIMAGE, %WS_EX_LEFT OR %WS_EX_LTRREADING
    	CONTROL ADD LINE, hDlg, %IDC_LINE1, "Line1", 216, 12, 1, 100
    	CONTROL ADD LINE, hDlg, %IDC_LINE2, "Line1", 284, 12, 1, 100
    	CONTROL ADD LINE, hDlg, %IDC_LINE3, "Line1", 352, 12, 1, 100
    	CONTROL ADD LINE, hDlg, %IDC_LINE4, "Line1", 100, 40, 316, 1
    	CONTROL ADD LINE, hDlg, %IDC_LINE5, "Line1", 100, 64, 316, 1
    	CONTROL ADD LINE, hDlg, %IDC_LINE6, "Line1", 100, 88, 316, 1
    	hFont1 = PBFormsMakeFont( "Courier", 8, 400, %FALSE, %FALSE, %FALSE, %ANSI_CHARSET )
    	hFont2 = PBFormsMakeFont( "MS Sans Serif", 8, 700, %FALSE, %FALSE, %FALSE, %ANSI_CHARSET )
    	CONTROL SEND hDlg, %lbxDimensions, %WM_SETFONT, hFont1, 0
    	CONTROL SEND hDlg, %btn1qX1qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn1hX1qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn3qX1qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btnFullX1qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn1qX1hY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn1hX1hY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn3qX1hY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btnFullX1hY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn1qX3qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn1hX3qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn3qX3qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btnFullX3qY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn1qXFullY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn1hXFullY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btn3qXFullY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %btnFullXFullY, %WM_SETFONT, hFont2, 0
    	CONTROL SEND hDlg, %staticExample, %WM_SETFONT, hFont2, 0
    	DIALOG SHOW MODAL hDlg, CALL dlgMain_Callback TO lngResult
    	DELETEOBJECT hFont1
    	DELETEOBJECT hFont2
    	FUNCTION = lngResult
    END FUNCTION
    ------------------
    Every day I try to learn one thing new,
    but new things to learn are increasing exponentially.
    At this rate Iím becoming an idiot faster and faster !!!
    ------------------
    George W. Bleck
    Lead Computer Systems Engineer
    KeySpan Corporation
    My Email



    [This message has been edited by George Bleck (edited October 06, 2003).]
    George W. Bleck
Working...
X