jvdyncontrolenginejvcldb.pas

East make Tray Icon in delphi

end;

procedure TJvDynControlJVCLDBRadioGroup.ControlSetDataSource(Value: TDataSource);
begin
  DataSource := Value;
end;

function TJvDynControlJVCLDBRadioGroup.ControlGetDataSource: TDataSource;
begin
  Result := DataSource;
end;

procedure TJvDynControlJVCLDBRadioGroup.ControlSetDataField(const Value: string);
begin
  DataField := Value;
end;

function TJvDynControlJVCLDBRadioGroup.ControlGetDataField: string;
begin
  Result := DataField;
end;

//=== { TJvDynControlJVCLDBListBox } =========================================

procedure TJvDynControlJVCLDBListBox.ControlSetDefaultProperties;
begin
end;

procedure TJvDynControlJVCLDBListBox.ControlSetCaption(const Value: string);
begin
end;

procedure TJvDynControlJVCLDBListBox.ControlSetTabOrder(Value: Integer);
begin
  TabOrder := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetHint(const Value: string);
begin
  Hint := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetOnEnter(Value: TNotifyEvent);
begin
  OnEnter := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetOnExit(Value: TNotifyEvent);
begin
  OnExit := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetOnChange(Value: TNotifyEvent);
begin
//  OnChange := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetOnClick(Value: TNotifyEvent);
begin
  OnClick := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetValue(Value: Variant);
begin
  if VarIsInt(Value) then
    ItemIndex := Value
  else
    ItemIndex := Items.IndexOf(Value);
end;

function TJvDynControlJVCLDBListBox.ControlGetValue: Variant;
begin
  Result := ItemIndex;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetSorted(Value: Boolean);
begin
  Sorted := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetItems(Value: TStrings);
begin
  Items.Assign(Value);
end;

function TJvDynControlJVCLDBListBox.ControlGetItems: TStrings;
begin
  Result := Items;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetOnDblClick(Value: TNotifyEvent);
begin
  OnDblClick := Value;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetDataSource(Value: TDataSource);
begin
  DataSource := Value;
end;

function TJvDynControlJVCLDBListBox.ControlGetDataSource: TDataSource;
begin
  Result := DataSource;
end;

procedure TJvDynControlJVCLDBListBox.ControlSetDataField(const Value: string);
begin
  DataField := Value;
end;

function TJvDynControlJVCLDBListBox.ControlGetDataField: string;
begin
  Result := DataField;
end;

//=== { TJvDynControlJVCLDBComboBox } ========================================

procedure TJvDynControlJVCLDBComboBox.ControlSetDefaultProperties;
begin
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetCaption(const Value: string);
begin
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetTabOrder(Value: Integer);
begin
  TabOrder := Value;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetHint(const Value: string);
begin
  Hint := Value;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetOnEnter(Value: TNotifyEvent);
begin
  OnEnter := Value;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetOnExit(Value: TNotifyEvent);
begin
  OnExit := Value;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetOnChange(Value: TNotifyEvent);
begin
//  OnChange := Value;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetOnClick(Value: TNotifyEvent);
begin
  OnClick := Value;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetValue(Value: Variant);
begin
  if Style = csDropDownList then
    ItemIndex := Items.IndexOf(Value)
  else
    Text := Value;
end;

function TJvDynControlJVCLDBComboBox.ControlGetValue: Variant;
begin
  Result := Text;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetSorted(Value: Boolean);
begin
  Sorted := Value;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetItems(Value: TStrings);
begin
  Items.Assign(Value);
end;

function TJvDynControlJVCLDBComboBox.ControlGetItems: TStrings;
begin
  Result := Items;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetNewEntriesAllowed(Value: Boolean);
const
  Styles: array [Boolean] of TComboBoxStyle =
    (csDropDownList, csDropDown);
begin
  Style := Styles[Value];
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetDataSource(Value: TDataSource);
begin
  DataSource := Value;
end;

function TJvDynControlJVCLDBComboBox.ControlGetDataSource: TDataSource;
begin
  Result := DataSource;
end;

procedure TJvDynControlJVCLDBComboBox.ControlSetDataField(const Value: string);
begin
  DataField := Value;
end;

function TJvDynControlJVCLDBComboBox.ControlGetDataField: string;
begin
  Result := DataField;
end;

//=== { TJvDynControlJVCLDBImage } ===========================================

