Tachar una palabra en delphi

[[Chris]]

Aunque la forma sugerida por Neftalí es valida, tengo otra alternativa.

Primero, establece la propiedad Style del CheckListBox a lbOwnerDrawFixed. Luego en el evento OnDrawItem utilizá un código similar a este:

Código Delphi [-]
procedure TForm2.CheckListBox1DrawItem(Control: TWinControl;
                                       Index: Integer;
                                       Rect: TRect; State: TOwnerDrawState);
var
    DrawingRect: TRect;
    DrawText: String;
begin
    DrawingRect := Rect;
    DrawText := TCheckListBox(Control).Items[Index];

    with TCheckListBox(Control).Canvas do
    begin
        if Index = 0 then // Condición para pintar elementos tachados
        begin
            Font.Style := [fsStrikeOut];
        end;

        FillRect(Rect);
        Inc(DrawingRect.Left, 3); // dejar 3px de margen entre el texto y el Checkbox
        TextRect(DrawingRect, DrawText);
    end;
end;

El código anterior tachará el texto del primer elemento de la lista.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por Chris

Aunque la forma sugerida por Neftalí es valida, tengo otra alternativa.

Buena.
En este caso te evitas derivar el componente.

[teecweb]

Holas..gracias por sus respuestas tamebin en innosetup se utiliza el fsStrikeOut como seria con un checkboxlist cada vez que chekea y despues presiona el boton para que aparezca el tachado..gracias por sus respuestas

[ecfisa]

Hola.

Aunque no es muy diferente a los códigos anteriores (generalmente es así ), otra variante:

Código Delphi [-]
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TCheckListBox do
  begin
    if Checked[Index] then
      Canvas.Font.Style:= [fsStrikeOut];
    FillRect(Canvas.Handle, Rect, Handle);
    DrawText(Canvas.Handle, PChar(Items[Index]), -1, Rect, DT_SINGLELINE);
  end;
end;

Saludos.

[teecweb]

Holas ..gracis por su respuesta
asi agregue el codigo para el innosetup

Código Delphi [-]
//como ya recibo el inidice del checkbox chekeado que es i  y otra vez pregunto si esta chekeado...al compilarlo me sale que no reconoce canvas..gracias por tu respuesta
procedure checkboxlistDibujo(var i: integer);
begin
    if CheckListBox1.Checked[i] then
     Canvas.Font.Style:= [fsStrikeOut];
  end;
end;

[[maeyanes]]

Hola...

Deberías indicar desde un principio que estás usando Pascal Script en InnoSetup, y esto es por que en Pascal Script no se tienen todas las características del lenguaje Delphi. Como por ejemplo, el acceso a la propiedad Canvas de las clases visuales integradas.

Explica un poco mejor que es lo que estás tratando de lograr desde tu instalador y tal vez se te pueda dar mejores soluciones.



Saludos...

[ecfisa]

Hola.

Agregando algo a lo que te explica maeyanes (que no es lo mismo Delphi que Pascal Script), aquí: Pascal Scripting: Support Classes Reference, encontrarás los detalles de las clases soportadas.

Saludos.

[teecweb]

Disculpa por no haberme explicado mejor..el codigo esta en innosetup
tengo una lista de cheboxlist y con un boton cada vez que que chekeo y hago click en el boton se tacha el item del checkboxlist ...aki tengo un codigo donde ya recibo el indice que chekeo.. en esta funcion el inidce es el i..el problema que cuando compilo me sale ke no reconoce canvas.

//como ya recibo el inidice del checkbox chekeado que es i y otra vez pregunto si esta chekeado...al compilarlo me sale que no reconoce canvas..gracias por tu respuesta..

Código Delphi [-]
procedure checkboxlistDibujo(var i: integer);
begin
    if CheckListBox1.Checked[i] then
     Canvas.Font.Style:= [fsStrikeOut];
  end;
end;

[[maeyanes]]

Hola...

No estoy seguro de que esto funcione, pero podrías intentar algo así:

Código Delphi [-]
procedure StrokeOutItem(I: Integer);
begin
  if CheckListBox1.Checked[i] then
    with CheckListBox1.ItemObject[i] as TCheckBox do
      Font.Style := [fsStrikeOut]
end;

Saludos...