Skip to content

Commit a511c4c

Browse files
author
Roman Kassebaum
committed
Recreated the hpp files.
1 parent 8c77805 commit a511c4c

File tree

12 files changed

+324
-48
lines changed

12 files changed

+324
-48
lines changed

‎Lib/hpp/Win32/Debug/UIRibbon.hpp‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -57,9 +57,9 @@ class PASCALIMPLEMENTATION TRibbonMarkupElementList : public System::Generics::C
5757

5858
private:
5959
System::UnicodeString fResourceName;
60+
61+
private:
6062
static System::Generics::Collections::TObjectList__1<TRibbonMarkupElementList*>* fContainer;
61-
// __classmethod void __fastcall Create@();
62-
// __classmethod void __fastcall Destroy@();
6363

6464
public:
6565
__classmethod TRibbonMarkupElementList* __fastcall LookupListByResourceName(const System::UnicodeString pResourceName);
@@ -147,6 +147,7 @@ class PASCALIMPLEMENTATION TUIRibbon : public Vcl::Controls::TWinControl
147147
void __fastcall SetTextColor(const System::Uitypes::TColor Value);
148148

149149
protected:
150+
virtual void __fastcall CreateWnd(void);
150151
void __fastcall AddCommand(Uiribboncommands::TUICommand* const Command);
151152
unsigned __fastcall GetColor(const Uiribbonapi::TUIPropertyKey &PropKey);
152153
HIDESBASE void __fastcall SetColor(const Uiribbonapi::TUIPropertyKey &PropKey, const unsigned Value);

‎Lib/hpp/Win32/Debug/UIRibbonActions.hpp‎

Lines changed: 74 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -33,6 +33,10 @@ class DELPHICLASS TUICommandBooleanActionLink;
3333
class DELPHICLASS TUICommandFontActionLink;
3434
class DELPHICLASS TUICommandColorAnchorActionLink;
3535
class DELPHICLASS TUICommandRecentItemsActionLink;
36+
template<typename T> class DELPHICLASS TRibbonAction__1;
37+
class DELPHICLASS TRibbonCollectionAction;
38+
class DELPHICLASS TRibbonColorAction;
39+
class DELPHICLASS TRibbonFontAction;
3640
//-- type declarations -------------------------------------------------------
3741
class PASCALIMPLEMENTATION TUICommandActionLink : public Vcl::Actnlist::TActionLink
3842
{
@@ -205,6 +209,76 @@ class PASCALIMPLEMENTATION TUICommandRecentItemsActionLink : public TUICommandAc
205209
};
206210

207211

212+
// Template declaration generated by Delphi parameterized types is
213+
// used only for accessing Delphi variables and fields.
214+
// Don't instantiate with new type parameters in user code.
215+
template<typename T> class PASCALIMPLEMENTATION TRibbonAction__1 : public Vcl::Actnlist::TCustomAction
216+
{
217+
typedef Vcl::Actnlist::TCustomAction inherited;
218+
219+
private:
220+
T fUICommand;
221+
222+
public:
223+
__property T UICommand = {read=fUICommand, write=fUICommand};
224+
225+
__published:
226+
__property Caption = {default=0};
227+
__property Enabled = {default=1};
228+
__property HelpContext = {default=0};
229+
__property HelpKeyword = {default=0};
230+
__property HelpType = {default=0};
231+
__property Hint = {default=0};
232+
__property SecondaryShortCuts;
233+
__property ShortCut = {default=0};
234+
__property OnExecute;
235+
__property OnHint;
236+
__property OnUpdate;
237+
public:
238+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonAction__1(System::Classes::TComponent* AOwner) : Vcl::Actnlist::TCustomAction(AOwner) { }
239+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonAction__1(void) { }
240+
241+
};
242+
243+
244+
class PASCALIMPLEMENTATION TRibbonCollectionAction : public TRibbonAction__1<Uiribboncommands::TUICommandCollection*>
245+
{
246+
typedef TRibbonAction__1<Uiribboncommands::TUICommandCollection*> inherited;
247+
248+
public:
249+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonCollectionAction(System::Classes::TComponent* AOwner) : TRibbonAction__1<Uiribboncommands::TUICommandCollection*>(AOwner) { }
250+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonCollectionAction(void) { }
251+
252+
};
253+
254+
255+
class PASCALIMPLEMENTATION TRibbonColorAction : public TRibbonAction__1<Uiribboncommands::TUICommandColorAnchor*>
256+
{
257+
typedef TRibbonAction__1<Uiribboncommands::TUICommandColorAnchor*> inherited;
258+
259+
public:
260+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonColorAction(System::Classes::TComponent* AOwner) : TRibbonAction__1<Uiribboncommands::TUICommandColorAnchor*>(AOwner) { }
261+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonColorAction(void) { }
262+
263+
};
264+
265+
266+
class PASCALIMPLEMENTATION TRibbonFontAction : public TRibbonAction__1<Uiribboncommands::TUICommandFont*>
267+
{
268+
typedef TRibbonAction__1<Uiribboncommands::TUICommandFont*> inherited;
269+
270+
private:
271+
Uiribboncommands::TUICommandFontChangedEvent fOnChanged;
272+
273+
__published:
274+
__property Uiribboncommands::TUICommandFontChangedEvent OnChanged = {read=fOnChanged, write=fOnChanged};
275+
public:
276+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonFontAction(System::Classes::TComponent* AOwner) : TRibbonAction__1<Uiribboncommands::TUICommandFont*>(AOwner) { }
277+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonFontAction(void) { }
278+
279+
};
280+
281+
208282
//-- var, const, procedure ---------------------------------------------------
209283
} /* namespace Uiribbonactions */
210284
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_UIRIBBONACTIONS)

