Borland C++ Builder dla początkujących
Wyświetlanie na etykiecie koloru piksela, na który wskazuje
mysz
Aby na etykiecie Label1 wyświetlić kolor piksela, na który wskazuje aktualnie
kursor myszy umieszczamy na formularzu komponent TTimer (zakładka System) i
tworzymy dla niego zdarzenie OnTimer:
Unit1.cpp
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TCanvas *Canvas = new TCanvas();
Canvas->Handle = GetDC(0);
TPoint Point;
GetCursorPos(&Point);
TColor Color = Canvas->Pixels[Point.x][Point.y];
delete Canvas;
int RGB = ColorToRGB(Color);
TVarRec args[3] = {GetRValue(RGB), GetGValue(RGB), GetBValue(RGB)};
Label1->Caption = Format("#%.2x%.2x%.2x",
args, 3);
}