11 respuestas en este tema

[adriano_servitec]

Hola, Soy brasileño y no puedo hablar español, así que estoy usando un traductor. Puede  haber errores, mayor es mi duda: estoy aquí en CheckListBox componente  Delphi 7, donde no sé cuántos elementos van a aparecer porque lo estoy  llenando los datos que se realizan. Incluso  tan bueno, el problema es que tengo que calcular las coordenadas de la  "Rect.Top" en el componente OnDrawItem evento, así como los artículos  que vienen en CheckListBox lo lleva fuera de la posición de la casilla  de verificación. Y si es posible eliminar el resalte de todo el texto, porque esta en mi camino.
No tiene que ser exactamente en este caso, siempre que existan determinados. El tamaño de este CheckListBox con Altura = 137, ancho = 149.
Al  primero que quiero hacer es utilizar la barra que pone de relieve el  tamaño del texto del texto y no el tamaño de ItemHeight, porque soy el  cálculo de la distancia entre los elementos de línea dentro del  componente.

A modo de ejemplo:

delphi

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, XPMan;
type
  TForm1 = class(TForm)
    gbTributo: TGroupBox;
    chklistTributo: TCheckListBox;
    Button1: TButton;
    procedure chklistTributoDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
  iItem: Integer;
begin
  with chklistTributo do
    begin
      ItemHeight := (Height div Items.Count);
      iItem := ItemHeight;
      ItemHeight := iItem -1;
    end;
end;
procedure TForm1.chklistTributoDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
 iTotalItem: Integer;
 //Criei uma função para não repetir codigos sem necessidade
 function RetornaCoordenadas(chkLtBox: TCheckListBox; iTotItem: Integer):Integer;
 begin
   with chkLtBox do
   begin
     case iTotItem of  //Verifica o total de itens para calcular o Rect.Top do checklistbox
       08: Result := 01;
       07: Result := 03;
       06: Result := 05;
       05: Result := 07;
       04: Result := 09;
       03: Result := 16;
       02: Result := 27;
       01: Result := 60;
     end;
   end;
 end;
 //
begin
   with (Control as TCheckListBox).Canvas do
   begin
     //Font.Color := clBlack;
     Brush.Style := bsSolid;
     iTotalItem :=  chklistTributo.Items.Count; //Conta a quantidade de itens dentro do ListBox e manda para variavel
     TextOut(Rect.Left + 4, Rect.Top + (RetornaCoordenadas(chklistTributo,iTotalItem)),(Control as TCheckListBox).Items[Index]);
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  with chklistTributo do
  begin
    for i := -1 + Items.Count downto 0 do
    if Selected then Items.Delete(i) ;
  end;
end;
end.

O DFM
[/]

delphi

object gbTributo: TGroupBox
  Left = 8
  Top = 24
  Width = 153
  Height = 154
  Caption = 'Tributo'
  TabOrder = 0
  object chklistTributo: TCheckListBox
    Left = 2
    Top = 15
    Width = 149
    Height = 137
    Align = alClient
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clBtnFace
    ItemHeight = 16
    Items.Strings = (
      'Test'
      'Test2'
      'Test3'
      'Test4'
      'Test5')
    Style = lbOwnerDrawFixed
    TabOrder = 0
    OnDrawItem = chklistTributoDrawItem
  end
end
object Button1: TButton
  Left = 168
  Top = 72
  Width = 75
  Height = 25
  Caption = 'Del Item'
  TabOrder = 1
  OnClick = Button1Click
end

Así que esta forma de trabajar allí, más es difícil saber cuántos elementos tienen con CheckListBox. Y si me voy a poner el clavo Reparate las coordenadas de Rect.Top como la cantidad de elementos. (Esto no es factible)[/]Como aquí en Brasil no pude conseguir a nadie que me ayude, por lo que estoy buscando la ayuda de otras naciones.Gracias a quien me pueda ayudar.Adriano.

Descuple, estou using Google o tradutor

[andres1569]

Hola Adriano, no está claro qué es lo que quieres hacer realmente.

