mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 21:38:27 +02:00
47 lines
660 B
ObjectPascal
47 lines
660 B
ObjectPascal
unit dmImages;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Controls;
|
|
|
|
// Some selected image indices to simplify updating images.
|
|
const
|
|
iiConnection = 0;
|
|
iiTables = 1;
|
|
iiTable = 2;
|
|
iiFields = 3;
|
|
iiField = 4;
|
|
iiIndexes = 5;
|
|
iiIndex = 27;
|
|
iiTableData = 7;
|
|
iiIndexFields = 8;
|
|
iiIndexOptions = 9;
|
|
iiConnections = 30;
|
|
iiDataDict = 32;
|
|
|
|
type
|
|
|
|
{ TImgDatamodule }
|
|
|
|
TImgDatamodule = class(TDataModule)
|
|
AppImages: TImageList;
|
|
DBNavigatorImages: TImageList;
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
ImgDatamodule: TImgDatamodule;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
end.
|
|
|