55 lines
1.4 KiB
Plaintext
55 lines
1.4 KiB
Plaintext
(* ------------------------------------------------------------------------------
|
|
TImageEnView Image Processing in a TThread : 1.0
|
|
For A Programmers Introduction To Using ImageEn Library Suite
|
|
Copyright © 2013 : Copyright Adirondack Software & Graphics
|
|
Last Modification : 06-19-2013
|
|
Source File : Unit2.pas
|
|
Compiler : Delphi 2010
|
|
ImageEnVersion : 4.3.1
|
|
Operating System : Windows 7
|
|
This file is copyright (C) W W Miller, 1986-2013.
|
|
It may be used without restriction. This code distributed on an "AS IS"
|
|
basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.
|
|
------------------------------------------------------------------------------ *)
|
|
|
|
unit Unit2;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ComCtrls;
|
|
|
|
type
|
|
TForm2 = class(TForm)
|
|
RichEdit1: TRichEdit;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form2: TForm2;
|
|
const
|
|
AFilename: string = 'Threading.rtf';
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TForm2.FormCreate(Sender: TObject);
|
|
var
|
|
iPath: string;
|
|
begin
|
|
iPath := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));
|
|
if FileExists(iPath + AFilename) then
|
|
RichEdit1.Lines.LoadFromFile(iPath + AFilename)
|
|
else
|
|
RichEdit1.Lines.Add('Can not find ' + iPath + AFilename + '.');
|
|
end;
|
|
|
|
end.
|
|
|