AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Harte Nuss: Cursor zu einer bestimmten Farbe springen
Thema durchsuchen
Ansicht
Themen-Optionen

Harte Nuss: Cursor zu einer bestimmten Farbe springen

Ein Thema von Ajin · begonnen am 25. Feb 2008 · letzter Beitrag vom 26. Feb 2008
Antwort Antwort
Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#1

Re: Harte Nuss: Cursor zu einer bestimmten Farbe springen

  Alt 25. Feb 2008, 15:14
Ok, es geht auch direkt mit dem Canvas des Formulars über Pixel. Nur schnell ist das dann nicht.
Delphi-Quellcode:
function FindColorInForm(AForm : TForm; AColor : TColor; var APoint : TPoint) : boolean;
var
   r, c : integer;
begin
   result := False;
   r := 0;
   while (r < AForm.ClientHeight) and not result do
   begin
      c := 0;
      while (c < AForm.ClientWidth) and not result do
      begin
         if AForm.Canvas.Pixels[c, r] = AColor then
         begin
            APoint.X := c;
            APoint.Y := r;
            result := True;
         end;
         inc(c);
      end;
      inc(r);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   pt : TPoint;
begin
   // Zum Test z.B. ein rotes TLabel irgendwo aufs Formular setzen
   if FindColorInForm(self, clRed, pt);
      Showmessage(Format('%d/%d', [pt.X, pt.Y]))
end;
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz