> I have a form which I want its background color is $B$D4DE( color of
> quicken), but when I run it under 256 mode, system use dither to deal with
> it.
> I've already override the GetPalette function, what else should I do to get
> the correct result ( as quicken ).

>Thanks,
>Roelof

> > I have a form which I want its background color is $B$D4DE( color of
> > quicken), but when I run it under 256 mode, system use dither to deal
with
> > it.
> > I've already override the GetPalette function, what else should I do to
get
> > the correct result ( as quicken ).

> Normally, I'd refer you to a previous Deja post that seems to answer your
> question.  Unfortuntely, Deja has messed up their archive (I hope
temporarily)
> and the desired article is not online.  I kept an offline copy and will
just
> re-post it here:
> ========================================================
> From: "Roelof Engelbrecht" <roe...@nospam.tca.net>
> Subject: Re: Non-dithered orange in 256 color mode?
> Date: 03 Sep 1998 00:00:00 GMT
> Message-ID: <6snotk$k...@forums.borland.com>
> References: <6sfva4$a...@forums.borland.com>
> X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3155.0
> Organization: Another Netscape Collabra Server User
> Newsgroups: borland.public.delphi.graphics

> I was able to answer my own question, based on an article in the July 1998
> issue of Delphi Informant , in case anyone is interested...

> 1. Add the following to the form's FormCreate event handler:

>     {allocate a logical palette}
>     GetMem(LogPalette, SizeOf(TLogPalette));  {local var LogPalette:
> PLogPalette}
>     try
>       LogPalette.palVersion := $300;
>       LogPalette.palNumEntries := 1;
>       {RGB code for orange}
>       LogPalette.palPalEntry[0].peRed := 255;
>       LogPalette.palPalEntry[0].peGreen := 191;
>       LogPalette.palPalEntry[0].peBlue := 0;
>       LogPalette.palPalEntry[0].peFlags := 0;
>       Palette := CreatePalette(LogPalette^);   {global var Palette:
> HPalette, initialized to 0}
>       if Palette = 0 then
>         RaiseLastWin32Error;
>     finally
>       FreeMem(LogPalette);
>     end;

> 2. Add the following to the form's FormDestroy event handler:

>   {delete the logical palette}
>   DeleteObject(Palette);
>   Palette := 0;

> 3. Override form's GetPalette function as follows:

> function TForm1.GetPalette: HPalette;
> begin
>   Result := Palette;
> end;

> 4. In the form of component's Paint event handler add:

>       {select palette}
>       OldPalette := SelectPalette(Handle, MainForm.GetPalette, False);
> {local var OldPalette: HPalette}

>       {choose orange color from palette}
>       Canvas.Pen.Color := PaletteIndex(0);

>       {do drawing here...}

>       {restore previous palette}
>       SelectPalette(Handle, OldPalette, True);

> Works for me! You need to modify this code to add more than a single color
> to the logical palette. The process is described in the referenced
article.

> Roelof

> Roelof Engelbrecht wrote in message <6sfva4$a...@forums.borland.com>...
> >I want to display a non-dithered orange color in 256 color mode in Delphi
> 4.
> >I have tried RGB($FF,$7F,00) but it gives me a 50% red 50% yellow dither.
I
> >guess I have to mess around with the palette. Can anyone help?

> >Thanks,
> >Roelof

> ========================================================

> --
> efg

> Earl F. Glynn     E-mail:  EarlGl...@att.net
> Overland Park, KS  USA

> efg's Computer Lab:  http://www.efg2.com/Lab