Class TframeSubBeds

Unit

frameSubBedsUnit

Declaration

type TframeSubBeds = class(TFrame)

Description

Hierarchy

• TFrame
• TframeSubBeds

Overview

Fields

	rdgSubBed: TRbwDataGrid4;
	seCount: TJvSpinEdit;
	lblCount: TLabel;
	sbAdd: TSpeedButton;
	sbInsert: TSpeedButton;
	sbDelete: TSpeedButton;
	FOldCount: Integer;
	FOnGetSelectedSubLayers: TGetSelectedSubLayers;
	FOnGetNewName: TGetNewName;
	FSettingUseAll: Boolean;

Methods

	procedure seCountChange(Sender: TObject);
	procedure sbAddClick(Sender: TObject);
	procedure sbInsertClick(Sender: TObject);
	procedure sbDeleteClick(Sender: TObject);
	procedure rdgSubBedSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure seCountEnter(Sender: TObject);
	procedure rdgSubBedSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure rdgSubBedStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);
	procedure AssignBooleanProperties(const Value: TCheckBoxState; SubLayers: TCustomSubLayer; ACol: Integer; ARow: Integer);
	procedure AssignSubLayerName(SubLayers: TCustomSubLayer; const Value: string; ARow: Integer);

Properties

	property OnGetSelectedSubLayers: TGetSelectedSubLayers read FOnGetSelectedSubLayers write FOnGetSelectedSubLayers;
	property OnGetNewName: TGetNewName read FOnGetNewName write FOnGetNewName;

Description

Fields

	rdgSubBed: TRbwDataGrid4;

	seCount: TJvSpinEdit;

	lblCount: TLabel;

	sbAdd: TSpeedButton;

	sbInsert: TSpeedButton;

	sbDelete: TSpeedButton;

	FOldCount: Integer;

	FOnGetSelectedSubLayers: TGetSelectedSubLayers;

	FOnGetNewName: TGetNewName;

	FSettingUseAll: Boolean;

Methods

	procedure seCountChange(Sender: TObject);

	procedure sbAddClick(Sender: TObject);

	procedure sbInsertClick(Sender: TObject);

	procedure sbDeleteClick(Sender: TObject);

	procedure rdgSubBedSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

	procedure seCountEnter(Sender: TObject);

	procedure rdgSubBedSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

	procedure rdgSubBedStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);

	procedure AssignBooleanProperties(const Value: TCheckBoxState; SubLayers: TCustomSubLayer; ACol: Integer; ARow: Integer);

	procedure AssignSubLayerName(SubLayers: TCustomSubLayer; const Value: string; ARow: Integer);
Private declarations

Properties

	property OnGetSelectedSubLayers: TGetSelectedSubLayers read FOnGetSelectedSubLayers write FOnGetSelectedSubLayers;

	property OnGetNewName: TGetNewName read FOnGetNewName write FOnGetNewName;