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

[andreyjn]

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

procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode : integer;
    begin
      Image1.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;

[SNUPY]

Так рисую на канве Имейджа:

Image1.Canvas.TextOut(0,0, 'BLA-BLA');

Так рисую на канве Tbitmap:

B:Tbitmap;
...
B.Canvas.TextOut(0,0, 'BLA-BLA');

[andreyjn]

Сообщение от 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

Такое тоже не покатит т.к. копирует не только содержимое формы но и захватывает куски ниже формы !

[andreyjn]

[QUOTE=SNUPY;89445]Так рисую на канве Имейджа:

Image1.Canvas.TextOut(0,0, 'BLA-BLA');

А такой вопрос а как вот таким способом написать на Image на котором уже есть картинка? Т.е. он уже не пустой !

[andreyjn]

Просто получается у меня есть два Image на одном фотка а на другом текст можно ли както эти два Image сохранить одним файлом .jpeg ! По отдельности могу а вот мне нужно чтоб одним !

[SunKnight]

Просто получается у меня есть два Image на одном фотка а на другом текст можно ли както эти два Image сохранить одним файлом .jpeg ! По отдельности могу а вот мне нужно чтоб одним !

Что ж Вы людям голову морочите? Сразу обьяснить немогли.

Зачем хранить текст в IMAGE, легче в МЕМО или EDIT. Вот пример вывода:

 with image1.Canvas do
        begin
                Canvas.Font.Color := clBlue;
                OldBkMode := SetBkMode(Handle, TRANSPARENT);
                TextOut(0,0, Edit1.Text);
                SetBkMode(Handle, OldBkMode);
               
                end;
                Image1.Picture.SaveToFile('D:\sss.jpeg');
        end;

можно еще так

var
  b:TBitmap;
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;

[andreyjn]

Неработает Ваш код !!!

[andreyjn]

Вернее он работает но не так как надо ! Он выводит в Image текст с Edit или Memo и то если в самом Image нет картинки т.е. он пустой ! Наверное Вы не поняли что мне надо ! У меня есть фотка которая уже загружена в Image а мне надо в этот же Image дописать текст и сохранить картинку ! А вот по тем кодам что были здесь написаны они только в пустой Image добавляют и получается что фотка в одном Image1 а текст в Image2 и вот как теперь эти два Image сохранить одной картинкой ???? Или как написать вернее дописать текст на Image где есть уже фотка и он не пустой !!!!

[SunKnight]

Вернее он работает но не так как надо ! Он выводит в Image текст с Edit или Memo и то если в самом Image нет картинки т.е. он пустой ! Наверное Вы не поняли что мне надо ! У меня есть фотка которая уже загружена в Image а мне надо в этот же Image дописать текст и сохранить картинку ! А вот по тем кодам что были здесь написаны они только в пустой Image добавляют и получается что фотка в одном Image1 а текст в Image2 и вот как теперь эти два Image сохранить одной картинкой ???? Или как написать вернее дописать текст на Image где есть уже фотка и он не пустой !!!!

Все работает, прилагаю скрин для неверующих
[ATTACH]3221[/ATTACH]

[andreyjn]

Может Вы что-то забыли дописать но у меня вот что