home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
mag&info
/
ptv3n5.zip
/
GETPALET.SRC
< prev
next >
Wrap
Text File
|
1992-09-01
|
454b
|
13 lines
FUNCTION TEditorApp.GetPalette: PPalette;
CONST
{ Set the help palettes to respectable default colors based
on the TApplication presets. }
CNewColor = CColor + CHelpColor;
CNewBlackWhite = CBlackWhite + CHelpBlackWhite;
CNewMonochrome = CMonochrome + CHelpMonochrome;
P: array[apColor..apMonochrome] of string[Length(CNewColor)] =
(CNewColor, CNewBlackWhite, CNewMonochrome);
BEGIN
GetPalette := @P[AppPalette];
END;