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

    Samsung představil headset Galaxy XR se 4K Micro-OLED displeji, procesorem Snapdragon XR2+ Gen 2, 16 GB RAM, 256 GB úložištěm, operačním systémem Android XR a Gemini AI.

    Ladislav Hagara | Komentářů: 0
    dnes 05:22 | Nová verze

    Před konferencí Next.js Conf 2025 bylo oznámeno vydání nové verze 16 open source frameworku Next.js (Wikipedie) pro psaní webových aplikací v Reactu. Přehled novinek v příspěvku na blogu.

    Ladislav Hagara | Komentářů: 0
    včera 23:33 | Komunita

    Sovereign Tech Fund oznámil finanční podporu následujících open source projektů: Scala, SDCC, Let's Encrypt, Servo, chatmail, Drupal, Fedify, openprinting, PHP, Apache Arrow, OpenSSL, R Project, Open Web Docs, conda, systemd a phpseclib.

    Ladislav Hagara | Komentářů: 0
    včera 13:11 | Nová verze

    Bylo vydáno OpenBSD 7.8. S předběžnou podporou Raspberry Pi 5. Opět bez písničky.

    Ladislav Hagara | Komentářů: 0
    včera 05:44 | Nová verze Ladislav Hagara | Komentářů: 2
    včera 05:22 | Bezpečnostní upozornění

    Byly publikovány informace o kritické zranitelnosti v knihovně pro Rust async-tar a jejích forcích tokio-tar, krata-tokio-tar a astral-tokio-tar. Jedná se o zranitelnost CVE-2025-62518 s CVSS 8.1. Nálezci je pojmenovali TARmageddon.

    Ladislav Hagara | Komentářů: 3
    21.10. 23:15 | Nová verze

    AlmaLinux přinese s verzí 10.1 podporu btrfs. XFS bude stále jako výchozí filesystém, ale instalátor nabídne i btrfs. Více informací naleznete v oficiálním oznámení.

    Max | Komentářů: 2
    21.10. 22:33 | IT novinky

    Společnost OpenAI představila svůj vlastní webový prohlížeč ChatGPT Atlas. Zatím je k dispozici pouze na macOS.

    Ladislav Hagara | Komentářů: 0
    21.10. 14:33 | Nová verze

    Desktopové prostředí KDE Plasma bylo vydáno ve verzi 6.5 (Mastodon). Přehled novinek i s videi a se snímky obrazovek v oficiálním oznámení. Podrobný přehled v seznamu změn.

    Ladislav Hagara | Komentářů: 3
    21.10. 13:55 | IT novinky

    Rodina jednodeskových počítačů Orange Pi se rozrostla (𝕏) o Orange Pi 6 Plus.

    Ladislav Hagara | Komentářů: 11
    Jaké řešení používáte k vývoji / práci?
     (36%)
     (48%)
     (20%)
     (20%)
     (22%)
     (18%)
     (21%)
     (18%)
     (18%)
    Celkem 256 hlasů
     Komentářů: 14, poslední 14.10. 09:04
    Rozcestník

    Dotaz: Delphi-pristup k pixelu

    8.9.2011 19:14 Lojzan
    Delphi-pristup k pixelu
    Přečteno: 196×
    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.