Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Green,
11. Jan 2008
Hab ich getan und die suche und ein wenig nachdenken brachte mir folgendes ergebnis:
procedure assign;
var
i, j, iy, ix: integer;
lPixel: PRGBQuad;
begin
Image.canvas.brush.color:=clBlack;
Image.canvas.rectangle(0,0,AufloesungX,AufloesungY);
Image.Picture.Bitmap.PixelFormat := pf32bit;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Green,
11. Jan 2008
Hab vergessen das umzubenennen ^^
is auch ein TImage. Wie soll das mit Scanline gehen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Green,
11. Jan 2008
procedure TForm1.AssignColors(PB: TProgressbar);
var
i, j: integer;
begin
Image.canvas.brush.color:=clBlack;
Image.canvas.rectangle(0,0,AufloesungX,AufloesungY);
for i := 0 to AufloesungX - 1 do begin
for j := 0 to AufloesungY - 1 do begin
if not (CountArray = Form3.TrackBar1.Position + 1) then
MandelImage.Canvas.Pixels := Image10.Canvas.Pixels];