164 lines
4.7 KiB
ObjectPascal
164 lines
4.7 KiB
ObjectPascal
{-----------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
|
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
The Original Code is: JvBaseDBLogonDialog.pas, released on 2006-07-21
|
|
|
|
The Initial Developer of the Original Code is Jens Fudickar
|
|
All Rights Reserved.
|
|
|
|
Contributor(s):
|
|
|
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
|
located at http://jvcl.sourceforge.net
|
|
|
|
Known Issues:
|
|
-----------------------------------------------------------------------------}
|
|
// $Id: JvBaseDBDialog.pas 10872 2006-08-09 17:03:16Z outchy $
|
|
|
|
unit JvBaseDBDialog;
|
|
|
|
{$I jvcl.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF UNITVERSIONING}
|
|
JclUnitVersioning,
|
|
{$ENDIF UNITVERSIONING}
|
|
JvDynControlEngine,
|
|
Classes, JvBaseDlg, JvAppStorage, Forms, Controls, JvDynControlEngineIntf,
|
|
JvPropertyStore, Menus;
|
|
|
|
type
|
|
TJvBaseDBDialog = class(TJvCommonDialog)
|
|
private
|
|
FAppStorage: TJvCustomAppStorage;
|
|
FAppStoragePath: string;
|
|
FDBDialog: TForm;
|
|
FDynControlEngine: TJvDynControlEngine;
|
|
FSession: TComponent;
|
|
function GetDynControlEngine: TJvDynControlEngine;
|
|
procedure SetDynControlEngine(const Value: TJvDynControlEngine);
|
|
protected
|
|
function CreateForm: TForm; virtual;
|
|
procedure CreateFormControls(aForm: TForm); virtual;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
procedure SetAppStorage(Value: TJvCustomAppStorage); virtual;
|
|
procedure SetAppStoragePath(Value: string); virtual;
|
|
procedure SetSession(const Value: TComponent); virtual;
|
|
property AppStorage: TJvCustomAppStorage read FAppStorage write SetAppStorage;
|
|
property AppStoragePath: string read FAppStoragePath write SetAppStoragePath;
|
|
public
|
|
function Execute: Boolean; override;
|
|
function SessionIsConnected: Boolean; virtual;
|
|
property DBDialog: TForm read FDBDialog ;
|
|
property Session: TComponent read FSession write SetSession;
|
|
published
|
|
property DynControlEngine: TJvDynControlEngine read GetDynControlEngine write
|
|
SetDynControlEngine;
|
|
end;
|
|
|
|
|
|
{$IFDEF UNITVERSIONING}
|
|
const
|
|
UnitVersioning: TUnitVersionInfo = (
|
|
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svnroot/jvcl/tags/JVCL3_32/run/JvBaseDBDialog.pas $';
|
|
Revision: '$Revision: 10872 $';
|
|
Date: '$Date: 2006-08-09 19:03:16 +0200 (mer., 09 août 2006) $';
|
|
LogPath: 'JVCL\run'
|
|
);
|
|
{$ENDIF UNITVERSIONING}
|
|
|
|
implementation
|
|
|
|
uses Sysutils,
|
|
{$IFDEF HAS_UNIT_TYPES}
|
|
Types,
|
|
{$ENDIF HAS_UNIT_TYPES}
|
|
ExtCtrls, ComCtrls, StdCtrls;
|
|
|
|
function TJvBaseDBDialog.CreateForm: TForm;
|
|
begin
|
|
Result := TForm(DynControlEngine.CreateForm('', ''));
|
|
CreateFormControls(Result);
|
|
end;
|
|
|
|
procedure TJvBaseDBDialog.CreateFormControls(aForm: TForm);
|
|
begin
|
|
end;
|
|
|
|
function TJvBaseDBDialog.Execute: Boolean;
|
|
begin
|
|
if not Assigned(Session) then
|
|
Abort;
|
|
FDBDialog := CreateForm;
|
|
try
|
|
FDBDialog.ShowModal;
|
|
Result := FDBDialog.ModalResult = mrOk;
|
|
finally
|
|
FreeAndNil(FDBDialog);
|
|
end;
|
|
end;
|
|
|
|
function TJvBaseDBDialog.GetDynControlEngine: TJvDynControlEngine;
|
|
begin
|
|
if Assigned(FDynControlEngine) then
|
|
Result := FDynControlEngine
|
|
else
|
|
Result := DefaultDynControlEngine;
|
|
end;
|
|
|
|
procedure TJvBaseDBDialog.Notification(AComponent: TComponent; Operation:
|
|
TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if (Operation = opRemove) and (AComponent = FAppStorage) then
|
|
AppStorage := nil;
|
|
if (Operation = opRemove) and (AComponent = FSession) then
|
|
Session := nil;
|
|
end;
|
|
|
|
function TJvBaseDBDialog.SessionIsConnected: Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
procedure TJvBaseDBDialog.SetAppStorage(Value: TJvCustomAppStorage);
|
|
begin
|
|
if Value <> FAppStorage then
|
|
FAppStorage := Value;
|
|
end;
|
|
|
|
procedure TJvBaseDBDialog.SetAppStoragePath(Value: string);
|
|
begin
|
|
if Value <> AppStoragePath then
|
|
FAppStoragePath := Value;
|
|
end;
|
|
|
|
procedure TJvBaseDBDialog.SetDynControlEngine(const Value: TJvDynControlEngine);
|
|
begin
|
|
FDynControlEngine := Value;
|
|
end;
|
|
|
|
procedure TJvBaseDBDialog.SetSession(const Value: TComponent);
|
|
begin
|
|
FSession := Value;
|
|
end;
|
|
|
|
{$IFDEF UNITVERSIONING}
|
|
initialization
|
|
RegisterUnitVersion(HInstance, UnitVersioning);
|
|
|
|
finalization
|
|
UnregisterUnitVersion(HInstance);
|
|
{$ENDIF UNITVERSIONING}
|
|
|
|
end.
|