Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Michael II,
19. Mär 2021
Hallo Stefan
ich habe rasch (geht ohne eine Zeile Code zu schreiben) TExpander auf TForm geklickt. In TExpander habe ich ein TImage reingesetzt. Im Objektinspektor (oder über Struktur) unter TImage finde ich die Eigenschaft Multiresbitmap. Ich klick drauf, lade ein Bild und lass das Programm laufen.
Expander wird angezeigt, ich expandiere, sehe das Bild. Funktioniert.
Dann sollte es...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Michael II,
19. Mär 2021
Steht das echt genau so bei Embarcadero? Da wurde doch vergessen, das Bitmap zu erzeugen und diesem eine Grösse zuzuweisen (?).
Funktioniert dies (Code unten) bei dir auch: (?)
...
MyRect: TRectF;
...
MyRect := TRectF.Create(0, 0, 200, 200);
Image1.Bitmap := TBitmap.create;
Image1.Bitmap.Width := trunc(Image1.Width);
Image1.Bitmap.Height := trunc(Image1.Height);