4 respuestas en este tema

[Ricard]

Buenas nochesm estoy usando unos listbox para enseñar unos registros de SQLite, he visto muchos ejemplos, pero cuando entro el segundo item, el primero también cambia de color.
He probado varios ejemplos y todos fallan.
Adjunto código:
 
 

 

delphi

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  ARect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do // draw on control canvas, not on the form
    begin
        Font.Color :=ZTable1ColorActivitat.Value ;
        FillRect(ARect);
      TextOut(ARect.Left, ARect.Top, (Control as TListBox).Items[Index]);
    end;
end;

 

 
El primer item que añado(ListBox1.Items.Add('hola'); Bien si añado otro item, el primero también se pone del color del ultimo añadido.
 
Creo que los ejemplos que hay el foro, les pasa lo mismo.
 
Si podéis ayudarme os estaré muy agradecido-
Saludos.

[egostar]

Hola Ricard

 

Yo creo que hay un problema de lógica aquí, si quieres que solo el registro nuevo tenga un color diferente o supongo que cuando cambias de item haga lo mismo, se debe contemplar obtener el color anterior para asignarlo al registro que deja de tener el foco ¿No?

 

Saludos

[Ricard]

Gracias por responder, pero creo que tengo la solución.

ListBox2.Items.AddObject('item', TObject(x)); Donde x es una variable TColor, que voy cambiando, sin alterar los items que a he ingresado.

 

Saludos.

[egostar]

Gracias por responder, pero creo que tengo la solución.

ListBox2.Items.AddObject('item', TObject(x)); Donde x es una variable TColor, que voy cambiando, sin alterar los items que a he ingresado.

 

Saludos.

 

Que bien, si así te funciona y nos proporcionas el código como quedó finalmente, podemos poner el hilo como Resuelto para futuras consultas.

 

Saludos

[Ricard]

Buenas , aqui dejo el codigo:
 
 

 

delphi

procedure TFVistames.ListBox2DrawItem(Control: TWinControl; Index: Integer;
  ARect: TRect; State: TOwnerDrawState);
var
   color1 :  TColor;
begin
   color1:=fdatamodul1.QActivitatsColorActivitat.AsInteger;
  with (Control as TListBox).Canvas do 
  begin
    FillRect(ARect);
     color1 := TColor((Control as TListBox).Items.Objects[Index]);
        font.Color:= color1;
    TextOut(ARect.Left, ARect.Top, (Control as TListBox).Items[Index]);
  end;
end;