Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Maximale Stack Größe reicht nicht

    Delphi
    by himitsu, 10. Mär 2010
  Problem gefunden: Die Bytes der Farben liegen im Bitmap andersrum, als wie in TColor.
  
  In welchem Format liegt eigentlich dein Bild vor?
  (man sieht ja nicht, was sich hinter GetGrayVal versteckt)
  
  Und das Map-Image hab ich vorwiegend als Ausgabeformat genutzt, weil es einfach nur "einfach" zu handhaben ist ... ein anderes Format wäre auch "leicht" realisierbar.
  
  Uses Types, SysUtils,...
• Forum: Sonstige Fragen zu Delphi

  Re: Maximale Stack Größe reicht nicht

    Delphi
    by himitsu, 9. Mär 2010
  Da die Farbe komplett umgefärbt werden sollte, stimmen danach die Farben überein und FloodFill würde nur einmal auf diese Fläche losgelassen.
• Forum: Sonstige Fragen zu Delphi

  Re: Maximale Stack Größe reicht nicht

    Delphi
    by himitsu, 9. Mär 2010
  Na da hast'e vollkommen Recht.
  
  
  hmmmmm, bei M.bmp = dein Bild von Seite 1
  und M2.bmp Ergebnis (damit man was besser sieht, wurde an LastArea gedreht)
  aber irgendwie hab ich Probleme mit diesem blöden FloddFill und die schrottige OH ist da garkeine Hilfe, da dort absolut nix drinsteht in D2010 :evil: .
  Uses Types, SysUtils, Graphics;
  
  Procedure SearchAreas(Threshold: Byte; Image, Map:...
• Forum: Sonstige Fragen zu Delphi

  Re: Maximale Stack Größe reicht nicht

    Delphi
    by himitsu, 9. Mär 2010
  Procedure SearchAreas(Threshold: Byte; Image, Map: TBitMap);
  Var LastArea, X, Y, C, C2: Integer;
  
  Begin
  Map.PixelFormat := pf24bit;
  Map.Width := Image.Width;
  Map.Height := Image.Height;
  Map.Canvas.Brush.Style := bsSolid;
  Map.Canvas.Brush.Color := 0;
  Map.Canvas.FillRect(Rect(0, 0, Map.Width, Map.Height));