home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
picdll.zip
/
PICS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-06-16
|
799b
|
47 lines
unit Pics;
{ Program copyright (c) 1995 by Charles Calvert }
{ Project Name: RUNDLL }
interface
uses
SysUtils, WinTypes, WinProcs,
Messages, Classes, Graphics,
Controls, Forms, Dialogs,
ExtCtrls, TabNotBk;
type
TSpacePict1 = class(TForm)
TabbedNotebook1: TTabbedNotebook;
Image1: TImage;
Image2: TImage;
Image3: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
var
SpacePict1: TSpacePict1;
procedure ShowPictures(Handle: THandle); export;
implementation
{$R *.DFM}
procedure ShowPictures(Handle: THandle);
begin
Application.Handle := Handle;
SpacePict1 := TSpacePict1.Create(Application);
try
SpacePict1.ShowModal;
finally
SpacePict1.Free;
end;
end;
end.