Registriert seit: 4. Apr 2006
4 Beiträge
|
Re: Steuern von Grafiken mit den Pfeiltasten
9. Apr 2006, 18:01
Hiho ^^
Ich hab mich jetzt erst mal mit verschiedenen Funktionen vertarut gemacht, wie z.B. Vierecke mit Buttons zu verschieben, sie fallen zu lassen usw.
Jetzt möchte ich das ganze auf mein Raumschiff übertragen. Allerdings geht es da schon mir Problemen los. Um die Grafik darzustellen, benutze ich ein OpenDialoge in einer Paintbox, als Code diesen:
procedure TForm1.start_button1Click(Sender: TObject);
var Bmp: TBitmap;
begin
if OpenDialog1.Execute then
begin
Bmp:= TBitmap.Create;
try
Bmp.LoadFromFile(OpenDialog1.Filename);
{Form1.}Canvas.StretchDraw(Rect(0,0,Bmp.Width div 2,Bmp.Height div 2),Bmp);
finally
Bmp.Free;
end;
end;
end;
Wenn ich allerdings den Button 'Start' verwende, kommt ein Auswahlmenü (wie der Explorer), wo ich mir das zu öffnende Bild auswählen kann. Diese wird dann allerdings in der oberen linken Ecke ausgegeben, udn zwar halb so klein wie normal.
Was muss ich tun, damit das Bild gleich auf Druck des Buttons erscheint? Und das die Gröé stimmt? Und die Koordinaten müsste ich auch noch irgendwo eingeben können...
EDIT: Ich hab gemerkt das das Blödsinn is... ich muss das anders machen...
|