facade2.mdl

来自「Delphi深度探索,Delphi深度探索（第二版）」· MDL 代码 · 共 2,337 行 · 第 1/5 页

MDL
2,337 行
字号
12345
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@2
			    location   	(409, 1175)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	174
			    justify    	0
			    label      	"Adapter")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EDD6380035F"
			width      	192
			height     	102
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::Session" @3
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(640, 1488)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@3
			    location   	(554, 1447)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	172
			    justify    	0
			    label      	"Session")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EDD63B1025B"
			width      	190
			height     	102
			annotation 	8
			autoResize 	TRUE)
		    (object AssociationViewNew "$UNNAMED$30" @4
			location   	(567, 1351)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD642D014B"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$31" @5
				Parent_View 	@4
				location   	(71, 647)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD642D02BD"
				client     	@4
				supplier   	@3
				line_style 	0)
			    (object RoleView "$UNNAMED$32" @6
				Parent_View 	@4
				location   	(71, 647)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD642D02C7"
				client     	@4
				supplier   	@2
				line_style 	0)))
		    (object ClassView "Class" "Logical View::Dispatcher" @7
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1472, 1184)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@7
			    location   	(1352, 1143)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	240
			    justify    	0
			    label      	"Dispatcher")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EDD63A80212"
			width      	258
			height     	102
			annotation 	8
			autoResize 	TRUE)
		    (object AssociationViewNew "$UNNAMED$27" @8
			location   	(967, 1200)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD642B00B2"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$28" @9
				Parent_View 	@8
				location   	(471, 496)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD642B0333"
				client     	@8
				supplier   	@7
				line_style 	0)
			    (object RoleView "$UNNAMED$29" @10
				Parent_View 	@8
				location   	(471, 496)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD642B0335"
				client     	@8
				supplier   	@2
				line_style 	0)))
		    (object AssociationViewNew "$UNNAMED$48" @11
			location   	(1038, 1341)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD6440006C"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$49" @12
				Parent_View 	@11
				location   	(382, 461)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD644002E3"
				client     	@11
				supplier   	@7
				line_style 	0)
			    (object RoleView "$UNNAMED$50" @13
				Parent_View 	@11
				location   	(382, 461)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD644002EE"
				client     	@11
				supplier   	@3
				line_style 	0)))
		    (object ClassView "Class" "Logical View::Adapter2" @14
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1104, 1520)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@14
			    location   	(1010, 1479)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	188
			    justify    	0
			    label      	"Adapter2")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EDD63A000E4"
			width      	206
			height     	102
			annotation 	8
			autoResize 	TRUE)
		    (object AssociationViewNew "$UNNAMED$33" @15
			location   	(797, 1365)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD642F016C"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$34" @16
				Parent_View 	@15
				location   	(301, 661)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD642F03B1"
				client     	@15
				supplier   	@14
				line_style 	0)
			    (object RoleView "$UNNAMED$35" @17
				Parent_View 	@15
				location   	(301, 661)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD642F03B3"
				client     	@15
				supplier   	@2
				line_style 	0)))
		    (object AssociationViewNew "$UNNAMED$36" @18
			location   	(867, 1503)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD64310291"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$37" @19
				Parent_View 	@18
				location   	(211, 623)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD64310327"
				client     	@18
				supplier   	@14
				line_style 	0)
			    (object RoleView "$UNNAMED$38" @20
				Parent_View 	@18
				location   	(211, 623)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD64310332"
				client     	@18
				supplier   	@3
				line_style 	0)))
		    (object ClassView "Class" "Logical View::UserList" @21
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1488, 1488)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@21
			    location   	(1391, 1447)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	194
			    justify    	0
			    label      	"UserList")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EDD63B8000C"
			width      	212
			height     	102
			annotation 	8
			autoResize 	TRUE)
		    (object AssociationViewNew "$UNNAMED$39" @22
			location   	(1294, 1503)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD643400F1"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$40" @23
				Parent_View 	@22
				location   	(382, 623)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD6434019B"
				client     	@22
				supplier   	@21
				line_style 	0)
			    (object RoleView "$UNNAMED$41" @24
				Parent_View 	@22
				location   	(382, 623)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD643401A5"
				client     	@22
				supplier   	@14
				line_style 	0)))
		    (object AssociationViewNew "$UNNAMED$42" @25
			location   	(1479, 1335)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD64360343"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$43" @26
				Parent_View 	@25
				location   	(279, 455)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD64370073"
				client     	@25
				supplier   	@7
				line_style 	0)
			    (object RoleView "$UNNAMED$44" @27
				Parent_View 	@25
				location   	(279, 455)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD6437007D"
				client     	@25
				supplier   	@21
				line_style 	0)))
		    (object AssociationViewNew "$UNNAMED$45" @28
			location   	(986, 1350)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD643C0156"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$46" @29
				Parent_View 	@28
				location   	(-214, 470)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD643D00A4"
				client     	@28
				supplier   	@2
				line_style 	0)
			    (object RoleView "$UNNAMED$47" @30
				Parent_View 	@28
				location   	(-214, 470)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD643D00AE"
				client     	@28
				supplier   	@21
				line_style 	0)))
		    (object ClassView "Class" "Logical View::客户1" @31
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(656, 272)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@31
			    location   	(656, 432)
			    anchor_loc 	1
			    nlines     	2
			    max_width  	339
			    justify    	0
			    label      	"客户1")
			icon       	"Actor"
			icon_style 	"Icon"
			line_color 	3342489
			quidu      	"3EDD632B00FA"
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::客户2" @32
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1232, 288)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@32
			    location   	(1232, 448)
			    anchor_loc 	1
			    nlines     	2
			    max_width  	351
			    justify    	0
			    label      	"客户2")
			icon       	"Actor"
			icon_style 	"Icon"
			line_color 	3342489
			quidu      	"3EDD633301C4"
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::Facade" @33
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1184, 784)
			font       	(object Font
			    size       	10
			    face       	"Arial"
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@33
			    location   	(1101, 738)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	166
			    justify    	0
			    label      	"Facade")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EDD65A0028F"
			width      	184
			height     	114
			annotation 	8
			autoResize 	TRUE)
		    (object AssociationViewNew "$UNNAMED$60" @34
			location   	(834, 1002)
			font       	(object Font
			    size       	10
			    face       	"Arial"
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EDD65CE0173"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$61" @35
				Parent_View 	@34
				location   	(-350, 218)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD65CE0353"
				client     	@34
				supplier   	@2
				line_style 	0)
			    (object RoleView "$UNNAMED$62" @36
				Parent_View 	@34
				location   	(-350, 218)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EDD65CE035D"
				client     	@34
				supplier   	@33
				line_style 	0)))
		    (object AssociationViewNew "$UNNAMED$63" @37
			location   	(909, 1138)
			font       	(object Font
			    size       	10
			    face       	"Arial"
			    bold       	FALSE
			    italics    	FALSE
12345

facade2.mdl - 源码说明

本页面展示了「Delphi深度探索,Delphi深度探索（第二版）」中的 facade2.mdl 源码文件，采用 MDL 编程语言编写，共 2,337 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?