Estudio_CGH/ProGestion
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

arreglo de impresion de calendarios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@8 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
This commit is contained in:
roberto 2009-10-07 09:16:56 +00:00
parent ff8a7f6d6c
commit c4fa4b29bd
5 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorCalendarioBase: TfEditorCalendarioBase inherited fEditorCalendarioBase: TfEditorCalendarioBase
Left = 784 Left = 804
Top = 337 Top = 227
Align = alClient Align = alClient
Caption = 'fEditorCalendarioBase' Caption = 'fEditorCalendarioBase'
PixelsPerInch = 96 PixelsPerInch = 96

7
Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas
View File

@ -119,7 +119,12 @@ begin
FViewCitas := Value; FViewCitas := Value;
if Assigned(FViewCitas) then if Assigned(FViewCitas) then
begin
FViewCitas.Calendario.OnBeforeEditing := cxSchedulerBeforeEditing; FViewCitas.Calendario.OnBeforeEditing := cxSchedulerBeforeEditing;
dxComponentPrinter1Link2.Component := FViewCitas.Calendario;
end
else
dxComponentPrinter1Link2.Component := NIL;
end; end;
procedure TfEditorCalendarioBase.FormShow(Sender: TObject); procedure TfEditorCalendarioBase.FormShow(Sender: TObject);
@ -327,7 +332,7 @@ begin
end; end;
dxComponentPrinter1Link2.PrintRange.PrintFrom := FViewCitas.pAnchorDate; dxComponentPrinter1Link2.PrintRange.PrintFrom := FViewCitas.pAnchorDate;
dxComponentPrinter1Link2.PrintRange.PrintTo := FViewCitas.pAnchorDate; dxComponentPrinter1Link2.PrintRange.PrintTo := FViewCitas.pAnchorDate;
// dxComponentPrinter1.Preview(True, nil, nil); dxComponentPrinter1.Preview(True, nil);
end; end;
end; end;

4
Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorCalendarioMediciones: TfEditorCalendarioMediciones inherited fEditorCalendarioMediciones: TfEditorCalendarioMediciones
Left = 529 Left = 250
Top = 184 Top = 139
Width = 800 Width = 800
Height = 646 Height = 646
Caption = 'fEditorCalendarioMediciones' Caption = 'fEditorCalendarioMediciones'

15
Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm
View File

@ -1,12 +1,12 @@
inherited frViewCalendarioBase: TfrViewCalendarioBase inherited frViewCalendarioBase: TfrViewCalendarioBase
Width = 443 Width = 777
Height = 270 Height = 550
Align = alClient Align = alClient
object cxScheduler: TcxScheduler object cxScheduler: TcxScheduler
Left = 0 Left = 0
Top = 0 Top = 0
Width = 443 Width = 777
Height = 270 Height = 550
DateNavigator.RowCount = 2 DateNavigator.RowCount = 2
DateNavigator.ShowWeekNumbers = False DateNavigator.ShowWeekNumbers = False
ViewDay.Active = True ViewDay.Active = True
@ -33,13 +33,12 @@ inherited frViewCalendarioBase: TfrViewCalendarioBase
OptionsView.ShowEventsWithoutResource = True OptionsView.ShowEventsWithoutResource = True
OptionsView.WorkDays = [dMonday, dTuesday, dWednesday, dThursday, dFriday, dSaturday] OptionsView.WorkDays = [dMonday, dTuesday, dWednesday, dThursday, dFriday, dSaturday]
OptionsView.WorkStart = 0.416666666666666700 OptionsView.WorkStart = 0.416666666666666700
OptionsView.WorkFinish = 0.854166666666666800 OptionsView.WorkFinish = 0.854166666666666700
ParentFont = True ParentFont = True
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
Selection = 1
Splitters = { Splitters = {
2C010000FA000000BB010000FF00000027010000000000002C0100000E010000} 7A020000FA00000009030000FF00000075020000000000007A02000026020000}
StoredClientBounds = {0000000000000000BB0100000E010000} StoredClientBounds = {00000000000000000903000026020000}
end end
end end

9
Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.dfm
View File

@ -1,11 +1,14 @@
inherited frViewCalendarioConFiltro: TfrViewCalendarioConFiltro inherited frViewCalendarioConFiltro: TfrViewCalendarioConFiltro
Width = 443
Height = 270
inherited cxScheduler: TcxScheduler inherited cxScheduler: TcxScheduler
Width = 443
Height = 270
OnInitEventImages = cxSchedulerInitEventImages OnInitEventImages = cxSchedulerInitEventImages
ControlBox.Control = pnlVendedores ControlBox.Control = pnlVendedores
EventImages = ImageList1 EventImages = ImageList1
OptionsView.WorkStart = 0.416666666666666700 OptionsView.WorkStart = 0.416666666666666700
OptionsView.WorkFinish = 0.854166666666666800 OptionsView.WorkFinish = 0.854166666666666700
Selection = 1
Splitters = { Splitters = {
2C010000FA000000BB010000FF00000027010000000000002C0100000E010000} 2C010000FA000000BB010000FF00000027010000000000002C0100000E010000}
StoredClientBounds = {0000000000000000BB0100000E010000} StoredClientBounds = {0000000000000000BB0100000E010000}
@ -24,7 +27,7 @@ inherited frViewCalendarioConFiltro: TfrViewCalendarioConFiltro
Left = 0 Left = 0
Top = 18 Top = 18
Width = 143 Width = 143
Height = 416 Height = 271
Align = alClient Align = alClient
Items = <> Items = <>
ParentFont = False ParentFont = False