Ergebnis der Suchanfrage

• Forum: Cross-Platform-Entwicklung

  AW: FMX: Image->Bitmap wird abgeschnitten

   
    by nikosophi, 3. Okt 2016
  Ja, jetzt passt es. Es geht mir nicht um die paar Pixel der Linienbreite.
  Wenn ich nicht explizit:
  
  bitmap.BitmapScale := 1.0;
  
  sondern auf 2.0 lasse, wie es wohl Standard ist, dann werden Linien viel zu weit gezeichnet. Vermutlich halt doppelt so lang. Sieht man nicht mehr, da es abgeschnitten wird ( oranger Rahmen im ersten Post).
  
  Ich arbeite an einem IMac. Vielleicht hat das was mit...
• Forum: Cross-Platform-Entwicklung

  AW: FMX: Image->Bitmap wird abgeschnitten

   
    by nikosophi, 3. Okt 2016
  Ok, alles gut:
  
  Da gibts in der Tat ein Bitmapscale. Das stand auf 2.0.
  
  MyBitmap := TBitmap.Create(round(image1.bitmap.Width), round(image1.bitmap.height));
  Image1.bitmap.BitmapScale := 1.0;
  MyBitmap.BitmapScale := 1.0;
  pkt1 := PointF(10.0, 10.0);
  pkt2 := PointF(Image1.bitmap.width-20 , image1.bitmap.height-20);
• Forum: Cross-Platform-Entwicklung

  AW: FMX: Image->Bitmap wird abgeschnitten

   
    by nikosophi, 3. Okt 2016
  Danke Harry!
  
  Hab ich jetzt verstanden. Aber wohl doch nicht ganz.
  
  Das Zeichnen eines Rahmens und einer Diagonale sollte doch dann auch in dem Bitmap Ausmassen erfolgen, oder?
  Ich habe die Ausmasse des Image der Einfachheit halber im Create auf die der geladenen Bitmap gesetzt.
  
  procedure TForm5.FormCreate(Sender: TObject);
  begin
  // Das Original Bild in der Original Größe laden und...
• Forum: Cross-Platform-Entwicklung

  FMX: Image->Bitmap wird abgeschnitten

   
    by nikosophi, 2. Okt 2016
  Hy,
  
  ich habe in einem FMX Projekt auf einer Form ein TImage.
  Das soll einfach gespeichert werden.
  Dazu kopiere ich es in eine TBitmap und speichere mit SaveToFile.
  Funktioniert auch - aber das Bild ist recht und unten abgeschnitten.
  
  procedure TFHaupt.btnThisClick(Sender: TObject);
  var
  MyBitmap: TBitmap;