Thema: Delphi Image - Bitmap - Canvas

Einzelnen Beitrag anzeigen

geosucher

Registriert seit: 28. Aug 2006
36 Beiträge
 
#3

AW: Image - Bitmap - Canvas

  Alt 4. Aug 2014, 20:49
Hallo Bjoerk,

richtig Image.Width und Height sind jetzt Single-Werte. Ich bin etwas weitergekommen. Es gibt jetzt eine Property
Screenscale:

if TPlatformServices.Current.SupportsPlatformService( IFMXScreenService, IInterface(ScreenSvc)) then
ScreenScale:=ScreenSvc.GetScreenScale;
Image1.Bitmap.Width := Round(Image1.Width * ScreenScale);
Image1.Bitmap.Height := Round(Image1.Height * ScreenScale);
Image1.Bitmap.Clear(TAlphaColorRec.White);

Dann klappt es mit dem Bitmap (wenn man die Farbe ändert, sieht man es). Allerdings klappt das zeichnen noch nicht.....

Geosucher
  Mit Zitat antworten Zitat