Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-03-2009
num11 num11 is offline
Miembro
 
Registrado: feb 2009
Posts: 17
Poder: 0
num11 Va por buen camino
De números enteros a TColor

Hola a todos, quiero saber si hay alguna manera de convertir un color que tengo (su valor entero) a su correspondiente nombre del color (clWhite,clRed,..etc). Lo que pasa que obtengo a través de un ColorDialog un color X, pero este color se me guarda en una variable del tipo entero, ahora debo mostrar en un Grid el color que seleccione, pero no por el valor entero, sino por el nombre del color. Gracias de antemano XD!.
Responder Con Cita
  #2  
Antiguo 08-03-2009
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  // 65535 = clYellow
  Self.Color := TColor(65535);
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 09-03-2009
num11 num11 is offline
Miembro
 
Registrado: feb 2009
Posts: 17
Poder: 0
num11 Va por buen camino
¿O_o? Hola y gracias por contestar, pero no entendí bien XD, según mis pruebas, con el TColor("#Color") y al pasarlo a string (IntToStr) me sigue dejando el nùmero del color y no el nombre como tal (clBlue,clRed).
Responder Con Cita
  #4  
Antiguo 09-03-2009
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por num11 Ver Mensaje
¿O_o? Hola y gracias por contestar, pero no entendí bien XD, según mis pruebas, con el TColor("#Color") y al pasarlo a string (IntToStr) me sigue dejando el nùmero del color y no el nombre como tal (clBlue,clRed).
Creo que lo que tu necesitas es la función ColorToIdent, que dado un color te devuelve si corresponde a alguno de los identificadores que utiliza Delphi; clBlack, clWhite, clInfoBk,.... (unit Graphics)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 10-03-2009
num11 num11 is offline
Miembro
 
Registrado: feb 2009
Posts: 17
Poder: 0
num11 Va por buen camino
Saludos y gracias por contestar pero ya resolvi mi problema, por si alguien lee esto, solo comento que para indicar en un label, celda, ComboBox, etc, el color que se está utilizando ("clBlue","clRed",etc) a partir del número de color (1,259,etc), se ocupa la función "ColorToString", la cual recibe como argumento un "TColor". Creo es más entendible con un ejemplo:

//Pongo en la primera celda del StringGrid el color en cadena: "clBlack"
StringGrid1.Cells[0,0] := ColorToString(TColor(1));

Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
extraer valores enteros desde un reg varchar y guardarlos en reg enteros Gabichu SQL 0 12-08-2008 19:44:36
Warning en asignación de TColor a Integer fasthorse C++ Builder 6 06-05-2008 20:14:53
String a TColor mr_pascale Gráficos 4 21-02-2008 19:32:59
convertir un string a tColor Manuel Varios 2 19-08-2006 20:58:24
Manejo de números complejos en delphi yohuali Varios 3 22-07-2006 02:02:58


La franja horaria es GMT +2. Ahora son las 01:50:14.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi