13-03-2019, Saat: 13:41
Merhaba;
Lisviewde birden fazla ItemClickEx yöntemini kullanarak Lisviewdeki imagelerde değişiklik yapıyorum. if else seçeneği uzayıp gidecek.
Örnek:
sec image tıklandığında sec imagede 0 nolu image varsa yerine 1 nolu image gelecek
arsiv image tıklandığında arsiv imagede 2 nolu image varsa yerine 3 nolu image gelecek gibi uzayıp gidiyor. Bu işlemin uzamaması için nasıl kısalta bilirim?
Lisviewde birden fazla ItemClickEx yöntemini kullanarak Lisviewdeki imagelerde değişiklik yapıyorum. if else seçeneği uzayıp gidecek.
Örnek:
sec image tıklandığında sec imagede 0 nolu image varsa yerine 1 nolu image gelecek
arsiv image tıklandığında arsiv imagede 2 nolu image varsa yerine 3 nolu image gelecek gibi uzayıp gidiyor. Bu işlemin uzamaması için nasıl kısalta bilirim?
function TForm1.ClickRow(ImageName: String; ItemIndex, ImageNo: Integer): Integer; begin if ImageNo = 0 then begin ImageNo := 1; end else begin ImageNo := 0; end; if ImageNo = 2 then begin ImageNo := 3; end else begin ImageNo := 2; end; Listt.Items[ItemIndex].Data[ImageName] := ImageNo; end;
procedure TForm1.ListtItemClickEx(const Sender: TObject; ItemIndex: Integer; const LocalClickPos: TPointF; const ItemObject: TListItemDrawable); var StrName: String; begin if (ItemObject <> Nil) and (ItemIndex > -1) then begin StrName := ItemObject.Name; if StrName = 'Secli' then begin ClickRow(StrName, ItemIndex, Listt.Items[ItemIndex].Data[StrName].AsInteger); end; if StrName = 'Arsiv' then begin ClickRow(StrName, ItemIndex, Listt.Items[ItemIndex].Data[StrName].AsInteger); end; end; end;