Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: TColor gibt mir keine 256 Farben

   
    by Delphi.Narium, 17. Feb 2019
  Ja schon, aber bei diesen Bildern steht (soweit ich mich erinnere) nicht die Farbe (jeweil rot, grün und blau) für die einzelnen Pixel in der Datei, sondern die Nummer des für den Pixel zu verwendenden Paletteneintrages. Man benötigt also bereits die Palette, um das Bild darstellen zu können, bzw. nimmt man eine andere Palette, so ändert sich das Bild in der Anzeige, nicht jedoch die Pixel in der...
• Forum: Multimedia

  AW: TColor gibt mir keine 256 Farben

   
    by Delphi.Narium, 16. Feb 2019
  procedure TForm1.Button22Click(Sender: TObject);
  var hoch, breit,i: Integer;
  red,green,blue: Byte;
  p: TColor;
  begin
  with Form1.Image1.Canvas do begin
  for hoch := 0 to maxY do begin
  for breit := 0 to maxX do begin
  p := Image1.Canvas.Pixels;
  if p = 0 then Continue; // schwarz nicht in Palette