2020-03-30 18:01:44 +00:00
|
|
|
unit MainDM;
|
|
|
|
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
uses
|
2020-08-17 13:55:43 +00:00
|
|
|
Classes, SysUtils, LResources, Controls, LazHelpCHM;
|
2020-03-30 18:01:44 +00:00
|
|
|
|
|
|
|
type
|
|
|
|
|
|
|
|
{ TMainDataModule }
|
|
|
|
|
|
|
|
TMainDataModule = class(TDataModule)
|
2020-08-17 13:55:43 +00:00
|
|
|
CHMHelpDatabase: TCHMHelpDatabase;
|
2020-03-30 18:01:44 +00:00
|
|
|
ImageList: TImageList;
|
2020-08-17 13:55:43 +00:00
|
|
|
LHelpConnector: TLHelpConnector;
|
2020-03-30 18:01:44 +00:00
|
|
|
private
|
|
|
|
|
|
|
|
public
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
var
|
|
|
|
MainDataModule: TMainDataModule;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
initialization
|
|
|
|
{$I maindm.lrs}
|
|
|
|
|
|
|
|
end.
|
|
|
|
|