Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-01-2018
strelok strelok is offline
Miembro
 
Registrado: sep 2017
Posts: 181
Poder: 7
strelok Va por buen camino
Wink Validar en TValueListEditor

Hola a todos,

tengo un TValueListEditor, en la primer columna puse los nombres de colores, y a la derecha dejo asinar al usuario
el código hexadecimal que desee, pero tengo problemas al validarlo. Intenté con el OnValidate(), pero solo me deja
poner un mensaje de error (raramente no puedo cambiar el valor, es de solo lectura ¿me explican que lógica tiene esto?), y posteriormente me aparece otro error interno, lo que busco lograr es que me aparezca
"Color no válido" y posteriormente se vuelva a poner el color anterior.

¿Me dan una manito?
Código:
  if(ACol=1) and (ARow>1) then
  begin
     if(TryStringToColor(KeyValue) = False) then
        ShowMessage('Color no válido');
        //keyValue:='$0000ff';
  end;
Donde TryStringToColor la implementé yo (por las dudas)
Desde ya gracias.
Responder Con Cita
  #2  
Antiguo 31-01-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

A ver si entendí la idea...

Código Delphi [-]
...
implementation

var
  PrevValues: TStrings; // Valores iniciales

function TryStringToColor(v: string): Boolean;
begin
  ...
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ValueListEditor1.FixedCols := 1;
  // Salvar los valores iniciales
  PrevValues := TStringList.Create;
  for i := 1 to ValueListEditor1.VisibleRowCount do
    PrevValues.Add(ValueListEditor1.Cells[1, i]);
end;

procedure TForm1.ValueListEditor1Validate(Sender: TObject; ACol,
  ARow: Integer; const KeyName, KeyValue: string);
begin
  if not TryStringToColor(KeyValue) then
  begin
    ShowMessage('Color no válido');
    // Restaurar valor inicial
    ValueListEditor1.Cells[ACol, ARow] := PrevValues[ARow-1];
  end;
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PrevValues.Free;  // liberar lista
end;
No conozco la situación, pero ¿ No te sirve usar un componente especializado como TColorDialog o TColorBox ?

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 31-01-2018 a las 22:55:12.
Responder Con Cita
  #3  
Antiguo 01-02-2018
strelok strelok is offline
Miembro
 
Registrado: sep 2017
Posts: 181
Poder: 7
strelok Va por buen camino
Smile

Entendiste perfecto, pues lo resolví de la misma forma, la diferencia es que usé una variable global, y guardo el valor que se prende modificar, en caso de error, lo vuelvo a setear con la variable global.
Lo que no me gusta es que chequea cuando hago foco en otro ítem, es decir, si doy enter no me lo valida, ¿como puedo forzar eso?

Muchas gracias
Responder Con Cita
  #4  
Antiguo 01-02-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Una posibilidad es aprovechar el evento OnKeyPressed del TValueListEditor, por ejemplo:
Código Delphi [-]
procedure TForm1.ValueListEditor1KeyPress(Sender: TObject; var Key: Char);
var
  ve : TValueListEditor;
begin
  ve := TValueListEditor(Sender);

  if (Key = #13) and not TryStringToColor(ve.Cells[2, ve.Row]) then
  begin
    ShowMessage('Color no válido');
    ve.Cells[2, ve.Row] := PrevValues[ve.Row-1];
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #5  
Antiguo 02-02-2018
strelok strelok is offline
Miembro
 
Registrado: sep 2017
Posts: 181
Poder: 7
strelok Va por buen camino
Muchas gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Password en un TValueListEditor??? ungrande87 Varios 7 31-07-2014 15:12:27
Validar un XML r_e_g_2007 Varios 0 05-11-2011 09:00:21
Imprimir los datos de un TValueListEditor nelem Internet 2 22-05-2008 10:58:40
Crear un TValueListEditor dentro un Threat mjuan OOP 1 11-05-2006 00:53:52
validar en qry alcides SQL 2 06-01-2004 19:11:19


La franja horaria es GMT +2. Ahora son las 14:34:42.


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