Digilabel Komponente mit coolem Effekt

[Corpsman]

Also wenn ich dich Richtig verstehe willst du das deine Kombo Geglättet ausgibt ?

Das geht eigentlich recht einfach.

Du machst 2 schleifen die du nach dem Zeichnen deiner Buschtaben über das Bild jagst.

Delphi-Quellcode:

// Pseudo Code

For x := 1 to Bildbreite-1 do

  For y := 1 to Bildhöhe-1 do

    p := Farbwert_pixel[x-1,y-1] + Farbwert_pixel[x,y-1] +Farbwert_pixel[x+1,y-1] +
         Farbwert_pixel[x-1,y] + Farbwert_pixel[x,y] +Farbwert_pixel[x+1,y] +
         Farbwert_pixel[x-1,y+1] + Farbwert_pixel[x,y+1] +Farbwert_pixel[x+1,y+1];
    p:= p / 9;
    Canvas.pixels[x,y] := p;
  end;
end;

Mir ist klar das man p in die 3 RGB Komponenten aufspalten mus, ich finde gerade nur mein Glätten sample nicht.

Mit Scanline geht das natürlich auch wunderbar.

[Edit]

Delphi-Quellcode:

procedure TForm1.TrackBar_OffsetChange(Sender: TObject);
begin
  if Trackbar_Offset.Position mod 3 = 0 then     // Optional
    Digilabel.Offset := Trackbar_Offset.Position;
end;

ist natürlich nicht so sinnvoll weil du ja zwei mal auf Mod 3 = 0 prüfst

da kannst gleich

Delphi-Quellcode:

procedure TForm1.TrackBar_OffsetChange(Sender: TObject);
begin
//  if Trackbar_Offset.Position mod 3 = 0 then     // Optional
    Digilabel.Offset := Trackbar_Offset.Position * 3;
end;

machen