Einzelnen Beitrag anzeigen

Freiwilderer

Registriert seit: 26. Mai 2009
163 Beiträge
 
Delphi 7 Enterprise
 
#17

Re: ClickEvent auf formen (nichts quadratisches)

  Alt 10. Jul 2009, 11:21
so
also so läufts, so wie ich das gerne hätte,
zwar mit ner leichten verzögerung, aber da zwischendurch noch was anderes passieren wird, fällt das wohl kaum auf.
Delphi-Quellcode:
 for i := 0 to Image2.Width do
  for j := 0 to Image2.Height do
   if (Image2.Canvas.Pixels[i,j] = clBlack) and
      (Image1.Canvas.Pixels[i,j] = panel2.color)then
    Image2.Canvas.Pixels[i,j] := clAqua;

er sucht also den kompletten bereich ab, wenn der Bereich auf image2 schwarz ist
und auf image1 die farbe des angeklickten bereiches hat, überschreibt er das schwarz mit clAqua
so wird nur der Rand und nicht die komplette fläche mit einer neuen farbe versehen.

mfg
und nochmals vielen dank
  Mit Zitat antworten Zitat