Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Вниз---|Ветка была без названия|--- Найти похожие ветки
← →
able (2004-01-23 18:02) [0]У кого-нить есть примерчик на сабж?
← →
MBo (2004-01-23 18:04) [1]нарисовать курсор поверх скриншота
← →
able (2004-01-23 18:09) [2]MBo ©
а чтоб цп не грузил?
← →
able (2004-01-23 18:15) [3]не, очень надо
← →
Плохиш_ (2004-01-23 18:15) [4]>able
Расскажи лучше как на файл курсор поставить.
← →
able (2004-01-23 18:17) [5]>Плохиш_
На какой ещё файл?
← →
able (2004-01-23 18:28) [6]Блинннн... чё, никто не знает?
← →
Плохиш_ (2004-01-23 18:30) [7]в файл с курсором
это кто написал?
← →
able (2004-01-23 18:32) [8]ну блин, я имел ввиду экран с курсором.... помог бы лучше
← →
GrayFace (2004-01-23 19:02) [9]А цп все-равно грузиться будет. Сохранение канваса в файл, наверняка, дороже, чем рисование курсора.
← →
Александр из Минска (2004-01-23 22:58) [10]Ты хоть можешь скрин снять в файл без курсора???
← →
able (2004-01-24 12:52) [11]>Александр из Минска ©
могу
Ну ладно, тогла скажите, как получить текущий курсор?
← →
GrayFace (2004-01-24 13:58) [12]screen.Cursors[screen.Cursor]
← →
able (2004-01-24 15:31) [13]>GrayFace ©
А как запихать в TImage?
← →
easy (2004-01-24 16:44) [14]
procedure GrabScreenWithCursor(filename:string);
var
DC: HDC;
Canva: TCanvas;
B: TBitmap;
CH:HICON;
IconInfo:TIconInfo;
begin
Canva := TCanvas.Create;
B := TBitmap.Create;
DC := GetDC(0);
try
Canva.Handle := DC;
with Screen do
begin
B.Width := Width;
B.Height := Height;
B.Canvas.CopyRect(Rect(0, 0, Width, Height),
Canva, Rect(0, 0, Width, Height));
CH:=GetCursor;
GetIconInfo(CH,IconInfo);
DrawIcon(b.Canvas.Handle,mouse.CursorPos.X-IconInfo.xHotspot,mouse.CursorPos.Y-IconInfo.yHotspot,CH);
B.SaveToFile(filename);
end
finally
ReleaseDC(0, DC);
B.Free;
Canva.Free;
end;
end;
← →
able (2004-01-24 17:52) [15]>easy ©
Спасибо, сейчас проверю
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.024 c