abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 04:33 | IT novinky

    Certifikační autorita Let's Encrypt oznámila svůj záměr co nejdříve ukončit podporu protokolu Online Certificate Status Protocol (OCSP) ve prospěch seznamů Certificate Revocation Lists (CRLs).

    Ladislav Hagara | Komentářů: 0
    dnes 03:44 | Nová verze

    Společnost Meta představila Llama 3.1 (𝕏), tj. nejnovější verzi svého open source velkého jazykového modelu Llama (Wikipedie). K dispozici je ve verzích 8B, 70B a 405B.

    Ladislav Hagara | Komentářů: 0
    včera 23:44 | Nová verze

    Google Chrome 127 byl prohlášen za stabilní. Nejnovější stabilní verze 127.0.6533.72 přináší řadu oprav a vylepšení (YouTube). Podrobný přehled v poznámkách k vydání. Opraveno bylo 24 bezpečnostních chyb. Vylepšeny byly také nástroje pro vývojáře.

    Ladislav Hagara | Komentářů: 0
    včera 14:11 | IT novinky

    Vyšlo nové vydání knihy Mastering Emacs. Jedná se o aktualizaci pro Emacs 29. Knihu lze nyní koupit ve slevě, akce trvá do čtvrtka 25. července ráno.

    klifacek | Komentářů: 1
    včera 14:00 | Nová verze

    Nástroje wpa_supplicant (Wikipedie) a související hostapd (Wikipedie) byly vydány v nové verzi 2.11.

    Ladislav Hagara | Komentářů: 0
    včera 04:00 | Nová verze

    Byla vydána nová major verze 1.10.0 rychlého bezeztrátového kompresního algoritmu LZ4 (Wikipedie). Hlavní novinkou je podpora vícevláknového zpracování (multithreading).

    Ladislav Hagara | Komentářů: 0
    včera 00:33 | Zajímavý software

    Byl představen Stremio OS pro Raspberry Pi 5 a 4, tj. operační systém postavený nad LineageOS 21 s multimediálním centrem Stremio. Stremio lze instalovat také z Flathubu.

    Ladislav Hagara | Komentářů: 0
    22.7. 16:33 | Nová verze

    Po půl roce od vydání verze 2.39 byla vydána nová verze 2.40 knihovny glibc (GNU C Library). Přehled novinek v poznámkách k vydání a v souboru NEWS. Opraveno bylo 5 zranitelností (CVE).

    Ladislav Hagara | Komentářů: 0
    22.7. 15:33 | Pozvánky

    GNU Tools Cauldron 2024 proběhne v Praze na Univerzitě Karlově od 14. do 16. září 2024.

    Ladislav Hagara | Komentářů: 0
    21.7. 05:00 | Nová verze

    OpenMandriva ROME, tj. průběžně aktualizovaná (rolling) edice linuxové distribuce OpenMandriva, byla vydána ve verzi 24.07. S KDE Plasma 6 a spiny LXQt (2.0.0 Qt6) a GNOME (46.3). Vydáno bylo také ROME Plasma6 Wayland ISO. Vývojáři ale nepovažují Wayland za dostatečně vyspělý, aby mohl nahradit X11 pro většinu uživatelů. Linux byl povýšen na verzi 6.10. Přeložen je Clangem.

    Ladislav Hagara | Komentářů: 17
    Rozcestník

    Dotaz: Delphi-pristup k pixelu

    8.9.2011 19:14 Lojzan
    Delphi-pristup k pixelu
    Přečteno: 171×
    Dobrý den, mam dve procedury, ktere spolecne dokazi zobrazit HEX kod barvy urciteho pixelu. Vim co delaji, ale nerozumim kodu. Predpokladam, ze pracuji bez ohledu na kurzor. Příklad: Mam bilou plochu a na pozici 50x65 mam kurzor. Barva tohoto bodu je cerna (okraj sipecky mysi), ale procedury onen pixel vyhodnoti jako bily ('nevidi' kurzor). Potreboval bych, aby pracovaly i s kurzorem.

    //Konverze barvy do HEX kodu function ColorToHTMLHex(Color: TColor): String; begin Result := IntToHex(ColorToRGB(Color), 6); Result := Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2); end;

    //Ziskani pixelu pro urceni barvy function DesktopColor(const x,y: integer): TColor; var c:TCanvas; begin c:=TCanvas.create; c.handle:=GetWindowDC(GetDesktopWindow); result:=getpixel(c.handle,x,y); c.free; end;

    Odpovědi

    8.9.2011 19:16 Lojzan
    Rozbalit Rozbalit vše Re: Delphi-pristup k pixelu
    Omlouvam se za format kodu.

    //Konverze barvy do HEX kodu

    function ColorToHTMLHex(Color: TColor): String;

    begin

    Result := IntToHex(ColorToRGB(Color), 6);

    Result := Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2);

    end;

    //Ziskani pixelu pro urceni barvy

    function DesktopColor(const x,y: integer): TColor;

    var

    c:TCanvas;

    begin

    c:=TCanvas.create;

    c.handle:=GetWindowDC(GetDesktopWindow);

    result:=getpixel(c.handle,x,y);

    c.free;

    end;

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.