CodeTyphon 7.1 + Windows 10.
dit werkt prima
varJpg.SaveToFile('TEST.jpg');
dit werkt niet ???
varJpg.SaveToFile('TEST'+formatdatetime('dd' + '/' + 'mm' + '/' + 'YYYY', Now)+'.jpg');
Code:
{$mode objfpc}{$H+}
interface
uses
{$IFNDEF WINDOWS} jpeg, {$ENDIF}
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons,
Printers, ExtCtrls,
LCLIntf, LCLType, LCLProc;
type
{ TForm1 }
TForm1 = class(TForm)
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.frm}
{ TForm1 }
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
R: TRect;
varJpg: TJPEGImage;
begin
varJpg := TJPEGImage.Create;
try
R := Rect(0, 0, Panel1.Width, Panel1.Height);
varJpg.SetSize(Panel1.Width, Panel1.Height);
varJpg.Canvas.CopyRect(R, Panel1.Canvas, R);
varJpg.SaveToFile('TEST.jpg');
//SaveToFile('TEST'+formatdatetime('dd' + '/' + 'mm' + '/' + 'YYYY', Now)+'.jpg');
finally
varJpg.Free;
end;
end;
end.
Bookmarks