Si quieres dibujar el texto de cada elemento del TCheckListBox por tu cuenta, el parámetro Rect te indica el area para pintar encima, ¿por qué usas esa función tan rara llamada RetornaCoordenadas? Además, no entiendo por qué esta función devuelve esos valores tan diferentes para cada elemento. Parece que quieras pintar fuera del rectángulo Rect.

Dices:

más es difícil saber cuántos elementos tienen con CheckListBox

No lo entiendo, tú mismo usas chklistTributo.Items.Count para averiguar el número de elementos del TCheckListBox.

Por desgracia, creo que el traductor de Google no es suficiente para expresar exactamente lo que deseas.

Saludos

[adriano_servitec]

Olá Andreas,
  Gracias por responder amigo.

lo siento, no hablo español.

Además, no entiendo por qué esta función devuelve esos valores tan diferentes para cada elemento.

Es porque estoy tratando de CheckListBox evento DrawItem, y está haciendo una diferencia con Check el Text.

Pero lo que realmente necesita es quitar el realse de todo el texto, que esta inquietante.

En resumen, tratar de salir de la CheckListBox como el radiogroupbox. (No  los comandos, pero la distancia entre los elementos, si se observa la  ReadioGroup hace sin la necesidad de programar una sola línea).

Nota: Se quiser ver como fiz o checklistbox deixei ai no forum o DFM e o PAS disponível.

Gracias amigo.

Vejam a imagem

[eduarcol]

Hola amigo, como te va con el ingles?

[adriano_servitec]

Hola amigo, como te va con el ingles?

Only  with the translator if you can also ... More paste the DFM and PAS I  posted in Delphi, you'll see that my problem is with the realse around  the text (as shown in image above), I cut it and I can not, the  problem of the coordinates can work around this with the function that i  did, the more that there realse bypassing this text in my way.

Thanks friend, for help.

****Em espanhol*****

Sólo con el traductor si también puede ... Más  pegar el DFM y PAS que ha escrito en Delphi, verá que mi problema es  con el realse de todo el texto (como estas image arriba), la corté y no puedo, el problema se  puede evitar este coordinar con la función que hice, la más que realse pasar por este texto en mi camino.



Gracias amigo, en busca de ayuda.

[adriano_servitec]

¿Cómo puedo mostrar lo que quiero ... Me  muestran dos imágenes que no desea mostrar la última imagen y  CheckListBox (OK) sin límite y con la barra de realse azul alrededor del  texto.

Estas imágenes no son para lo que quiero.

Esta imagen que quiero que el CheckListBox ser idénticos.


El ejemplo de la DFM y PAS es lo que he publicado arriba

Saludos

Nota: Sí  alguien sabe una manera de hacer esto con CHECKBOX  dentro de GROUPBOX, también puede ser, no tiene por qué ser  exactamente CheckListBox.

[adriano_servitec]

Resolvi utilizar o CHECKBOX no lugar do checklistbox, pois este componente é muito poblemático.

Bem amigos, depois de tanto pensar aqui, esta foi a solução que eu achei para meu problema.

Segue a unidade

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    iTchk: integer;
    procedure CheckBox(objetoOwner: TWinControl; rotulo: string; coluna,
      altura: integer);
    function GroupBox(objetoOwner: TWinControl): TWinControl;
    function RetCooLines(iTotChk: Integer): Integer;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function TForm1.RetCooLines(iTotChk: Integer):Integer;
begin
  case iTotChk of  //Verifica o total de itens para calcular o Rect.Top do checklistbox
    08: Result := 17;
    07: Result := 19;
    06: Result := 21;
    05: Result := 25;
    04: Result := 30;
    03: Result := 38;
    02: Result := 48;
    01: Result := 70;
  end;
end;
 
function TForm1.GroupBox(objetoOwner: TWinControl): TWinControl;
var
 grupo: TGroupBox;
begin
  grupo := TGroupBox.Create(objetoOwner);
  grupo.Caption := ' Títulos ';
  grupo.Parent := objetoOwner;
  grupo.Height := 160;
  grupo.Top := 24;
  grupo.Width := 153;
  grupo.Left := 8;
  GroupBox := grupo;
