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
Left = 784
Top = 337
Left = 804
Top = 227
Align = alClient
Caption = 'fEditorCalendarioBase'
PixelsPerInch = 96

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

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

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

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

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

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

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

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