ne,ne, das Bild ist schon da. Ich habe ein bißchen experimentiert, da klappte es auch.
Aber in meinem "Problem"-Programm lade ich die Grafik mit dem folgenden Code(damit auch gifs erkannt werden - den habe ich von
espen)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| ...
var
fs : TFileStream;
olegraphic : TOleGraphic;
begin
olegraphic := TOleGraphic.create;
try
fs := TFileStream.Create(FileName, fmOpenRead or fmSharedenyNone);
olegraphic.LoadFromStream(fs);
ImageBox.Picture.Assign(olegraphic);
... |
und da liefert imagebox.picture.width einen leicht abweichenden Wert (von der tatsächlichen Breite) ...bitmap.width immer noch 0. (Und ich habe tatsächlich ein Bitmap geladen und der Zugriff auf die Eigenschaften erfolgt erst nach dem Laden. Großes Pfadfinderehrenwort
