[kaktusad]

Использовал серые тусклые компоненты Делфи 7 до того, как поставил компонент XPman, думаю все хорошо, красиво, да не тут-то было. Теперь при переходе между формами, да и просто при сворачивании и разворачивании программы, идет анимация компонентов, режущая глаз. Да еще и при запуске на менее мощных компьютерах, некоторые компоненты формы вовсе не отображаются пока не свернуть/развернуть окно ...
Подскажите пожалуйста, как убрать эти тормоза и оставить красивый дизайн компонентов в стиле версии Виндовс??? Возможно существует иной способ достижения этой цели???

[angvelem]

XPMan, а по сути небольшая добавка в ресурсный файл, указывающая ОС как отображать контролы тут вряд ли виновата. Скорее всего ошибка кроется где-то в коде.

[kaktusad]

Сообщение от angvelem

XPMan, а по сути небольшая добавка в ресурсный файл, указывающая ОС как отображать контролы тут вряд ли виновата. Скорее всего ошибка кроется где-то в коде.

Программа не особо ресурсопотребительная, да и до установки XPman не было ни одного тормоза.
Возможно я установил этот компонент неправильно? Я просто нашел XPmanifest и добавил его на главную форму. Все. Форм в программе 7.

[angvelem]

Если после удаления XPMan всё восстановится (в Win7 бывают проблемы), то записать его в ресурсный файл вручную без использования компонента.

[M.A.D.M.A.N.]

Переходи на ХЕ, он там по умолчанию включен, косяков с отображением не наблюдал.

[NumLock]

Сообщение от kaktusad

на менее мощных компьютерах

а они удовлетворяют требованиям Windows XP?
а если создать пустой проект с такими же элементами на форме и TXPManifest, только без "ручного" кода?

[kaktusad]

Сообщение от angvelem

Если после удаления XPMan всё восстановится (в Win7 бывают проблемы), то записать его в ресурсный файл вручную без использования компонента.

Удалил сам компонент и его название с раздела Uses в юните где стоял этот компонент. Восстановился прежний вид кнопок. Можно подробней что теперь делать?

Так же, когда я удалил фоновую картинки, то лаги вроде прекратились. Использовал Timage на всю форму. Как сделать чтобы была и фоновая картинки и красивые дизайн компонентов?

[kaktusad]

Сообщение от NumLock

а они удовлетворяют требованиям Windows XP?
а если создать пустой проект с такими же элементами на форме и TXPManifest, только без "ручного" кода?

на компах стоит виндовс ХР. И если создать проект с 10-20 компонентами то глюков не заметно, правда появляются немного, если на фон поставить Timage.

[angvelem]

Зачем обязательно TImage, можно рисовать прямо на форме, можно использовать возможности ОС

Код:

...
  private
    { Private declarations }
    procedure WMEraseBkgnd(var Msg : TWMEraseBkgnd); message WM_EraseBkgnd;
...
var
  bmBkGnd	: TBitmap;
...
procedure TForm1.WMEraseBkgnd;
var 
  aRect : TRect;
begin 
  aRect := GetClientRect;
  BitBlt(TWMEraseBkGnd(Msg).DC, aRect.Left, aRect.Top, aRect.Right - aRect.Left, aRect.Bottom - aRect.Top, bmBkGnd.Canvas.Handle, 0, 0, SRCCOPY);
  Msg.Result := 1;
end;
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
  bmBkGnd := TBitmap.Create;
  // грузим картинку для фона
end;

[NumLock]

-установи у фоновой Image свойство Visible в False
-создай обработчик события OnPaint у формы:

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0, 0, Image1.Picture.Graphic);
end;

[kaktusad]

Сообщение от NumLock

-установи у фоновой Image свойство Visible в False
-создай обработчик события OnPaint у формы:

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0, 0, Image1.Picture.Graphic);
end;

А как сделать что бы картинка растягивалась(сжималась) на всю форму, так как теперь виден только ее кусочек?
Кстати кнопки не глючат) Спасибо!)

[NumLock]

см.:

Код:

procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);

т.е.:

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.StretchDraw(ClientRect, Image1.Picture.Graphic);
end;