2017-07-18 17:50:28 +02:00
|
|
|
unit uSimpleTextViewer;
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
uses
|
2017-07-19 12:12:08 +02:00
|
|
|
{$IFDEF DELPHI16_UP}
|
2017-07-18 17:50:28 +02:00
|
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
2017-07-19 12:12:08 +02:00
|
|
|
{$ELSE}
|
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics,
|
|
|
|
Controls, Forms, Dialogs, StdCtrls;
|
|
|
|
{$ENDIF}
|
|
|
|
|
2017-07-18 17:50:28 +02:00
|
|
|
|
|
|
|
type
|
|
|
|
TSimpleTextViewerFrm = class(TForm)
|
|
|
|
Memo1: TMemo;
|
|
|
|
private
|
|
|
|
{ Private declarations }
|
|
|
|
public
|
|
|
|
{ Public declarations }
|
|
|
|
end;
|
|
|
|
|
|
|
|
var
|
|
|
|
SimpleTextViewerFrm: TSimpleTextViewerFrm;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
end.
|