unit BWCCOwl;

interface

uses WinTypes,WObjects,BWCC;

type
	PBDialog = ^TBDialog;
	TBDialog = object(TDialog)
		function GetClassName: PChar; virtual;
	end;

	PBCheckBox = ^TBCheckBox;
	TBCheckBox = object(TCheckBox)
		function GetClassName: PChar; virtual;
	end;

	PBRadioButton = ^TBRadioButton;
	TBRadioButton = object(TRadioButton)
		function GetClassName: PChar; virtual;
	end;

	PBButton = ^TBButton;
	TBButton = object(TButton)
		function GetClassName: PChar; virtual;
	end;

	PBStatic = ^TBStatic;
	TBStatic = object(TStatic)
		function GetClassName: PChar; virtual;
	end;

	PBGroupBox = ^TBGroupBox;
	TBGroupBox = object(TGroupBox)
		constructor Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
			X,Y,W,H:integer);
		function GetClassName: PChar; virtual;
	end;

	PBDivider = ^TBDivider;
	TBDivider = object(TControl)
		constructor Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
			X,Y,W,H:integer;IsVertical,IsBump:boolean);
		function GetClassName: PChar; virtual;
	end;

implementation

function TBDialog.GetClassName:PChar;
begin
	GetClassName:=BorDlgClass;
end;

function TBCheckBox.GetClassName:PChar;
begin
	GetClassName:=Check_Class;
end;

function TBRadioButton.GetClassName:PChar;
begin
	GetClassName:=Radio_Class;
end;

function TBButton.GetClassName:PChar;
begin
	GetClassName:=Button_Class;
end;

function TBStatic.GetClassName:PChar;
begin
	GetClassName:=Static_Class;
end;

constructor TBGroupBox.Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
		X,Y,W,H:integer);
begin
	TGroupBox.Init(AParent,AnID,AText,X,Y,W,H);
	Attr.Style:=Attr.Style and not bs_GroupBox;
	Attr.Style:=Attr.Style or bss_Group;
end;

function TBGroupBox.GetClassName:PChar;
begin
	GetClassName:=Shade_Class;
end;

constructor TBDivider.Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
			X,Y,W,H:integer;IsVertical,IsBump:boolean);
begin
	TControl.Init(AParent,AnID,AText,X,Y,W,H);
	Attr.Style:=Attr.Style and not bs_GroupBox;
	if IsVertical and IsBump then Attr.Style:=Attr.Style or bss_Vbump;
	if (not IsVertical) and IsBump then Attr.Style:=Attr.Style or bss_Hbump;
	if IsVertical and (not IsBump) then Attr.Style:=Attr.Style or bss_Vdip;
	if (not IsVertical) and (not IsBump) then Attr.Style:=Attr.Style or bss_Hdip;
end;

function TBDivider.GetClassName: PChar;
begin
	GetClassName:=Shade_Class;
end;



end.
