Registriert seit: 28. Feb 2005
Ort: Berlin
281 Beiträge
Delphi 7 Professional
|
Re: TPanel und Image Frage???
4. Nov 2006, 10:39
Hallo,
Okay ich habs fast geschaft , ich hab bmp1 in ein Array gestopft.
Problem : Wenn ich im edit den wert 2 eintrage wird der abstand grösser zwischen den Led´s .
Mein Code:
Delphi-Quellcode:
var i: integer;
begin
i:= strtoint(Edit1.Text);
for i := 0 to 100 do
begin
bmp1[i]:=TImage.Create(Panel1); // Bild erstellen.
bmp1[i].Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
bmp1[i].Parent:=Panel1; // Bild ins Panel setzen
if i > 0 then
bmp1[i].Top:= bmp1[i].Top* i;
panel1.Repaint;
Bernd Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen.
Sokrates
|