Получения цвета точки в консольном приложении

← →
Сатир (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

pen:hpen
pen:=CreatePen(...
<>0

Получения цвета точки в консольном приложении Найти похожие ветки