Changeset 23 for trunk/Forms/UFormList.pas

Timestamp:

Nov 16, 2012, 1:26:29 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Rozpracovaná třídy pro komunikaci s přístupovým terminálem BF-630. Přiložen popis protokolu.

File:

• trunk/Forms/UFormList.pas (modified) (5 diffs)

trunk/Forms/UFormList.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
   ActnList, Menus, StdCtrls, ExtCtrls, SpecializedList, USqlDatabase,
-  UListViewSort, UDataView, URegistry;
+  UListViewSort, UDataView, URegistry, UPrintPreview;
 
 type
@@ -61 +61 @@
     Panel1: TPanel;
     PopupMenu1: TPopupMenu;
+    PrintPreview1: TPrintPreview;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
@@ -73 +74 @@
     procedure ADuplicateExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
+    procedure APrintExecute(Sender: TObject);
     procedure AReloadExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -171 +173 @@
 end;
 
+procedure TFormList.APrintExecute(Sender: TObject);
+begin
+  PrintPreview1.Preview;
+end;
+
 procedure TFormList.AReloadExecute(Sender: TObject);
 begin
@@ -277 +284 @@
     Filter := Filter + ', `' + Name + '`';
   end;
-  Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + View.Name);
+  if Core.Database.Connected then
+    Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + View.Name);
 
   ListView1.Items.Count := DbRows.Count;