Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Screenshots erstellen

   
    by Delphi.Narium, 30. Nov 2023
  Mist, warum hat mich FastMM noch nie darauf hingewiesen?
  
  Da muss dann noch mehr im Argen liegen :-(
  
  So besser?
  
  { Bildschirmfoto eines Formulars machen und als JPeg speichern. }
  procedure HardCopy(sJpegFile : String; fm : TForm);
  Var
  FJpeg : Jpeg.TJpegImage;
• Forum: Programmieren allgemein

  AW: Screenshots erstellen

   
    by Delphi.Narium, 30. Nov 2023
  Heißt das, dass oben in meiner Routine mit dem FJpeg.Assign(fm.GetFormImage); auch ein Speicherloch entsteht?
• Forum: Programmieren allgemein

  AW: Screenshots erstellen

   
    by Delphi.Narium, 30. Nov 2023
  Die Methode GetFormImage liefert doch schon ein Bitmap, damit müsste eigentlich auch sowas gehen: form1.GetFormImage.SaveToFile('c:\temp\' + Form1.Name + '.bmp');
  
  
  
  for var i : Integer := 0 to Screen.FormCount - 1 do Screen.Forms.GetFormImage.SaveToFile(Format('c:\temp\%s.bmp',.Name]));
• Forum: Programmieren allgemein

  AW: Screenshots erstellen

   
    by Delphi.Narium, 29. Nov 2023
  Nö, die Routine ist Teil einer Unit, die ich sowieso in jedes Programm mit einbinden muss, da sie durchaus noch weitere sinnvolle Aufgaben erledigt. (Gesamtes Laden und Speichern der konfigurierbaren Einstellungen, zentrale Fehlerbehandlung aller Fehler, die nicht vernünftig im Quelltext abgehandelt wurden, Aufruf des (programm)eigenen Hilfesystems (EPub-Format), ...)
  
  Das sie auch die...
• Forum: Programmieren allgemein

  AW: Screenshots erstellen

   
    by Delphi.Narium, 29. Nov 2023
  HardCopys von Formularen mache ich immer aus dem Programm selbst heraus:
  procedure HardCopy(sJpegFile : String; fm : TForm);
  Var
  FJpeg : TJpegImage;
  begin
  try
  if SysUtils.FileExists(sJpegFile) then SysUtils.DeleteFile(sJpegFile);
  if fm.WindowState = wsMinimized then fm.WindowState := wsNormal;
  fm.Show;
  fm.Refresh;