home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / thduObjectView.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-07-24  |  2.1 KB  |  95 lines
  1. {
  2.  * The contents of this file are subject to the InterBase Public License
  3.  * Version 1.0 (the "License"); you may not use this file except in
  4.  * compliance with the License.
  5.  * 
  6.  * You may obtain a copy of the License at http://www.Inprise.com/IPL.html.
  7.  * 
  8.  * Software distributed under the License is distributed on an "AS IS"
  9.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  10.  * the License for the specific language governing rights and limitations
  11.  * under the License.  The Original Code was created by Inprise
  12.  * Corporation and its predecessors.
  13.  * 
  14.  * Portions created by Inprise Corporation are Copyright (C) Inprise
  15.  * Corporation. All Rights Reserved.
  16.  * 
  17.  * Contributor(s): ______________________________________.
  18. }
  19.  
  20. unit thduObjectView;
  21.  
  22. interface
  23.  
  24. uses
  25.   Classes, frmuObjectWindow;
  26.  
  27. type
  28.   TObjectViewThread = class(TThread)
  29.   private
  30.     { Private declarations }
  31.     FObjType: integer;
  32.     FObjList,
  33.     FObjName: String;
  34.     FOwner: TComponent;
  35.  
  36.     procedure ShowObjectList;
  37.   protected
  38.  
  39.     procedure Execute; override;
  40.   public
  41.     constructor Create (Owner: TComponent; const ObjType: Integer;
  42.                         const ObjList, ObjName: String);
  43.     destructor Destroy; override;
  44.   end;
  45.  
  46. implementation
  47.  
  48. { TThdObjectView }
  49.  
  50. constructor TObjectViewThread.Create(Owner: TComponent; const ObjType: Integer;
  51.   const ObjList, ObjName: String);
  52. var
  53.   i: integer;
  54.  
  55. begin
  56.   FObjType := ObjType;
  57.   FObjList := ObjList;
  58.   FobjName := ObjName;
  59.   FOwner := Owner;
  60.  
  61.   inherited Create(False);
  62.   FreeOnTerminate := true;
  63. end;
  64.  
  65. destructor TObjectViewThread.Destroy;
  66. begin
  67.   inherited;
  68. end;
  69.  
  70. procedure TObjectViewThread.Execute;
  71. begin
  72.   Synchronize (ShowObjectList);
  73. end;
  74.  
  75. procedure TObjectViewThread.ShowObjectList;
  76. var
  77.   ObjectList: TStringList;
  78.   s: String;
  79.   ObjView: TFrmObjectView;
  80. begin
  81.  
  82.   ObjView := TFrmObjectView.Create(FOwner);
  83.   ObjectList := TStringList.Create;
  84.   with ObjView do
  85.   begin
  86.     ObjectList.Text := FObjList;
  87.     InitDlg (FObjType, ObjectList, FObjName);
  88.     ObjectList.Free;
  89.     Show;
  90.     Free;
  91.   end;
  92. end;
  93.  
  94. end.
  95.