clCream color bug ?

Hi !

I was wondering if anyone else is having this kind of problems with Delphi 5 Professional.

When i try to roll down any colorcombo's in object inspector, when it is about to show clCream it gies an error message "clCream is not a valid integer value".

How can i fix this problem ? I simply can't roll the colorcombo all way down.

Lazy Jeff
DjDMacAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

kretzschmarCommented:
hi dj,

i don't have the color clCream in my d5, also the onlinehelp didn't contain this colordefintion, therefore i guess, a third party component has added this colordefinition.

meikl
0
rwilson032697Commented:
Try searching the code for the components looking for RegisterConst calls. This may locate the source of 'clCream'...

Cheers,

Raymond.
0
TheNeilCommented:
Why not add the definition for clCream (which isn;t a standard colour) to the Graphics.PAS file that comes with Delphi VCL source code.

e.g.

clCream = TColor($0080FFFF);

The Neil
0
Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

DjDMacAuthor Commented:
I added the
"clCream = TColor($0080FFFF);" const to graphics.pas and compiled it, and copied the graphics.dcu into delphi5\lib directory.

But it won't help..
0
intheCommented:
Hi,
these are known 3rd party component problems and i am betting you either have rxlib or turbopowers Orpheous  installed.

for rx fix see :
http://www.rxlib.com/
under latest news there is a patch to download.

for Orpheous fix:

start quote ->

Make the following changes to OVCCOLR0.PAS (that's a ZERO at the end). One will need to rebuild the run-time and design-time packages.

Brian Warner (TurboPower Software)

==============================================================================================

function OrColorToString(Color : TColor) : string;
var
  I : Integer;
begin
  if not ColorToIdent(Color, Result) then begin
    for I := Low(Colors) to High(Colors) do
      if Colors[I].Value = Color then begin
(*
        Result := StrPas(Colors[I].Name);
*)
        Result := IntToStr(Colors[I].Value);      
        Exit;
      end;
    FmtStr(Result, '$%.8x', [Color]);
  end;
end;


procedure OrGetColorValues(Proc : TGetStrProc);
var
  I : Integer;
begin
  GetColorValues(Proc);
  for I := Low(Colors) to High(Colors) do
(*
    Proc(StrPas(Colors[I].Name));
*)
    Proc(IntToStr(Colors[I].Value));
end;

<- end quote

 Regards Barry
0
intheCommented:
see last comment.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
DjDMacAuthor Commented:
I installed that fix, and it helped..
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.