| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать listbox полосатым

Страницы:   < 1 2 3 >

buzb ©   (2008-12-20 18:01:00) 

Как сделать listbox полосатым

---

Тын-Дын   (2008-12-21 03:46:00) [41]

> Игорь Шевченко ©   (21.12.08 03:39) [11]
> Тын-Дын ©   (21.12.08 02:42) [8] Тут кто-то долго с хамством
> на форуме боролся в ветке в потрепаловке, не напомнишь,
> кто ?И заодно предлагал банить не сразу, а после предупреждения.
>  Так вот я тебя предупреждаю :)


По этому поводу лучше в той ветке в потрепаловке всё же...

---

Игорь Шевченко   (2008-12-21 03:39:00) [42]

Тын-Дын ©   (21.12.08 02:42) [8]

Тут кто-то долго с хамством на форуме боролся в ветке в потрепаловке, не напомнишь, кто ?

И заодно предлагал банить не сразу, а после предупреждения. Так вот я тебя предупреждаю :)

---

Тын-Дын   (2008-12-21 02:53:00) [43]

> Германн ©


Извини, не выдержал.
Постоянный флуд от тебя достаёт бывает.

---

Тын-Дын   (2008-12-21 02:45:00) [44]

Хоть бы не пытался свой догматизм новичкам внушать...

---

Тын-Дын   (2008-12-21 02:42:00) [45]

> Германн ©   (21.12.08 02:32) [7]
> > Тын-Дын ©   (21.12.08 01:05) [5]В обработчике события
> компонента использовать локальную переменную, которая не
> нужна в принципе?Это конечно не ошибка. Но - это "три с
> минусом".


Снова ночной бред?

---

Германн   (2008-12-21 02:32:00) [46]

> Тын-Дын ©   (21.12.08 01:05) [5]

В обработчике события компонента использовать локальную переменную, которая не нужна в принципе?
Это конечно не ошибка. Но - это "три с минусом".

---

{RASkov}   (2008-12-21 01:32:00) [47]

> [3] KilkennyCat ©   (20.12.08 21:29)
> > > Как сделать listbox полосатым по вертикали

по вертикали - легко. А вот если наискосок... :)

---

Тын-Дын   (2008-12-21 01:05:00) [48]

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Items.LoadFromFile('Unit1.pas');
 ListBox1.Style := lbOwnerDrawFixed;

end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
var
 L: TListBox;
begin
 L := TListBox(Control);
 if Odd(Index)
   then L.Canvas.Brush.Color := clSilver
   else L.Canvas.Brush.Color := clWindow;
 L.Canvas.FillRect(Rect);
 L.Canvas.Font.Color := clBlack;
 L.Canvas.TextOut(Rect.Left+2,Rect.Top+2,L.Items[Index]);
end;

---

antonn   (2008-12-20 21:50:00) [49]

Удалено модератором
Примечание: Offtopic

---

KilkennyCat   (2008-12-20 21:29:00) [50]

> > Как сделать listbox полосатымпо вертикали

---

Leonid Troyanovsky   (2008-12-20 18:13:00) [51]

> uzb ©   (20.12.08 18:01)  

> Как сделать listbox полосатым

Покрасить полосками?

Не пробывал?

--
Regards, LVT.

---

Поросенок Винни-Пух   (2008-12-20 18:04:00) [52]

OnDrawItem

---

Страницы:   < 1 2 3 >

Наверх