Сделать скрин формы

[andreyjn]

Вообщем мне нужно сделать такую ерунду - есть форма на которой есть десять строк текста и его нужно сохранить в виде картинки ! Можете подсказать как или написать код проги а то я уже незнаю что и делать - была мысля поместить текст на Image но тоже провалилась !!!!
From Stilet: Тему называй так чтоб понятно было. В следующий раз удалюю

[SunKnight]

НАдо работать с канвой формы.

[SNUPY]

Скорее всего эту переместят в помощь студентам или даже закроют из-за не коректного имени.
Вот первое что пришло на ум:

procedure TForm1.Button1Click(Sender: TObject);
var
  b:TBitmap;
begin
  if SavePictureDialog1.Execute then
  begin
    b:=TBitmap.Create;
    b.Width:=Width;
    b.Height:=Height;
    b.Canvas.CopyRect(Form1.ClientRect, Form1.Canvas, Form1.ClientRect);
    b.SaveToFile(SavePictureDialog1.FileName);
    b.Free;
  end;
end;

end.

[andreyjn]

Я вот нарыл такой кодик - по идее должно помещать прозрачный текст на Image а что нужно изменить чтоб он был не прозрачный !!!!

procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode : integer;
begin
Image1.Picture.Bitmap.Canvas.Font.C olor := clBlue;
OldBkMode := SetBkMode(Image1.Picture.Bitmap.Can vas.Handle,TRANSPARENT);
Image1.Picture.Bitmap.Canvas.TextOu t(300, 300, 'Hello');
SetBkMode(Image1.Picture.Bitmap.Can vas.Handle,OldBkMode);
end;

[andreyjn]

procedure TForm1.Button1Click(Sender: TObject);
var
  b:TBitmap;
begin
  if SavePictureDialog1.Execute then
  begin
    b:=TBitmap.Create;
    b.Width:=Width;
    b.Height:=Height;
    b.Canvas.CopyRect(Form1.ClientRect, Form1.Canvas, Form1.ClientRect);
    b.SaveToFile(SavePictureDialog1.FileName);
    b.Free;
  end;
end;

end.

[/QUOTE]

Оно копирует и сохраняет не только форму но и часть рабочего стола сохраняет в картинку

[SNUPY]

Ну это из-за рамки... А вообще этот метод имеет один существенный минус он берет не форму а то что находиться над ней...

[andreyjn]

А может кто знает как разместить текста на сам Images ???

[SNUPY]

Ну на канве Имеджа нарисуй

[andreyjn]

Вот это код по идее должен вставлять прозрачный текст на Convas Tbitmap но у меня вроде не работает можете у себя глянуть и если работает то что нужно поменять чтоб текст был не прозрачный ???

procedure TForm1.Button1Click(Sender: TObject);varOldBkMode : integer;beginImage1.Picture.Bitmap.Canvas.Font.Color := clBlue;OldBkMode := SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,TRANSPARENT);Image1.Picture.Bitmap.Canvas.TextOut(10, 10, 'Hello');SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,OldBkMode);end;

[N!ckeL]

код:
var
can: tcanvas;
begin
image1.canvas.copyrect(rect(0, 0, image1.width, image1.height), form1.canvas, rect(0, 0, form1.width, form1.height));
end
не проверял, но должно работать..