Daily Archives: 09.11.2015

Errors_logging

Posted on 09.11.2015 by Stanislav_Panteleev

FireMonkey. Логирование ошибок в файл

program Project1;

uses
System.StartUpCopy,
FMX.Forms,
System.IOUtils,
System.SysUtils,
Unit2 in 'Unit2.pas' {Form2};

type TAppErrors=class
procedure ErrorLog(Sender:Tobject;E:Exception);
end;

{$R *.res}

{ TAppErrors }

procedure TAppErrors.ErrorLog(Sender: Tobject; E: Exception);
var s:string;
begin
s:=Format('%s'+#9+'%s',[DateTimeToStr(Now),E.Message]);
TFile.AppendAllText('errors.log',s+#10#13);
Application.ShowException(E);
end;

var AppError:TAppErrors;

begin
AppError:=TAppErrors.Create;
Application.OnException:=AppError.ErrorLog;
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

program Project1;

uses

System.StartUpCopy,

FMX.Forms,

System.IOUtils,

System.SysUtils,

Unit2 in 'Unit2.pas' {Form2};

type TAppErrors=class

procedure ErrorLog(Sender:Tobject;E:Exception);

end;

{$R *.res}

{ TAppErrors }

procedure TAppErrors.ErrorLog(Sender: Tobject; E: Exception);

var s:string;

begin

s:=Format('%s'+#9+'%s',[DateTimeToStr(Now),E.Message]);

TFile.AppendAllText('errors.log',s+#10#13);

Application.ShowException(E);

end;

var AppError:TAppErrors;

begin

AppError:=TAppErrors.Create;

Application.OnException:=AppError.ErrorLog;

Application.Initialize;

Application.CreateForm(TForm2, Form2);

Application.Run;

end.

Posted in Delphi, FireMonkey | Comments Off

Метод PaintTo

Posted on 09.11.2015 by Stanislav_Panteleev

Любой потомок TControl умеет рисовать на Canvas других элементов методом PaintTo Нарисуем кнопку в левом верхнем углу формы. По нажатию на Button1 происходит прорисовка.

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Canvas.BeginScene;
  Button1.PaintTo(Form2.Canvas,RectF(0,0,Button1.Width,button1.Height));
  Form2.Canvas.EndScene;
end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Canvas.BeginScene;

Button1.PaintTo(Form2.Canvas,RectF(0,0,Button1.Width,button1.Height));

Form2.Canvas.EndScene;

end;

Posted in Delphi, FireMonkey | Comments Off

Daily Archives: 09.11.2015

Errors_logging

Метод PaintTo

MY PROJECTS

Recent Posts

Categories