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