Archivado/Componentes.Terceros.SDAC
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
fff1b2a4dc
Componentes.Terceros.SDAC/internal/4.10.0.10/1/Demos/Win32/ThirdParty/IntraWeb/IW7/uMasterDetail.dfm
david fff1b2a4dc Importación inicial 
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
2007-10-05 14:48:18 +00:00

1264 lines
31 KiB
Plaintext
Raw Blame History

inherited fmMasterDetail: TfmMasterDetail
Width = 605
Height = 567
OnCreate = IWAppFormCreate
DesignLeft = 8
DesignTop = 8
inherited IWRectangle: TIWRectangle
Width = 582
end
inherited lbPageName: TIWLabel
Left = 495
Width = 97
Caption = 'Master/Detail'
end
object IWRegion1: TIWRegion [7]
Left = 16
Top = 127
Width = 577
Height = 65
Cursor = crAuto
TabOrder = 3
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
65)
object IWRectangle1: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 63
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle1'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object btOpen: TIWButton
Left = 8
Top = 33
Width = 97
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Caption = 'Open'
DoSubmitValidation = True
Color = clBtnFace
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
FriendlyName = 'btOpen'
ScriptEvents = <>
TabOrder = 8
OnClick = btOpenClick
end
object cbLocalMasterDetail: TIWCheckBox
Left = 7
Top = 10
Width = 153
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Caption = 'LocalMasterDetail'
Editable = True
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
ScriptEvents = <>
DoSubmitValidation = True
Style = stNormal
TabOrder = 6
Checked = False
FriendlyName = 'cbLocalMasterDetail'
end
object btClose: TIWButton
Left = 113
Top = 33
Width = 95
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Caption = 'Close'
DoSubmitValidation = True
Color = clBtnFace
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
FriendlyName = 'btClose'
ScriptEvents = <>
TabOrder = 9
OnClick = btCloseClick
end
object cbCachedCalcFields: TIWCheckBox
Left = 167
Top = 10
Width = 151
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Caption = 'CachedCalcFields'
Editable = True
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
ScriptEvents = <>
DoSubmitValidation = True
Style = stNormal
TabOrder = 7
Checked = False
FriendlyName = 'cbCachedCalcFields'
end
object lbResult: TIWLabel
Left = 348
Top = 10
Width = 63
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'lbResult'
Caption = 'lbResult'
RawText = False
end
end
object IWRegion2: TIWRegion [8]
Left = 16
Top = 199
Width = 577
Height = 178
Cursor = crAuto
TabOrder = 1
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
178)
object IWRectangle2: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 176
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle2'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object IWDBNavigator1: TIWDBNavigator
Left = 8
Top = 104
Width = 135
Height = 30
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Confirmations.Delete = 'Are you sure you want to delete this record?'
Confirmations.Post = 'Are you sure you want to update this record?'
Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
DataSource = dsMaster
FriendlyName = 'IWDBNavigator1'
ImageHeight = 21
ImageWidth = 21
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
Orientation = orHorizontal
OnFirst = IWDBNavigator1Refresh
OnPrior = IWDBNavigator1Refresh
OnNext = IWDBNavigator1Refresh
OnLast = IWDBNavigator1Refresh
OnRefresh = IWDBNavigator1Refresh
end
object IWLabel1: TIWLabel
Left = 8
Top = 6
Width = 67
Height = 18
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 12
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel1'
Caption = 'Master'
RawText = False
end
object IWLabel2: TIWLabel
Left = 8
Top = 33
Width = 102
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel2'
Caption = 'MasterFields'
RawText = False
end
object edMasterFields: TIWEdit
Left = 8
Top = 52
Width = 121
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Alignment = taLeftJustify
BGColor = clNone
FocusColor = clNone
DoSubmitValidation = True
Editable = True
NonEditableAsLabel = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
FriendlyName = 'edMasterFields'
MaxLength = 0
ReadOnly = False
Required = False
ScriptEvents = <>
TabOrder = 10
PasswordPrompt = False
Text = 'edMasterFields'
end
object IWDBGrid1: TIWDBGrid
Left = 144
Top = 80
Width = 422
Height = 89
Cursor = crAuto
Anchors = [akLeft, akTop, akRight]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
BorderColors.Color = clNone
BorderColors.Light = clNone
BorderColors.Dark = clNone
BGColor = clSkyBlue
BorderSize = 1
BorderStyle = tfDefault
CellPadding = 0
CellSpacing = 0
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = []
FrameBuffer = 40
Lines = tlAll
UseFrame = True
UseSize = True
ScrollToCurrentRow = False
Columns = <>
DataSource = dsMaster
FooterRowCount = 0
FriendlyName = 'IWDBGrid1'
FromStart = True
HighlightColor = clNone
HighlightRows = True
Options = [dgIndicator, dgShowTitles]
RefreshMode = rmAutomatic
RowLimit = 0
RollOver = False
RowClick = False
RollOverColor = clNone
RowHeaderColor = 12876667
RowAlternateColor = clNone
RowCurrentColor = clMoneyGreen
TabOrder = 28
end
object IWRegion4: TIWRegion
Left = 144
Top = 8
Width = 422
Height = 65
Cursor = crAuto
TabOrder = 0
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clNone
ParentShowHint = False
ShowHint = True
ZIndex = 1000
object meMaster: TIWMemo
Left = 1
Top = 1
Width = 420
Height = 63
Cursor = crAuto
Align = alClient
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
BGColor = clNone
Editable = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
ScriptEvents = <>
InvisibleBorder = False
HorizScrollBar = False
VertScrollBar = True
Required = False
TabOrder = 11
FriendlyName = 'meMaster'
end
end
end
object IWRegion3: TIWRegion [9]
Left = 16
Top = 382
Width = 577
Height = 174
Cursor = crAuto
TabOrder = 2
Anchors = [akLeft, akTop, akRight, akBottom]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
174)
object IWRectangle3: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 172
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle3'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object IWLabel4: TIWLabel
Left = 8
Top = 7
Width = 55
Height = 18
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 12
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel4'
Caption = 'Detail'
RawText = False
end
object IWLabel3: TIWLabel
Left = 8
Top = 33
Width = 93
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel3'
Caption = 'DetailFields'
RawText = False
end
object edDetailFields: TIWEdit
Left = 8
Top = 52
Width = 121
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Alignment = taLeftJustify
BGColor = clNone
FocusColor = clNone
DoSubmitValidation = True
Editable = True
NonEditableAsLabel = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
FriendlyName = 'edDetailFields'
MaxLength = 0
ReadOnly = False
Required = False
ScriptEvents = <>
TabOrder = 12
PasswordPrompt = False
Text = 'edDetailFields'
end
object IWDBGrid2: TIWDBGrid
Left = 144
Top = 81
Width = 422
Height = 85
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
BorderColors.Color = clNone
BorderColors.Light = clNone
BorderColors.Dark = clNone
BGColor = clSkyBlue
BorderSize = 1
BorderStyle = tfDefault
CellPadding = 0
CellSpacing = 0
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = []
FrameBuffer = 40
Lines = tlAll
UseFrame = True
UseSize = True
ScrollToCurrentRow = False
Columns = <>
DataSource = dsDetail
FooterRowCount = 0
FriendlyName = 'IWDBGrid2'
FromStart = True
HighlightColor = clNone
HighlightRows = True
Options = [dgIndicator, dgShowTitles]
RefreshMode = rmAutomatic
RowLimit = 0
RollOver = False
RowClick = False
RollOverColor = clNone
RowHeaderColor = 12876667
RowAlternateColor = clNone
RowCurrentColor = clMoneyGreen
TabOrder = 29
end
object IWRegion5: TIWRegion
Left = 144
Top = 8
Width = 422
Height = 65
Cursor = crAuto
TabOrder = 0
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clNone
ParentShowHint = False
ShowHint = True
ZIndex = 1000
object meDetail: TIWMemo
Left = 1
Top = 1
Width = 420
Height = 63
Cursor = crAuto
Align = alClient
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
BGColor = clNone
Editable = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
ScriptEvents = <>
InvisibleBorder = False
HorizScrollBar = False
VertScrollBar = True
Required = False
TabOrder = 13
FriendlyName = 'meDetail'
end
end
end
inherited rgConnection: TIWRegion
Width = 577
inherited IWRectangle4: TIWRectangle
Width = 575
end
end
object quMaster: TMSQuery
Left = 192
Top = 239
end
object quDetail: TMSQuery
MasterSource = dsMaster
Left = 128
Top = 407
end
object dsMaster: TDataSource
DataSet = quMaster
Left = 224
Top = 239
end
object dsDetail: TDataSource
DataSet = quDetail
Left = 160
Top = 407
end
end
Width = 605
Height = 567
OnCreate = IWAppFormCreate
DesignLeft = 8
DesignTop = 8
inherited IWRectangle: TIWRectangle
Width = 582
end
inherited lbPageName: TIWLabel
Left = 495
Width = 97
Caption = 'Master/Detail'
end
object IWRegion1: TIWRegion [7]
Left = 16
Top = 127
Width = 577
Height = 65
Cursor = crAuto
TabOrder = 3
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
65)
object IWRectangle1: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 63
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle1'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object btOpen: TIWButton
Left = 8
Top = 33
Width = 97
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Caption = 'Open'
DoSubmitValidation = True
Color = clBtnFace
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
FriendlyName = 'btOpen'
ScriptEvents = <>
TabOrder = 8
OnClick = btOpenClick
end
object cbLocalMasterDetail: TIWCheckBox
Left = 7
Top = 10
Width = 153
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Caption = 'LocalMasterDetail'
Editable = True
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
ScriptEvents = <>
DoSubmitValidation = True
Style = stNormal
TabOrder = 6
Checked = False
FriendlyName = 'cbLocalMasterDetail'
end
object btClose: TIWButton
Left = 113
Top = 33
Width = 95
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Caption = 'Close'
DoSubmitValidation = True
Color = clBtnFace
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
FriendlyName = 'btClose'
ScriptEvents = <>
TabOrder = 9
OnClick = btCloseClick
end
object cbCachedCalcFields: TIWCheckBox
Left = 167
Top = 10
Width = 151
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Caption = 'CachedCalcFields'
Editable = True
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
ScriptEvents = <>
DoSubmitValidation = True
Style = stNormal
TabOrder = 7
Checked = False
FriendlyName = 'cbCachedCalcFields'
end
object lbResult: TIWLabel
Left = 348
Top = 10
Width = 63
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'lbResult'
Caption = 'lbResult'
RawText = False
end
end
object IWRegion2: TIWRegion [8]
Left = 16
Top = 199
Width = 577
Height = 178
Cursor = crAuto
TabOrder = 1
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
178)
object IWRectangle2: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 176
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle2'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object IWDBNavigator1: TIWDBNavigator
Left = 8
Top = 104
Width = 135
Height = 30
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Confirmations.Delete = 'Are you sure you want to delete this record?'
Confirmations.Post = 'Are you sure you want to update this record?'
Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
DataSource = dsMaster
FriendlyName = 'IWDBNavigator1'
ImageHeight = 21
ImageWidth = 21
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
Orientation = orHorizontal
OnFirst = IWDBNavigator1Refresh
OnPrior = IWDBNavigator1Refresh
OnNext = IWDBNavigator1Refresh
OnLast = IWDBNavigator1Refresh
OnRefresh = IWDBNavigator1Refresh
end
object IWLabel1: TIWLabel
Left = 8
Top = 6
Width = 67
Height = 18
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 12
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel1'
Caption = 'Master'
RawText = False
end
object IWLabel2: TIWLabel
Left = 8
Top = 33
Width = 102
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel2'
Caption = 'MasterFields'
RawText = False
end
object edMasterFields: TIWEdit
Left = 8
Top = 52
Width = 121
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Alignment = taLeftJustify
BGColor = clNone
FocusColor = clNone
DoSubmitValidation = True
Editable = True
NonEditableAsLabel = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
FriendlyName = 'edMasterFields'
MaxLength = 0
ReadOnly = False
Required = False
ScriptEvents = <>
TabOrder = 10
PasswordPrompt = False
Text = 'edMasterFields'
end
object IWDBGrid1: TIWDBGrid
Left = 144
Top = 80
Width = 422
Height = 89
Cursor = crAuto
Anchors = [akLeft, akTop, akRight]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
BorderColors.Color = clNone
BorderColors.Light = clNone
BorderColors.Dark = clNone
BGColor = clSkyBlue
BorderSize = 1
BorderStyle = tfDefault
CellPadding = 0
CellSpacing = 0
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = []
FrameBuffer = 40
Lines = tlAll
UseFrame = True
UseSize = True
ScrollToCurrentRow = False
Columns = <>
DataSource = dsMaster
FooterRowCount = 0
FriendlyName = 'IWDBGrid1'
FromStart = True
HighlightColor = clNone
HighlightRows = True
Options = [dgIndicator, dgShowTitles]
RefreshMode = rmAutomatic
RowLimit = 0
RollOver = False
RowClick = False
RollOverColor = clNone
RowHeaderColor = 12876667
RowAlternateColor = clNone
RowCurrentColor = clMoneyGreen
TabOrder = 28
end
object IWRegion4: TIWRegion
Left = 144
Top = 8
Width = 422
Height = 65
Cursor = crAuto
TabOrder = 0
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clNone
ParentShowHint = False
ShowHint = True
ZIndex = 1000
object meMaster: TIWMemo
Left = 1
Top = 1
Width = 420
Height = 63
Cursor = crAuto
Align = alClient
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
BGColor = clNone
Editable = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
ScriptEvents = <>
InvisibleBorder = False
HorizScrollBar = False
VertScrollBar = True
Required = False
TabOrder = 11
FriendlyName = 'meMaster'
end
end
end
object IWRegion3: TIWRegion [9]
Left = 16
Top = 382
Width = 577
Height = 174
Cursor = crAuto
TabOrder = 2
Anchors = [akLeft, akTop, akRight, akBottom]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
174)
object IWRectangle3: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 172
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle3'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object IWLabel4: TIWLabel
Left = 8
Top = 7
Width = 55
Height = 18
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 12
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel4'
Caption = 'Detail'
RawText = False
end
object IWLabel3: TIWLabel
Left = 8
Top = 33
Width = 93
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel3'
Caption = 'DetailFields'
RawText = False
end
object edDetailFields: TIWEdit
Left = 8
Top = 52
Width = 121
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Alignment = taLeftJustify
BGColor = clNone
FocusColor = clNone
DoSubmitValidation = True
Editable = True
NonEditableAsLabel = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
FriendlyName = 'edDetailFields'
MaxLength = 0
ReadOnly = False
Required = False
ScriptEvents = <>
TabOrder = 12
PasswordPrompt = False
Text = 'edDetailFields'
end
object IWDBGrid2: TIWDBGrid
Left = 144
Top = 81
Width = 422
Height = 85
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
BorderColors.Color = clNone
BorderColors.Light = clNone
BorderColors.Dark = clNone
BGColor = clSkyBlue
BorderSize = 1
BorderStyle = tfDefault
CellPadding = 0
CellSpacing = 0
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = []
FrameBuffer = 40
Lines = tlAll
UseFrame = True
UseSize = True
ScrollToCurrentRow = False
Columns = <>
DataSource = dsDetail
FooterRowCount = 0
FriendlyName = 'IWDBGrid2'
FromStart = True
HighlightColor = clNone
HighlightRows = True
Options = [dgIndicator, dgShowTitles]
RefreshMode = rmAutomatic
RowLimit = 0
RollOver = False
RowClick = False
RollOverColor = clNone
RowHeaderColor = 12876667
RowAlternateColor = clNone
RowCurrentColor = clMoneyGreen
TabOrder = 29
end
object IWRegion5: TIWRegion
Left = 144
Top = 8
Width = 422
Height = 65
Cursor = crAuto
TabOrder = 0
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clNone
ParentShowHint = False
ShowHint = True
ZIndex = 1000
object meDetail: TIWMemo
Left = 1
Top = 1
Width = 420
Height = 63
Cursor = crAuto
Align = alClient
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
BGColor = clNone
Editable = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
ScriptEvents = <>
InvisibleBorder = False
HorizScrollBar = False
VertScrollBar = True
Required = False
TabOrder = 13
FriendlyName = 'meDetail'
end
end
end
inherited rgConnection: TIWRegion
Width = 577
inherited IWRectangle4: TIWRectangle
Width = 575
end
end
object quMaster: TMSQuery
Left = 192
Top = 239
end
object quDetail: TMSQuery
MasterSource = dsMaster
Left = 128
Top = 407
end
object dsMaster: TDataSource
DataSet = quMaster
Left = 224
Top = 239
end
object dsDetail: TDataSource
DataSet = quDetail
Left = 160
Top = 407
end
end
Reference in New Issue View Git Blame Copy Permalink