D1P

|
Posted: Fri Jan 30, 2009 21:46 Post subject: |
|
|
Сейчас проверил, получаются ли размеры окна самим окном при описанном изменении. Простенький код:
Code: | procedure TForm1.FormResize(Sender: TObject);
begin
Caption:=IntToStr(Form1.Left)+' '+IntToStr(Form1.Width)+' '+IntToStr(Form1.Top)+' '+IntToStr(Form1.Height);
end; |
Вполне себе работает, все цифирьки отдаются как надо. Не знаю, как TC определяет размер своего окна, но уж проще этого некуда.
Вот так выглядит прогресс-бар в панели задач:
А вот так - Aero Peek у медиаплеера (возможно оно ещё настраивается, я предпочитаю им не пользоваться даже для тестов, эта версия портит медиафайлы =)):
 _________________ База знаний о Total Commander
Блог |
|