‎Lib/hpp/Win32/Debug/UIRibbonCommands.hpp‎

Lines changed: 4 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -176,10 +176,6 @@ class PASCALIMPLEMENTATION TUICommand : public System::Classes::TComponent
176176
virtual void __fastcall Notify(const int Flag);
177177
__property bool Alive = {read=FAlive, write=SetAlive, nodefault};
178178

179-
private:
180-
// __classmethod void __fastcall Create@();
181-
// __classmethod void __fastcall Destroy@();
182-
183179
public:
184180
__fastcall virtual TUICommand(System::TObject* const Ribbon, const unsigned CommandId);
185181
__fastcall virtual ~TUICommand(void);
@@ -905,8 +901,6 @@ class PASCALIMPLEMENTATION TUIImage : public System::TInterfacedObject
905901

906902
private:
907903
static Uiribbonapi::_di_IUIImageFromBitmap FImageFactory;
908-
909-
private:
910904
Uiribbonapi::_di_IUIImage FHandle;
911905
HBITMAP FBitmap;
912906
int FWidth;
@@ -923,10 +917,6 @@ class PASCALIMPLEMENTATION TUIImage : public System::TInterfacedObject
923917
__property System::Classes::TNotifyEvent OnChanged = {read=FOnChanged, write=FOnChanged};
924918
HRESULT __safecall GetBitmap(HBITMAP &__GetBitmap_result);
925919

926-
private:
927-
// __classmethod void __fastcall Create@();
928-
// __classmethod void __fastcall Destroy@();
929-
930920
public:
931921
__fastcall TUIImage(const int ResourceId)/* overload */;
932922
__fastcall TUIImage(const NativeUInt Instance, const int ResourceId)/* overload */;
@@ -947,6 +937,10 @@ class PASCALIMPLEMENTATION TUIImage : public System::TInterfacedObject
947937
/* safecall wrapper */ inline HBITMAP _scw_GetBitmap() { HBITMAP __r; HRESULT __hr = GetBitmap(__r); System::CheckSafecallResult(__hr); return __r; }
948938
#pragma option pop
949939
__property HBITMAP Bitmap = {read=_scw_GetBitmap, nodefault};
940+
941+
private:
942+
// __classmethod void __fastcall Create@();
943+
// __classmethod void __fastcall Destroy@();
950944
public:
951945
/* TObject.Destroy */ inline __fastcall virtual ~TUIImage(void) { }
952946

‎Lib/hpp/Win32/Release/UIRibbon.hpp‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -57,9 +57,9 @@ class PASCALIMPLEMENTATION TRibbonMarkupElementList : public System::Generics::C
5757

5858
private:
5959
System::UnicodeString fResourceName;
60+
61+
private:
6062
static System::Generics::Collections::TObjectList__1<TRibbonMarkupElementList*>* fContainer;
61-
// __classmethod void __fastcall Create@();
62-
// __classmethod void __fastcall Destroy@();
6363

