Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

[RESUELTO] Problemas con pintado de selección en Listbox

Comenzado por enecumene , nov 07 2009 09:57

Por favor identifícate para responder

9 respuestas en este tema

#1 enecumene

Webmaster

Administrador
7.419 mensajes

LocationRepública Dominicana

Escrito 07 noviembre 2009 - 09:57

Pues eso amigos, estoy cambiando el color de selección del listbox, hasta ahora no tengo problemas pero..., los items no se muestran, ¿por qué?, la propiedad Style la tengo en lbOwnerDrawFixed y este es el code:

delphi

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
  begin
  if (odSelected in State) then begin
      Brush.Color:=clGreen;
      Font.Color := clBlack;
      FillRect(Rect);
    end else begin
      Brush.Color:=clWindow;
      Font.Color := clBlack;
      FillRect(Rect);
    end;
  end;
end;

¿Alguna idea?.

Saludos.

0

Volver arriba

#2 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 07 noviembre 2009 - 01:57

¿Alguna idea?.

Si:

delphi

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
  begin
  if (odSelected in State) then begin
      Brush.Color:=clGreen;
      Font.Color := clBlack;
      FillRect(Rect);
    end else begin
      Brush.Color:=clWindow;
      Font.Color := clBlack;
      FillRect(Rect);
    end;
    TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
  end;
end;

Saludos.

0

Volver arriba

#3 enecumene

Webmaster

Administrador
7.419 mensajes

LocationRepública Dominicana

Escrito 07 noviembre 2009 - 02:10

Excelente amigo, funciona de perlas (y)

0

Volver arriba

#4 egostar

missing my father, I love my mother.

Administrador
14.470 mensajes

LocationMéxico

Escrito 07 noviembre 2009 - 02:11

Ah vaya, me has ganado amigo escafandra, como tarda en abrir mi Turbo Delphi

Salud OS

0

Volver arriba

#5 enecumene

Webmaster

Administrador
7.419 mensajes

LocationRepública Dominicana

Escrito 07 noviembre 2009 - 02:18

Por cierto, ¿sabrás como quitar el Focus Rect del listbox? ese rectangulo punteado que tiene cuando estál el foco, ¿se podrá?.

0

Volver arriba

#6 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 09 noviembre 2009 - 05:23

Por cierto, ¿sabrás como quitar el Focus Rect del listbox? ese rectangulo punteado que tiene cuando estál el foco, ¿se podrá?.

delphi

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
  begin
  if (odSelected in State) then begin
      Brush.Color:=clGreen;
      Font.Color := clBlack;
      FillRect(Rect);
    end else begin
      Brush.Color:=clWindow;
      Font.Color := clBlack;
      FillRect(Rect);
    end;
    TextOut(Rect.Left+2, Rect.Top, (Control as TListBox).Items[Index]);
    if(odFocused in State)  then DrawFocusRect(Rect);
  end;
end;