GuiInstanceLoader_Toolstrip.cpp

#include "GuiInstanceLoader_TemplateControl.h"

#ifndef VCZH_DEBUG_NO_REFLECTION

namespace

{

namespace

presentation

{

namespace

instance_loaders

{

Ptr

workflow

WfStatement

AddControlToToolstrip

(

GlobalStringKey

variableName

IGuiInstanceLoader

ArgumentMap

arguments

GuiResourceError

List

errors

) {

auto

block

MakePtr

WfBlockStatement

>();

FOREACH_INDEXER(GlobalStringKey, prop, index, arguments.Keys())

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

GlobalStringKey

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

arguments

Keys

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

index

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

GlobalStringKey

prop

;

__foreach_iterator__

(

prop

);

index

++)

{

const

auto

values

arguments

GetByIndex

(

index

);

(

prop

GlobalStringKey

Empty

) {

auto

value

values

[

expression

;

auto

values

[

typeInfo

GetTypeDescriptor

();

Ptr

WfExpression

expr

;

(

CanConvertTo

(

description

GetTypeDescriptor

GuiControl

>())) {

auto

refControl

MakePtr

WfReferenceExpression

>();

refControl

name

value

variableName

ToString

();

auto

refToolstripItems

MakePtr

WfMemberExpression

>();

refToolstripItems

parent

refControl

;

refToolstripItems

name

value

L"ToolstripItems"

;

auto

refAdd

MakePtr

WfMemberExpression

>();

refAdd

parent

refToolstripItems

;

refAdd

name

value

L"Add"

;

auto

call

MakePtr

WfCallExpression

>();

call

function

refAdd

;

call

arguments

Add

(

value

);

expr

call

; }

(

expr

) {

auto

stat

MakePtr

WfExpressionStatement

>();

stat

expression

expr

;

block

statements

Add

(

stat

); } } }

(

block

statements

Count

() >

) {

return

block

; }

return

nullptr

; }

/*********************************************************************** GuiToolstripInstanceLoaderBase ***********************************************************************/

template

typename

TBaseType

class

GuiToolstripInstanceLoaderBase

public

TBaseType

{

private

using

TypeInfo

typename

TBaseType

::TypeInfo;

public

using

ArgumentMap

IGuiInstanceLoader

ArgumentMap

;

using

PropertyInfo

IGuiInstanceLoader

PropertyInfo

;

GuiToolstripInstanceLoaderBase

(

const

WString

_typeName

theme

ThemeName

themeName

Ptr

WfExpression

>(*

_argumentFunction

)(

ArgumentMap

&)) :

TBaseType

(

_typeName

themeName

_argumentFunction

) { }

GuiToolstripInstanceLoaderBase

(

const

WString

_typeName

theme

ThemeName

themeName

) :

TBaseType

(

_typeName

themeName

) { }

void

GetPropertyNames

(

const

TypeInfo

typeInfo

collections

List

GlobalStringKey

propertyNames

)

override

{

propertyNames

Add

(

GlobalStringKey

Empty

);

TBaseType

::GetPropertyNames(

typeInfo

propertyNames

); }

Ptr

GuiInstancePropertyInfo

GetPropertyType

(

const

PropertyInfo

propertyInfo

)

override

{

(

propertyInfo

propertyName

GlobalStringKey

Empty

) {

return

GuiInstancePropertyInfo

CollectionWithParent

(

TypeInfoRetriver

GuiControl

*>::

CreateTypeInfo

()); }

return

TBaseType

::GetPropertyType(

propertyInfo

); }

Ptr

workflow

WfStatement

AssignParameters

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

const

TypeInfo

typeInfo

GlobalStringKey

variableName

ArgumentMap

arguments

GuiResourceTextPos

attPosition

GuiResourceError

List

errors

)

override

{

(

auto

statement

AddControlToToolstrip

(

variableName

arguments

errors

)) {

return

statement

; }

else

{

return

TBaseType

::AssignParameters(

precompileContext

resolvingResult

typeInfo

variableName

arguments

attPosition

errors

); } } };

/*********************************************************************** GuiToolstripMenuInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiToolstripMenu>

class GuiToolstripMenuInstanceLoader : public GuiToolstripInstanceLoaderBase<BASE_TYPE>

class

GuiToolstripMenuInstanceLoader

public

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripMenu

{

public

static

Ptr

WfExpression

ArgumentFunction

(

ArgumentMap

&) {

auto

expr

MakePtr

WfLiteralExpression

>();

expr

value

WfLiteralValue

Null

;

return

expr

; }

public

GuiToolstripMenuInstanceLoader

()

:GuiToolstripInstanceLoaderBase<BASE_TYPE>(description::TypeInfo<GuiToolstripMenu>::content.typeName, theme::ThemeName::Menu, ArgumentFunction)

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripMenu

>>(

description

TypeInfo

GuiToolstripMenu

>::

content

.typeName,

theme

ThemeName

ArgumentFunction

)

{ } };

#undef BASE_TYPE

/*********************************************************************** GuiToolstripMenuBarInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiToolstripMenuBar>

class GuiToolstripMenuBarInstanceLoader : public GuiToolstripInstanceLoaderBase<BASE_TYPE>

class

GuiToolstripMenuBarInstanceLoader

public

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripMenuBar

{

public

GuiToolstripMenuBarInstanceLoader

()

:GuiToolstripInstanceLoaderBase<BASE_TYPE>(description::TypeInfo<GuiToolstripMenuBar>::content.typeName, theme::ThemeName::MenuBar)

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripMenuBar

>>(

description

TypeInfo

GuiToolstripMenuBar

>::

content

.typeName,

theme

ThemeName

MenuBar

)

{ } };

#undef BASE_TYPE

/*********************************************************************** GuiToolstripToolBarInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiToolstripToolBar>

class GuiToolstripToolBarInstanceLoader : public GuiToolstripInstanceLoaderBase<BASE_TYPE>

class

GuiToolstripToolBarInstanceLoader

public

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripToolBar

{

public

GuiToolstripToolBarInstanceLoader

()

:GuiToolstripInstanceLoaderBase<BASE_TYPE>(description::TypeInfo<GuiToolstripToolBar>::content.typeName, theme::ThemeName::ToolstripToolBar)

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripToolBar

>>(

description

TypeInfo

GuiToolstripToolBar

>::

content

.typeName,

theme

ThemeName

ToolstripToolBar

)

{ } };

#undef BASE_TYPE

/*********************************************************************** GuiToolstripGroupContainerInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiToolstripGroupContainer>

class GuiToolstripGroupContainerInstanceLoader : public GuiToolstripInstanceLoaderBase<BASE_TYPE>

class

GuiToolstripGroupContainerInstanceLoader

public

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripGroupContainer

{

public

GuiToolstripGroupContainerInstanceLoader

()

:GuiToolstripInstanceLoaderBase<BASE_TYPE>(description::TypeInfo<GuiToolstripGroupContainer>::content.typeName, theme::ThemeName::CustomControl)

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripGroupContainer

>>(

description

TypeInfo

GuiToolstripGroupContainer

>::

content

.typeName,

theme

ThemeName

CustomControl

)

{ } };

#undef BASE_TYPE

/*********************************************************************** GuiToolstripGroupInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiToolstripGroup>

class GuiToolstripGroupInstanceLoader : public GuiToolstripInstanceLoaderBase<BASE_TYPE>

class

GuiToolstripGroupInstanceLoader

public

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripGroup

{

public

GuiToolstripGroupInstanceLoader

()

:GuiToolstripInstanceLoaderBase<BASE_TYPE>(description::TypeInfo<GuiToolstripGroup>::content.typeName, theme::ThemeName::CustomControl)

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiToolstripGroup

>>(

description

TypeInfo

GuiToolstripGroup

>::

content

.typeName,

theme

ThemeName

CustomControl

)

{ } };

#undef BASE_TYPE

/*********************************************************************** GuiToolstripButtonInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiToolstripButton>

class GuiToolstripButtonInstanceLoader : public BASE_TYPE

class

GuiToolstripButtonInstanceLoader

public

GuiTemplateControlInstanceLoader

GuiToolstripButton

{

protected

GlobalStringKey

_SubMenu

;

public

GuiToolstripButtonInstanceLoader

()

:BASE_TYPE(description::TypeInfo<GuiToolstripButton>::content.typeName, theme::ThemeName::ToolstripButton)

GuiTemplateControlInstanceLoader

GuiToolstripButton

description

TypeInfo

GuiToolstripButton

>::

content

.typeName,

theme

ThemeName

ToolstripButton

)

{

_SubMenu

GlobalStringKey

Get

(

L"SubMenu"

); }

void

GetPropertyNames

(

const

TypeInfo

typeInfo

collections

List

GlobalStringKey

propertyNames

)

override

{

propertyNames

Add

(

_SubMenu

);

BASE_TYPE::GetPropertyNames(typeInfo, propertyNames);

GuiTemplateControlInstanceLoader

GuiToolstripButton

>::

GetPropertyNames

(

typeInfo

propertyNames

);

}

Ptr

GuiInstancePropertyInfo

GetPropertyType

(

const

PropertyInfo

propertyInfo

)

override

{

(

propertyInfo

propertyName

_SubMenu

) {

return

GuiInstancePropertyInfo

Set

(

TypeInfoRetriver

GuiToolstripMenu

*>::

CreateTypeInfo

()); }

return BASE_TYPE::GetPropertyType(propertyInfo);

return

GuiTemplateControlInstanceLoader

GuiToolstripButton

>::

GetPropertyType

(

propertyInfo

);

}

Ptr

workflow

WfExpression

GetParameter

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

const

PropertyInfo

propertyInfo

GlobalStringKey

variableName

GuiResourceTextPos

attPosition

GuiResourceError

List

errors

)

override

{

(

propertyInfo

propertyName

_SubMenu

) {

auto

refControl

MakePtr

WfReferenceExpression

>();

refControl

name

value

variableName

ToString

();

auto

refEnsureToolstripSubMenu

MakePtr

WfMemberExpression

>();

refEnsureToolstripSubMenu

parent

refControl

;

refEnsureToolstripSubMenu

name

value

L"EnsureToolstripSubMenu"

;

auto

call

MakePtr

WfCallExpression

>();

call

function

refEnsureToolstripSubMenu

;

return

call

; }

return BASE_TYPE::GetParameter(precompileContext, resolvingResult, propertyInfo, variableName, attPosition, errors);

return

GuiTemplateControlInstanceLoader

GuiToolstripButton

>::

GetParameter

(

precompileContext

resolvingResult

propertyInfo

variableName

attPosition

errors

);

} };

#undef BASE_TYPE

/*********************************************************************** GuiRibbonToolstripMenuInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiRibbonToolstripMenu>

class GuiRibbonToolstripMenuInstanceLoader : public GuiToolstripInstanceLoaderBase<BASE_TYPE>

class

GuiRibbonToolstripMenuInstanceLoader

public

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiRibbonToolstripMenu

{

public

static

Ptr

WfExpression

ArgumentFunction

(

ArgumentMap

&) {

auto

expr

MakePtr

WfLiteralExpression

>();

expr

value

WfLiteralValue

Null

;

return

expr

; }

public

GuiRibbonToolstripMenuInstanceLoader

()

:GuiToolstripInstanceLoaderBase<BASE_TYPE>(description::TypeInfo<GuiRibbonToolstripMenu>::content.typeName, theme::ThemeName::RibbonToolstripMenu, ArgumentFunction)

GuiToolstripInstanceLoaderBase

GuiTemplateControlInstanceLoader

GuiRibbonToolstripMenu

>>(

description

TypeInfo

GuiRibbonToolstripMenu

>::

content

.typeName,

theme

ThemeName

RibbonToolstripMenu

ArgumentFunction

)

{ } };

#undef BASE_TYPE

/*********************************************************************** GuiRibbonButtonsInstanceLoader ***********************************************************************/

#define BASE_TYPE GuiTemplateControlInstanceLoader<GuiRibbonButtons>

class GuiRibbonButtonsInstanceLoader : public BASE_TYPE

class

GuiRibbonButtonsInstanceLoader

public

GuiTemplateControlInstanceLoader

GuiRibbonButtons

{

protected

GlobalStringKey

_MaxSize

;

GlobalStringKey

_MinSize

;

void

AddAdditionalArguments

(

types

ResolvingResult

resolvingResult

const

TypeInfo

typeInfo

GlobalStringKey

variableName

ArgumentMap

arguments

GuiResourceError

List

errors

Ptr

WfNewClassExpression

createControl

)

override

{

vint

indexMaxSize

arguments

Keys

().

IndexOf

(

_MaxSize

);

vint

indexMinSize

arguments

Keys

().

IndexOf

(

_MinSize

);

(

indexMaxSize

!= -

indexMinSize

!= -

) {

createControl

arguments

Add

(

arguments

GetByIndex

(

indexMaxSize

)

[

expression

);

createControl

arguments

Add

(

arguments

GetByIndex

(

indexMinSize

)

[

expression

); } }

public

GuiRibbonButtonsInstanceLoader

()

:BASE_TYPE(description::TypeInfo<GuiRibbonButtons>::content.typeName, theme::ThemeName::RibbonButtons)

GuiTemplateControlInstanceLoader

GuiRibbonButtons

description

TypeInfo

GuiRibbonButtons

>::

content

.typeName,

theme

ThemeName

RibbonButtons

)

{

_MaxSize

GlobalStringKey

Get

(

L"MaxSize"

);

_MinSize

GlobalStringKey

Get

(

L"MinSize"

); }

void

GetRequiredPropertyNames

(

const

TypeInfo

typeInfo

collections

List

GlobalStringKey

propertyNames

)

override

{

(

CanCreate

(

typeInfo

)) {

propertyNames

Add

(

_MaxSize

);

propertyNames

Add

(

_MinSize

); } }

void

GetPropertyNames

(

const

TypeInfo

typeInfo

collections

List

GlobalStringKey

propertyNames

)

override

{

GetRequiredPropertyNames

(

typeInfo

propertyNames

); }

Ptr

GuiInstancePropertyInfo

GetPropertyType

(

const

PropertyInfo

propertyInfo

)

override

{

(

propertyInfo

propertyName

_MaxSize

propertyInfo

propertyName

_MinSize

) {

auto

info

GuiInstancePropertyInfo

Assign

(

TypeInfoRetriver

RibbonButtonSize

>::

CreateTypeInfo

());

info

usage

GuiInstancePropertyInfo

ConstructorArgument

;

return

info

; }

return

IGuiInstanceLoader

GetPropertyType

(

propertyInfo

); } };

#undef BASE_TYPE

/*********************************************************************** Initialization ***********************************************************************/

void

LoadToolstripControls

(

IGuiInstanceLoaderManager

manager

) {

manager

SetLoader

(

new

GuiToolstripMenuInstanceLoader

);

manager

SetLoader

(

new

GuiToolstripMenuBarInstanceLoader

);

manager

SetLoader

(

new

GuiToolstripToolBarInstanceLoader

);

manager

SetLoader

(

new

GuiToolstripGroupContainerInstanceLoader

);

manager

SetLoader

(

new

GuiToolstripGroupInstanceLoader

);

manager

SetLoader

(

new

GuiToolstripButtonInstanceLoader

);

manager

SetLoader

(

new

GuiRibbonButtonsInstanceLoader

);

manager

SetLoader

(

new

GuiRibbonToolstripMenuInstanceLoader

); } } } }

#endif