6464
public:
6565
__classmethod TRibbonMarkupElementList* __fastcall LookupListByResourceName(const System::UnicodeString pResourceName);
@@ -147,6 +147,7 @@ class PASCALIMPLEMENTATION TUIRibbon : public Vcl::Controls::TWinControl
147147
void __fastcall SetTextColor(const System::Uitypes::TColor Value);
148148

149149
protected:
150+
virtual void __fastcall CreateWnd(void);
150151
void __fastcall AddCommand(Uiribboncommands::TUICommand* const Command);
151152
unsigned __fastcall GetColor(const Uiribbonapi::TUIPropertyKey &PropKey);
152153
HIDESBASE void __fastcall SetColor(const Uiribbonapi::TUIPropertyKey &PropKey, const unsigned Value);

‎Lib/hpp/Win32/Release/UIRibbonActions.hpp‎

Lines changed: 74 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -33,6 +33,10 @@ class DELPHICLASS TUICommandBooleanActionLink;
3333
class DELPHICLASS TUICommandFontActionLink;
3434
class DELPHICLASS TUICommandColorAnchorActionLink;
3535
class DELPHICLASS TUICommandRecentItemsActionLink;
36+
template<typename T> class DELPHICLASS TRibbonAction__1;
37+
class DELPHICLASS TRibbonCollectionAction;
38+
class DELPHICLASS TRibbonColorAction;
39+
class DELPHICLASS TRibbonFontAction;
3640
//-- type declarations -------------------------------------------------------
3741
class PASCALIMPLEMENTATION TUICommandActionLink : public Vcl::Actnlist::TActionLink
3842
{
@@ -205,6 +209,76 @@ class PASCALIMPLEMENTATION TUICommandRecentItemsActionLink : public TUICommandAc
205209
};
206210

207211

212+
// Template declaration generated by Delphi parameterized types is
213+
// used only for accessing Delphi variables and fields.
214+
// Don't instantiate with new type parameters in user code.
215+
template<typename T> class PASCALIMPLEMENTATION TRibbonAction__1 : public Vcl::Actnlist::TCustomAction
216+
{
217+
typedef Vcl::Actnlist::TCustomAction inherited;
218+
219+
private:
220+
T fUICommand;
221+
222+
public:
223+
__property T UICommand = {read=fUICommand, write=fUICommand};
224+
225+
__published:
226+
__property Caption = {default=0};
227+
__property Enabled = {default=1};
228+
__property HelpContext = {default=0};
229+
__property HelpKeyword = {default=0};
230+
__property HelpType = {default=0};
231+
__property Hint = {default=0};
232+
__property SecondaryShortCuts;
233+
__property ShortCut = {default=0};
234+
__property OnExecute;
235+
__property OnHint;
236+
__property OnUpdate;
237+
public:
238+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonAction__1(System::Classes::TComponent* AOwner) : Vcl::Actnlist::TCustomAction(AOwner) { }
239+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonAction__1(void) { }
240+
241+
};
242+
243+
244+
class PASCALIMPLEMENTATION TRibbonCollectionAction : public TRibbonAction__1<Uiribboncommands::TUICommandCollection*>
245+
{
246+
typedef TRibbonAction__1<Uiribboncommands::TUICommandCollection*> inherited;
247+
248+
public:
249+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonCollectionAction(System::Classes::TComponent* AOwner) : TRibbonAction__1<Uiribboncommands::TUICommandCollection*>(AOwner) { }
250+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonCollectionAction(void) { }
251+
252+
};
253+
254+
255+
class PASCALIMPLEMENTATION TRibbonColorAction : public TRibbonAction__1<Uiribboncommands::TUICommandColorAnchor*>
256+
{
257+
typedef TRibbonAction__1<Uiribboncommands::TUICommandColorAnchor*> inherited;
258+
259+
public:
260+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonColorAction(System::Classes::TComponent* AOwner) : TRibbonAction__1<Uiribboncommands::TUICommandColorAnchor*>(AOwner) { }
261+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonColorAction(void) { }
262+
263+
};
264+
265+
266+
class PASCALIMPLEMENTATION TRibbonFontAction : public TRibbonAction__1<Uiribboncommands::TUICommandFont*>
267+
{
268+
typedef TRibbonAction__1<Uiribboncommands::TUICommandFont*> inherited;
269+
270+
private:
271+
Uiribboncommands::TUICommandFontChangedEvent fOnChanged;
272+
273+
__published:
274+
__property Uiribboncommands::TUICommandFontChangedEvent OnChanged = {read=fOnChanged, write=fOnChanged};
275+
public:
276+
/* TCustomAction.Create */ inline __fastcall virtual TRibbonFontAction(System::Classes::TComponent* AOwner) : TRibbonAction__1<Uiribboncommands::TUICommandFont*>(AOwner) { }
277+
/* TCustomAction.Destroy */ inline __fastcall virtual ~TRibbonFontAction(void) { }
278+
279+
};
280+
281+
208282
//-- var, const, procedure ---------------------------------------------------
209283
} /* namespace Uiribbonactions */
210284
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_UIRIBBONACTIONS)