end;
 
procedure TForm1.CheckBox(objetoOwner: TWinControl; rotulo: string; coluna, altura: integer);
var
 check: TCheckBox;
 i: integer;
begin
  check := TCheckBox.Create(objetoOwner);
  check.Parent := objetoOwner;
  check.Caption := rotulo;
  check.Top := (altura * RetCooLines(iTchk));  //17
  check.Width := 110;
  check.Left := (coluna * 160) - 145;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 x, y : integer;
 owner: TWinControl;
begin
  Owner := GroupBox(Self);
  for y := 1 to 1 do
  begin
    iTchk := 5; //Todo: Aqui vou popular a quantidade de chkbox com dados que vem da classe de persistência
    for x := 1 to iTchk do
    begin
      CheckBox(owner,'Check Box ' + IntToStr(x),y,x); //Todo: Aqui vou trocar pelo nome do arquivo que vai vir da busca
    end;
  end;
 
end;
 
end.

No era la forma más elegante, más por lo menos era mejor para mi propósito.

Gracias amigos.

[andres1569]

Hola Adriano, aunque lo hayas resuelto ya con TCheckBox, te dejo aquí un trozo de código a aplicar para el TCheckListBox, sólo tienes que interceptar el evento OnDrawItem:

delphi

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with TCheckListBox(Control).Canvas do
  begin
    Brush.Color := TCheckListBox(Control).Color;
    Fillrect(Rect);
    if odSelected in State then
    begin
      Brush.Color := clHighLight;
      Font.Color := clHighLightText;
    end
    else Font.Color := TCheckListBox(Control).Font.Color;
    with Rect do
      TextOut(Left + 4, (Top + Bottom - TextHeight('M')) div 2,
              TCheckListBox(Control).Items[Index]);
    Abort;
  end;
end;

Te dibuja cada elemento como tú quieres, a ver si también te sirve. La última linea que pone "Abort" es para que no se llame luego al método que dibuja el rectángulo (FocusRect) que no quieres que te aparezca.

Saudações 

[adriano_servitec]

Andres1569 Hola, amigo excelente solución, 
era que buscaba desde el principio. 
Y lo mejor no hay necesidad de coordinar, un código más simple y eficaz.

Gracias por ayudarnos a andres1569. 

Como él dice en Brasil
Te devo essa amigo.Obrigado.
[/]

[adriano_servitec]

Holla Andres1569...

Dio un pequeño problema con el ABORT

Si tengo que hacer click em BitBtn sólo se activa al hacer click en segunda vez.

Gracias

[adriano_servitec]

Resuelto amigo com comand Focused

Es el code:

delphi

    procedure TfrmCalculo.chklistTributoDrawItem( 
  Control: TWinControl; Index: Integer; Rect: TRect; 
  State: TOwnerDrawState); 
begin 
  inherited; 
  // 
  with TCheckListBox(Control).Canvas do 
  begin 
      Brush.Color := TCheckListBox(Control).Color; 
      Fillrect(Rect); 
      if odSelected in State then 
      begin 
        //Apenas se quiser deixar a barra de indicação do texto ativa 
        {Brush.Color := clHighLight; 
        Font.Color := clHighLightText;} 
        //Se não quiser a barra de indicação de texto ativa então deixar desta forma 
        Font.Color := clBlack; 
      end else 
        Font.Color := TCheckListBox(Control).Font.Color; 
        with Rect do 
           TextOut(Left + 4, (Top + Bottom - TextHeight('Texto')) div 2, 
                 TCheckListBox(Control).Items[Index]); 
    if TCheckListBox(Control).Focused then 
      Abort; 
  end; 
  // 
end;

Gracias.

[andres1569]

Hola Adriano, me alegro de que te sirva. Lo de usar Abort es un truco que ojalá no tuviera que emplearse nunca para estos fines, ya que en realidad es lanzar una excepción (la excepción silenciosa) para evitar que se ejecute más código a continuación, aunque a mí no me da problemas al pulsar un botón.

Saludos