problemas con el cuadro Color.Dialog

[igest2000]

Ese problema me sucedio a mi también. Y te explico, cuadno aplicas esas funciones te da los séis codigos hezadecimales para representar los colores, pero invertidos. Ahora mismo no me acuerdo exactamente pero en lugar de RGB en css tendrías que poner BGR. Yo solucione el problema creando una funcion que invertia los dos códigos hexadecimales que te comento que estaban cambiados, aunque ahora mismo no tengo aqui a mano el codigo.

Espero te sirva esto.

[snowlis]

Yo tambien tengo un problema parecido al colorear las filas de un dbgrid, no hay manera de que me muestre el color que yo quiero. Por ejemplo le pongo este color --> #FFFF00 y me saca un azul chillon muy feo.
Alguien sabe como funciona esto de los colores el delphi ?

Los códigos de los colores los saco de aquí, nose si servirá --> http://www.webtaller.com/utilidades/...er/colores.php

Saludos

[[seoane]]

¿Donde utilizas el valor #FFFF00? ¿Puedes poner la linea de código donde lo usas?

[snowlis]

Lo uso aquí :

Código Delphi [-]
procedure TForm13.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
 clPaleGreen = Tcolor($CCFFCC);
 clPaleRed = TColor($CCCCFF);
 clPaleYellow= TColor($FFFF00);
begin
if column.Field.DataSet.FieldByName('HECHO').AsString='NO'
 then
  if (gdFocused in State)
   then dbgrid1.Canvas.brush.Color:=clblack
    else
     dbgrid1.Canvas.brush.Color:=clPalered;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

if column.Field.DataSet.FieldByName('HECHO').AsString='SI'
then
  if (gdFocused in State)
   then dbgrid1.Canvas.brush.Color:=clblack
    else
     dbgrid1.Canvas.brush.Color:=clPaleGreen;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

if column.Field.DataSet.FieldByName('PRIORIDAD').AsString='URGENTE'
then
  if (gdFocused in State)
   then dbgrid1.Canvas.brush.Color:=clblack
    else
     dbgrid1.Canvas.brush.Color:=clPaleYellow;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

end;

[[seoane]]

Bien, el problema esta aqui:

Código Delphi [-]
 clPaleGreen = Tcolor($CCFFCC);
 clPaleRed = TColor($CCCCFF);
 clPaleYellow= TColor($FFFF00);

En delphi, si haces ese tipo de asignación debes intercambiar el primer y ultimo byte para obtener el resultado que tu esperas. Es decir:

Código Delphi [-]
 clPaleGreen = Tcolor($CCFFCC);
 clPaleRed = TColor($FFCCCC);
 clPaleYellow= TColor($00FFFF);

[snowlis]

Gracias seoane, así si que funciona perfectamente.
Hay que ver que cosas más raras pasan cuando lo normal sería mantener el mismo código hexadecimal del color en delphi y que funcionara de la misma manera sin tener que cambiar nada.