Делаю скриншот экрана, КАК вывести текст на изображение

← →
Officeman © (2007-05-07 13:24) [0]

//делаю скриншот
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0, 0, Screen.Width, Screen.Height);
Bitmap:=TBitmap.Create;
Bitmap.Width:=Screen.Width;
Bitmap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);
//как перед сохранением добавить текст поверх изображения?
//Bitmap.Canvas.TextRect(DeskTopRect, 10,10, "1111111111111111");

← →
Officeman © (2007-05-07 15:08) [1]

АУ ;) памагите. незнаю как добавить в канвас

← →
Reindeer Moss Eater © (2007-05-07 15:13) [2]

А цвета и стили кисти там всякие не надо предварительно устанавливать перед рисованием?

← →
easy © (2007-05-07 15:27) [3]

var ddc:HDC; desktop:HWND; begin desktop:=GetDesktopWindow(); ddc:=GetDC(desktop); with TBitmap.Create do try width:=Screen.Width; height:=Screen.Height; BitBlt(Canvas.Handle,0,0,width,height,ddc,0,0,SRCCOPY); with Canvas do begin Brush.Style:=bsclear; Font.Size:=80; Font.Color:=clRed; TextOut(width div 2,height div 2,"Hello!"); end; SaveToFile("C:\decktop.bmp"); finally Free; end; ReleaseDC(desktop,ddc); end;

благодарю

Делаю скриншот экрана, КАК вывести текст на изображение Найти похожие ветки