Unit SqlitePassVisualTools

DescriptionusesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

The unit SqlitePassVisualTools implements the generic TSqlitePassDBAction class and preset actions like TSqlitePassDatasetFilter, TSqlitePassDatasetFilterOnOff, TSqlitePassDatasetFilterOnSelection, TSqlitePassDatasetLocate, etc...

————————————————————————— This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details.

You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

—————————————————————————

Author : Luc DAVID Email: luckylazarus@free.fr Last update : 2009-08-20

—————————————————————————

uses

Overview

Classes, Interfaces, Objects and Records

Name Description
Class TSPVTCtrlGrid  
Class TSPVTCtrlGridNavigator  
Class TSPVTDBItem  
Class TSPVTDBItemList  
Class TSPVTDBTreeView  
Class TSqlitePassActiveControlWatcher  
Class TSqlitePassDatasetFilter TSqlitePassDatasetFilter shows a custom dialog to choose the dataset Filter parameters

FilterDialog
Class TSqlitePassDatasetFilterOnOff TSqlitePassDatasetFilterOnOff activates or desactivates the current filter designed with TSqlitePassDatasetFilter.
Class TSqlitePassDatasetFilterOnSelection TSqlitePassDatasetFilterOnSelection filters the dataset on the active control datafield
Class TSqlitePassDatasetLocate TSqlitePassDatasetLocate shows a custom dialog to define locate parameters.
Class TSqlitePassDatasetLocateFirst TSqlitePassDatasetLocateFirst moves to the first located record
Class TSqlitePassDatasetLocateLast TSqlitePassDatasetLocateLast moves to the last located record
Class TSqlitePassDatasetLocateNext TSqlitePassDatasetLocateNext moves to the next located record.
Class TSqlitePassDatasetLocatePrior TSqlitePassDatasetLocatePrior moves to the prior located record.
Class TSqlitePassDatasetSort TSqlitePassDatasetSortAsc shows a custom dialog to choose the dataset sort parameters

SortByDialog
Class TSqlitePassDatasetSortAsc TSqlitePassDatasetSortAsc sorts the dataset on active control ascending order
Class TSqlitePassDatasetSortDesc TSqlitePassDatasetSortAsc sorts the dataset on active control descending order
Class TSqlitePassDBAction  
Class TSqlitePassDBActionList TSqlitePassDBActionList is derived from TActionList to provide additional features related to TSqlitePassDatabase or TSqlitePassDataset.
Class TSqlitePassDBLocateMoveAction TSqlitePassDBLocateMoveAction is an internal generic TSqlitePassDBAction designed to navigate through located records.

Functions and Procedures

procedure DisplayImage(Grid: TDrawGrid; Col, Row: Integer; Rect: TRect; ImageList: TImageList; ImageIndex: Integer; HAlignment: TAlignment; VAlignment: TSPVTVAlignment; Margins: TRect);
procedure DisplayText(Grid: TDrawGrid; Col, Row: Integer; Rect: TRect; Text: String; Font: TFont; HAlignment: TAlignment; VAlignment: TSPVTVAlignment; Margins: TRect; Autosize: Boolean = True);
procedure ResetColumnTitles(DbGrid: TDBGrid);
procedure SortDbGrid(DbGrid: TdbGrid; Column: TColumn);

Types

TSPVTCtrlGridNotifyEvent = procedure(CtrlGrid: TSPVTCtrlGrid) of object;
TSPVTCtrlGridState = (...);
TSPVTDBItemType = (...);
TSPVTDBItemTypes = set of TSPVTDBItemType;
TSPVTNavButtons = (...);
TSPVTVAlignment = (...);

Constants

AttachedItemImageIndex = 13;
DatabaseImageIndex = 3;
EmptyImageIndex = -1;
MinusImageIndex = 1;
PlusImageIndex = 0;
QueryImageIndex = 5;
QueryItemImageIndex = 12;
SelectedImageIndex = 2;
SPVTNavButtonName: array[TSPVTNavButtons] of PChar = ('FIRST', 'PRIOR', 'NEXT', 'LAST', 'INSERT', 'APPEND', 'DELETE', 'UP', 'DOWN');
SQLImageIndex = 8;
SQLItemImageIndex = 11;
SystemTableImageIndex = 9;
TableImageIndex = 4;
TableItemImageIndex = 10;
TriggerImageIndex = 7;
WiewImageIndex = 6;

Description

Functions and Procedures

procedure DisplayImage(Grid: TDrawGrid; Col, Row: Integer; Rect: TRect; ImageList: TImageList; ImageIndex: Integer; HAlignment: TAlignment; VAlignment: TSPVTVAlignment; Margins: TRect);
 
procedure DisplayText(Grid: TDrawGrid; Col, Row: Integer; Rect: TRect; Text: String; Font: TFont; HAlignment: TAlignment; VAlignment: TSPVTVAlignment; Margins: TRect; Autosize: Boolean = True);

DrawGrid utility Functions

procedure ResetColumnTitles(DbGrid: TDBGrid);

DbGrid utility Functions

procedure SortDbGrid(DbGrid: TdbGrid; Column: TColumn);
 

Types

TSPVTCtrlGridNotifyEvent = procedure(CtrlGrid: TSPVTCtrlGrid) of object;
 
TSPVTCtrlGridState = (...);
 
Values
  • cgsBrowse:  
  • cgsEdit:  
  • cgsInsert:  
  • cgsAppend:  
  • cgsOrder:  
TSPVTDBItemType = (...);
 
Values
  • itDatabase:  
  • itTable:  
  • itQuery:  
  • itView:  
  • itTrigger:  
  • itTableSystem:  
  • itSql:  
  • itSqlSelect:  
  • itSqlCreate:  
  • itSqlCreateTable:  
  • itSqlUpdate:  
  • itSqlInsert:  
  • itSqlDelete:  
  • itSqlOthers:  
TSPVTDBItemTypes = set of TSPVTDBItemType;
 
TSPVTNavButtons = (...);
 
Values
  • NavFirst:  
  • NavPrior:  
  • NavNext:  
  • NavLast:  
  • NavInsert:  
  • NavAppend:  
  • NavDelete:  
  • NavMoveUp:  
  • NavMoveDown:  
TSPVTVAlignment = (...);
 
Values
  • vaTop:  
  • vaCenter:  
  • vaBottom:  

Constants

AttachedItemImageIndex = 13;
 
DatabaseImageIndex = 3;
 
EmptyImageIndex = -1;
 
MinusImageIndex = 1;
 
PlusImageIndex = 0;
 
QueryImageIndex = 5;
 
QueryItemImageIndex = 12;
 
SelectedImageIndex = 2;
 
SPVTNavButtonName: array[TSPVTNavButtons] of PChar = ('FIRST', 'PRIOR', 'NEXT', 'LAST', 'INSERT', 'APPEND', 'DELETE', 'UP', 'DOWN');
 
SQLImageIndex = 8;
 
SQLItemImageIndex = 11;
 
SystemTableImageIndex = 9;
 
TableImageIndex = 4;
 
TableItemImageIndex = 10;
 
TriggerImageIndex = 7;
 
WiewImageIndex = 6;
 

Generated by PasDoc 0.11.0 on 2010-09-10 15:54:38