Всем привет!

Вот кусок кода:


Проблема в том, что при первой отрисовке ico->Width=32 не зависимо от реального размера иконки и, естественно, при появлении окна иконка отображается не на своём месте. При последующих отрисовках - размер правильный.
В чём может быть проблема?
Спасибо.

artsb, это связано со спецификой класса TIcon  Допустим, твоя иконка имеет размер 16х16.

Вот код получения ширины:

GetSystemMetrics(SM_CXICON) возвращает 32 (по умолчанию). При создании TIcon поле FImage инициализируется нулями, т.е. FSize->X == 0; FSize->Y == 0;
Соответственно возращается 32. При вызове Canvas->Draw() в данном случае вызывается метод TIcon->Draw() и происходит следующее: вызывается функция (ACanvas - это Canvas формы в данном случае):

При обращении к свойству Handle запрашивается дескриптор иконки:

В процедуре HandleNeeded() вызывается функция ReadIcon. Она довольно объёмная, в ней сначала тоже происходит вызов GetSystemMetrics(SM_CXICON), но потом значение берется из массива указателей на структуру TIconRec. Там проводятся предварительные расчеты (в функции BetterSize), и мы получаем 16х16  Они запоминаются в FImage->FSize и потом уже нормально возвращаются через GetWidth() и GetHeight()

Это сообщение отредактировал(а) Rrader - 23.6.2008, 07:43

Rrader, спасибо!

Но, вообще, странно, ведь я после создания объекта TIcon загружаю в него иконку. Размер не изменяется?

Нет. Не сразу  

Спасибо.