procedure TJvDynControlJVCLDBImage.ControlSetDefaultProperties;
begin
end;

procedure TJvDynControlJVCLDBImage.ControlSetCaption(const Value: string);
begin
  Caption := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetTabOrder(Value: Integer);
begin
//  TabOrder := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetHint(const Value: string);
begin
  Hint := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetOnEnter(Value: TNotifyEvent);
begin
//  OnEnter := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetOnExit(Value: TNotifyEvent);
begin
//  OnExit := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetOnClick(Value: TNotifyEvent);
begin
  OnClick := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetAutoSize(Value: Boolean);
begin
  AutoSize := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetIncrementalDisplay(Value: Boolean);
begin
//  IncrementalDisplay := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetCenter(Value: Boolean);
begin
  Center := Value;
end;

{$IFDEF VCL}
procedure TJvDynControlJVCLDBImage.ControlSetProportional(Value: Boolean);
begin
  {$IFDEF COMPILER6_UP}
//  Proportional := Value;
  {$ENDIF COMPILER6_UP}
end;
{$ENDIF VCL}

procedure TJvDynControlJVCLDBImage.ControlSetStretch(Value: Boolean);
begin
  Stretch := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetTransparent(Value: Boolean);
begin
//  Transparent := Value;
end;

procedure TJvDynControlJVCLDBImage.ControlSetPicture(Value: TPicture);
begin
  Picture.Assign(Value);
end;

procedure TJvDynControlJVCLDBImage.ControlSetGraphic(Value: TGraphic);
begin
  Picture.Assign(Value);
end;

function TJvDynControlJVCLDBImage.ControlGetPicture: TPicture;
begin
  Result := Picture;
end;

procedure TJvDynControlJVCLDBImage.ControlSetDataSource(Value: TDataSource);
begin
  DataSource := Value;
end;

function TJvDynControlJVCLDBImage.ControlGetDataSource: TDataSource;
begin
  Result := DataSource;
end;

procedure TJvDynControlJVCLDBImage.ControlSetDataField(const Value: string);
begin
  DataField := Value;
end;

function TJvDynControlJVCLDBImage.ControlGetDataField: string;
begin
  Result := DataField;
end;

//=== { TJvDynControlJVCLDBText } ============================================

procedure TJvDynControlJVCLDBText.ControlSetDefaultProperties;
begin
end;

procedure TJvDynControlJVCLDBText.ControlSetCaption(const Value: string);
begin
end;

procedure TJvDynControlJVCLDBText.ControlSetTabOrder(Value: Integer);
begin
end;

procedure TJvDynControlJVCLDBText.ControlSetHint(const Value: string);
begin
  Hint := Value;
end;

procedure TJvDynControlJVCLDBText.ControlSetOnEnter(Value: TNotifyEvent);
begin
end;

procedure TJvDynControlJVCLDBText.ControlSetOnExit(Value: TNotifyEvent);
begin
end;

procedure TJvDynControlJVCLDBText.ControlSetOnClick(Value: TNotifyEvent);
begin
end;

procedure TJvDynControlJVCLDBText.ControlSetDataSource(Value: TDataSource);
begin
  DataSource := Value;
end;

function TJvDynControlJVCLDBText.ControlGetDataSource: TDataSource;
begin
  Result := DataSource;
end;

procedure TJvDynControlJVCLDBText.ControlSetDataField(const Value: string);
begin
  DataField := Value;
end;

function TJvDynControlJVCLDBText.ControlGetDataField: string;
begin
  Result := DataField;
end;

//=== { TJvDynControlJVCLDBGrid } ============================================

procedure TJvDynControlJVCLDBGrid.ControlSetDefaultProperties;
begin
end;

procedure TJvDynControlJVCLDBGrid.ControlSetCaption(const Value: string);
begin
end;

procedure TJvDynControlJVCLDBGrid.ControlSetTabOrder(Value: Integer);
begin
  TabOrder := Value;
end;

procedure TJvDynControlJVCLDBGrid.ControlSetHint(const Value: string);
begin
  Hint := Value;
end;

procedure TJvDynControlJVCLDBGrid.ControlSetOnEnter(Value: TNotifyEvent);
begin
  OnEnter := Value;
end;

procedure TJvDynControlJVCLDBGrid.ControlSetOnExit(Value: TNotifyEvent);
begin
  OnExit := Value;
