[stalker18]

Отлично, заценим <img src="style_emoticons//wink.gif” style=”vertical-align:middle” emoid=”;)” border=”0″ alt=”wink.gif” />

P.S. раз уж зашла речь о DB-компонентах – может мне кто-нибудь разъяснить как пользоваться TDBListBox?
Каких-то дополнительных свойств в отличии от обычного ListBox'a, кроме DataSource, я не нашел у него.
Т.е. как ему указать какие данные из DataSource отображать

[stalker18]

немного модифицируем:

CODE

i := 0;
while i <= Items.Count – 1 do begin
   if {проверяем св-ва} then begin
      // если они удовлетворяют условию, то пропускаем Item и идем к следующему
      Inc(i); Continue;
   end;

   Items.Delete(i);
end;

[stalker18]

А в каком месте некрасиво?
Можно посмотреть как было “красиво”?

[stalker18]

Если честно, у вас код некорректен. Очень распространенная ошибка.
И “итем=компонент?” тут совершенно не при чем.
Пользуйтесь таким кодом:

CODE

while Items.Count > 0 do
  Items.Delete(0);

[stalker18]

QUOTE (alex000 @ Apr 29 2009, 05:50 PM)

А лупа у тебя тоже нормально работает ?

ну, как нормально… бордюр формы не виден – это обсуждалось в другой теме.
здесь

[stalker18]

кстати, если ExtendedBorders = True, то иконка имеет нормальный размер

[stalker18]

QUOTE (alex000 @ Apr 28 2009, 08:07 PM)

WinXP.

Чтобы воспроизвести достаточно включить в ASkinDemo.exe показ хинтов и навести мышь на какой нибудь контрол с краю.
Подозреваю что этот глюк имеет отношение к этой теме. То что ExtendedBorder странно взаимодействует с лупой я тоже заметил.

странно… у меня все нормально работает.

P.S. WinXP SP2

[Author]

Posts