[sword-cvs] sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design TntComCtrls_Design.pas,1.1,1.2 TntDesignEditors_Design.pas,1.1,1.2 TntForms_Design.pas,1.1,1.2 TntMenus_Design.pas,1.1,1.2 TntUnicodeVcl_Register.pas,1.1,1.2
sword@www.crosswire.org
sword@www.crosswire.org
Mon, 27 Jan 2003 01:52:33 -0700
- Previous message: [sword-cvs] sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/BCB6 TntLibD.bpk,1.1,1.2 TntLibR.bpk,1.1,1.2
- Next message: [sword-cvs] sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls TntActnList.pas,NONE,1.1 TntExtActns.pas,NONE,1.1 TntListActns.pas,NONE,1.1 TntStdActns.pas,NONE,1.1 TntButtons.pas,1.1,1.2 TntCheckLst.pas,1.1,1.2 TntComCtrls.pas,1.2,1.3 TntControls.pas,1.2,1.3 TntExtCtrls.pas,1.1,1.2 TntForms.pas,1.2,1.3 TntGrids.pas,1.1,1.2 TntMenus.pas,1.1,1.2 TntStdCtrls.pas,1.2,1.3
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design
In directory www:/tmp/cvs-serv10426/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design
Modified Files:
TntComCtrls_Design.pas TntDesignEditors_Design.pas
TntForms_Design.pas TntMenus_Design.pas
TntUnicodeVcl_Register.pas
Log Message:
update to Tnt January 23, 2003 (was hoping it would fix a bug that turned out not to be there)
Index: TntComCtrls_Design.pas
===================================================================
RCS file: /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design/TntComCtrls_Design.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TntComCtrls_Design.pas 23 Jan 2003 00:02:43 -0000 1.1
--- TntComCtrls_Design.pas 27 Jan 2003 08:52:31 -0000 1.2
***************
*** 21,25 ****
end;
! TTntPageControlEditor = class(TComponentEditor)
private
function PageControl: TPageControl{TNT-ALLOW TPageControl};
--- 21,25 ----
end;
! TTntPageControlEditor = class(TDefaultEditor)
private
function PageControl: TPageControl{TNT-ALLOW TPageControl};
Index: TntDesignEditors_Design.pas
===================================================================
RCS file: /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design/TntDesignEditors_Design.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TntDesignEditors_Design.pas 23 Jan 2003 00:02:43 -0000 1.1
--- TntDesignEditors_Design.pas 27 Jan 2003 08:52:31 -0000 1.2
***************
*** 171,182 ****
end;
!
! destructor TWideStringProperty.Destroy;
var
Edit: TCustomEdit{TNT-ALLOW TCustomEdit};
begin
! Dec(WideStringPropertyCount);
! if (WideStringPropertyCount = 0)
! and (Win32PlatformIsUnicode) then begin
Edit := GetOIPropInspEdit;
if Assigned(Edit)
--- 171,179 ----
end;
! procedure ConvertObjectInspectorBackToANSI;
var
Edit: TCustomEdit{TNT-ALLOW TCustomEdit};
begin
! if (Win32PlatformIsUnicode) then begin
Edit := GetOIPropInspEdit;
if Assigned(Edit)
***************
*** 184,188 ****
--- 181,191 ----
TAccessWinControl(Edit).RecreateWnd;
end;
+ end;
+ destructor TWideStringProperty.Destroy;
+ begin
+ Dec(WideStringPropertyCount);
+ if (WideStringPropertyCount = 0) then
+ ConvertObjectInspectorBackToANSI;
if FPropList <> nil then
FreeMem(FPropList, PropCount * SizeOf(TInstProp));
***************
*** 296,301 ****
Edit := GetOIPropInspEdit;
if Assigned(Edit) then begin
! WideSetWindowText(Edit, GetWideStrValue);
! WideSetWindowHint(Edit, GetWideStrValue);
end;
end;
--- 299,304 ----
Edit := GetOIPropInspEdit;
if Assigned(Edit) then begin
! TntControl_SetText(Edit, GetWideStrValue);
! TntControl_SetHint(Edit, GetWideStrValue);
end;
end;
***************
*** 315,319 ****
Edit := GetOIPropInspEdit;
if Assigned(Edit) and Win32PlatformIsUnicode then
! SetWideStrValue(WideGetWindowText(Edit))
else
SetWideStrValue(Value);
--- 318,322 ----
Edit := GetOIPropInspEdit;
if Assigned(Edit) and Win32PlatformIsUnicode then
! SetWideStrValue(TntControl_GetText(Edit))
else
SetWideStrValue(Value);
***************
*** 386,389 ****
--- 389,397 ----
end;
end;
+
+ initialization
+
+ finalization
+ ConvertObjectInspectorBackToANSI;
end.
Index: TntForms_Design.pas
===================================================================
RCS file: /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design/TntForms_Design.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TntForms_Design.pas 23 Jan 2003 00:02:43 -0000 1.1
--- TntForms_Design.pas 27 Jan 2003 08:52:31 -0000 1.2
***************
*** 13,33 ****
interface
! uses Classes, Windows, ExptIntf;
type
! TTntNewFormExpert = class(TIExpert)
protected
function ThisFormName: WideString;
function ThisFormClass: TComponentClass; virtual; abstract;
public
! function GetName: AnsiString; override;
! function GetAuthor: AnsiString; override;
! function GetPage: AnsiString; override;
! function GetGlyph: HICON; override;
! function GetStyle: TExpertStyle; override;
! function GetState: TExpertState; override;
! function GetIDString: AnsiString; override;
! function GetMenuText: AnsiString; override;
! procedure Execute; override;
end;
--- 13,38 ----
interface
! uses Classes, Windows, {$IFDEF VER130} DsgnIntf, {$ELSE} DesignIntf, {$ENDIF} ToolsApi;
!
! {$IFNDEF VER130}
! type HICON = LongWord;
! {$ENDIF}
type
! TTntNewFormWizard = class(TNotifierObject, IOTAWizard, IOTARepositoryWizard, IOTAFormWizard)
protected
function ThisFormName: WideString;
function ThisFormClass: TComponentClass; virtual; abstract;
public
! // IOTAWizard
! function GetIDString: AnsiString;
! function GetName: AnsiString; virtual;
! function GetState: TWizardState;
! procedure Execute;
! // IOTARepositoryWizard
! function GetAuthor: AnsiString;
! function GetComment: AnsiString; virtual; abstract;
! function GetPage: AnsiString;
! function GetGlyph: HICON;
end;
***************
*** 36,44 ****
implementation
! uses TntForms, {$IFDEF VER130} DsgnIntf, {$ELSE} DesignIntf, DesignEditors, {$ENDIF}
! EditIntf, ToolIntf, WCtlForm, TypInfo, SysUtils;
type
! TTntNewTntFormExpert = class(TTntNewFormExpert)
protected
function ThisFormClass: TComponentClass; override;
--- 41,48 ----
implementation
! uses TntForms, {$IFNDEF VER130} DesignEditors, {$ENDIF} WCtlForm, TypInfo, SysUtils;
type
! TTntNewTntFormWizard = class(TTntNewFormWizard)
protected
function ThisFormClass: TComponentClass; override;
***************
*** 48,52 ****
end;
! TTntNewTntFrameExpert = class(TTntNewFormExpert)
protected
function ThisFormClass: TComponentClass; override;
--- 52,56 ----
end;
! TTntNewTntFrameWizard = class(TTntNewFormWizard)
protected
function ThisFormClass: TComponentClass; override;
***************
*** 71,151 ****
end;
- procedure SafeRegisterLibraryExpert(Expert: TIExpert);
- begin
- try
- RegisterLibraryExpert(Expert);
- except
- { Sometimes the IDE thinks an expert is being registered twice when a }
- { required package is recompiled causing this package to be reloaded. }
- { Ignoring this error seems to cause no problems. }
- end;
- end;
-
procedure Register;
begin
RegisterCustomModule(TTntFrame{TNT-ALLOW TTntFrame}, TTntFrameCustomModule);
! SafeRegisterLibraryExpert(TTntNewTntFrameExpert.Create);
! RegisterClasses([TTntFrame{TNT-ALLOW TTntFrame}]);
//--
RegisterCustomModule(TTntForm{TNT-ALLOW TTntForm}, TTntFormCustomModule);
! SafeRegisterLibraryExpert(TTntNewTntFormExpert.Create);
! RegisterClasses([TTntForm{TNT-ALLOW TTntForm}]);
end;
! { TTntNewFormExpert }
! function TTntNewFormExpert.ThisFormName: WideString;
begin
! Result := ThisFormClass.ClassName;
! Delete(Result, 1, 1); // drop the 'T'
end;
! function TTntNewFormExpert.GetName: AnsiString;
begin
! Result := ThisFormName;
end;
! function TTntNewFormExpert.GetAuthor: AnsiString;
begin
- Result := 'Troy Wolbrink';
end;
! function TTntNewFormExpert.GetPage: AnsiString;
begin
! Result := 'New';
end;
! function TTntNewFormExpert.GetGlyph: HICON;
begin
! Result := 0;
end;
! function TTntNewFormExpert.GetStyle: TExpertStyle;
begin
! Result := esForm;
end;
! function TTntNewFormExpert.GetState: TExpertState;
begin
! Result := [esEnabled];
end;
! function TTntNewFormExpert.GetIDString: AnsiString;
begin
! Result := 'Tnt.Create_'+ThisFormName+'.Wizard';
end;
! function TTntNewFormExpert.GetMenuText: AnsiString;
begin
Result := '';
end;
! procedure AddUnitToUses(Module: TIModuleInterface; UnitName: WideString);
const
! UnitFileSize = 8192; // 8k ought to be enough for everybody!
var
! Editor: TIEditorInterface;
! Reader: TIEditReader;
! Writer: TIEditWriter;
Buffer, P: PAnsiChar;
StartPos: Integer;
--- 75,280 ----
end;
procedure Register;
begin
RegisterCustomModule(TTntFrame{TNT-ALLOW TTntFrame}, TTntFrameCustomModule);
! RegisterPackageWizard(TTntNewTntFrameWizard.Create);
//--
RegisterCustomModule(TTntForm{TNT-ALLOW TTntForm}, TTntFormCustomModule);
! RegisterPackageWizard(TTntNewTntFormWizard.Create);
end;
! function GetFirstModuleSupporting(const IID: TGUID): IOTAModule;
! var
! ModuleServices: IOTAModuleServices;
! i: integer;
! begin
! Result := nil;
! if Assigned(BorlandIDEServices) then
! begin
! // look for the first project
! ModuleServices := BorlandIDEServices as IOTAModuleServices;
! for i := 0 to ModuleServices.ModuleCount - 1 do
! if Supports(ModuleServices.Modules[i], IID, Result) then
! Break;
! end;
! end;
! function MyGetActiveProject: IOTAProject;
! {$IFNDEF VER150}
! var
! ProjectGroup: IOTAProjectGroup;
! {$ENDIF}
begin
! {$IFNDEF VER150}
! ProjectGroup := GetFirstModuleSupporting(IOTAProjectGroup) as IOTAProjectGroup;
! if ProjectGroup = nil then
! Result := nil
! else
! Result := ProjectGroup.ActiveProject;
! {$ELSE}
! Result := ToolsAPI.GetActiveProject;
! {$ENDIF}
! if (Result = nil) then
! Result := GetFirstModuleSupporting(IOTAProject) as IOTAProject;
end;
! { TTntNewFormCreator }
! type
! TTntNewFormCreator = class(TInterfacedObject, IOTACreator, IOTAModuleCreator)
! private
! FAncestorName: WideString;
! public
! // IOTACreator
! function GetCreatorType: AnsiString;
! function GetExisting: Boolean;
! function GetFileSystem: AnsiString;
! function GetOwner: IOTAModule;
! function GetUnnamed: Boolean;
! // IOTAModuleCreator
! function GetAncestorName: AnsiString;
! function GetImplFileName: AnsiString;
! function GetIntfFileName: AnsiString;
! function GetFormName: AnsiString;
! function GetMainForm: Boolean;
! function GetShowForm: Boolean;
! function GetShowSource: Boolean;
! function NewFormFile(const FormIdent, AncestorIdent: AnsiString): IOTAFile;
! function NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
! function NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
! procedure FormCreated(const FormEditor: IOTAFormEditor);
! public
! constructor Create(const FormName, AncestorName: WideString);
! end;
!
! constructor TTntNewFormCreator.Create(const FormName, AncestorName: WideString);
begin
! inherited Create;
! FAncestorName := AncestorName;
end;
! procedure TTntNewFormCreator.FormCreated(const FormEditor: IOTAFormEditor);
begin
end;
! function TTntNewFormCreator.GetAncestorName: AnsiString;
begin
! Result := FAncestorName;
end;
! function TTntNewFormCreator.GetCreatorType: AnsiString;
begin
! Result := sForm;
end;
! function TTntNewFormCreator.GetExisting: Boolean;
begin
! Result := False;
end;
! function TTntNewFormCreator.GetFileSystem: AnsiString;
begin
! Result := '';
end;
! function TTntNewFormCreator.GetFormName: AnsiString;
begin
! Result := '';
end;
! function TTntNewFormCreator.GetImplFileName: AnsiString;
begin
Result := '';
end;
! function TTntNewFormCreator.GetIntfFileName: AnsiString;
! begin
! Result := '';
! end;
!
! function TTntNewFormCreator.GetMainForm: Boolean;
! begin
! Result := False;
! end;
!
! function TTntNewFormCreator.GetOwner: IOTAModule;
! begin
! Result := MyGetActiveProject;
! end;
!
! function TTntNewFormCreator.GetShowForm: Boolean;
! begin
! Result := True;
! end;
!
! function TTntNewFormCreator.GetShowSource: Boolean;
! begin
! Result := True;
! end;
!
! function TTntNewFormCreator.GetUnnamed: Boolean;
! begin
! Result := True;
! end;
!
! function TTntNewFormCreator.NewFormFile(const FormIdent, AncestorIdent: AnsiString): IOTAFile;
! begin
! Result := nil;
! end;
!
! function TTntNewFormCreator.NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
! begin
! Result := nil;
! end;
!
! function TTntNewFormCreator.NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
! begin
! Result := nil;
! end;
!
! { TTntNewFormWizard }
!
! function TTntNewFormWizard.ThisFormName: WideString;
! begin
! Result := ThisFormClass.ClassName;
! Delete(Result, 1, 1); // drop the 'T'
! end;
!
! function TTntNewFormWizard.GetName: AnsiString;
! begin
! Result := ThisFormName;
! end;
!
! function TTntNewFormWizard.GetAuthor: AnsiString;
! begin
! Result := 'Troy Wolbrink';
! end;
!
! function TTntNewFormWizard.GetPage: AnsiString;
! begin
! Result := 'New';
! end;
!
! function TTntNewFormWizard.GetGlyph: HICON;
! begin
! Result := 0;
! end;
!
! function TTntNewFormWizard.GetState: TWizardState;
! begin
! Result := [wsEnabled];
! end;
!
! function TTntNewFormWizard.GetIDString: AnsiString;
! begin
! Result := 'Tnt.Create_'+ThisFormName+'.Wizard';
! end;
!
! procedure AddUnitToUses(Module: IOTAModule; UnitName: WideString);
const
! UnitFileSize = 8192; // 8k ought to be enough for everybody! (we're dealing with a new default unit)
var
! Editor: IOTASourceEditor;
! Reader: IOTAEditReader;
! Writer: IOTAEditWriter;
Buffer, P: PAnsiChar;
StartPos: Integer;
***************
*** 153,157 ****
(* Warning: add the necessary routines for C++Builder *)
Buffer := StrAlloc(UnitFileSize);
! Editor := Module.GetEditorInterface;
try
Reader := Editor.CreateReader;
--- 282,286 ----
(* Warning: add the necessary routines for C++Builder *)
Buffer := StrAlloc(UnitFileSize);
! Editor := (Module.GetModuleFileEditor(0)) as IOTASourceEditor;
try
Reader := Editor.CreateReader;
***************
*** 165,169 ****
StartPos := -1;
finally
! Reader.Free;
end;
if StartPos <> -1 then
--- 294,298 ----
StartPos := -1;
finally
! Reader := nil; { get rid of reader before we use writer }
end;
if StartPos <> -1 then
***************
*** 174,230 ****
Writer.Insert(PAnsiChar(AnsiString(', ' + UnitName)));
finally
! Writer.Free;
end;
end;
finally
! Editor.Release;
StrDispose(Buffer);
end;
end;
! procedure TTntNewFormExpert.Execute;
var
! ModuleName, FormName, FileName: AnsiString;
! Module: TIModuleInterface;
begin
! ToolServices.GetNewModuleAndClassName(ThisFormName, ModuleName, FormName, FileName);
! Module := ToolServices.CreateModuleEx(FileName, FormName, ThisFormName, '', nil, nil,
! [cmNewForm, cmUnNamed, cmMarkModified, cmAddToProject, cmShowForm, cmShowSource]);
! try
! AddUnitToUses(Module, GetTypeData(PTypeInfo(ThisFormClass.ClassInfo)).UnitName);
! except
! end;
end;
! { TTntNewTntFormExpert }
! function TTntNewTntFormExpert.ThisFormClass: TComponentClass;
begin
Result := TTntForm{TNT-ALLOW TTntForm};
end;
! function TTntNewTntFormExpert.GetName: AnsiString;
begin
Result := ThisFormName + ' (Unicode)'
end;
! function TTntNewTntFormExpert.GetComment: AnsiString;
begin
Result := 'Creates a new Unicode enabled TntForm';
end;
! { TTntNewTntFrameExpert }
! function TTntNewTntFrameExpert.ThisFormClass: TComponentClass;
begin
Result := TTntFrame{TNT-ALLOW TTntFrame};
end;
! function TTntNewTntFrameExpert.GetName: AnsiString;
begin
Result := ThisFormName + ' (Unicode)'
end;
! function TTntNewTntFrameExpert.GetComment: AnsiString;
begin
Result := 'Creates a new Unicode enabled TntFrame';
--- 303,353 ----
Writer.Insert(PAnsiChar(AnsiString(', ' + UnitName)));
finally
! Writer := nil;
end;
end;
finally
! Editor := nil;
StrDispose(Buffer);
end;
end;
! procedure TTntNewFormWizard.Execute;
var
! Module: IOTAModule;
begin
! Module := (BorlandIDEServices as IOTAModuleServices).CreateModule(TTntNewFormCreator.Create('', ThisFormName));
! AddUnitToUses(Module, GetTypeData(PTypeInfo(ThisFormClass.ClassInfo)).UnitName);
end;
! { TTntNewTntFormWizard }
! function TTntNewTntFormWizard.ThisFormClass: TComponentClass;
begin
Result := TTntForm{TNT-ALLOW TTntForm};
end;
! function TTntNewTntFormWizard.GetName: AnsiString;
begin
Result := ThisFormName + ' (Unicode)'
end;
! function TTntNewTntFormWizard.GetComment: AnsiString;
begin
Result := 'Creates a new Unicode enabled TntForm';
end;
! { TTntNewTntFrameWizard }
! function TTntNewTntFrameWizard.ThisFormClass: TComponentClass;
begin
Result := TTntFrame{TNT-ALLOW TTntFrame};
end;
! function TTntNewTntFrameWizard.GetName: AnsiString;
begin
Result := ThisFormName + ' (Unicode)'
end;
! function TTntNewTntFrameWizard.GetComment: AnsiString;
begin
Result := 'Creates a new Unicode enabled TntFrame';
Index: TntMenus_Design.pas
===================================================================
RCS file: /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design/TntMenus_Design.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TntMenus_Design.pas 23 Jan 2003 00:02:43 -0000 1.1
--- TntMenus_Design.pas 27 Jan 2003 08:52:31 -0000 1.2
***************
*** 32,36 ****
uses {$IFDEF VER130} DsgnWnds, {$ELSE} MnuConst, {$ENDIF} SysUtils, Graphics, ActnList,
! Dialogs, TntDesignEditors_Design;
procedure Register;
--- 32,36 ----
uses {$IFDEF VER130} DsgnWnds, {$ELSE} MnuConst, {$ENDIF} SysUtils, Graphics, ActnList,
! Dialogs, TntDesignEditors_Design, TntActnList;
procedure Register;
***************
*** 41,48 ****
function GetMenuBuilder: TForm{TNT-ALLOW TForm};
! {$IFNDEF VER130}
! begin
! Result := MenuEditor;
! {$ELSE}
var
Comp: TComponent;
--- 41,45 ----
function GetMenuBuilder: TForm{TNT-ALLOW TForm};
! {$IFDEF VER130}
var
Comp: TComponent;
***************
*** 55,58 ****
--- 52,58 ----
Result := TForm{TNT-ALLOW TForm}(Comp);
end;
+ {$ELSE}
+ begin
+ Result := MenuEditor;
{$ENDIF}
end;
***************
*** 157,161 ****
private
FMenuBuilder: TForm{TNT-ALLOW TForm};
! FCheckMenuAction: TAction;
FLastCaption: string{TNT-ALLOW string};
FLastActiveControl: TControl;
--- 157,161 ----
private
FMenuBuilder: TForm{TNT-ALLOW TForm};
! FCheckMenuAction: TTntAction;
FLastCaption: string{TNT-ALLOW string};
FLastActiveControl: TControl;
***************
*** 173,177 ****
inherited;
MenuBuilderChecker := Self;
! FCheckMenuAction := TAction.Create(Self);
FCheckMenuAction.OnUpdate := CheckMenuItems;
FCheckMenuAction.OnExecute := CheckMenuItems;
--- 173,177 ----
inherited;
MenuBuilderChecker := Self;
! FCheckMenuAction := TTntAction.Create(Self);
FCheckMenuAction.OnUpdate := CheckMenuItems;
FCheckMenuAction.OnExecute := CheckMenuItems;
***************
*** 187,190 ****
--- 187,192 ----
end;
+ type TAccessTntMenuItem = class(TTntMenuItem);
+
function CreateTntMenuItem(OldItem: TMenuItem{TNT-ALLOW TMenuItem}): TTntMenuItem;
var
***************
*** 200,203 ****
--- 202,206 ----
// clone properties
Result := TTntMenuItem.Create(OldItem.Owner);
+ TAccessTntMenuItem(Result).FComponentStyle := OldItem.ComponentStyle; {csTransient hides item from object inspector}
Result.Action := OldItem.Action;
{$IFNDEF VER130}
Index: TntUnicodeVcl_Register.pas
===================================================================
RCS file: /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Design/TntUnicodeVcl_Register.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TntUnicodeVcl_Register.pas 23 Jan 2003 00:02:43 -0000 1.1
--- TntUnicodeVcl_Register.pas 27 Jan 2003 08:52:31 -0000 1.2
***************
*** 8,12 ****
uses Classes, TntForms, TntMenus, TntStdCtrls, TntCheckLst, TntGrids, TntExtCtrls, TntComCtrls,
! TntButtons;
const
--- 8,12 ----
uses Classes, TntForms, TntMenus, TntStdCtrls, TntCheckLst, TntGrids, TntExtCtrls, TntComCtrls,
! TntButtons, TntActnList;
const
***************
*** 14,18 ****
TNT_ADDITIONAL = 'Tnt Additional';
TNT_WIN32 = 'Tnt Win32';
! // TNT_DATA_CONTROLS = 'Tnt Data Controls';
procedure Register;
--- 14,18 ----
TNT_ADDITIONAL = 'Tnt Additional';
TNT_WIN32 = 'Tnt Win32';
! //TNT_DATA_CONTROLS = 'Tnt Data Controls';
procedure Register;
***************
*** 33,37 ****
{ -- TTntRadioGroup goes here -- }
RegisterComponents(TNT_STANDARD, [TTntPanel]);
! { -- TTntActionList goes here -- }
// ------- Additional -------
--- 33,37 ----
{ -- TTntRadioGroup goes here -- }
RegisterComponents(TNT_STANDARD, [TTntPanel]);
! RegisterComponents(TNT_STANDARD, [TTntActionList]);
// ------- Additional -------
***************
*** 79,88 ****
{ -- TTntDBNavigator goes here -- }
{ -- TTntDBText goes here -- }
! // RegisterComponents(TNT_DATA_CONTROLS, [TTntDBEdit]);
{ -- TTntDBMemo goes here -- }
{ -- TTntDBImage goes here -- }
{ -- TTntDBListBox goes here -- }
! // RegisterComponents(TNT_DATA_CONTROLS, [TTntDBComboBox]);
! // RegisterComponents(TNT_DATA_CONTROLS, [TTntDBCheckBox]);
{ -- TTntDBRadioGroup goes here -- }
{ -- TTntDBLookupListBox goes here -- }
--- 79,88 ----
{ -- TTntDBNavigator goes here -- }
{ -- TTntDBText goes here -- }
! //RegisterComponents(TNT_DATA_CONTROLS, [TTntDBEdit]);
{ -- TTntDBMemo goes here -- }
{ -- TTntDBImage goes here -- }
{ -- TTntDBListBox goes here -- }
! //RegisterComponents(TNT_DATA_CONTROLS, [TTntDBComboBox]);
! //RegisterComponents(TNT_DATA_CONTROLS, [TTntDBCheckBox]);
{ -- TTntDBRadioGroup goes here -- }
{ -- TTntDBLookupListBox goes here -- }
- Previous message: [sword-cvs] sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/BCB6 TntLibD.bpk,1.1,1.2 TntLibR.bpk,1.1,1.2
- Next message: [sword-cvs] sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls TntActnList.pas,NONE,1.1 TntExtActns.pas,NONE,1.1 TntListActns.pas,NONE,1.1 TntStdActns.pas,NONE,1.1 TntButtons.pas,1.1,1.2 TntCheckLst.pas,1.1,1.2 TntComCtrls.pas,1.2,1.3 TntControls.pas,1.2,1.3 TntExtCtrls.pas,1.1,1.2 TntForms.pas,1.2,1.3 TntGrids.pas,1.1,1.2 TntMenus.pas,1.1,1.2 TntStdCtrls.pas,1.2,1.3
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]