home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / udemo.pa_ / udemo.pa
Text File  |  1995-11-19  |  6KB  |  230 lines
  1. unit Udemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, TMultiP, StdCtrls, ExtCtrls, Buttons, UAbout, UImage,
  8.   BImage, MMBlob, UBlob, UMail, UScroll, Printers;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Panel1: TPanel;
  13.     SpeedButton1: TSpeedButton;
  14.     SpeedButton2: TSpeedButton;
  15.     SpeedButton3: TSpeedButton;
  16.     SpeedButton4: TSpeedButton;
  17.     SpeedButton5: TSpeedButton;
  18.     SpeedButton6: TSpeedButton;
  19.     SpeedButton7: TSpeedButton;
  20.     SpeedButton8: TSpeedButton;
  21.     SpeedButton9: TSpeedButton;
  22.     Memo1: TMemo;
  23.     BitBtn1: TBitBtn;
  24.     SpeedButton10: TSpeedButton;
  25.     SpeedButton11: TSpeedButton;
  26.     BitBtn2: TBitBtn;
  27.     PrintDialog1: TPrintDialog;
  28.     Panel2: TPanel;
  29.     PMultiImage1: TPMultiImage;
  30.     Panel3: TPanel;
  31.     MultiImage2: TPMultiImage;
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure SpeedButton1Click(Sender: TObject);
  34.     procedure SpeedButton2Click(Sender: TObject);
  35.     procedure SpeedButton3Click(Sender: TObject);
  36.     procedure SpeedButton4Click(Sender: TObject);
  37.     procedure SpeedButton5Click(Sender: TObject);
  38.     procedure SpeedButton6Click(Sender: TObject);
  39.     procedure SpeedButton7Click(Sender: TObject);
  40.     procedure SpeedButton8Click(Sender: TObject);
  41.     procedure BitBtn1Click(Sender: TObject);
  42.     procedure SpeedButton9Click(Sender: TObject);
  43.     procedure SpeedButton10Click(Sender: TObject);
  44.     procedure SpeedButton11Click(Sender: TObject);
  45.     procedure BitBtn2Click(Sender: TObject);
  46.   private
  47.     { Private declarations }
  48.     Procedure Trigger(Sender : TObject; Var Done : Boolean);
  49.   public
  50.     { Public declarations }
  51.   end;
  52.  
  53. var
  54.   Form1: TForm1;
  55.  
  56. implementation
  57.  
  58. {$R *.DFM}
  59.  
  60. procedure TForm1.FormCreate(Sender: TObject);
  61. begin
  62.  PMultiImage1.ImageName:='SKYLINE.RES';
  63.  {create a message at creation at MultiImage2 (Bottom one)}
  64.  {set Message text}
  65.     MultiImage2.MsgText:='ImageLib 3.0 by SkyLine Tools. Add PNG, CMS, SCM, JPG, ICO, PCX, BMP, WMF and GIF images'+
  66.     ' to your applications. ImageLib supports both the File and Data-Aware (BLOB) read and write.'+
  67.     ' Add all the image formats and AVI, MOV, MID, RMI, WAV to a TBlobfield.';
  68.     {set Message font name;  Note you can alse do this with a font dialog}
  69.     MultiImage2.MsgFont.Name:='Arial';
  70.    {set Message font size}
  71.     MultiImage2.MsgFont.Size:=-12;
  72.     {set Message font style}
  73.     MultiImage2.MsgFont.Style:=[];
  74.     {set Message font color}
  75.     MultiImage2.MsgFont.Color:=clAqua;
  76.     {set Message background. Note you could do this also with a color dialog}
  77.     MultiImage2.MsgBkGrnd:=clNavy;
  78.     {set Message speed from 1 is fast to 10 is slow}
  79.     MultiImage2.MsgSpeed:=7;
  80.     {inititiate new message}
  81.     MultiImage2.NewMessage;
  82.  
  83.     {IMPORTANT}
  84.     {This is the moving engine for all the messages. Since an application
  85.     can have only one OnIdle Trigger, this trigger needs to be subdivided
  86.     by all your moving and animated objects. In this particular case the
  87.     function is called TRIGGER but you can name it as you want as long
  88.     you have a procedure named the same.}
  89.     Application.OnIdle:=Trigger;
  90. end;
  91.  
  92.  
  93. Procedure TForm1.Trigger(Sender : TObject; Var Done : Boolean);
  94. begin
  95.    {This function is called when your app is idle. Subdivide the
  96.     trigger event to your TMultiImage objects who may need one.
  97.     If no Message is active it will not take up significant time}
  98.     MultiImage2.Trigger;
  99. end;
  100.  
  101.  
  102. procedure TForm1.SpeedButton1Click(Sender: TObject);
  103. begin
  104.   AboutBox.Image1.Picture.BitMap:=PMultiImage1.Picture.BitMap;
  105.   AboutBox.ShowModal;
  106. end;
  107.  
  108. procedure TForm1.SpeedButton2Click(Sender: TObject);
  109. begin
  110.   MultiImage2.Visible:=False;
  111.   ViewImageForm:=TViewImageForm.Create(self);
  112.   ViewImageForm.ShowModal;
  113.   ViewImageForm.Free;
  114.   MultiImage2.Visible:=true;
  115.   Application.OnIdle:=Trigger;
  116. end;
  117.  
  118. procedure TForm1.SpeedButton3Click(Sender: TObject);
  119. begin
  120.   ConvertForm1:=TConvertForm1.Create(self);
  121.   ConvertForm1.ShowModal;
  122.   ConvertForm1.Free;
  123.   Application.OnIdle:=Trigger;
  124. end;
  125.  
  126. procedure TForm1.SpeedButton4Click(Sender: TObject);
  127. begin
  128.   MultiImage2.Visible:=False;
  129.   MMBlobForm:=TMMBlobForm.Create(self);
  130.   MMBlobForm.ShowModal;
  131.   MMBlobForm.Free;
  132.   MultiImage2.Visible:=true;
  133.   Application.OnIdle:=Trigger;
  134. end;
  135.  
  136. procedure TForm1.SpeedButton5Click(Sender: TObject);
  137. begin
  138.   MultiImage2.Visible:=False;
  139.   BlobForm1:=TBlobForm1.Create(self);
  140.   BlobForm1.ShowModal;
  141.   BlobForm1.Free;
  142.   MultiImage2.Visible:=true;
  143.   Application.OnIdle:=Trigger;
  144. end;
  145.  
  146. procedure TForm1.SpeedButton6Click(Sender: TObject);
  147. begin
  148.   MultiImage2.Visible:=False;
  149.   MailOrderForm:=TMailOrderForm.Create(self);
  150.   MailOrderForm.ShowModal;
  151.   MailOrderForm.Free;
  152.   MultiImage2.Visible:=true;
  153.   Application.OnIdle:=Trigger;
  154. end;
  155.  
  156. procedure TForm1.SpeedButton7Click(Sender: TObject);
  157. begin
  158.   MultiImage2.Visible:=False;
  159.   ScrollForm1:=TScrollForm1.Create(self);
  160.   ScrollForm1.ShowModal;
  161.   ScrollForm1.Free;
  162.   MultiImage2.Visible:=true;
  163.   Application.OnIdle:=Trigger;
  164. end;
  165.  
  166. procedure TForm1.SpeedButton8Click(Sender: TObject);
  167. begin
  168.  Memo1.Lines.Clear;
  169.  Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'ImageLib.txt');
  170.  Memo1.Visible:=true;
  171.  BitBtn1.Visible:=true;
  172.  BitBtn2.Visible:=true;
  173. end;
  174.  
  175.  
  176. procedure TForm1.BitBtn1Click(Sender: TObject);
  177. begin
  178.  Memo1.Visible:=False;
  179.  BitBtn1.Visible:=False;
  180.  BitBtn2.Visible:=False;
  181. end;
  182.  
  183. procedure TForm1.SpeedButton9Click(Sender: TObject);
  184. begin
  185.  Memo1.Lines.Clear;
  186.  Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'ILibCust.txt');
  187.  Memo1.Visible:=true;
  188.  BitBtn1.Visible:=true;
  189.  BitBtn2.Visible:=true;
  190. end;
  191.  
  192. procedure TForm1.SpeedButton10Click(Sender: TObject);
  193. begin
  194.  Memo1.Lines.Clear;
  195.  Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'ILibRef.txt');
  196.  Memo1.Visible:=true;
  197.  BitBtn1.Visible:=true;
  198.  BitBtn2.Visible:=true;
  199. end;
  200.  
  201. procedure TForm1.SpeedButton11Click(Sender: TObject);
  202. begin
  203.  Application.HelpFile := 'IMGLIB30.HLP';
  204.  Application.HelpJump('');
  205. end;
  206.  
  207. procedure TForm1.BitBtn2Click(Sender: TObject);
  208. var i : integer;
  209.     p : integer;
  210. begin
  211.  if PrintDialog1.execute then begin
  212.  
  213.    Printer.Begindoc;
  214.    p:=0;
  215.    For i:=0 to Memo1.Lines.Count -1 do begin
  216.     p:=i*45;
  217.     Printer.Canvas.Textout(5,P,Memo1.Lines[i]);
  218.    end;
  219.    Printer.Enddoc;
  220.  
  221.  end;
  222. end;
  223.  
  224. end.
  225.  
  226.  
  227.  
  228.  
  229.  
  230.