Category : BASIC Source Code
Archive   : GUI200.ZIP
Filename : PBGUI200.BI

 
Output of file : PBGUI200.BI contained in archive : GUI200.ZIP

' ===========================================================================
'
' PBGUI200.BI
'
DECLARE FUNCTION LoadFont%(FontFile$)
DECLARE SUB ButtonSetState (handle%, state%)
DECLARE SUB EditFieldSetState(handle%,state%)
DECLARE FUNCTION EditFieldGetState(handle%)
DECLARE SUB EditFieldToggleState(Handle%)
DECLARE SUB GetEvent ( startEdit%)
DECLARE SUB WindowLine (row%, col%, LineLength%, HorV%, LineColor%)
DECLARE SUB WindowPrint (row%, col%, text$, colr%, Font%)
DECLARE SUB Panel (UpOrDown%, row1%, col1%, row2%, col2%, LineWidth%)
DECLARE FUNCTION Event% (EventType%)
DECLARE FUNCTION WindowNext% ()
DECLARE SUB ButtonToggleState (handle%)
DECLARE SUB WindowInit ()
DECLARE FUNCTION ListBox (text$())
DECLARE SUB CloseWindow ()
DECLARE SUB ThreeDbox (UpOrDown%, row1%, col1%, row2%, col2%)
DECLARE SUB ThreeDLine (UpOrDown%, HorV%, row%, col%, Length%)
DECLARE SUB PALLETE(BYVAL Register AS WORD, BYVAL red as byte,_
BYVAL green as byte, BYVAL blue as byte)
DECLARE SUB ColorInit()
DECLARE SUB GUILib(Action%)
DECLARE FUNCTION GetEditField$(handle%)
DECLARE FUNCTION GetCurrentFont$()
DECLARE SUB ReDrawEditField(handle%)
DECLARE SUB EditFieldSetString(handle%,EditString$)
DECLARE FUNCTION ButtonGetState%(handle%)
DECLARE FUNCTION MessageBox%(text$())

%FALSE = 0
%TRUE = -1
%UP = 0
%DOWN = 1
%VERT = 0
%HORZ = 1
%CommandButton = 1
%CheckBoxButton = 2
%RadioButton = 3
%AreaButton = 4
%Active = 2
%NotActive = 1
%MakeWindow = 1
%MakeButton = 2
%MakeEditField = 3

UNION FontIDUnion
Number AS INTEGER
FileName AS STRING * 8
END UNION

TYPE WindowOpenTYPE
handle AS INTEGER
row1 AS INTEGER
col1 AS INTEGER
row2 AS INTEGER
col2 AS INTEGER
BackColor AS INTEGER
LightColor AS INTEGER
DarkColor AS INTEGER
TextColor AS INTEGER
BorderColor AS INTEGER
Title AS STRING * 80
Savebkgd AS INTEGER
END TYPE

TYPE ButtonOpenType
handle AS INTEGER
state AS INTEGER
text AS STRING * 30
row1 AS INTEGER
col1 AS INTEGER
row2 AS INTEGER
col2 AS INTEGER
ButtonType AS INTEGER
TextColor AS INTEGER
LightColor AS INTEGER
DarkColor AS INTEGER
BackColor AS INTEGER
FontID AS FontIDUnion
END TYPE

TYPE EditFieldOpenType
handle AS INTEGER
state AS INTEGER
text AS STRING * 255
row AS INTEGER
col AS INTEGER
ForeColor AS INTEGER
BackColor AS INTEGER
Length AS INTEGER
END TYPE

TYPE ListBoxDataType
row AS INTEGER
col AS INTEGER
items AS INTEGER
height AS INTEGER
BoxBackColor AS INTEGER
BoxLightColor AS INTEGER
BoxDarkColor AS INTEGER
BoxTextColor AS INTEGER
BoxBorderColor AS INTEGER
ButBackColor AS INTEGER
ButLightColor AS INTEGER
ButDarkColor AS INTEGER
ButTextColor AS INTEGER
ActiveItems AS STRING * 256
END TYPE

TYPE MessageBoxDataType
BoxBackColor AS INTEGER
BoxLightColor AS INTEGER
BoxDarkColor AS INTEGER
BoxTextColor AS INTEGER
BoxBorderColor AS INTEGER
ButBackColor AS INTEGER
ButLightColor AS INTEGER
ButDarkColor AS INTEGER
ButTextColor AS INTEGER
FontID AS FontIDUnion
ButOneText AS STRING * 10
ButTwoText AS STRING * 10
END TYPE

'TYPES

DIM Bold AS BYTE,_
FontLoaded AS INTEGER,_
CharSpace AS BYTE,_
FontHeight AS BYTE,_
AveWidth AS BYTE,_
Shadow AS BYTE,_
ShadowColor AS WORD,_
Raised AS BYTE,_
RaisedColor AS WORD,_
FontPath AS STRING,_
MAXWindow AS INTEGER,_
MAXButton AS INTEGER,_
MAXEditField AS INTEGER,_
WOT AS WindowOpenType,_
BOT AS ButtonOpenType,_
EFOT AS EditFieldOpenType,_
LBDT AS ListBoxDataType,_
MBDT AS MessageBoxDataType,_
WhichMouseButton AS BYTE

PUBLIC Bold,_
CharSpace,_
FontLoaded,_
FontPath,_
FontHeight,_
AveWidth,_
Shadow,_
ShadowColor,_
Raised,_
RaisedColor,_
WOT,_
BOT,_
EFOT,_
LBDT,_
MBDT,_
MAXWindow,_
MAXButton,_
MAXEditField,_
WhichMouseButton



FontPath = ""
MAXWindow = 5
MAXButton = 50
MAXEditField = 50