Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Сатир © (2002-09-27 15:26:00)
подскажите, пожалуйста, название функции, аргументы, и возвращаемый результат для сабжа

MBo (2002-09-27 20:08:00) [1]
pen:hpen
pen:=CreatePen(...
<>0

Сатир (2002-09-27 19:14:00) [2]
класс CPen = TPen или hpen?
hwnd!=NULL эквивалентно <>0 или <>nil

MBo (2002-09-27 18:50:00) [3]
Это переводится один к одному.
выкинь все строки с i
в конце добавь
DeleteObject(hpen);
ReleaseDC(hwnd,hdc);

Сатир (2002-09-27 18:44:00) [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 16:25:00) [5]
вот для 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 15:43:00) [6]
2MBo © (27.09.02 15:33)
естественно, напр.,
function getcolor(x,y:integer; hWnd:HWND):TColor;
что-то в таком духе есть?

MBo (2002-09-27 15:33:00) [7]
можно уточнить какие точки в консольном приложении?

Наверх

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