| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Делаю скриншот экрана, КАК вывести текст на изображение [D6, D7, 2000, XP]

Officeman ©   (2007-05-07 13:24:00) 

//делаю скриншот
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 22:04:00) [1]

благодарю

---

easy   (2007-05-07 15:27:00) [2]

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;

---

Reindeer Moss Eater   (2007-05-07 15:13:00) [3]

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

---

Officeman   (2007-05-07 15:08:00) [4]

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

---

Наверх