Verovatno je ovo bilo u pitanju:
Code:
procedure TfrmMain.lstTestDrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
lstT: TListView;
intNoWidth: Integer;
strNoText: String;
begin
if Sender is TListView then
begin
lstT := Sender as TListView;
strNoText := IntToStr(Item.Index + 1) + '. ';
intNoWidth := Length(IntToStr(lstT.Items.Count)) + 3;
while Length(strNoText) < intNoWidth do
strNoText := '0' + strNoText;
strNoText := strNoText + Item.Caption;
lstT.Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, strNoText);
end;
end;
If you go out of your mind, do it quietly, so as not to disturb those around you...
Registrovani: 99 ( Dusan2510, Skomi1, Sasa Popovic, Gegula, kan042, Bak Ivan, Mrki brk, vaslic, gd022, vujkev, cozi, aca-81, antonic.st, bluebird, Doomhammer, dejson79, Danijel Krmar, boriskn, ^3BEP^, iizuzetan, mmiodrag, mr.maX, staleks, miga1, Dejan Lozanovic, telesat, Dusan Gacic, 3okc, mm-tech, Goran Rakić, pedjaapa, tdjokic, kazil, Nemanja Avramović, Deep|Blue, Drale05, mcdoc, mrrocky, despotbg, StORM48, Tin, kuca8uk3, vopiman, Mrmlj, laminator, Nemanja_666, Millee, Java Beograd, compoff, cteba, Jbyn4e, dzura, duelite, dule6491, chupcko, Jim Jackson, HST, Miroslav Cvejić, retko sta znam, fanfon, DjoB, krzan, djolepiv, Mister_K, timotic, Meseldzija, InfHeat, bunker, feroc1ty, shaxy, milan_kraljevo, kontogist, Isak666, beske, leki79, vozdovcanka, gogi100, Dripac, rujevic, ka641, Neski, maxa11, Drole_e, pekom, Nedzad_74, caprioloos, depe, fangio12, itf, karas, zokivs, Kernel-1, IFA, kale, IDE, vamsi, Joker, srdjee, PKSG )
Punjenje TListView-a?!
Re: Punjenje TListView-a?!