Скачать: CL | DM;

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

← →
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;

---

← →
Officeman ©   (2007-05-07 22:04) [4]

благодарю

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c