‎Lib/hpp/Win32/Release/UIRibbonCommands.hpp‎

Lines changed: 4 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -176,10 +176,6 @@ class PASCALIMPLEMENTATION TUICommand : public System::Classes::TComponent
176176
virtual void __fastcall Notify(const int Flag);
177177
__property bool Alive = {read=FAlive, write=SetAlive, nodefault};
178178

179-
private:
180-
// __classmethod void __fastcall Create@();
181-
// __classmethod void __fastcall Destroy@();
182-
183179
public:
184180
__fastcall virtual TUICommand(System::TObject* const Ribbon, const unsigned CommandId);
185181
__fastcall virtual ~TUICommand(void);
@@ -905,8 +901,6 @@ class PASCALIMPLEMENTATION TUIImage : public System::TInterfacedObject
905901

906902
private:
907903
static Uiribbonapi::_di_IUIImageFromBitmap FImageFactory;
908-
909-
private:
910904
Uiribbonapi::_di_IUIImage FHandle;
911905
HBITMAP FBitmap;
912906
int FWidth;
@@ -923,10 +917,6 @@ class PASCALIMPLEMENTATION TUIImage : public System::TInterfacedObject
923917
__property System::Classes::TNotifyEvent OnChanged = {read=FOnChanged, write=FOnChanged};
924918
HRESULT __safecall GetBitmap(HBITMAP &__GetBitmap_result);
925919

926-
private:
927-
// __classmethod void __fastcall Create@();
928-
// __classmethod void __fastcall Destroy@();
929-
930920
public:
931921
__fastcall TUIImage(const int ResourceId)/* overload */;
932922
__fastcall TUIImage(const NativeUInt Instance, const int ResourceId)/* overload */;
@@ -947,6 +937,10 @@ class PASCALIMPLEMENTATION TUIImage : public System::TInterfacedObject
947937
/* safecall wrapper */ inline HBITMAP _scw_GetBitmap() { HBITMAP __r; HRESULT __hr = GetBitmap(__r); System::CheckSafecallResult(__hr); return __r; }
948938
#pragma option pop
949939
__property HBITMAP Bitmap = {read=_scw_GetBitmap, nodefault};
940+
941+
private:
942+
// __classmethod void __fastcall Create@();
943+
// __classmethod void __fastcall Destroy@();
950944
public:
951945
/* TObject.Destroy */ inline __fastcall virtual ~TUIImage(void) { }
952946

‎Lib/hpp/Win64/Debug/UIRibbon.hpp‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -57,9 +57,9 @@ class PASCALIMPLEMENTATION TRibbonMarkupElementList : public System::Generics::C
5757

5858
private:
5959
System::UnicodeString fResourceName;
60+
61+
private:
6062
static System::Generics::Collections::TObjectList__1<TRibbonMarkupElementList*>* fContainer;
61-
// __classmethod void __fastcall Create@();
62-
// __classmethod void __fastcall Destroy@();
6363

6464
public:
6565
__classmethod TRibbonMarkupElementList* __fastcall LookupListByResourceName(const System::UnicodeString pResourceName);
@@ -147,6 +147,7 @@ class PASCALIMPLEMENTATION TUIRibbon : public Vcl::Controls::TWinControl
147147
void __fastcall SetTextColor(const System::Uitypes::TColor Value);
148148

149149
protected:
150+
virtual void __fastcall CreateWnd(void);
150151
void __fastcall AddCommand(Uiribboncommands::TUICommand* const Command);
151152
unsigned __fastcall GetColor(const Uiribbonapi::TUIPropertyKey &PropKey);
152153
HIDESBASE void __fastcall SetColor(const Uiribbonapi::TUIPropertyKey &PropKey, const unsigned Value);

0 commit comments

Comments
 (0)