Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
3. Mär 2003
So hier kommt noch mal die bereinigte Version des Codes...
procedure TForm1.Image1Click(Sender: TObject);
var BitmapO: TBitmap;
begin
if Image1.picture = schloss zu.bmp then
begin
BitmapO := TBitmap.create;
BitmapO.LoadFromFile('schloss offen.bmp');
Image1.Picture.LoadfromFile('schloss offen.bmp');
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
28. Feb 2003
Ich hab da vergessen was rauszulöschen stell ich gerade fest - die Zuweisung für die Variable "Bild" muss raus, da ich sonst im fertigen Programm 108 mal eine Variable für sowas bräuchte (und das ist ja nun wirklich nicht die "feine" Art des programmierens)
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
27. Feb 2003
procedure TForm1.Image1Click(Sender: TObject);
var BitmapO: TBitmap;
begin
if Image1.picture = schloss zu.bmp then
begin
BitmapO := TBitmap.create;
BitmapO.LoadFromFile('schloss offen.bmp');
Image1.Picture.LoadfromFile('schloss offen.bmp');
bild := 1;
end
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
27. Feb 2003
Hi Leute!
Ist es möglich, bei einer if-Schleife als Bedingung zu definieren daß ein bestimmtes Bild auf einer Canvas angezeigt wird bzw. wenn ja, wie muss mein Code lauten? Ich erhalte immer die Meldung "undeclared identifier"...