Ergebnis der Suchanfrage

• Forum: Cross-Platform-Entwicklung

  AW: Image - Bitmap - Canvas

    Delphi
    by geosucher, 7. Aug 2014
  Hmmm,klappt wieder nicht so, wie es soll:
  Ich arbeite mit Delphi XE5 FireMonkey for Android - Ausgabe auf Samsung Galaxy Tab.
  
  Mein Image ist:
  object Image1: TImage
  MultiResBitmap = <
  item
  end>
  Height = 365.000000000000000000
  Position.X = 48.000000000000000000
• Forum: Cross-Platform-Entwicklung

  AW: Image - Bitmap - Canvas

    Delphi
    by geosucher, 4. Aug 2014
  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 *...
• Forum: Cross-Platform-Entwicklung

  Image - Bitmap - Canvas

    Delphi
    by geosucher, 2. Aug 2014
  Hallo,
  
  wieder mal ein Problem. Ich nutze Delphi XE5 für eine Android-App. Ich möchte in einem Image etwas zeichnen.
  Ich lege eine TImage-Komponente auf das Formular (Größe: 500 (breit) x 400 (hoch)).
  
  Wenn ich nun zeichne:
  
  with Image1.Bitmap do
  begin
  Canvas.Stroke.Color := claRed;