2017-08-19 12:53:47 +02:00
|
|
|
unit uSimpleTextViewer;
|
|
|
|
|
2019-05-19 16:08:15 +02:00
|
|
|
{$MODE Delphi}
|
|
|
|
|
2017-08-19 12:53:47 +02:00
|
|
|
interface
|
|
|
|
|
|
|
|
uses
|
|
|
|
{$IFDEF DELPHI16_UP}
|
|
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
{$ELSE}
|
2019-05-19 16:08:15 +02:00
|
|
|
LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics,
|
2017-08-19 12:53:47 +02:00
|
|
|
Controls, Forms, Dialogs, StdCtrls;
|
|
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
TSimpleTextViewerFrm = class(TForm)
|
|
|
|
Memo1: TMemo;
|
|
|
|
private
|
|
|
|
{ Private declarations }
|
|
|
|
public
|
|
|
|
{ Public declarations }
|
|
|
|
end;
|
|
|
|
|
|
|
|
var
|
|
|
|
SimpleTextViewerFrm: TSimpleTextViewerFrm;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
2019-05-19 16:08:15 +02:00
|
|
|
{$R *.lfm}
|
2017-08-19 12:53:47 +02:00
|
|
|
|
|
|
|
end.
|