Deiphi 7

[Azz]

Кто знает какие параметры у аператора GetPixel?
Я в Инэте пытался найти нашел что типо этого GetPixel(HDC,x,y) и расшивровывалось что типо HDC- handle of Device Context А че это такое хз.

[Crash]

Ууу... как все запущено ... ))

Простоты ради, можно в качестве HDC подсунуть handle от экземпляра класса TCanvas (вроде так это в Дельфи пишется?)

[Crash]

Да, если я еще что-то из VCL помню, то у TCanvas должен быть свой аналог GetPixel (или это у TBitmap?)

[Azz]

хм... почитал мало что понял, попробую изложить вопрос яснее.
Вообщем мне нужна помощь в написании программы которая может узнать цвет точки которой ты ей задаешь в окошке(или моно в самой проге просто в переменную забивать, чтобы с формами не париться)
Например у меня черный рабочийстол, Я скажу ей найди цвет точки 100,100 он мне отвечает цвет 255,255,255.
зы Очень буду благоарен если ктонить выложит подробный код с исходником =)

[slonik]

Действительно ... как все запущено ...
чёрный цвет будет 0,0,0 ... кроме всего прочего

если без форм, то должно быть что-то вроде такого:

var _hdc:HDC;
var col:COLORREF;
begin
_hdc := GetDC(0);
col := GetPixel(_hdc, 100, 100);
Write(GetRValue(col), GetGValue(col), GetBValue(col));
ReleaseDC(0, _hdc);
end;

P.S. дельфи нету и забыл когда последний раз её видел

[Slyer]

var
CursorPos : TPoint ;
DeviceContext: HDC ;
CapturedColor: Cardinal ;
begin
CapturedColor := 0 ;

DeviceContext := GetDC(0) ;
if DeviceContext > 0 then
begin
try
if GetCursorPos(CursorPos) then
CapturedColor := GetPixel(DeviceContext, CursorPos.x, CursorPos.y) ;
finally
DeleteDC(DeviceContext) ;
end ;
end ;

//if CapturedColor <> -1 then
//begin
// self.Canvas.Brush.Color := CapturedColor ;
// self.Canvas.FillRect(self.GetClientRect())
//end
end ;

[kavast]

Кто поделится Delphi7?

[valmar]

Сообщение от kavast

Кто поделится Delphi7?

бери в DC++

[Dmb]

кста люди, а как выводить картинку в отдельном окне при нажатии на определённую кнопку(картинка своя)

[Pitty]

Сообщение от Dmb

кста люди, а как выводить картинку в отдельном окне при нажатии на определённую кнопку(картинка своя)

Если картинка в файле, то можно с помощью TImage. Создаешь новую форму, кидаешь на нее TImage, в выравнивании выставляешь alClient (вроде, могу ошибаться), и потом в рантайме загружаешь в эту TImage ту картинку, которую тебе надо... Хотя можно и в дизайн-тайм загрузить, если картинка не меняется....

О, если картинка не меняется, можно сделать еще проще В):
... Э. попробовал я попроще, у меня не получилось, получилось еще сложнее В) В общем - проще как наверху в).
ЗЫ. Чтобы при изменении размера формы картинка не "дергалась", выставь у TImage свойство Stretch в true, и у формы, на которую выводишь, свойство BoubleBuffered в true.