end;

procedure TJvDynControlJVCLDBGrid.ControlSetOnClick(Value: TNotifyEvent);
begin
end;

procedure TJvDynControlJVCLDBGrid.ControlSetDataSource(Value: TDataSource);
begin
  DataSource := Value;
end;

function TJvDynControlJVCLDBGrid.ControlGetDataSource: TDataSource;
begin
  Result := DataSource;
end;

procedure TJvDynControlJVCLDBGrid.ControlSetDataField(const Value: string);
begin
end;

function TJvDynControlJVCLDBGrid.ControlGetDataField: string;
begin
  Result := '';
end;

//=== { TJvDynControlJVCLDBNavigator } =======================================

procedure TJvDynControlJVCLDBNavigator.ControlSetDefaultProperties;
begin
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetCaption(const Value: string);
begin
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetTabOrder(Value: Integer);
begin
  TabOrder := Value;
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetHint(const Value: string);
begin
  Hint := Value;
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetOnEnter(Value: TNotifyEvent);
begin
  OnEnter := Value;
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetOnExit(Value: TNotifyEvent);
begin
  OnExit := Value;
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetOnClick(Value: TNotifyEvent);
begin
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetDataSource(Value: TDataSource);
begin
  DataSource := Value;
end;

function TJvDynControlJVCLDBNavigator.ControlGetDataSource: TDataSource;
begin
  Result := DataSource;
end;

procedure TJvDynControlJVCLDBNavigator.ControlSetDataField(const Value: string);
begin
end;

function TJvDynControlJVCLDBNavigator.ControlGetDataField: string;
begin
  Result := '';
end;

//=== { TJvDynControlEngineJVCLDB } ==========================================

function DynControlEngineJVCLDB: TJvDynControlEngineDB;
begin
  Result := IntDynControlEngineJVCLDB;
end;

type
  TJvDynControlEngineJVCLDB = class(TJvDynControlEngineVCLDB)
  public
    procedure RegisterControls; override;
  end;

procedure TJvDynControlEngineJVCLDB.RegisterControls;
begin
  RegisterControlType(jctDBText, TJvDynControlJVCLDBText);
  RegisterControlType(jcTDBEdit, TJvDynControlJVCLDBEdit);
  RegisterControlType(jctDBImage, TJvDynControlJVCLDBImage);
  RegisterControlType(jctDBCheckBox, TJvDynControlJVCLDBCheckBox);
  RegisterControlType(jctDBComboBox, TJvDynControlJVCLDBComboBox);
  RegisterControlType(jctDBListBox, TJvDynControlJVCLDBListBox);
  RegisterControlType(jctDBRadioGroup, TJvDynControlJVCLDBRadioGroup);
  RegisterControlType(jctDBDateTimeEdit, TJvDynControlJVCLDBDateEdit);
  RegisterControlType(jctDBTimeEdit, TJvDynControlJVCLDBTimeEdit);
  RegisterControlType(jctDBDateEdit, TJvDynControlJVCLDBDateEdit);
////  RegisterControlType(jctDBCalculateEdit, TJvDynControlJVCLDBEdit);
////  RegisterControlType(jctDBSpinEdit, TJvDynControlJVCLDBEdit);
  RegisterControlType(jctDBDirectoryEdit, TJvDynControlJVCLDBDirectoryEdit);
  RegisterControlType(jctDBFileNameEdit, TJvDynControlJVCLDBFileNameEdit);
  RegisterControlType(jctDBMemo, TJvDynControlJVCLDBMemo);
  RegisterControlType(jctDBButtonEdit, TJvDynControlJVCLDBButtonEdit);
  RegisterControlType(jctDBGrid, TJvDynControlJVCLDBGrid);
  RegisterControlType(jctDBNavigator, TJvDynControlJVCLDBNavigator);
end;

initialization
  {$IFDEF UNITVERSIONING}
  RegisterUnitVersion(HInstance, UnitVersioning);
  {$ENDIF UNITVERSIONING}
  IntDynControlEngineJVCLDB := TJvDynControlEngineJVCLDB.Create;
  SetDefaultDynControlEngineDB(IntDynControlEngineJVCLDB);

finalization
  FreeAndNil(IntDynControlEngineJVCLDB);
  {$IFDEF UNITVERSIONING}
  UnregisterUnitVersion(HInstance);
  {$ENDIF UNITVERSIONING}

end.