'leeres' Bitmap erstellen?

[LeoSam]

Hallo,

Ich habe ein Image (Image1) erstellt und möchte nun ein Bild "reinzeichnen", beispielsweise einen Farbverlauf

Delphi-Quellcode:

procedure TForm1.Bild_zeichnen;
type
  PixArray = Array [1..3] of Byte;
var
  p: ^PixArray;
  h,w: Integer;  bit: TBitmap;
begin
  bit := image2.Picture.Bitmap;      //Was muss hier stehen???
  bit.Height := 100;
  bit.Width := 100;
  image1.Width := 100;
  image1.Height := 100;

  for h:=0 to Bit.Height-1 do
  begin
    p:= Bit.ScanLine[h];
    for w:=0 to Bit.Width-1 do
    begin
      p^[3]:=255;                     //
      p^[2]:=w;                       //  Beispiel: Farbverlauf von rot nach gelb
      p^[1]:=0;                       //
      Inc(p);
    end;
  end;

  image1.Picture.Bitmap := bit;

end;

Das Problem:
Ich wusste nicht, was ich "bit" am Anfang zuweisen musste, deswegen habe ich ein neues Image (Image2) erstellt und 'bit' den (leeren?) Inhalt von Image2 zugewiesen...
Wenn ich vorher ein Bild in das Image2 geladen habe funktioniert es, wenn nicht wird beim Image1 einfach alles weiß, kann mir jemand sagen warum und was ich dem Bitmap 'bit' am Anfang zuweisen muss??

Vielleicht stehe ich grad total auf dem Schlauch aber ich weiß einfach nicht weiter

Danke schon mal im Vorraus
MFG leo

[Neutral General]

Delphi-Quellcode:

var Bit: TBitmap;

Bit := TBitmap.Create;
Bit.Width := 800;
Bit.Height:= 600;

Das ist ein 800*600Pixel großes leeres (weißes) Bitmap.

EDIT: Achso.. LEER ... Sag das doch *g*
Blawen unter mir hat Recht.. Hab da was falsch verstanden, bzw zu schnell gelesen und zu wenig verstanden

Gruß
Neutral General

[blawen]

Ich habe grad kein Delphi zur Hand, darum kann ich nur mal raten:

Code:

bit := NIL;

[turboPASCAL]

Zitat von blawen:

Ich habe grad kein Delphi zur Hand, darum kann ich nur mal raten:

Code:

bit := NIL;

Damit verschiebst Du das Bitmap in das Nirvana. (Simple: nil = nix)

[LeoSam]

ok, danke schon mal aber es funktioniert leider noch nicht.
Ich habe beide Möglichkeiten ausprobiert
bei
bit := nil; kommt eine diverse Fehlermeldung wenn ich Höhe und Breite des bitmaps setzen will und bei
bit := TBitmap.create; wird im Image wieder nur eine weiße Fläche ausgegeben ?!?
seltsam.. wenn einem noch was dazu einfällt wär ich dankbar

[turboPASCAL]

Zitat von turboPASCAL:

Zitat von blawen:

Ich habe grad kein Delphi zur Hand, darum kann ich nur mal raten:

Code:

bit := NIL;

Damit verschiebst Du das Bitmap in das Nirvana. (Simple: nil = nix)

Das schreibe ich doch nicht umsonst?

Zitat von LeoSam:

bit := TBitmap.create; wird im Image wieder nur eine weiße Fläche ausgegeben ?!?
seltsam.. wenn einem noch was dazu einfällt wär ich dankbar

Ja, denn wenn ein Bitmap mit Create erstellt wurde ist es weis.
Du kannst dann mit diversen Zeichenopperationen dann deine Grafik darauf erstellen. (Siehe [oh]Canvas, TBitmap[/oh])

Delphi-Quellcode:

procedure TForm1.Bild_Zeichnen;
type
  PixArray = Array [1..3] of Byte;
var
  p: ^PixArray;
  h,w: Integer;  bit: TBitmap;
begin
  bit := TBitmap.Create;
  bit.PixelFormat := pf24Bit;
  bit.Height := 100;
  bit.Width := 100;

  for h := 0 to Bit.Height - 1 do
  begin
    p := Bit.ScanLine[h];
    for w := 0 to Bit.Width - 1 do
    begin
      p^[3]:=255;                     //
      p^[2]:=w;                       //  Beispiel: Farbverlauf von rot nach gelb
      p^[1]:=0;                       //
      Inc(p);
    end;
  end;

  Image1.Picture.Bitmap.Assign(bit);

end;

[LeoSam]

Vielen Dank, das PixelFormat hat mir noch gefehlt...
geht jetzt