AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi problem mit GetDC bzw. AColor
Thema durchsuchen
Ansicht
Themen-Optionen

problem mit GetDC bzw. AColor

Ein Thema von rhodan · begonnen am 6. Feb 2011 · letzter Beitrag vom 9. Feb 2011
 
Benutzerbild von rhodan
rhodan

Registriert seit: 4. Okt 2005
Ort: Hamburg
150 Beiträge
 
Delphi 7 Personal
 
#1

problem mit GetDC bzw. AColor

  Alt 6. Feb 2011, 21:54
hallo,

kleines problem.
wenn ich den befehl GetPixel nur einmal ausführe hier, wird die farbe auf dem screen richtig erkannt, asuche ich allerdings auch noch nach der ZWEITEN koordinate, wird selbst die erste nicht richtig erkannt (sprich das panel färbt sich nicht blau).

muss ich jedes mal bevor ich ne neue koordinate absuche den DC neu holen? oder liegt das problem bei AColor und ich muss die erst releasen bevor ich die zweite koordinate suche oO ?

Code:
procedure TForm1.Button2Click(Sender: TObject);
var
dc:hdc;
AColor : Array[1..4] of Byte;
hwnd:hwnd;
...

begin
...

   DC := GetDC(hwnd);

  //blau

  DWord(AColor) := GetPixel(dc,410,412);

if (AColor[1] > 0) and (AColor[1] < 15)and (AColor[2] > 35) and (AColor[2] < 60) and (AColor[3] > 240) then
  begin
  panel1.color :=clblue;
  end;


 
  DWord(AColor) := GetPixel(dc,460,412);
  if (AColor[1] > 0) and (AColor[1] < 15)and (AColor[2] > 35) and (AColor[2] < 60) and (AColor[3] > 240) then
  begin
  panel2.color :=clblue;
  end;

danke
  Mit Zitat antworten Zitat
 


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 02:29 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 by Thomas Breitkreuz