GetFormImage liefert schwarzes Rechteck

[wichard]

Ich benutze Lazarus 1.0.14 (SVN Revision 43446) unter Win XP.
Der Aufruf von tForm.GetFormImage liefert ein großes schwarzes Rechteck.
Gibt es dafür (oder dagegen) eine Lösung?
Wichard

[m.fuchs]

Kann ich hier ( allerdings mit 1.0.8 ) nicht nachvollziehen. Zeig doch einmal ein bisschen Code. Vielleicht geht ja woanders etwas schief.

[wichard]

Mein Code ist äußerst simpel:

procedure TForm_BMScanline.Button3Click(Sender: TObject);
begin
getformimage.SaveToFile('c:\formimage.bmp');
end;

Der File wird erzeugt. Wenn ich ihn z.B. mit Irfanview öffne, bekomme ich ein schwarzes Rechteck.
Wichard

[theo]

Ja, da ist etwas merkwürdig.
Probier mal so (Nur auf Linux getestet):

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var  fi: TBitmap;
begin
  fi:=GetFormImage;
  fi.Canvas.Changed;
  fi.SaveToFile('c:\formimage.bmp');
  fi.free;
end;
 

Das Bitmap musst du sowieso selber freigeben, also
getformimage.SaveToFile('c:\formimage.bmp');
ist ohnehin fahrlässig, da du so kein Handle mehr darauf hast.

[m.fuchs]

Jetzt habe ich das nochmal auf meinem Notebook unter 1.0.12 ausprobiert und habe das gleiche Problem wie du.
Könnte ein Fehler sein, machst du einen Bugreport auf?

[Michl]

Theos Variante funktioniert bei mir:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  with GetFormImage do begin
    Canvas.Changed;
    SaveToFile('c:\01\01.bmp');
    Free;
  end;
end;

Die Variante mit direktem getformimage.SaveToFile('c:\formimage.bmp'); ohne Canvas.Changed funktioniert bei mir ebenfalls nicht.

Lazarus 32bit 1.3 r43538 FPC 2.7.1-Trunc bei Win7 64bit

[theo]

Theos Variante funktioniert bei mir

Das ist schön, danke.
Ich möchte aber betonen, dass das "with" keyword in meiner Variante nicht vorkommt.
Ich rate jedem und vor allem Anfängern dringend davon ab, das "with" keyword zu verwenden.
Jedes Debugging von fremdem Code beginnt bei mir mit der "with" Entrümpelung.

[Michl]

Ich möchte aber betonen, dass das "with" keyword in meiner Variante nicht vorkommt.
Ich rate jedem und vor allem Anfängern dringend davon ab, das "with" keyword zu verwenden.

Offtopic: kannst Du mir das erklären?! Wegen der Lesbarkeit oder wegen der (noch) vorhandenen Möglichkeit einen Hack zu machen?

[m.fuchs]

Ja, mit .Changed geht es hier jetzt auch. Also doch kein Bug, warum auch immer es unter der anderen Intsallation ohne .Changed ging.

[theo]

Ich möchte aber betonen, dass das "with" keyword in meiner Variante nicht vorkommt.
Ich rate jedem und vor allem Anfängern dringend davon ab, das "with" keyword zu verwenden.

Offtopic: kannst Du mir das erklären?! Wegen der Lesbarkeit oder wegen der (noch) vorhandenen Möglichkeit einen Hack zu machen?

Weil man sich damit einfach nur selber in den Fuß schießt.
Code Completion weiss nicht mehr was gemeint ist, ich weiss nicht mehr was gemeint ist und der Compiler "frisst" den falsch gemeinten Code auch noch ohne zu murren. Es ist einfach eine unnötige Quelle der Verunsicherung und Vernebelung.

Simples Bsp.

Code: Alles auswählen

  TMyObj=class
  private
    FMyWidth: integer;
    procedure SetMyWidth(AValue: integer);
    public
      property MyWidth:integer read FMyWidth write SetMyWidth;
  end;    
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TMyObj.Create do
  begin
   Width:=500;
   Free;
  end;
end; 

Welches "Width" setze ich hier? Hier ist schon klar, dass es MyWidth heißen müsste, aber wenn TMyObj in einer anderen Unit deklariert ist, ist es eben nicht mehr so klar. Stattdessen verbreitere ich das Formular und der Compiler findet das in Ordnung.
Mit "MyObj.Width:=500" würde er meckern.

[theo]

Ja, mit .Changed geht es hier jetzt auch. Also doch kein Bug, warum auch immer es unter der anderen Intsallation ohne .Changed ging.

MMn ist es durchaus ein Bug, wir haben einfach einen Workaround gefunden.
Wer macht den Bugtracker Eintrag? Freiwillige vor!

[Michl]

Es ist einfach eine unnötige Quelle der Verunsicherung und Vernebelung.

Das verstehe ich, nutze es eigentlich selber recht selten, eben wegen der schlechteren Lesbarkeit. Als mögliche Fehlerquelle hatte ich das noch nicht betrachtet - danke für die Erleuchtung!

Werde mir sobald ich "with" eingebe selber auf die Finger klopfen - das war jetzt das erste Mal

Wer macht den Bugtracker Eintrag? Freiwillige vor!

Wenn Ihr nicht wollt, mache ich den...

[Edit:] http://bugs.freepascal.org/view.php?id=25448