sz3905
asked on
"ZIF Help converting MS C sample code"
How do I use CreateIdentityPalette(I HAVE 281 POINTS LEFT IN MY ACCT,CreateDIBSectionFromF ile(FName: PChar): HBITMAP, PrepareDIBSectionForIdenti tyP) THEY ARE YOURS, thanks alot!)
/STEVE
RONIT, I'm sorry this question was placed in error and as stated is misleading. Your answer is excellent however.
The question was answered 3/6/97 by zif & Igor and I was trying to pass points to zif.
Please see previous question "Help converting MS C sample code" entered 3/5/98.
Zif please talk to Igor, he'll explain.
/thanks all
/STEVE
RONIT, I'm sorry this question was placed in error and as stated is misleading. Your answer is excellent however.
The question was answered 3/6/97 by zif & Igor and I was trying to pass points to zif.
Please see previous question "Help converting MS C sample code" entered 3/5/98.
Zif please talk to Igor, he'll explain.
/thanks all
?? sz3905, what do you exactly mean ??
In what can I be of assistance?
Regards, Zif.
In what can I be of assistance?
Regards, Zif.
ASKER
Edited text of question
ASKER
Edited text of question
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks!
47. Creating and selecting palettes
Q:
How do you create and use a Palette in Delphi. According to the help fn I
think you should use the CreatePalette and SetPaletteEntries and RealizePalette
but how?
A:
Below are functions that help to create a palette (an identity
palette, BTW) from an array of RGBQuads (such as you would find in
the palette section of a .BMP file). I stole this from the WinG
documentation, and converted it to Delphi. First call
ClearSystemPalette, then you can get an identity palette by calling
CreateIdentityPalette.
If you plan to try palette animation, work in a 256-color mode, and
change all the PC_NOCOLLAPSE entries below to PC_RESERVED.
Besides creating the palette, the other pieces to the puzzle are
1. Override the form's GetPalette method, so that it returns the
new palette.
2. Select and realize the new palette just before you paint.
OldPal := SelectPalette(Canvas.Handl
RealizePalette(Canvas.Hand
{ Do your painting here }
SelectPalette(Canvas.Handl
3. Remember to release the palette when you are done using
DeleteObject
4. If you are used to using the RGB function to get color values, use
the PaletteRGB function in its place.
function CreateIdentityPalette(cons
type
QA = Array[0..255] of TRGBQUAD;
var
Palette : PLOGPALETTE;
PalSize : Word;
ScreenDC : HDC;
I : Integer;
nStaticColors : Integer;
nUsableColors : Integer;
begin
PalSize := SizeOf(TLOGPALETTE) + SizeOf(TPALETTEENTRY) * 256;
GetMem(Palette, PalSize);
try
with Palette^ do
begin
palVersion := $0300;
palNumEntries := 256;
ScreenDC := GetDC(0);
try
{ For SYSPAL_NOSTATIC, just copy the color table into a PALETTEENTRY
array and replace the first and last entries with black and white }
if (GetSystemPaletteUse(Scree
then
begin
{ Fill in the palette with the given values, marking each
with PalFlag }
{$R-}
for i := 0 to (nColors-1) do
with palPalEntry[i], QA(aRGB)[I] do
begin
peRed := rgbRed;
peGreen := rgbGreen;
peBlue := rgbBlue;
peFlags := PC_NOCOLLAPSE;
end;
{ Mark any unused entries with PalFlag }
for i := nColors to 255 do
palPalEntry[i].peFlags := PC_NOCOLLAPSE;
{ Make sure the last entry is white --
This may replace an entry in the array!}
I := 255;
with palPalEntry[i] do
begin
peRed := 255;
peGreen := 255;
peBlue := 255;
peFlags := 0;
end;
{ And the first is black --
This may replace an entry in the array!}
with palPalEntry[0] do
begin
peRed := 0;
peGreen := 0;
peBlue := 0;
peFlags := 0;
end;
{$R+}
end
else
begin
{ For SYSPAL_STATIC, get the twenty static colors into the
array, then fill in the empty spaces with the given color
table }
{ Get the static colors from the system palette }
nStaticColors := GetDeviceCaps(ScreenDC, NUMRESERVED);
GetSystemPaletteEntries(Sc
{$R-}
{ Set the peFlags of the lower static colors to zero }
nStaticColors := nStaticColors shr 1;
for i:= 0 to (nStaticColors-1) do
palPalEntry[i].peFlags := 0;
{ Fill in the entries from the given color table}
nUsableColors := nColors - nStaticColors;
for I := nStaticColors to (nUsableColors-1) do
with palPalEntry[i], QA(aRGB)[i] do
begin
peRed := rgbRed;
peGreen := rgbGreen;
peBlue := rgbBlue;
peFlags := PC_NOCOLLAPSE;
end;
{ Mark any empty entries as PC_NOCOLLAPSE }
for i := nUsableColors to (255-nStaticColors) do
palPalEntry[i].peFlags := PC_NOCOLLAPSE;
{ Set the peFlags of the upper static colors to zero }
for i := (256 - nStaticColors) to 255 do
palPalEntry[i].peFlags := 0;
end;
finally
ReleaseDC(0, ScreenDC);
end;
end;
{ Return the palette }
Result := CreatePalette(Palette^);
finally
FreeMem(Palette, PalSize);
end;
end;
procedure ClearSystemPalette;
var
Palette : PLOGPALETTE;
PalSize : Word;
ScreenDC : HDC;
I : Word;
const
ScreenPal : HPALETTE = 0;
begin
PalSize := SizeOf(TLOGPALETTE) + SizeOf(TPALETTEENTRY) * 255; {256th = [0] }
GetMem(Palette, PalSize);
try
FillChar(Palette^, PalSize, 0);
Palette^.palVersion := $0300;
Palette^.palNumEntries := 256;
{$R-}
For I := 0 to 255 do
With Palette^.palPalEntry[I] do
peFlags := PC_NOCOLLAPSE;
{$R+}
{ Create, select, realize, deselect, and delete the palette }
ScreenDC := GetDC(0);
try
ScreenPal := CreatePalette(Palette^);
if ScreenPal <> 0
then
begin
ScreenPal := SelectPalette(ScreenDC,Scr
RealizePalette(ScreenDC);
ScreenPal := SelectPalette(ScreenDC,Scr
DeleteObject(ScreenPal);
end;
finally
ReleaseDC(0, ScreenDC);
end;
finally
FreeMem(Palette, PalSize);
end;
end;
[Eric Nielsen, htrsoft@midwest.net]