home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
300-399
/
ff361.lzh
/
XColor-Lib
/
DEMO_SOURCES
/
XColor.p
< prev
Wrap
Text File
|
1990-08-11
|
970b
|
53 lines
Program XColor_Library_ColourRequester_Demo;
{$path "pascal:include/";incl"XColor.lib" }
Var ScreenPointer : ^Screen;
Dummy : ^Ptr;
Palette : cr_ColourRequester;
Return : Long;
Begin
OpenLib(IntBase,'intuition.library',0);
OpenLib(XColorBase,'xcolor.library',0);
{ get pointer of first screen / Zeiger auf obersten Screen holen }
Dummy:=Ptr((Long(IntBase))+60);
ScreenPointer:=Ptr(Dummy^)
{ put up structure / Struktur erstellen }
with Palette do begin
Screen:=ScreenPointer;
TextColour:=0;
BackColour:=1;
GBorderColour:=2;
GTextColour:=0;
Flags:=FLAG_NORMAL+FLAG_RGB+FLAG_RMBTRAP;
LeftEdge:=40;
TopEdge:=20;
Font:=NIL;
DefaultEntries:=0;
JMPWindow:=NIL;
JMPMessage:=NIL;
JMPMode:=NIL;
JMPDraw:=NIL;
Mode:=0;
ScreenTitle:="Palette demo using KICKPASCAL";
DefaultWTitle:="Palette";
end;
RETURN:=COLOURREQUESTER(^Palette);
CloseLib(IntBase)
CloseLib(XColorBase)
End.