Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
Hmm, Deine Fragen sind so dürftig.
Aber versuchs mal so:
num:=StrToIntDef(Edit1.Text, 0);
If i>0 then
for i:=Num-1 downto 0 do ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
So funkt's, gerade probiert :wink:
var i, t:Integer;
begin
t:=Panel1.Height;
For i:=9 downto 0 do begin
img:=TImage.Create(Panel1);
img.Picture.Bitmap.LoadFromFile('C:\Paddi.bmp');
img.Parent:=Panel1;
img.AutoSize:=True;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
Also das wirklich schwere daran ist, es mir zu erklären :mrgreen:
Du mußt Dir nur eine Variable dazu setzen, die runter zählt...
zB:
var i, t: integer;
begin
i:= strtoint(Edit1.Text);
t:=Panel.Height;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
Also die LEDs sollen an der y Achse von unten beginnend ausgerichtet genau ohne Abstand übereinander stehen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
Hmm. :gruebel:
Meinst Du jetzt übereinander an der y oder z Achse?
Könntest Du vielleicht ein Bild machen, damit auch ich ( :stupid: ) das kapiere?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
Wenn ich gerade Online bin, kann ich schnelle Antworten geben :zwinker:
Ich meine das zB so:
var i: integer;
begin
//i:= strtoint(Edit1.Text);
i:= strtointdef(Edit1.Text, 0); // <- Sicherer
If i>0 then try
for i := 0 to 100 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
Hallo,
diese Frage, ist jetzt eine :gruebel:
Falls der Abstand nicht größer sein soll:
Mein Code:
var i: integer;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sunlight7,
4. Nov 2006
Hallo!
Deine Frage ist etwas dürftig formuliert.
Ich gehe mal davon aus, das Du ein zweites Image unter dem ersten platzieren möchtest.
Mein Code: :mrgreen:
// So
bmp2:=TImage.Create(Panel1); // Bild erstellen.
bmp2.Picture.Bitmap.LoadFromResourceName(HInstance, 'Unteres Bild');
bmp2.Parent:=Panel1; // Bild ins Panel setzen