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

[SunKnight]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;OldBkMode : integer;
begin

                with image1.Canvas do
        begin
                Image1.Canvas.Font.Color := clBlue;
                Image1.Canvas.Font.Size:=16;
                OldBkMode := SetBkMode(Handle, TRANSPARENT);
                TextOut(20,20, memo1.Text);
                SetBkMode(Handle, OldBkMode);

        end;
        Image1.Picture.SaveToFile('D:\sss.jpeg');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  b:TBitmap;OldBkMode:integer;
begin
    b:=TBitmap.Create;
    b.Width:=Width;
    b.Height:=Height;
    with image1.Canvas do
        begin
                Image1.Canvas.Font.Color := clBlue;
                OldBkMode := SetBkMode(Handle, TRANSPARENT);
                TextOut(0,0, memo1.Text);
                SetBkMode(Handle, OldBkMode);

        end;
    b.Canvas.CopyRect(image1.ClientRect, Image1.Canvas , image1.ClientRect);
    b.SaveToFile('d:\12.jpeg');
    b.Free;
end;

end.

посмотрите модули, все ли они подключены?

[andreyjn]

Да! Да я вот взял и тупо твой код вставил и тоже самое !

[SunKnight]

вот исходники [ATTACH]3222[/ATTACH]

А я понял, вы наверно JPEG вставили в IMAGE, проверте на BMP, а затем под JPEG переделать можно код.

[andreyjn]

Ваш код не запускается вот что получилось ! Пробовал на своем исходнике bmp тоже самое!

[SunKnight]

там в исходниках я забыл удалить модули :WordRuler, CustomRuler;
удалите их. Их у вас просто нет. поэтому и ошибка с ПАКЕТАМИ

[andreyjn]

удалил и все таже ошибка - нехватает пакета какого-то !

[SunKnight]

Ну значит сносите свой модный BD2006 и ставте скромный BD6. Это какойто тупняк с несовместимостью.
Подождите это у меня тупняк шас вышлю нормальные исходники

[GAGARIN-NEW]

ммм... а может напишите каково?

[andreyjn]

та завтра 7-й поставлю ! спасибо за помощь - завтра поставлю 7-й и отпишусь ! А Вы говорили что под jpeg переделаьть нужно - а что именно потому как у меня буду все фотки отолько jpeg !

[SunKnight]

Вот должно работать [ATTACH]3224[/ATTACH]