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

[andreyjn]

Ооо вроде заработал Ваш последний код ! Щас попробую переделать под свою прогу ! Спасибо большое !

[andreyjn]

А вот такой вопрос - с bmp оно работает а с jpeg нехочет, выбиват вчерашнюю ошибку (не там где потча не хватало а самый первый скрин)!

[Stilet]

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

Почти угадал )

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

Image1.Canvas.TextOut(0,0,'dadfsfsd');

Делов то...

выбиват вчерашнюю ошибку

Где вчера и где сегодня - приводи код и ошибки, тогда будет понятно.
А вот еще пример рисования на битмапе текста.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var     tb:TBitmap;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin

Form1.Canvas.Draw(0,0, tb);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tb:=TBitmap.Create;
tb.LoadFromFile('c:\acd185.bmp');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
tb.Canvas.Brush.Style:=bsClear;
tb.Canvas.TextOut(100,100,Edit1.Text);
Repaint;
end;

end.

[andreyjn]

И еще вопросик вот получается сам текст рисуется на самой картинке а можно чтоб этот текст рисовался в том же Image но не на фотке а рядом потому как текс закрывает всю фотку ???

[Stilet]

Это ты про мой пример говоришь?
Что значит рядом?

[andreyjn]

Вот код который рисует текст на Image на самой картинке которая bmp а вот на Jpeg не хочет этого делать! И еще оно рисует на самой картинке а мне нужно чтоб я растянул Image допустим (500на300) из которых бы 300на300 занимала фотка а остальные 200на300 шол текст!

procedure TForm4.FormShow(Sender: TObject);
var
i:integer;
OldBkMode : integer;
s:string;
begin
with image2.Canvas do
begin
Image2.Canvas.Font.Color := clBlack;
Image2.Canvas.Font.Size:=10;
OldBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(300,20, Label1.Caption + Label14.Caption);
TextOut(300,40, Label2.Caption + Label15.Caption);
TextOut(300,60, Label3.Caption + Label16.Caption);
TextOut(300,80, Label4.Caption + Label17.Caption);
TextOut(300,100, Label5.Caption + Label18.Caption);
TextOut(300,120, Label6.Caption + Label19.Caption);
TextOut(300,140, Label7.Caption + Label20.Caption);
TextOut(300,160, Label8.Caption + Label21.Caption);
TextOut(300,180, Label9.Caption + Label22.Caption);
TextOut(300,200, Label10.Caption + Label23.Caption);
SetBkMode(Handle, OldBkMode);

end;
GetDir(0,s);
Form4.Image2.Picture.SaveToFile(s+' \Foto\'+inttostr(DataModule2.IBQuer y1.FieldByName('TABNOM').Value)+'.j pg');
end;



Это рисует на bmp и сохраняет в jpeg а как также нарисовать на jpeg ? С таким кодом на jpeg выбивает такую ошибку

[andreyjn]

Вот что мне нужно! Надо вот видите картинка и рядом текс - вот это все мне нужно сохранить одной картинкой !


А вот с тем кодом получается вот что - Image я растянул на всю форму!

[Stilet]

Мне кажется что твоя задача проще решилась бы репортами.

[andreyjn]

так я и так вывожу в репорт эту картинку и текст для печати но там же нет сохранить это одной картинкой !

[andreyjn]

А что нужно изменить в коде для того чтоб рисовало текст на картинке .jpeg а не bmp ???

var
i:integer;
OldBkMode : integer;
s:string;
begin
        with image2.Canvas do
        begin
                Image2.Canvas.Font.Color := clBlack;
                Image2.Canvas.Font.Size:=10;
                OldBkMode := SetBkMode(Handle, TRANSPARENT);
                TextOut(20,20, Label1.Caption   + Label14.Caption);
                TextOut(20,40, Label2.Caption   + Label15.Caption);
                TextOut(20,60, Label3.Caption   + Label16.Caption);
                TextOut(20,80, Label4.Caption   + Label17.Caption);
                TextOut(20,100, Label5.Caption  + Label18.Caption);
                TextOut(20,120, Label6.Caption  + Label19.Caption);
                TextOut(20,140, Label7.Caption  + Label20.Caption);
                TextOut(20,160, Label8.Caption  + Label21.Caption);
                TextOut(20,180, Label9.Caption  + Label22.Caption);
                TextOut(20,200, Label10.Caption + Label23.Caption);
                SetBkMode(Handle, OldBkMode);
        end;
       GetDir(0,s);
        Form4.Image2.Picture.SaveToFile(s+'\Foto\'+inttostr(DataModule2.IBQuery1.FieldByName('TABNOM').Value)+'.jpg');