Ĺadny brzuch
Piszę własnego klienta gg. Protokół troche opanowałem, ale to nie jest problemem, problem sprawiło mi umieszczenie obrazków w lb lub lv. Może wiecie jak coś takiego zrobic?
OnDrawItem, poszukaj na 4p...
http://4programmers....ile.php?id=1731
Daj na formę listview-a i imagelist. Do IL dodaj obrazki, a w LV "SmallImages" zmień na "ImageList". W procedurze dodawania item-ów do: ListView.Items[x].ImageIndex:=indeks_z_image_lista;
Dzięki działa. Ale postanowiłem zrobić taki, no wiecie, no taki, ktos mi tam mówił, no takie, no taki, że spróbowałem zrobić taki MIX. Otóż zamiast malować obrazka postanowiłem na lb wewalić radio button. Zdawało mi się że nic prostszego ale myliłem się. Oto kod (jest on połączeniem artu z p4 o OwnerDraw i artu o komponentach runtime):
procedure TForm1.lbDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var radio : TRadioButton; begin with lb do begin radio:=TRadioButton.Create(Form1); with radio do begin Name:='Przycisk1'; end; radio.Parent:=lb; end; end;
Niby przy każdym itemie powinien się pojawić RB, ale niestety tak nie jest. Dlaczego? Dodam jeszcze, że gdy podałem parametry wys, szer, itp to tez nie działało. Ale gdy np. chciałem wywolac taki z innej procedury to działał. Więc co jest źle?
bo ListBox nie moze byc rodzicem.
bo ListBox nie moze byc rodzicem.
Zmienilem na form1 i dalej nie działa. Działa tylko dodanie itemow, ktore jest po klinięciu na przycisk.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
OnDrawItem, poszukaj na 4p...
http://4programmers....ile.php?id=1731
Daj na formę listview-a i imagelist. Do IL dodaj obrazki, a w LV "SmallImages" zmień na "ImageList". W procedurze dodawania item-ów do: ListView.Items[x].ImageIndex:=indeks_z_image_lista;
Dzięki działa. Ale postanowiłem zrobić taki, no wiecie, no taki, ktos mi tam mówił, no takie, no taki, że spróbowałem zrobić taki MIX. Otóż zamiast malować obrazka postanowiłem na lb wewalić radio button. Zdawało mi się że nic prostszego ale myliłem się. Oto kod (jest on połączeniem artu z p4 o OwnerDraw i artu o komponentach runtime):
procedure TForm1.lbDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var radio : TRadioButton; begin with lb do begin radio:=TRadioButton.Create(Form1); with radio do begin Name:='Przycisk1'; end; radio.Parent:=lb; end; end;
Niby przy każdym itemie powinien się pojawić RB, ale niestety tak nie jest. Dlaczego? Dodam jeszcze, że gdy podałem parametry wys, szer, itp to tez nie działało. Ale gdy np. chciałem wywolac taki z innej procedury to działał. Więc co jest źle?
bo ListBox nie moze byc rodzicem.
bo ListBox nie moze byc rodzicem.
Zmienilem na form1 i dalej nie działa. Działa tylko dodanie itemow, ktore jest po klinięciu na przycisk.