Tbitmap

Тема в разделе "Delphi - Компоненты", создана пользователем Onegin, 19 окт 2006.

Статус темы:
Закрыта.
  1. Onegin

    Onegin Гость

    Репутация:
    0
    Вот код:
    Код (Text):
    Var
    Bitmap: TBitmap;
    W,H:integer;
    begin
    if dSaveGraph.Execute then
    begin
    Bitmap:=TBitmap.Create;
    W:=pbGraph.Width;
    H:=pbGraph.Height;
    Bitmap.Height:=H;
    Bitmap.Width:=W;
    Bitmap.Canvas.CopyRect(Rect(0,0,H,W),pbGraph.Canvas,Rect(0,0,H,W));
    Bitmap.SaveToFile(dSaveGraph.FileName);
    Bitmap.Free
    end;
    end;
    Сохраняет картинку не полностю, слева обрубивает.
    pbGraph - PaintBox
     
  2. Barmutik

    Barmutik Гость

    Репутация:
    0
    Почитайте HELP по поводу функции CopyRect .. а вернее её параметра типа TRect .. и посмотрите каким образом Вы задаёте размеры для вашей области для копирования... не стоит путать длину и ширину местами и всё будет работать как надо ...
     
  3. Onegin

    Onegin Гость

    Репутация:
    0
    Спасибо, помогло.
    Но вот распечатать не выходить, принтер выдает чистый лист.
    if dPrintGraph.Execute then
    begin
    Printer.BeginDoc;
    W:=pbGraph.Width;
    H:=pbGraph.Height;
    Printer.Canvas.CopyRect(Rect(0,0,W,H),pbGraph.Canvas,Rect(0,0,W,H));
    Printer.EndDoc;
    end;
     
Статус темы:
Закрыта.

Поделиться этой страницей