Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

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

Started by enecumene , Nov 07 2009 09:57 AM

Please log in to reply

9 replies to this topic

#1 enecumene

Webmaster

Administrador
7419 posts

LocationRepública Dominicana

Posted 07 November 2009 - 09:57 AM

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

Back to top

#2 escafandra

Advanced Member

Administrador
4107 posts

LocationMadrid - España

Posted 07 November 2009 - 01:57 PM

¿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

Back to top

#3 enecumene

Webmaster

Administrador
7419 posts

LocationRepública Dominicana

Posted 07 November 2009 - 02:10 PM

Excelente amigo, funciona de perlas (y)

0

Back to top

#4 egostar

missing my father, I love my mother.

Administrador
14448 posts

LocationMéxico

Posted 07 November 2009 - 02:11 PM

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

Salud OS

0

Back to top

#5 enecumene

Webmaster

Administrador
7419 posts

LocationRepública Dominicana

Posted 07 November 2009 - 02:18 PM

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

0

Back to top

#6 escafandra

Advanced Member

Administrador
4107 posts

LocationMadrid - España

Posted 09 November 2009 - 05:23 PM

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;