[Ama]

Юзаю функцию, но ругается на последний параметр, который равен SCRCOPY. мож модуль какой не добавил?

[v1s2222]

Модуль Windows, ты не правильно константу пишешь. Надо: SRCCOPY.

[Ama]

Так в том то и дело, что модуль Windows подключем. Он та на BitBlt не ругается....а вот SCRCOPY или SRCCOPY почему-то не понимает

[Ama]

Пардон.......все нормально, работает

[Ama]

Почему-то не копируется на канву формы. bMap: TBitmap, содержит картинку

Код:

....
  StretchBlt(Canvas.Handle, 0, 0, Width, Height, bMap.Canvas.Handle, 0, 0,
             bMap.Width, bMap.Height, SRCCOPY);
....

[v1s2222]

Код:

  Canvas.Draw(0, 0, bMap); // или так
  BitBlt(Canvas.Handle, 0, 0, bMap.Width, bMap.Height, bMap.Canvas.Handle, 0, 0, SRCCOPY); // или так

[Ama]

Почему я не использую метод Canvas.Draw и BitBlt, так енто потому что размеры формы и картинки не совпадают. А мне надо всю картинку растянуть на форму

[NumLock]

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

пример:

Код:

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormPaint(Sender: TObject);
...
procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.StretchDraw(Rect(0, 0, ClientWidth, ClientHeight), Image1.Picture.Graphic);
end;