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