Форум: "WinAPI";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизПолучения цвета точки в консольном приложении Найти похожие ветки
← →
Сатир (2002-09-27 15:26) [0]подскажите, пожалуйста, название функции, аргументы, и возвращаемый результат для сабжа
← →
MBo (2002-09-27 15:33) [1]можно уточнить какие точки в консольном приложении?
← →
Сатир (2002-09-27 15:43) [2]2MBo © (27.09.02 15:33)
естественно, напр.,
function getcolor(x,y:integer; hWnd:HWND):TColor;
что-то в таком духе есть?
← →
MBo (2002-09-27 16:25) [3]вот для Far как сработало (getpixel для dc консоли, видимо, не работает, надо GetDeviceCaps смотреть)
procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;
dc:hdc;
col:tcolor;
r:trect;
begin
h:=findwindow("tty",nil);
SetForeGroundWindow(h);
h:=findwindowex(h,0,"ttyGrab",nil);
getwindowrect(h,r);
dc:=getdc(0);
col:=getpixel(dc,r.left+15,r.top+10);
caption:=inttohex(col,8);
releasedc(0,dc);
end;
← →
Сатир (2002-09-27 18:44) [4]помогите перевести на паскаль
#include "stdafx.h"
#include "afxwin.h"
#include "iostream.h"
void main()
{
HWND hwnd;
hwnd=FindWindow("tty","TestConsole");
int i;
cin >> i;
if (hwnd!=NULL)
{
HDC hdc;
hdc=GetWindowDC(hwnd);
if (hdc!=0)
{
CPen pen(PS_SOLID,4,RGB(255,0,0));
SelectObject(hdc,pen);
Ellipse(hdc,90,90,120,120);
int i;
cin >> i;
}
else cout << "Error DC Window" << endl;
}
else cout << "Error Find Window" << endl;
}
← →
MBo (2002-09-27 18:50) [5]Это переводится один к одному.
выкинь все строки с i
в конце добавь
DeleteObject(hpen);
ReleaseDC(hwnd,hdc);
← →
Сатир (2002-09-27 19:14) [6]класс CPen = TPen или hpen?
hwnd!=NULL эквивалентно <>0 или <>nil
← →
MBo (2002-09-27 20:08) [7]pen:hpen
pen:=CreatePen(...
<>0
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c