PowerBASIC Peer Support Forums
 

Go Back   PowerBASIC Peer Support Forums > User to user Discussions > Source Code

Source Code PowerBASIC and related source code. Please do not post questions or discussions, just source code.

Reply
 
Thread Tools Display Modes
  #1  
Old Oct 5th, 2003, 08:52 PM
George Bleck George Bleck is offline
Member
 
Join Date: Nov 1998
Location: Long Island, NY
Posts: 1,922
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
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -4. The time now is 05:41 AM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Copyright © 1999-2011 PowerBASIC, Inc. All Rights Reserved.
Error in my_thread_global_end(): 1 threads didn't exit