- Actualización a DevExpress x.38 sin el módulo de skins.
- Limpieza de código para NO usar skins de DevExpress. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@541 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
4feb1db491
commit
f3f230e414
Binary file not shown.
@ -38,12 +38,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
Width = 223
|
Width = 223
|
||||||
end
|
end
|
||||||
@ -56,12 +60,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
Width = 73
|
Width = 73
|
||||||
end
|
end
|
||||||
@ -74,12 +82,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 17
|
TabOrder = 17
|
||||||
Width = 247
|
Width = 247
|
||||||
end
|
end
|
||||||
@ -92,12 +104,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 16
|
TabOrder = 16
|
||||||
Width = 247
|
Width = 247
|
||||||
end
|
end
|
||||||
@ -110,12 +126,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 15
|
TabOrder = 15
|
||||||
Width = 247
|
Width = 247
|
||||||
end
|
end
|
||||||
@ -128,12 +148,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
Height = 75
|
Height = 75
|
||||||
Width = 318
|
Width = 318
|
||||||
@ -147,12 +171,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 12
|
TabOrder = 12
|
||||||
Width = 247
|
Width = 247
|
||||||
end
|
end
|
||||||
@ -165,12 +193,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
Width = 247
|
Width = 247
|
||||||
end
|
end
|
||||||
@ -183,12 +215,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 13
|
TabOrder = 13
|
||||||
Width = 247
|
Width = 247
|
||||||
end
|
end
|
||||||
@ -201,12 +237,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 14
|
TabOrder = 14
|
||||||
Width = 247
|
Width = 247
|
||||||
end
|
end
|
||||||
@ -220,12 +260,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Width = 223
|
Width = 223
|
||||||
end
|
end
|
||||||
@ -239,12 +283,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 223
|
Width = 223
|
||||||
end
|
end
|
||||||
@ -258,12 +306,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Height = 48
|
Height = 48
|
||||||
Width = 223
|
Width = 223
|
||||||
@ -278,13 +330,17 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
Width = 60
|
Width = 60
|
||||||
end
|
end
|
||||||
@ -298,9 +354,13 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 18
|
TabOrder = 18
|
||||||
Height = 249
|
Height = 249
|
||||||
Width = 313
|
Width = 313
|
||||||
@ -316,13 +376,17 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Width = 60
|
Width = 60
|
||||||
end
|
end
|
||||||
@ -338,12 +402,16 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
Width = 100
|
Width = 100
|
||||||
end
|
end
|
||||||
@ -361,14 +429,18 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
@ -380,19 +452,24 @@ inherited frViewEmpresa: TfrViewEmpresa
|
|||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Properties.ImmediateUpdateText = True
|
Properties.ImmediateUpdateText = True
|
||||||
Properties.PostPopupValueOnTab = True
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
Width = 223
|
Width = 223
|
||||||
end
|
end
|
||||||
|
|||||||
@ -10,13 +10,7 @@ uses
|
|||||||
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
|
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
|
||||||
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
|
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
|
||||||
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
|
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
|
||||||
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
|
cxCurrencyEdit, cxGraphics, cxDropDownEdit;
|
||||||
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
|
||||||
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
|
||||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
|
||||||
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
|
|
||||||
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter, cxCurrencyEdit,
|
|
||||||
cxGraphics, cxDropDownEdit;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewEmpresa = interface(IViewBase)
|
IViewEmpresa = interface(IViewBase)
|
||||||
@ -100,6 +94,7 @@ type
|
|||||||
procedure eParamMargenPropertiesValidate(Sender: TObject;
|
procedure eParamMargenPropertiesValidate(Sender: TObject;
|
||||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
private
|
private
|
||||||
FEmpresa: IBizEmpresa;
|
FEmpresa: IBizEmpresa;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
@ -225,6 +220,21 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewEmpresa.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
if not EsCadenaVacia(cbProvincia.Text) and (FProvincias.IndexOfName(cbProvincia.Text) <> -1) then
|
||||||
|
CargarPoblaciones
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewEmpresa.cbProvinciaPropertiesInitPopup(Sender: TObject);
|
procedure TfrViewEmpresa.cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -300,3 +310,4 @@ finalization
|
|||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
| ||||||