Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Scanline verwenden

    Delphi
    by Tormentor32, 12. Dez 2006
  Ja genau das ist es! :hello:
  Danke!
  
  Das hatte ich vorher schon, nur dass ich bei den Bitmaps nicht den TransparentMode gesetzt hatte... :wall:
  
  Naja vielen Dank!
• Forum: Multimedia

  Re: Scanline verwenden

    Delphi
    by Tormentor32, 11. Dez 2006
  ich will das hinterher halt so machen, dass ich hinterher meine eigene Komponente habe, wo ich dann
  
  
  FLayer: array of TBitmap
  //(...)
  procedure Paint;
  begin
  for i := low(FLayers) to high(FLayers)
  PaintLayer(i)
  end;
• Forum: Multimedia

  Re: Scanline verwenden

    Delphi
    by Tormentor32, 11. Dez 2006
  :wall:
  
  Ich habe deinen Code umgesetzt, aber es tut sich imer noch nichts, die Bedingung funktioniert aber,
  ich habe das mit einem Showmessage überprüft. Hier mal den Ganzen Code ausm Kontext:
  
  procedure TForm1.FormCreate(Sender: TObject);
  var x,y: integer;
  P,P2: PRGBQuad;
  //P,P2: PRGBTriple;
  begin
• Forum: Multimedia

  Re: Scanline verwenden

    Delphi
    by Tormentor32, 11. Dez 2006
  Also ich habe jetzt das gemacht:
  
  
  for y := 0 to Layer2.Height-1 do
  begin
  P := Layer2.Scanline;
  P2 := img.Picture.Bitmap.ScanLine;
  for x := 0 to Layer2.Width-1 do
  if RGB(P^.rgbBlue,P^.rgbGreen,P^.rgbRed) <> ColorToRGB(clFuchsia)
  then
• Forum: Multimedia

  Re: Scanline verwenden

    Delphi
    by Tormentor32, 11. Dez 2006
  Oh.. Ich hab im Eifer des Gefechts vergessen eine Frage zu formulieren :oops:
  
  Wäre das hier ein Lösung?
  
  
  var P,P2: PRGBTriple;
  begin
  for y := 0 to Layer2.Height-1 do
  begin
  P := Layer2.Scanline;
• Forum: Multimedia

  Scanline verwenden

    Delphi
    by Tormentor32, 11. Dez 2006
  Hallo Leute!
  
  Ich habe in meinem Spiel folgenden Algorythmus:
  
  
  for x := 0 to Layer2.Width-1 do
  for y := 0 to Layer2.Height-1 do
  begin
  if Layer2.Canvas.Pixels <> FTransparentcolor
  then