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?

[Webinar] Streamline your web hosting managementRegister Today

x
 
intheConnect With a Mentor Commented:
see last comment.
0
 
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
Learn to develop an Android App

Want to increase your earning potential in 2018? Pad your resume with app building experience. Learn how with this hands-on course.

 
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
 
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
 
DjDMacAuthor Commented:
I installed that fix, and it helped..
0
All Courses

From novice to tech pro — start learning today.