|
|
|
|
содержание ..
68
69
70
71 ..
НАБЕРЕЖНОЧЕЛНИНСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ. Список преподавателей (на 31 июля 2023 года) - часть 70
PKG7 E
qrpt70.bpl vclx vcl bdertl dbrtl rtl , q uX,+ D 0 QR3Const
AnsiStringg@HandleFinallyEacdSysInitC g HInstanceF%. 2 Repor&t settings 2
SqrAboutQRAc~vGB %. 6 About &QuickReport 2SqrGetUpdatesAc~vE%. Q For updates, QuickReport add-ons and other components visit us at our web site at 2SqrNoneAc~vI%.
Col header 2 SqrPgFooterAc~vG%. $ Pg footer 2SqrErrorLoadingAc~vǂ%. : Error loading report 2 SqrReportAc~v%. Report 2SqrDesignReportAc~v%. 6 Design of a report 2 SqrCannotAddAc~vǍ%. ^& Cannot add a %s component to a report. 2SqrFileNotExistAc~vG%. 8 File does not exist 2 SqrCompletedAc~v%. &
Completed 2 SqrQRFileAc~v%. 2 QuickReport file 2 SqrIfDescAc~v%. < Returns or depending on the boolean expression 2
SqrStrDescAc~v%. T! Convert a numeric to a string 2 SqrTimeDescAc~v%. P Return current time as a string 2 SqrDateDescAc~v%. P Return current date as a string 2
SqrSumDescAc~v%. : Sums the numeric 2 SqrCopyDescAc~v%. P Returns a substring of string X 2
SqrDivDescAc~v%. N Integer division of by 2 SqrCountDescAc~v%. L Increments for each iteration 2
SqrMaxDescAc~v%. @ Returns the highest 2
SqrMinDescAc~v%. > Returns the lowest 2SqrAverageDescAc~v%. V" Returns the average of numeric 2 SqrBoolDescAc~v²%. , boolean value 2
SqrIntDescAc~vGƲ%. P Returns the integer part of 2 SqrFracDescAc~vɲ%. V" Returns the fractional part of 2 SqrSqrtDescAc~vGͲ%. F
Missing %s 2SqrExpEndStringAc~v9|%. 2 end of string (' 2SqrExpUnknownFunctionAc~vG=z%. < Unknown function : %s 2 SqrExpErrorAc~vAx%. B Error in expression : %s 2SqrExpRecursiveAc~vEv%. H Recursive calls not allowed 2SqrExpTooManyArgsAc~vHt%. 6 Too many arguments 2SqrExpNotEnoughArgsAc~vLr%. : Not enough arguments 2SqrExpWrongArgumentsAc~vPp%. > Wrong arguments for %s 2SqrExpUnknownTypeAc~vTn%. * Unknown type 2SqrExpIncompatibleAc~vXl%. 6 Incompatible types 2SqrTrueAc~v\j%.
SqrRTFFileAc~v %. " RTF File 2SqrWMFExportFilterAc~v
SqrWMFFileAc~v%. " WMF File 2SqrWritingXLSAc~v %. 8 Writing XLS file... .1#$( FinalizationAEa \! c(QR3ConstA !cD P@ i @Qr3const@initialization$qqrvi@Qr3const@Finalization$qqrv i@Qr3const@_SqrWritingXLS i@Qr3const@_SqrWMFFile i @Qr3const@_SqrWMFExportFilter
i@Qr3const@_SqrRTFFile i @Qr3const@_SqrRTFExportFilter i@Qr3const@_SqrDesignAReport i@Qr3const@_SqrInvalidNot i@Qr3const@_SqrSQRTInvalid i"@Qr3const@_SqrInvalidFormatnumeric i@Qr3const@_SqrValueTooBig i @Qr3const@_SqrDivisionByZeroy
:i @Qr3const@_SqrPlainWizardName
i@Qr3const@_SqrExcelFile
@i@Qr3const@_SqrExcel
Bi @Qr3const@_SqrHtmlDocumentForWeb
Di
Fi&@Qr3const@_SqrCommaSeparatedTextFilter
Hi @Qr3const@_SqrCommaSeparated
Ji @Qr3const@_SqrStringsBandName
Li @Qr3const@_SqrStringsBandType
Ni
Pi
Ri@Qr3const@_SqrName
Ti @Qr3const@_SqrEvalNotPrepared
Vi@Qr3const@_SqrFalse
Xi@Qr3const@_SqrTruey
Zi @Qr3const@_SqrExpIncompatibleq
\i @Qr3const@_SqrExpUnknownTypei
^i @Qr3const@_SqrExpWrongArgumentsa
`i @Qr3const@_SqrExpNotEnoughArgsY
bi @Qr3const@_SqrExpTooManyArgsQ
di
fi@Qr3const@_SqrExpErrorA
hi @Qr3const@_SqrExpUnknownFunction9
ji
li@Qr3const@_SqrExpMissing)
ni%@Qr3const@_SqrExpIllegalCharInNumeric!
pi!@Qr3const@_SqrExpUnknownFieldType
ri&@Qr3const@_SqrExpOperatorNotCompatible
ti @Qr3const@_SqrExpDivideByZero
vi@Qr3const@_SqrNotValue
xi@Qr3const@_SqrExpInteger zi@Qr3const@_SqrExpNumeric |i@Qr3const@_SqrExpString ~i@Qr3const@_SqrExpBoolean i@Qr3const@_SqrExpDivide i@Qr3const@_SqrExpMultiply i@Qr3const@_SqrExpSubtract i@Qr3const@_SqrExpAdd i @Qr3const@_SqrExpCannotOperator i@Qr3const@_SqrAboutInfo i@Qr3const@_SqrWizardComment i@Qr3const@_SqrWizardName i@Qr3const@_SqrFinish i @Qr3const@_SqrFormatNumericDesc i@Qr3const@_SqrConverted i@Qr3const@_SqrBusiness i@Qr3const@_SqrNewy i@Qr3const@_SqrPrettyDescq i@Qr3const@_SqrLowerDesci i@Qr3const@_SqrUpperDesca i@Qr3const@_SqrNoCircularY i@Qr3const@_SqrTypeofDescQ i@Qr3const@_SqrSqrtDescI i@Qr3const@_SqrFracDescA i@Qr3const@_SqrIntDesc9 i@Qr3const@_SqrBoolDesc1 i@Qr3const@_SqrAverageDesc) i@Qr3const@_SqrMinDesc! i@Qr3const@_SqrMaxDesc i@Qr3const@_SqrCountDesc i@Qr3const@_SqrDivDesc i@Qr3const@_SqrCopyDesc i@Qr3const@_SqrSumDesci@Qr3const@_SqrDateDesci@Qr3const@_SqrTimeDesci@Qr3const@_SqrStrDesci@Qr3const@_SqrIfDesci@Qr3const@_SqrQRFilei@Qr3const@_SqrCompletedi
9
E
I
M
Q!
U)
Y1
]9
aA
eI
iQ
mY
qa
ui
yq
}y
! ) 1 9 A I Q Y a i q y ! % ) 5a q uX gLength g@LStrLengDec g@UniqueStringA7g@LStrFromChar9%\gCopy g @LStrCopyEagBreak gAssigned gDelete g @LStrDeleteEag @LStrLAsg4gPos g@PosEag@HandleAnyExceptionEag @DoneExceptEag @LStrCat3EagInt g@INTEagFrac g@FRACEagSqrt g@PStrCpy(g@CopyEag @LStrCatNEacdSysInitC cdWindowsC cdSysUtilsC gIntToStri5g
FloatToStr)f Exception|,g
.Exception+gFormatgException.Create`jPgAnsiUpperCasex݄gAnsiPos ܄gStrToIntgDecimalSeparator5ig
StrToFloat)gAnsiLowerCasex݄g LeadBytes(g TimeToStrոgNow_Tg DateToStrոgDate_TgByteType fTMbcsByteType@VDg mbTrailBytesg
mbLeadBytesg FormatFloat6mMgTime_TcdClassesC fTStringsefTList; "f TStringList~8fTFilerelfTReaderdJ;fTWriterڸg .TStringListt
TWordFieldu&g .TWordField\ V f TFloatFieldw_g .TFloatFieldҍfTCurrencyField3g.TCurrencyFieldpf TBCDField';g
.TBCDFieldP fTBooleanFieldFZg.TBooleanField-aqf
TDateFieldg .TDateField> fTDateTimeField ag.TDateTimeField4CgTDataSet.FindField'@"EcdFormsC g Application0ϤgTApplication.GetTitlecdDBTablesC cdQR3Constq uX gSqrTruec~vgSqrFalsec~vg SqrExpErrorc~vg SqrNotValuec~vgSqrExpNumericc~vgSqrExpBooleanc~vgSqrExpUnknownFunctionc~vgSqrExpCannotOperatorc~vg SqrExpAddc~vgSqrExpSubtractc~vg SqrExpStringc~vgSqrExpMultiplyc~vgSqrExpDivideByZeroc~vg SqrExpDividec~vgSqrExpOperatorNotCompatiblec~vgSqrExpUnknownFieldTypec~vg
SqrStrDescc~vg SqrUpperDescc~vg SqrLowerDescc~vgSqrPrettyDescc~vg SqrTimeDescc~vg SqrDateDescc~vg SqrCopyDescc~vg
SqrSumDescc~vg SqrCountDescc~vg
SqrMaxDescc~vg
SqrMinDescc~vgSqrAverageDescc~vg SqrBoolDescc~vg
SqrIntDescc~vg SqrFracDescc~vg SqrSqrtDescc~vg
SqrDivDescc~vgSqrTypeofDescc~vgSqrFormatNumericDescc~vceVariantsC g @VarFromPStrM9g @VarFromInte[g @VarFromRealEag @VarFromBool*2ch
qrpt70.bpl g@Qrexpr@initialization$qqrv g@Qrexpr@Finalization$qqrv gK@Qrexpr@RegisterQRFunction$qqrp17System@TMetaClass17System@AnsiStringt2t2t2 gF@Qrexpr@UpdateConstant$qqrp19Qrexpr@TQREvElementrx18Qrexpr@TQREvResult g7@Qrexpr@TQREvEnvironment@Element$qqr17System@AnsiString g5@Qrexpr@TQREvEnvironment@Value$qqr17System@AnsiString g$@Qrexpr@TQREvEnvironment@Update$qqrv g>@Qrexpr@TQREvEnvironment@DeleteFunction$qqr17System@AnsiString gT@Qrexpr@TQREvEnvironment@SetConstant$qqrp19Qrexpr@TQREvElementrx18Qrexpr@TQREvResult gF@Qrexpr@TQREvEnvironment@SetBooleanConstant$qqrp19Qrexpr@TQREvElemento gD@Qrexpr@TQREvEnvironment@SetFloatConstant$qqrp19Qrexpr@TQREvElementd gF@Qrexpr@TQREvEnvironment@SetIntegerConstant$qqrp19Qrexpr@TQREvElementi gW@Qrexpr@TQREvEnvironment@SetStringConstant$qqrp19Qrexpr@TQREvElement17System@AnsiString gT@Qrexpr@TQREvEnvironment@UpdateConstant$qqr17System@AnsiStringrx18Qrexpr@TQREvResult g;@Qrexpr@TQREvEnvironment@GetConstant$qqr17System@AnsiString g=@Qrexpr@TQREvEnvironment@AddFunction$qqr17System@AnsiStringt1 g&@Qrexpr@TQREvEnvironment@Prepared$qqrv g'@Qrexpr@TQREvEnvironment@Unprepare$qqrv g)@Qrexpr@TQREvEnvironment@GetDatasets$qqrv g8@Qrexpr@TQREvEnvironment@SetDatasets$qqrp13Classes@TList g%@Qrexpr@TQREvEnvironment@Prepare$qqrv g=@Qrexpr@TQREvEnvironment@ReadProperties$qqrp15Classes@TReader g>@Qrexpr@TQREvEnvironment@WriteProperties$qqrp15Classes@TWriter g>@Qrexpr@TQREvEnvironment@DefineProperties$qqrp14Classes@TFiler g#@Qrexpr@TQREvEnvironment@Clear$qqrv g#@Qrexpr@TQREvEnvironment@$bdtr$qqrv g#@Qrexpr@TQREvEnvironment@$bctr$qqrv g'@Qrexpr@TQREvEmbeddedFunction@Peek$qqri g-@Qrexpr@TQREvEmbeddedFunction@Expression$qqrv g(@Qrexpr@TQREvEmbeddedFunction@Reset$qqrv g8@Qrexpr@TQREvEmbeddedFunction@Value$qqrp14Qrexpr@TQRFiFo g(@Qrexpr@TQREvEmbeddedFunction@$bdtr$qqrv g:@Qrexpr@TQREvEmbeddedFunction@$bctr$qqr17System@AnsiString g6@Qrexpr@TQREvElementWrapper@Value$qqrp14Qrexpr@TQRFiFo g;@Qrexpr@TQREvElementWrapper@$bctr$qqrp19Qrexpr@TQREvElement g6@Qrexpr@TQREvaluator@Calculate$qqrx17System@AnsiString g&@Qrexpr@TQREvaluator@SetAggregate$qqro g&@Qrexpr@TQREvaluator@GetAggregate$qqrv g%@Qrexpr@TQREvaluator@GetIsAggreg$qqrv g#@Qrexpr@TQREvaluator@AsVariant$qqrv g#@Qrexpr@TQREvaluator@AsBoolean$qqrv g!@Qrexpr@TQREvaluator@AsFloat$qqrv g#@Qrexpr@TQREvaluator@AsInteger$qqrv g"@Qrexpr@TQREvaluator@AsString$qqrv g%@Qrexpr@TQREvaluator@DoAggregate$qqrv g @Qrexpr@TQREvaluator@Value$qqrv g @Qrexpr@TQREvaluator@Reset$qqrv g#@Qrexpr@TQREvaluator@UnPrepare$qqrv g4@Qrexpr@TQREvaluator@Prepare$qqrx17System@AnsiString g5@Qrexpr@TQREvaluator@Evaluate$qqrx17System@AnsiString g5@Qrexpr@TQREvaluator@EvalTerm$qqrx17System@AnsiString g;@Qrexpr@TQREvaluator@EvalSimpleExpr$qqrx17System@AnsiString g6@Qrexpr@TQREvaluator@EvalFactor$qqr17System@AnsiString g=@Qrexpr@TQREvaluator@EvalFunctionExpr$qqrx17System@AnsiString g9@Qrexpr@TQREvaluator@EvalConstant$qqrx17System@AnsiString g:@Qrexpr@TQREvaluator@EvalFunction$qqr17System@AnsiStringt1 g7@Qrexpr@TQREvaluator@EvalString$qqrx17System@AnsiString g8@Qrexpr@TQREvaluator@EvalVariable$qqr17System@AnsiString g;@Qrexpr@TQREvaluator@EvalEnvironment$qqr17System@AnsiString g;@Qrexpr@TQREvaluator@FindDelimiter$qqr17System@AnsiStringri g7@Qrexpr@TQREvaluator@TrimString$qqrr17System@AnsiString g%@Qrexpr@TQREvaluator@GetDatasets$qqrv g4@Qrexpr@TQREvaluator@SetDatasets$qqrp13Classes@TList g @Qrexpr@TQREvaluator@$bdtr$qqrv g @Qrexpr@TQREvaluator@$bctr$qqrv g4@Qrexpr@TQREvElementError@Value$qqrp14Qrexpr@TQRFiFo g6@Qrexpr@TQREvElementError@$bctr$qqr17System@AnsiString g8@Qrexpr@TQREvElementDataField@Value$qqrp14Qrexpr@TQRFiFo g2@Qrexpr@TQREvElementDataField@$bctr$qqrp9Db@TField g+@Qrexpr@TQREvElementFunction@Calculate$qqrv g+@Qrexpr@TQREvElementFunction@Aggregate$qqrv gA@Qrexpr@TQREvElementFunction@ArgumentOK$qqrp19Qrexpr@TQREvElement g7@Qrexpr@TQREvElementFunction@Value$qqrp14Qrexpr@TQRFiFo g*@Qrexpr@TQREvElementFunction@Argument$qqri g/@Qrexpr@TQREvElementFunction@FreeArguments$qqrv g>@Qrexpr@TQREvElementFunction@GetArguments$qqrp14Qrexpr@TQRFiFo g'@Qrexpr@TQREvElementFunction@$bdtr$qqrv g'@Qrexpr@TQREvElementFunction@$bctr$qqrv g @Qrexpr@TQREvElement@Reset$qqrv g/@Qrexpr@TQREvElement@Value$qqrp14Qrexpr@TQRFiFo g @Qrexpr@TQREvElement@$bctr$qqrv g@Qrexpr@TQRFiFo@Get$qqrv g @Qrexpr@TQRFiFo@GetAndFree$qqrv g(@Qrexpr@TQRFiFo@Put$qqrp14System@TObject g
TQRLibraryQpF%opLessV0H %opLessOrEqualW0H % opGreaterX0H %opGreaterOrEqualY0H %opEqualZ0H % opUnequal[0H
%opPlus\0H %opMinus]0H %opOr^0H %opMul_0H %opDiv`0H %opAnda0H *TQREvOperatorQH%resIntBsJ % resDoubleBsJ % resStringBsJ %resBoolBsJ %resErrorBsJ *TQREvResultTypeQ5J* TQREvResultL&.TQREvResultClassAbN*TQREvResultClassQOP&.TQRFiFoA4R*TQRFiFoQΦrT&.TQREvElementA_OV* TQREvElementQ$X&.TQREvElementFunctionADKZ *TQREvElementFunctionQ/i\*TQREvElementFunctionClass^&.TQREvElementWrapperA7'` *TQREvElementWrapperQPqb&.TQREvEmbeddedFunctionAsd*TQREvEmbeddedFunctionQNf&.TQREvElementArgumentEndAVwhG *TQREvElementArgumentEndQDj}&.TQREvElementDataFieldAGX@l&y*TQREvElementDataFieldQ`ͫnu&.TQREvElementErrorANvpG.q*TQREvElementErrorQg[rm&.TQREvaluatorA`t6i* TQREvaluatorQyvve&.TQREvEnvironmentA nxG=a*TQREvEnvironmentQ(Hz]&.TQRFunctionLibraryAiQ|EY*TQRFunctionLibraryQޜ~U QRFunctionLibraryA~MQ .51$ ArgSeparator$ FGlobalEnvironmentzÂ$ UnpreparingGlobalEnvironment$(QREvResultToStringAd> "AValueL#Resultc(QREvResultToIntAJ "AValueL Resultc(QREvResultToFloatA
c(TQRLibrary.AddAWT!SelfF!aItem>
!ANamef! ADescriptionf !AVendorf!ADataf aLibraryEntryBc(TQRLibrary.GetEntryAW`H B!SelfF!Index ResultB c( TQRFunctionLibrary.GetFunctionAl X!Self~!Namef ResultX I AObject^ aLibraryEntryB c(TQRFiFo.CreateAi`x!SelfT!.c(TQRFiFo.DestroyAi`ڄ!SelfT!. I
c(TQRFiFo.StartAi`ڐ !SelfT c( TQRFiFo.PutAi`ڜ!SelfT !Valuec(TQRFiFo.GetAndFreeAi`ڨV !SelfT Resultc( TQRFiFo.GetAi`ڴL !SelfT Result c(TQREvElement.CreateAHr!SelfX!.c(TQREvElement.ValueAH L!SelfX !FiFoT#ResultLc(TQREvElement.ResetAH!SelfX c&.TQREvElementOperatorA#3
*TQREvElementOperator ( ErrorCreateA6
L!Valuef#ResultLc(#TQREvElementOperator.CreateOperatorAC9
!Self!.f!OpCodeHc('TQREvElementOperator.ConverTQREvResultsAc;
!Self "Res1L"Res2Lc(
7 L!Selff!FiFoT#ResultL Res1fL Res2fLc&.TQREvElementConstantAc
*TQREvElementConstant (#TQREvElementConstant.CreateConstantA
!Self!.!ValuefLc(
* L!Self !FiFoT#ResultLc&.TQREvElementStringA÷
*TQREvElementString ( TQREvElementString.CreateStringAû
!Self!.!Valuefc(TQREvElementString.ValueA
8 L!Self!FiFoT#ResultLc(TQREvElementFunction.CreateAy !Self\!.c( TQREvElementFunction.DestroyAy Z!Self\!.c(!TQREvElementFunction.GetArgumentsAy !Selff\ !FiFofT aArgumentX AResultP
c("TQREvElementFunction.FreeArgumentsAy d!Self\
Ic( TQREvElementFunction.ArgumentAy )X L!Self\!Index#ResultL c(
c( TQREvElementFunction.ArgumentOKAy YZ !Self\ !ValueX Result c( TQREvElementFunction.AggregateAy q!Self\ c( TQREvElementFunction.CalculateAy L!Self\ #ResultLc(!TQREvElementDataField.CreateFieldASϡ!Selfn
!.!aField(c(TQREvElementDataField.ValueATϹ L!Selfn!FiFoT#ResultLc(TQREvElementError.CreateAX !Selfr!.! ErrorMessagefc(TQREvElementError.ValueAY 8 L!Selfr!FiFoT#ResultLc(FlipA#
A!aStringf!af!bf#Result& ParLevel
isString I aCharfc(TQREvaluator.CreateA9}f!Selfv !.c(TQREvaluator.DestroyA9}!Selfv!.c(TQREvaluator.SetDatasetsA~9}1B!Selfv!Value c(TQREvaluator.GetDatasetsA}9}IH !Selfv Result c(TQREvaluator.TrimStringAy9}a!Selfv " strString
intStart intEndc(
FoundDelimf booString intParenteses
c( TQREvaluator.EvalEnvironmentAn9}ؑY L!Selfv! strVariablef#ResultL AElementXc(TQREvaluator.EvalVariableA{9}ة L!Selfv! strVariablef#ResultL SeparatorPos DSNamef FieldNamef aDataSetf& aFieldf( I
.& c(TQREvaluator.EvalStringAs9} L!Selfv! strString
#ResultLc(TQREvaluator.EvalFunctionAz9}q L!Selfv
!strFuncf!strArgb#Result&L DelimPosf aStringf ResfL aFuncXc(TQREvaluator.EvalConstantAt9}q L!Selffv! strConstant#ResultfL N aStringfc( TQREvaluator.EvalFunctionExprAo9} L!Selffv!strFunc#ResultfL argResfL poc(TQREvaluator.EvalFactorAr9}! L!Selfv!strFactorExprf#ResultL aStringf aResultfLc(TQREvaluator.EvalSimpleExprAp9}9!
L!Selffv! strSimplExpr
#ResultfL OpfH intStart intLenf Res1fL Res2fLa n intParentesesf booFound booStringf
booBracketfc(TQREvaluator.EvalTermAq9}Q1
L!Selffv! strTermExpr
#ResultfL OpfH intStart intLenf Res1fL Res2fLa N booStringf booFound
booBracketf intParentesesfc(TQREvaluator.EvaluateAv9}i% L!Selffv!strExpr#ResultfL n
booFound intParentesesf booStringf
booBracketf OpfH intStart intLenf Res1fL Res2fLac(TQREvaluator.PrepareA9}!Selfv!StrExpr ValuefL c(TQREvaluator.UnPrepareA9}ؙ6!Selfvc(TQREvaluator.ResetA9}ر`!Selfv
Ic(TQREvaluator.ValueA9}U L!Selfv#ResultfL Fc(TQREvaluator.DoAggregateA9}X!Selfvc(TQREvaluator.AsStringA9} !Selfv#Result AValuefLc(TQREvaluator.AsIntegerA9} !Selfv Result AValuefLc(TQREvaluator.AsFloatA9}) !Selfv Resultf AValuefLc(TQREvaluator.AsBooleanA9}A !Selfv Result AValuefLc(TQREvaluator.AsVariantA9}YA !Selfv#Result AValuefLc(TQREvaluator.GetIsAggregA|9}q !Selfv Result I
c(TQREvaluator.GetAggregateAu9}؉ !Selfv Result c(TQREvaluator.SetAggregateAx9}ء!Selfv !Valuec(TQREvaluator.CalculateA9}ع@ L!Selfv!StrExpr#ResultLc&
.TQREvTrueA * TQREvTrue & .TQREvFalseA# *
TQREvFalse (TQREvTrue.CalculateA L!Self #ResultLc(TQREvFalse.CalculateA L!Self #ResultLc&.TQREvIfFunctionA *TQREvIfFunction (TQREvIfFunction.CalculateA ! L!Self#ResultLc&.TQREvTypeOfFunctionAC *TQREvTypeOfFunction ( TQREvTypeOfFunction.CalculateA A L!Self#ResultLc&.TQREvIntFunctionAc *TQREvIntFunction (
v2
c&.TQREvStrFunctionAC *TQREvStrFunction (
c&.TQREvFormatNumericFunctionAң *
#ResultLc(TQREvCountFunction.ResetAC !Self c(
!.!AEmbeddedFunctionXc(TQREvElementWrapper.ValueAB\_2 L!Selfb!FiFoT#ResultL
c( TQREvEmbeddedFunction.CreateA =!Selff!.!
Expressionfc( TQREvEmbeddedFunction.DestroyA Z!Selff!.c(TQREvEmbeddedFunction.ValueA 1 L!Selff!FiFoT#ResultLc(TQREvEmbeddedFunction.ResetA I!Selff c( TQREvEmbeddedFunction.ExpressionA a& !Selff#Resultc(
ResultX c(TQREvEnvironment.CreateA !Selfz!.c(TQREvEnvironment.DestroyA! z!Selfz!.c(TQREvEnvironment.ClearA# !Selfz AObject
Ic(!TQREvEnvironment.DefinePropertiesA x!Selfz!Filer c( TQREvEnvironment.WritePropertiesA !Selfz
!Writerf$ Ic( TQREvEnvironment.ReadPropertiesA !!Selffz!Reader" I AStringfc(TQREvEnvironment.PrepareA& !}!Selfz If .fc( TQREvEnvironment.SetDatasetsA 9B!Selfz!Value c( TQREvEnvironment.GetDatasetsA QH !Selfz Result c(
c(TQREvEnvironment.PreparedA. !Selfz Result c( TQREvEnvironment.AddFunctionA" !Selfz!ANamef! AExpressionf .fc( TQREvEnvironment.GetConstantA1 X!Selfz!Namef ResultfX AWrapperfXc( TQREvEnvironment.UpdateConstantA' !Selfz!Namef!ValuefL ElementX c("TQREvEnvironment.SetStringConstantA) !Selfz !ConstantX!Valuefc(#TQREvEnvironment.SetIntegerConstantA* x!Selfz !ConstantX!Value AResultfL c(!TQREvEnvironment.SetFloatConstantA+ !Selfz !ConstantX!Value& AResultfLc(#TQREvEnvironment.SetBooleanConstantA, )x!Selfz !ConstantX!Value AResultfL c( TQREvEnvironment.SetConstantA( A!Selfz !ConstantX!ValuefL c( TQREvEnvironment.DeleteFunctionA$ Y!Selfz!ANamef Ic(TQREvEnvironment.UpdateA% q!Selfz c(TQREvEnvironment.ValueA/ 5 L!Selfz!Namef#ResultfL Indexc(TQREvEnvironment.ElementA0 ) X!Selfz!Namef ResultX Indexc(UpdateConstantAfݳ ! AConstantX!ValuefL c(RegisterQRFunctionA/ŝ9 !FunctionClass>!Namef! Descriptionf!Vendorf! Argumentsfc( FinalizationAEa! c(QRExprA .!cG G BFP 0 , FDescription ,FData ,FItem >,FName ,FVendor (0Data EE 0 Description AA 0Name MM 0Vendor QQ 0Item> II cG FFF ,Entries
, dblResult , strResult, booResultcG PFRa A] ,EvResultLcG TF@i e ,FAggreg ,FiFo , FNextItem .Create/Destroy-Put-Start-Get -
GetAndFree 0Aggreg cG XFJq m , FIsAggreg .Create -Value -Reset0IsAggreg cG \FZyX u
,ArgList -
ArgumentOK -Argument -FreeArguments- GetArguments- Aggregate- Calculate .Create /Destroy-Value cG }\ G bFXX ,FEmbeddedFunction X.Create9-ValueI 0EmbeddedFunctionX cG fF\X ( , Evaluator v, FExpression , FInEvaluate .CreateY/Destroyi-Valueu -Reset-Peek -
Expression cG jF`X cG nF\X ( ,FDataSet &,FFieldNo ,FField ( . CreateField -Value cG rFTX ,FErrorMessage .Create% -Value5 cG vFJ 0 , OwnDataSets , FDataSets ,FiFo T, FPrepared , FEnvironment z(-EvalEnvironment -EvalFunctionExpr Y
-EvalSimpleExpr
-EvalTerm
-
EvalFactor q
-
EvalString
- EvalConstant A
- GetAggregate -Evaluate
-FindDelimiter - SetAggregate -
TrimString - EvalFunction
- EvalVariable - GetIsAggreg - GetDatasets - SetDatasets .Createi /Destroyu - Calculate -ValueU -AsStringm - AsInteger} -AsFloat - AsBoolean - AsVariant -Prepare1 -ResetI - UnPrepareA - DoAggregatee 0 Environmentz ee 0IsAggreg 0 Aggregate 0DataSets 0Prepared aa cG zFR L , PrepareCount `, OwnDataSets h, FDatasets p-DefineProperties-ReadProperties-WriteProperties- GetDatasets - SetDatasets.Create/Destroy- AddFunctionA-Clear"-DeleteFunction-Update-Prepare-UpdateConstanti- SetConstant-SetStringConstant}-SetIntegerConstant-SetFloatConstant-SetBooleanConstant- Unprepare)-Prepared5 -Value -Element - GetConstantU 0Datasets cG ~FVF - GetFunctione cD P@ A G FZX ,FOpCode H-ConverTQREvResults .CreateOperator-Value! cG FZ=X A9 ,FValue L.CreateConstantA-ValueQ cG FVeX a ,FValue . CreateStringi-Valuey cK K G FD \
- Calculate cG FF \
- Calculate cG FP! \
- Calculate% cG FX5 \ 1
- Calculate9 cG FRI \ E
- CalculateM cG FT] \ Y
- Calculatea cG FTq \ m
- Calculateu cG FR \
- Calculate cG FR \
- Calculate cG FV \
- Calculate cG FV \
- Calculate cG FX \
- Calculate cG FT \
- Calculate cG FT \
- Calculate cG FT \
- Calculate! cG Ff9\ 5
- Calculate= cG FRM\ I
, SumResult L , ResAssigned a.Create Q- Aggregatee- Calculateq -Reset]cG FZ }
,Count
,aResult L- Calculate - Aggregate-ResetcG FR\
, MaxResult L , ResAssigned a.Create - Calculate - Aggregate-ResetcG FR\
, MinResult L , ResAssigned a.Create - Calculate - Aggregate-ResetcG FV\
,FCount .Create -Value! -Reset1cH Bj!Index cK D B D D D i@Qrexpr@initialization$qqrvi@Qrexpr@Finalization$qqrv= iK@Qrexpr@RegisterQRFunction$qqrp17System@TMetaClass17System@AnsiStringt2t2t2%iF@Qrexpr@UpdateConstant$qqrp19Qrexpr@TQREvElementrx18Qrexpr@TQREvResulti7@Qrexpr@TQREvEnvironment@Element$qqr17System@AnsiStringi5@Qrexpr@TQREvEnvironment@Value$qqr17System@AnsiStringi$@Qrexpr@TQREvEnvironment@Update$qqrv i>@Qrexpr@TQREvEnvironment@DeleteFunction$qqr17System@AnsiString!iT@Qrexpr@TQREvEnvironment@SetConstant$qqrp19Qrexpr@TQREvElementrx18Qrexpr@TQREvResult%iF@Qrexpr@TQREvEnvironment@SetBooleanConstant$qqrp19Qrexpr@TQREvElemento)iD@Qrexpr@TQREvEnvironment@SetFloatConstant$qqrp19Qrexpr@TQREvElementd-iF@Qrexpr@TQREvEnvironment@SetIntegerConstant$qqrp19Qrexpr@TQREvElementi1iW@Qrexpr@TQREvEnvironment@SetStringConstant$qqrp19Qrexpr@TQREvElement17System@AnsiString}5iT@Qrexpr@TQREvEnvironment@UpdateConstant$qqr17System@AnsiStringrx18Qrexpr@TQREvResulti9i;@Qrexpr@TQREvEnvironment@GetConstant$qqr17System@AnsiStringU=i=@Qrexpr@TQREvEnvironment@AddFunction$qqr17System@AnsiStringt1AAi&@Qrexpr@TQREvEnvironment@Prepared$qqrv5Ei'@Qrexpr@TQREvEnvironment@Unprepare$qqrv)Ii)@Qrexpr@TQREvEnvironment@GetDatasets$qqrv Mi8@Qrexpr@TQREvEnvironment@SetDatasets$qqrp13Classes@TListQi%@Qrexpr@TQREvEnvironment@Prepare$qqrvUi=@Qrexpr@TQREvEnvironment@ReadProperties$qqrp15Classes@TReaderYi>@Qrexpr@TQREvEnvironment@WriteProperties$qqrp15Classes@TWriter]i>@Qrexpr@TQREvEnvironment@DefineProperties$qqrp14Classes@TFilerai#@Qrexpr@TQREvEnvironment@Clear$qqrvei#@Qrexpr@TQREvEnvironment@$bdtr$qqrvii#@Qrexpr@TQREvEnvironment@$bctr$qqrvmi'@Qrexpr@TQREvEmbeddedFunction@Peek$qqriqi-@Qrexpr@TQREvEmbeddedFunction@Expression$qqrvui(@Qrexpr@TQREvEmbeddedFunction@Reset$qqrvyi8@Qrexpr@TQREvEmbeddedFunction@Value$qqrp14Qrexpr@TQRFiFou}i(@Qrexpr@TQREvEmbeddedFunction@$bdtr$qqrvii:@Qrexpr@TQREvEmbeddedFunction@$bctr$qqr17System@AnsiStringYi6@Qrexpr@TQREvElementWrapper@Value$qqrp14Qrexpr@TQRFiFoIi;@Qrexpr@TQREvElementWrapper@$bctr$qqrp19Qrexpr@TQREvElement9i6@Qrexpr@TQREvaluator@Calculate$qqrx17System@AnsiString i&@Qrexpr@TQREvaluator@SetAggregate$qqro i&@Qrexpr@TQREvaluator@GetAggregate$qqrv i%@Qrexpr@TQREvaluator@GetIsAggreg$qqrv i#@Qrexpr@TQREvaluator@AsVariant$qqrv i#@Qrexpr@TQREvaluator@AsBoolean$qqrv i!@Qrexpr@TQREvaluator@AsFloat$qqrv i#@Qrexpr@TQREvaluator@AsInteger$qqrv} i"@Qrexpr@TQREvaluator@AsString$qqrvm i%@Qrexpr@TQREvaluator@DoAggregate$qqrve i @Qrexpr@TQREvaluator@Value$qqrvU i @Qrexpr@TQREvaluator@Reset$qqrvI i#@Qrexpr@TQREvaluator@UnPrepare$qqrvA i4@Qrexpr@TQREvaluator@Prepare$qqrx17System@AnsiString1 i5@Qrexpr@TQREvaluator@Evaluate$qqrx17System@AnsiString
i5@Qrexpr@TQREvaluator@EvalTerm$qqrx17System@AnsiString
i;@Qrexpr@TQREvaluator@EvalSimpleExpr$qqrx17System@AnsiString
i6@Qrexpr@TQREvaluator@EvalFactor$qqr17System@AnsiStringq
i=@Qrexpr@TQREvaluator@EvalFunctionExpr$qqrx17System@AnsiStringY
i9@Qrexpr@TQREvaluator@EvalConstant$qqrx17System@AnsiStringA
i:@Qrexpr@TQREvaluator@EvalFunction$qqr17System@AnsiStringt1
i7@Qrexpr@TQREvaluator@EvalString$qqrx17System@AnsiString
i8@Qrexpr@TQREvaluator@EvalVariable$qqr17System@AnsiString i;@Qrexpr@TQREvaluator@EvalEnvironment$qqr17System@AnsiString i;@Qrexpr@TQREvaluator@FindDelimiter$qqr17System@AnsiStringri i7@Qrexpr@TQREvaluator@TrimString$qqrr17System@AnsiString i%@Qrexpr@TQREvaluator@GetDatasets$qqrv i4@Qrexpr@TQREvaluator@SetDatasets$qqrp13Classes@TList i @Qrexpr@TQREvaluator@$bdtr$qqrvu i @Qrexpr@TQREvaluator@$bctr$qqrvi i4@Qrexpr@TQREvElementError@Value$qqrp14Qrexpr@TQRFiFo5 i6@Qrexpr@TQREvElementError@$bctr$qqr17System@AnsiString% i8@Qrexpr@TQREvElementDataField@Value$qqrp14Qrexpr@TQRFiFo i2@Qrexpr@TQREvElementDataField@$bctr$qqrp9Db@TField i+@Qrexpr@TQREvElementFunction@Calculate$qqrvi+@Qrexpr@TQREvElementFunction@Aggregate$qqrv iA@Qrexpr@TQREvElementFunction@ArgumentOK$qqrp19Qrexpr@TQREvElement!i7@Qrexpr@TQREvElementFunction@Value$qqrp14Qrexpr@TQRFiFo%i*@Qrexpr@TQREvElementFunction@Argument$qqri)i/@Qrexpr@TQREvElementFunction@FreeArguments$qqrv-i>@Qrexpr@TQREvElementFunction@GetArguments$qqrp14Qrexpr@TQRFiFo1i'@Qrexpr@TQREvElementFunction@$bdtr$qqrv5i'@Qrexpr@TQREvElementFunction@$bctr$qqrv9i @Qrexpr@TQREvElement@Reset$qqrv=i/@Qrexpr@TQREvElement@Value$qqrp14Qrexpr@TQRFiFoAi @Qrexpr@TQREvElement@$bctr$qqrvEi@Qrexpr@TQRFiFo@Get$qqrvIi @Qrexpr@TQRFiFo@GetAndFree$qqrvMi(@Qrexpr@TQRFiFo@Put$qqrp14System@TObjectQi
A
Y
q
1 A I U e }m y} u q m i e a ] Y9UIQYMiIuEA=951-)%! )5A Ui}%= 4
z ~ U Y % 5
y q = ! % ) - 1 5 9 U A E I M Q Y Y Y Y Y Y
a a i i i i ځ i ލ i
!i i ]i 5i i q q q q q
y y ! y %! y ! )%a y
% -) y ) 1-% y - 951 y 5 =9I y 9 A= y =} I U ]9 ie" eI mi" i m y Y " i #
u 5# a# # u# A a
% 5 ! %
) 1- -Y
51q 1
95 5
=9 9q
A= =
EA AA
IE E MI
QM M UQ Q YU U ]YM" Y
ea%$ a ie]& e mi( i qm%* m uq , qi }yɭ. yu }0 } 2 U =4 m 6 } 8 : A< > 1 @ I B A D e uF H J L N P -$ m$
E$ % $ # # A }% # &
QRDEFS.INC/{*p QRLablEd.pas* dSystemC gTObject.DispatchGgTObject.NewInstanceGgTObject.FreeInstanceGfStringf
AnsiStringfBooleanW~8gTObject.SafeCallExceptionGgTObject.AfterConstructionGgTObject.BeforeDestructionGgTObject.DefaultHandlerGgTObject.DestroyGg@LStrAsg4g @LStrAddRefj g@LStrClrѨ}g@HandleFinallyEag TObject.FreeGg@LStrArrayClrzYcdSysInitC cdWindowsC cdMessagesC cdSysUtilsC g
FloatToStr)g
StrToFloat)cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`cdGraphicsC fTColorc4Controls Dc4Forms c4Dialogs c4StdCtrls c4ComCtrls c4Mask c4QuickRpt c&.TQRLabelEditorFormA;$8y*TQRLabelEditorFormQ. &u&.TQRLabelEditorAϠ7(@q*TQRLabelEditorQ*m .3,$4QRCtrls c(TQRLabelEditor.GetColorAղ5 !Self* Result c(TQRLabelEditor.GetFontAղ5
!Self* Result
c( TQRLabelEditor.GetPrintableClassAղ5 !Self* Result c( TQRLabelEditor.GetGlyphResNameAղ5$H !Self* #Resultc(TQRLabelEditor.GetValueAղ50& !Self*#Resultc( TQRLabelEditor.GetControlNameAղ5g@LStrArrayClrzYcdSysInitC cdWindowsC cdMessagesC cdSysUtilsC g
FloatToStr)g
StrToFloat)cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`cdGraphicsC cdControlsC gTWinControl.AssignTo.gTWinControl.CanAutoSize.gTWinControl.CanResize.g TWinControl.ConstrainedResize.gTWinControl.CreateHandle.g#TWinControl.CustomAlignInsertBefore.g TWinControl.CustomAlignPosition.gTWinControl.DestroyWnd.gTWinControl.GetClientOrigin.g TWinControl.GetControlExtents.g TWinControl.GetDeviceContext.g TWinControl.SetParentBackground.gTWinControl.ShowControl.gTWinControl.Invalidate.gTWinControl.Repaint.gTWinControl.SetBounds .gTWinControl.Update.gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)fTControlrgTControl.SetText`)gmrOkgTControl.GetTextʅ`)cdFormsC fTFormIf TCustomFormsg.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
.TGroupBox@g.TLabelg.TEdit g
.TCheckBoxug.TButton x;Hg
.TComboBoxȮRcdComCtrlsC cdMaskC f TMaskEditL[g
.TMaskEditgTCustomMaskEdit.SetText^"gTCustomMaskEdit.GetText^"cdQuickRptq uX fTQRPrintableClass+ܪ
gTQRPrintableEditor.CreatevgTQRPrintableSize.GetValueEmdgTQRPrintable.GetTransparentc7gTQRPrintableSize.SetValueFmdgTQRPrintable.SetTransparentd7cdQRLablEdq uX fTQRLabelEditorg.TQRLabelEditorϠ7gTQRLabelEditor.GetColorղ5gTQRLabelEditor.GetFontղ5gTQRLabelEditor.SetColorղ5gTQRLabelEditor.SetFontղ5cdButtonsC f TSpeedButtonMl g.TSpeedButtonceQRCtrlsq uX fTQRExprT
g.TQRExpr;agTQRExpr.SetExpressionJtg TQRCustomLabel.SetAutoStretchܸ8gTQRExpr.SetMaskKtceQRExpBldq uX gGetExpression:ch
qrpt70.bpl g @Qrexpred@initialization$qqrv g@Qrexpred@Finalization$qqrv gE@Qrexpred@TQRExprEditorForm@ShowExprBuilderClick$qqrp14System@TObject g'@Qrexpred@TQRExprEditor@ShowEditor$qqrv g7@Qrexpred@TQRExprEditor@SetValue$qqr17System@AnsiString g+@Qrexpred@TQRExprEditor@GetControlName$qqrv g%@Qrexpred@TQRExprEditor@GetValue$qqrv g,@Qrexpred@TQRExprEditor@GetGlyphResName$qqrv g.@Qrexpred@TQRExprEditor@GetPrintableClass$qqrv g @$xp$22Qrexpred@TQRExprEditor g@Qrexpred@TQRExprEditor@ g!@$xp$26Qrexpred@TQRExprEditorForm g @Qrexpred@TQRExprEditorForm@ c4QRExprEdiif@c4Windows .c4Messages 0c4SysUtils 2c4Classes 8c4Graphics Bc4Controls Dc4Forms c4Dialogs c4StdCtrls c4ComCtrls c4Mask c4QuickRpt c4QRLablEd !c4Buttons =c&.TQRExprEditorFormA1 (.*TQRExprEditorFormQJ*&.TQRExprEditorA
.f*c(&TQRExprEditorForm.ShowExprBuilderClickAJH2!Self*!Sender AValuefc( FinalizationAEaT\! 2c(QRExprEdA `!2cG *
FX z& , GroupBox1 ,Label1 ,Value ,AutoSize ,Stretch! , FontDialog11 ,OKBtn
-SetValue)-
ShowEditor5 cD 0 P@ i @Qrexpred@initialization$qqrvEi@Qrexpred@Finalization$qqrvYIiE@Qrexpred@TQRExprEditorForm@ShowExprBuilderClick$qqrp14System@TObjectIMi'@Qrexpred@TQRExprEditor@ShowEditor$qqrv5Qi7@Qrexpred@TQRExprEditor@SetValue$qqr17System@AnsiString)Ui+@Qrexpred@TQRExprEditor@GetControlName$qqrv Yi%@Qrexpred@TQRExprEditor@GetValue$qqrv]i,@Qrexpred@TQRExprEditor@GetGlyphResName$qqrvai.@Qrexpred@TQRExprEditor@GetPrintableClass$qqrvei @$xp$22Qrexpred@TQRExprEditorii@Qrexpred@TQRExprEditor@mi!@$xp$26Qrexpred@TQRExprEditorFormqi @Qrexpred@TQRExprEditorForm@ull% % % % % % % % % m& )}5yIuYqm! Fb
6 8 : < > @ B D
f5 lj jY a c q uX g@HandleAnyExceptionEag @DoneExceptEagLoadResString! g @LStrCatNEafPointer gFreeMem g@FreeMemg@_lldivEagFillChar gSizeOf g @FillCharxgTObject.DestroyGgInsert g @LStrInsertEagDec cdSysInitC cdMessagesC fTMessage@p .cdWindowsC fTRect$.fHPALETTE"gMulDiv91g SetBkModeJ;g TRANSPARENTg SetTextAlign XgTA_LEFTgTA_TOPgTA_NOUPDATECPgTA_RIGHTg TA_CENTERg
ExtTextOut%()gETO_RTLREADINGgTA_RTLREADINGfgSelectClipRgnD^f PBitmapInfo fDWORD"gSetStretchBltModeJ;gSTRETCH_DELETESCANSftagBITMAPINFOHEADER[c!gStretchDIBits~Q-gDIB_RGB_COLORSgSRCCOPY^fTHandle"gIntersectClipRect/MgGetDCSgSaveDCS?{g
OffsetRect Ug RestoreDC@gSelectPalettecuHgRealizePaletteSg SendMessage1gGetDeviceCapsJ;g
LOGPIXELSX=g
LOGPIXELSY?g
SetMapModeJ;gMM_TEXTcdClassesC fTStringsefTComponentNamefTFilerelfTReaderdJ;fTWriterڸf
TAlignment$Qf
TComponenttgTComponent.UpdateRegistrygTComponent.ValidateRenamegTComponent.WriteStategTComponent.QueryInterfaceg TComponent.BeforeDestructiong TComponent.SafeCallExceptiongTPersistent.AssignN`f TBiDiModenVf
TOperationomJfTList; "gtaCenter~dygtaLeftJustify|dygbdRightToLeft"f TStringList~8g .TStringListt
FloatToStr)cdGraphicsC fTCanvas"FfTColorKjgTCanvas.GetHandle%KjgTPen.SetWidth,
egTCanvas.SetFont+KjgTCanvas.TextHeightPKjg.TPen#g TPen.Create-
eg.TBrush$̱gTBrush.CreateYGgTCanvas.SetPen-KjgTCanvas.SetBrush*KjgTCanvas.RectangleJKjgTCanvas.Ellipse f
TTimeField=g .TTimeField mgTField.GetDisplayLabel~cdDBTablesC cdComCtrlsC fTCustomRichEditPg.TCustomRichEditz^3g TCustomRichEdit.CreateParamstgTCustomRichEdit.CreateWndtg
TQRPrinterngTQRPrinter.GetPaperWidth`gTQRPrinter.GetPaperLength`cdQuickRptq uX f TQRPrintableeg.TQRPrintableLp6gTQRPrintable.IsEnabledh7gTQRPrintable.GetEditorClassi7gTQRPrintable.AlignItj7gTQRPrintable.QRNotificationr7gTQRPrintable.SetBoundst7fTQRPrintableEditorClassrOgTQRPrintable.SetAlignToBandf7gTQRPrintable.GetTransparentc7gTQRPrintable.SetTransparentd7fTQRNotifyOperationONgTQRPrintable.Loadedk7gTQRPrintable.SetParentm7gTQRPrintable.Preparep7gTQRPrintable.SetAlignments7gTQRPrintable.UnPrepareu7gTQRPrintable.Painto7fTQRBand`"gTQRPrintable.Create|7gTQRPrintable.Destroy}7gTCustomQuickRep.TextWidthh gTQRPrintable.GetZoome7g
.TQuickRepFfTCustomQuickRep Jf TQRSubDetailxg.TQRSubDetail_:g TQRSubDetail.AddNotifyClientuogTQuickRep.GetRecordCount8ZgTQuickRep.GetRecordNumber8ZgTQRPrintable.Printq7g.TQRCustomBandAcdQR3Constq uX gSqrNonec~vgSqrTimec~vgSqrDatec~vg SqrDateTimec~vg
SqrPageNumc~vgSqrReportTitlec~vgSqrDetailCountc~vg SqrDetailNoc~vcdQRExprq uX f TQREvaluatoryvf TQREvResultg.TQREvaluator`gTQREvaluator.Create9}gTQREvaluator.Value9}fTQREvResultType5gresErrorBsgTQREvaluator.Reset9}gTQREvaluator.DoAggregate9}gTQREvaluator.SetDatasets~9}gTQREvaluator.Prepare9}gTQREvaluator.GetIsAggreg|9}gTQREvaluator.UnPrepare9}gresIntBsg resStringBsg resDoubleBsgresBoolBsgTQREvaluator.EvalFunctionz9}gTQREvaluator.EvalVariable{9}gTQREvaluator.Destroy9}ceQRLablEdq uX fTQRLabelEditorg.TQRLabelEditorϠ7ceQRExprEdq uX ch
qrpt70.bpl g @Qrctrls@initialization$qqrv g
e &
.TQRDBTextA?a * TQRDBTextQ Nު] &.TQRExprA;aFY *TQRExprQT
U %qrsTimes>ٰ %qrsDates>ٰ % qrsDateTimes>ٰ %qrsPageNumbers>ٰ %qrsReportTitles>ٰ %qrsDetailCounts>ٰ
% qrsDetailNos>ٰ *TQRSysDataTypeQ/0Q & .TQRSysDataA7|GQM *
TQRSysDataQߩeI % qrsRectangleX=gD % qrsCircleY=gD % qrsVertLineZ=gD %
qrsHorLine[=gD %qrsTopAndBottom\=gD %qrsRightAndLeft]=gD
* TQRShapeTypeQ E & .TQRShapeAXu픸G\A *TQRShapeQqz= & .TQRImageA=Bc9 *TQRImageQ¯ 5 & .TQRDBImageANi1 *
TQRDBImageQs- & .TQRRichEditAsq) * TQRRichEditQq% &.TQRCustomRichTextAz4Gx! *TQRCustomRichTextQ@R & .TQRRichTextAPbG * TQRRichTextQ &.TQRDBRichTextAJ4WЇ *TQRDBRichTextQct &
.TQRMergerA * TQRMergerQ H & .TQRExprMemoA * TQRExprMemoQQ%qrcSumB %qrcCountC %qrcMaxD %qrcMinE %
qrcAverageF *TQRCalcOperationQ[&
.TQRDBCalcA>~G* TQRDBCalcQWA .71C$4QRLablEd c4QRExprEd c'
BreakChars$(OkToChangeFieldAlignmentAcX!AFieldV ! Alignment, Result c(QRDBUseRightToLeftAlignmentA#e^!AControl<
!AFieldV Result
AAlignment,c(TQRCustomLabel.CreateA8 u!Self!.!AOwner.c(TQRCustomLabel.DestroyA8 v!Self!.c(#TQRCustomLabel.GetControlsAlignmentA8 ,!Self Result, c(TQRCustomLabel.GetCaptionAڸ8$, !Self#Resultc( TQRCustomLabel.GetCaptionBasedA۸80 !Self Result c( TQRCustomLabel.DefinePropertiesA縚8<!Self!Filer&c(TQRCustomLabel.ReadFontSizeA踚8H,!Self!Reader(c( TQRCustomLabel.WriteFontSizeA鸚8T4!Self!Writer*c(TQRCustomLabel.LoadedA业8`@!Selfc( TQRCustomLabel.CMFontChangedA⸚8l:!Self"Messagec(TQRCustomLabel.PrepareA븚8x!Selfc(TQRCustomLabel.UnprepareA츚8 !Self cj(
aLineWidthA#yU
!Linef Result
c( FlushLineA}N c(AddWordA# !aWordfc(AddLineAcA !Linef aPos
c(FormatFromCaptionA c(FormatFromStringListA J
ck(
Jf
NewLinef LineFinishedf HasParentf MaxLineWidthf
AAlignmentf,c(TQRCustomLabel.SetLinesA8<!Self!Value"c( TQRCustomLabel.PaintToCanvasAบ8A !Self!aCanvasfB!aRectf! CanExpand&!
LineHeight&
I
StartXf
StartYf
Capf VPosf
Flagsf
AAlignmentf,c& .TQRFixFrame * TQRFixFrame j(CanPrintAC Result PrevTopf c( PrintLineA !
LineNumber
ck( TQRCustomLabel.PrintToCanvasAḚ8!Selff!aCanvasfB!aLeftf p!aTopf X!aWidthf @!aHeightf (!
LineHeightf ! CanExpandf aRectf ControlBottomf Xf Yf SavedCaptionfq
NewCaptionfa HasSavedf] HasExpandedf Flagsf
TAFlags
AAlignmentf,
AFExpandedf OrgWidthf !c(TQRCustomLabel.PaintA긚8!Selfc(TQRCustomLabel.PrintA8!Self!OfsX
!OfsYf
aCanvasB .~ c( TQRCustomLabel.SetAutoStretchAܸ8!Self !Valuec(TQRCustomLabel.SetCaptionAݸ8!Self!Valuefc(TQRCustomLabel.SetNameA帚8!Self!Value$c(TQRCustomLabel.SetParentA渚8,!Self!AParent:c(TQRCustomLabel.SetAlignmentA8 !Self !Value,c(
!OfsY
c(TQRDBText.CreateA!Self!.!AOwner.c(TQRDBText.SetDataSetA"!Self !ValueXc(TQRDBText.GetCaptionBasedA !Self Result c(TQRDBText.SetDataFieldA!Self!Valuefc(TQRDBText.LoadedA!Self
aComponent.c(TQRDBText.NotificationA Z!Self!
AComponent.
! Operation2c(TQRDBText.SetMaskA1!Self!Valuefc(TQRDBText.PrepareA
Im!Selfc(TQRDBText.PrintA a!Selff!OfsXf
!OfsYf
c(TQRDBText.UnprepareA yl!Selfc(!TQRDBText.UseRightToLeftAlignmentA !Self Result c(TQRExpr.CreateAQt!Self!.!AOwner.c(TQRExpr.DestroyARt`!Self!.c(TQRExpr.GetValueAItJ !Self#Resultc(TQRExpr.ResetASt!Self c(TQRExpr.SetMasterAPt !Self !
AComponent.c(TQRExpr.QRNotificationANt!D!Self!Sender! Operationc(TQRExpr.PrepareALt9!Selfc(TQRExpr.UnprepareAMtQb!Selfc(TQRExpr.PrintAOti!Self!OfsX
!OfsY
aValuefc(TQRExpr.SetExpressionAJt!Self!Valuefc(TQRExpr.SetMaskAKt!Self!Valuefc(TQRSysData.CreateAlS!Self!.!AOwner.c(TQRSysData.PrintAlS!Self!OfsX
!OfsY
c(TQRSysData.CreateCaptionAlS!Selfc(TQRSysData.SetDataAlS!Self !Valuec(TQRSysData.SetTextAlS!Self!Valuefc(TQRShape.CreateAjh)Y!Self!.f!AOwner.c(TQRShape.StyleChangedAihA !Self !senderc(TQRShape.SetShapeAfhY(!Self !Valuec(TQRShape.SetBrushAdhq!Self !ValueHc(TQRShape.SetPenAeh։!Self !ValueJc(TQRShape.PaintAgh֡!Self .Bc(TQRShape.PrintAhhֹ !Self!OfsX
!OfsYf
.~ .B
c(TQRShape.DestroyAkhv!Self!.c( PrintBitmapAca !aCanvasfB!Destf!BitmapP Infof
!OfsY
Destf DC SavedDCf .B c(TQRImage.GetCanvasArBa B!Selff ResultB BitmapfPc(TQRImage.SetAutoSizeArBy !Self !Valuec(TQRImage.SetCenterArB,!Self !Valuec(TQRImage.SetPictureArB !Self!ValueLc(TQRImage.SetStretchArB,!Self !Valuec(TQRImage.PictureChangedArB!Self!Senderc(TQRDBImage.CreateA61!Self!.f!AOwner.c(TQRDBImage.DestroyA6 `!Self!.c(TQRDBImage.PrepareA6!!Selfc(TQRDBImage.PrintA69Q!Selff!OfsXf
!OfsYf
Hf
Destf DrawPictfL .fB .B c(TQRDBImage.UnPrepareA6Q !Self c(TQRDBImage.SetDataSetA6i"!Self !ValueXc(TQRDBImage.SetDataFieldA6,!Self!Valuec(TQRDBImage.GetPaletteA6` !Self Resultc(TQRDBImage.SetCenterA6(!Self !Valuec(TQRDBImage.SetPictureA6 !Self!ValueLc(TQRDBImage.SetStretchA6(!Self !Valuec(TQRDBImage.PaintA61!Self W
Hf
Rf Sf .Bc(TQRDBImage.PictureChangedA6
!
AComponent.! Operation2c(TQRDBImage.LoadPictureA6Ah!Selfc(TQRCustomRichText.CreateA.vYa!Self!.f!AOwner.c(TQRCustomRichText.DestroyA.vq`!Self!.c(&TQRCustomRichText.GetControlsAlignmentA.v
!RenderIt Result
ck(TQRCustomRichText.PrintA.v !Self!OfsXf
!OfsYf
Rangefz LogX
LogY
TextLength
HasExpandedf
OldMapModef
ARichEditfv Expandedf c( TQRCustomRichText.SetAlignmentA.v !Self !Value,c(
!ATopf
!AWidth
!AHeight
c(
AComponent.
! Operation2c(TQRDBRichText.PrepareAXi !Selfc(TQRDBRichText.PrintAZi !Self!OfsX
!OfsY
c(TQRDBRichText.UnprepareAYi
!Self c&.TMemoEvaluatorAc*TMemoEvaluator (TQRMerger.CreateA !
!Self!.c(TQRMerger.DestroyA 9
!Self!.c(TQRMerger.GetOrgLinesA Q
"!Self Result" c(TQRMerger.GetMergedLinesA i
0!Self!Value"c(TQRMerger.PrepareA
A!Selff If
start
stop
Len
Exprf aLinef
aEvaluatorc(TQRMerger.UnprepareA
A!Selff I
c(TQRMerger.MergeA
!Self If
aResultf Replacementf aLinef .c(TQRExprMemo.CreateAm9
x!Self!.!AOwner.c(TQRExprMemo.GetCaptionBasedAm9
!Self Result c(TQRExprMemo.PrepareAm9 !Selfc(TQRExprMemo.UnprepareAm9) ~!Selfc(TQRExprMemo.PrintAm9A }!Self!OfsXf
!OfsYf
I
Jf
c(TQRExprMemo.PaintAm9Y !Selfc(TQRDBCalc.GetPrintMaskAK"q , !Self#Resultc(TQRDBCalc.SetDataFieldAL" !Self!Valuefc(TQRDBCalc.SetOperationAM" !Self!Valuec(TQRDBCalc.SetPrintMaskAN" !Self!Valuefc( FinalizationAEa \! c(QRCtrlsA !cH j!sender "Value cG FP ~ & ,FCaptionBased ,
DoneFormat , FAutoSize , FAutoStretch ,FCaption , FCurrentLine
! ,FPrintCaption 1 , FFontSize
A ,FFormattedLines "Q ,FLines "a ,FOnPrint , FWordWrap ,UpdatingBounds -
GetCaption -GetCaptionBasedv -SetAutoStretch -
SetCaption -SetLines - SetWordWrap -PaintToCanvas -PrintToCanvas -CMFontChangedsM - FormatLinesx -LoadedE -SetName - SetParent4 -DefineProperties! - ReadFontSizez- -WriteFontSize|9 -Paintdq -PreparelY - Unprepareta -Printny - SetAlignmentr 0OnPrint .Create
/Destroy
-GetControlsAlignment
0 CaptionBased 0 Alignment 0AutoSize 0 AutoStretch 0Caption 0Color W 0Font 0Lines" 0WordWrap cG EF ~6& -GetEditorClassh 0 Alignment 0 AlignToBand 0AutoSize 0 AutoStretch " 0BiDiMode $ 0ParentBiDiMode & 0Caption ( 0Color * W 0Font , 0OnPrint . 0
ParentFont 0 0 Transparent 2 0WordWrap 4 cG AF5 ~4& -GetCaptionBasedv -Paintd -Printn 0 Alignment 0 AlignToBand 0AutoSize 0 AutoStretch " 0BiDiMode $ 0ParentBiDiMode & 0Color ( W 0Font * 0Lines , 0
ParentFont . 0 Transparent 0 0WordWrap 2 cG F
~:& ,ComboBox @ ,Field V ,FieldNo
,FieldOK ,DataSourceName ,FDataSet Xq
,
FDataField
,FMask
,IsMemo
-
SetDataSet - SetDataField 1-SetMask Y-GetCaptionBasedv% -Loaded=- NotificationI-Preparele-Printnm- Unpreparet}.Create -UseRightToLeftAlignment 0 Alignment 0 AlignToBand 0AutoSize 0 AutoStretch " 0BiDiMode $ 0ParentBiDiMode & 0Color ( W 0DataSetX* 0 DataField, 1 0Font . 0Mask0 Y 0OnPrint 2 0
ParentFont 4 0 Transparent 6 0WordWrap 8 cG Fy !
~<& , Evaluator , FExpression ,FMask ,FMaster . ,FResetAfterPrint
-GetValue -SetExpression -SetMask -Preparel- Unpreparet-QRNotificationp-Printn- SetMaster.Create/Destroy-Reset0Value 0 Alignment 0 AlignToBand 0AutoSize 0 AutoStretch " 0BiDiMode $ 0ParentBiDiMode & 0Font ( 0Color * W 0Master., q 0OnPrint . 0
ParentFont 0 0ResetAfterPrint2 uu 0 Transparent 4 0WordWrap 6 0
Expression8 i 0Mask: m cC
G F %
!
~4& ,FData ,FText -SetData A-SetText M-CreateCaption 9-Printn).Create0 Alignment 0 AlignToBand 0AutoSize 0BiDiMode " 0ParentBiDiMode $ 0Color & W 0Data( A 0Font * 0OnPrint , 0
ParentFont . 0Text0 M 0 Transparent 2 cCA
)
G FI
A E
v"& ,FShape ,FBrush H ,FPen J! -SetBrush -SetPen -SetShape u-Paintd-Printn- StyleChangedi.CreateY/Destroy0BrushH 9 0Height
0PenJ = 0Shape 5u 0Width cG %FQ
! M
v$& ,FPicture L , FAutoSize ,FStretch ,FCenter - GetCanvas I -PictureChanged - SetAutoSize Y- SetCenter e-
SetPicture q-
SetStretch }-
GetPalette -Paintd-Printn).Create/Destroy0CanvasB I 0AutoSize yY 0Center e 0PictureL uq 0Stretch" }} cG uFY
a U
v$& ,FField V ,FDataSet X ,
FDataField ! ,FPicture L1 ,FStretch A ,FCenter E ,FPictureLoaded I -PictureChanged I- SetCenter - SetDataField -
SetDataSet -
SetPicture -
SetStretch !-
GetPalette - NotificationU-Paintd--Preparel-Printn- UnPreparet.Create/Destroy- LoadPicturee0FieldV 0PictureL 0Center 0 DataField 0DataSetX 0Stretch" ! cG AFJa
v !
]
|& 0 BorderStyle cG IFi
A e
v$& ,LastChar
, FAutoStretch ,FParentRichEdit x! , FRichEdit 1 - GetAlignment -GetColor -GetFont -GetLines - SetAlignmentr-SetColor -SetFont -SetLines =-SetParentRichEdit I0Lines" = 0ParentRichEditx AI -Printn- SetBoundsB%.Createm/Destroy}-GetControlsAlignment 0 Alignment, Y 0 AutoStretch == 0ColorD 0FontF" cG Fq
A m
v(& 0Lines $ 0ParentRichEdit & cG aFy
u
v(& ,Field VA ,
FDataField Q ,FDataSet Xa - Notificationa-
SetDataSetU-Preparelq- Unpreparet-Printny0 DataField$ 0DataSetX& U cG ֬FF
8}
, FOrgLines ",FStrippedLines ", FMergedLines ",FMerged , FPrepared ", Expressions 4(, FDataSets 40- GetOrgLines -GetMergedLines - SetOrgLines.Create/Destroy-Prepare-Merge- Unprepare0Lines" 0 MergedLines" 0Merged 0Prepared 0DataSets4 cG QF
~2& ,Merger ,FRemoveBlankLines -GetCaptionBasedv1 -Preparel=- UnpreparetE-PrintnM-Paintde.Create!0RemoveBlankLines 0 Alignment 0 AlignToBand 0AutoSize " 0 AutoStretch $ 0Color & W 0Font ( 0Lines * 0
ParentFont , 0 Transparent . 0WordWrap 0 cCQ
G F}
a
~F& ,
FDataField !
, FDataSource Z1
,
FOperation A
,
FResetBand Q
- GetPrintMaskm - SetDataFieldy- SetOperation- SetPrintMask0 DataField< ey 0
DataSourceZ> ii 0OnPrint . 0 Operation@ m 0
ParentFont 0 0 PrintMaskB m 0 ResetBandD qq cD PJ @ @ A G FJ 0 cE G FP @ ,Line
0,Position
8cK > D a
@ y B A D F
H
J
= L N P R T V X Z \ ^ u
M Q U ] a i m q
1 9 Y % %
a iei e mi i qm m yu u }y5 y } } U
%
!%
)%
-A 51}%
1M 95%
59 =9E%
9) EA%
A MI%
I%
Q%
U%
Y%
a%
e%
q%
u%
y%
" }%
$ %
& A
)
-
1
5
9
=
I
I
I
I
I
-I
u I
AI
I
i I
Y I
m
I
I
I
I
Q
Q
Q
Q
Q
I Q
] Q
Y ! Q
e %! Q
!q )%% Q
%} -)9 Q
) 51UQ
1 95qQ
5) =9Q
A IE=Q
EQ
IQ
" QQ
$ UQ
& YQ
( ]Y
mY
uY
yY
}Y
Y
Y
Y
I Y
Q Y
! Y
Y
u Y
! Y
U % Y
- Y
Y
" Y
$ Y
& Y
( Y
* e A Y
, Y
. Y
0 Y
2 Y
4 Y
6 Y
8 a
a
i
i
!i
%i
)i
- 51 i
1 95 i
5 =9 i
9 A= !i
= EAI"i
A IE]"i
E MIq"i
I= QM"i
MI UQ"i
Yi
] ea !i
a% ie"i
" em qme i
$ m} yq i
& q y i
( yi
* i
, i
. i
0 q
q
q
y
y
y
y
a "y
U "y
q #y
u#y
y Q#y
y
y
! -)$
) 1-$
- 515$
1 =9#
9 A=#
= EAQ$
E MI$
I
M
" Q
$ U
& Y
( ]
i
q
u1 }%
}= %
E %&
M I&
e &
! %
"
$
&
m &
y &
'
9'
%
) M'a ?' q uX e, FPrintToFile i, FPrintRange @m,FMinPage
q,FMaxPage
,FCopies
- SetNumCopies -Execute 0Collate }} 0Copies
0FromPage
uu 0MinPage
0MaxPage
0Options> 0 PrintToFile 0
PrintRange@
yy cD X P@ A \ H %j"
DialogDataZ cE ZL @
L @ hL A jD X >D X =i @Qrprnsu@initialization$qqrv i
H= J= L= N RP= P TR= R VT1= T ZX= X \Z=
] EM A M M M U U ] ] ] ] ] ]
] ] ] ] ] ] ] ]
QRDEFS.INC/{*p qrabout.pas * dSystemC fTObject_gTObject.DispatchGgTObject.NewInstanceGgTObject.FreeInstanceGgLoadResString! fStringf
AnsiStringg@LStrClrѨ}g@HandleFinallyEaf PAnsiCharrugcdSysInitC cdWindowsC gSW_SHOWcdMessagesC cdSysUtilsC cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`cdGraphicsC cdControlsC gTWinControl.AssignTo.gTWinControl.CanAutoSize.gTWinControl.CanResize.g TWinControl.ConstrainedResize.gTWinControl.CreateHandle.g#TWinControl.CustomAlignInsertBefore.g TWinControl.CustomAlignPosition.gTWinControl.DestroyWnd.gTWinControl.GetClientOrigin.g TWinControl.GetControlExtents.g TWinControl.GetDeviceContext.g TWinControl.SetParentBackground.gTWinControl.ShowControl.gTWinControl.Invalidate.gTWinControl.Repaint.gTWinControl.SetBounds .gTWinControl.Update.gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)gTControl.SetText`)gTControl.SetCursor`)g crHandPointaL\gTWinControl.GetHandle .cdFormsC fTFormIg.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
qrpt70.bpl g @Qrabout@initialization$qqrv g
QuSoftPage
. www.qusoft.com c( FinalizationAEa$\!
z& ,Image1 ,Button1 ,Label1 ,Label2 ,
VisitLabel! ,Label31 ,Bevel1A ,Label5Q ,Image2 a - Button3Click!-
FormCreate-- Label3Click9cD P@ i @Qrabout@initialization$qqrvy i
p r t v x! |z z- ~| |9 ~ ~I a R+ q uX @ B D F
AnsiStringfBooleanW~8gTObject.DispatchGgTObject.NewInstanceGgTObject.FreeInstanceGg@LStrArrayClrzYg@HandleFinallyEagLoadResString! g TObject.FreeGgFalsegTrueg@LStrAsg4cdSysInitC cdWindowsC cdMessagesC cdSysUtilsC gAnsiUpperCasex݄cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`cdGraphicsC cdControlsC gTWinControl.AssignTo.gTWinControl.CanAutoSize.gTWinControl.CanResize.g TWinControl.ConstrainedResize.gTWinControl.CreateHandle.g#TWinControl.CustomAlignInsertBefore.g TWinControl.CustomAlignPosition.gTWinControl.DestroyWnd.gTWinControl.GetClientOrigin.g TWinControl.GetControlExtents.g TWinControl.GetDeviceContext.g TWinControl.SetParentBackground.gTWinControl.ShowControl.gTWinControl.Invalidate.gTWinControl.Repaint.gTWinControl.SetBounds .gTWinControl.Update.gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)f TWinControl'AgTControl.SetVisible`)gTControl.BringToFront`)gTControl.GetTextʅ`)gTControl.SetText`)cdFormsC fTFormIg.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
.TGroupBox@g.TRadioButtonLg.TLabelg.TEdit cdButtonsC f TSpeedButtonMl g.TSpeedButtoncdQR3Constq uX gSqrNamec~vgSqrExpressionc~vceQRExpBldq uX gGetExpression:ch
qrpt70.bpl g @Qrenved@initialization$qqrv g
!ParentControl
.f$c('TQREnvironmentEditor.VariableOKBtnClickA᪻T(!Self$ !Senderc(TQREnvironmentEditor.GetNewA못`y
!Self$"AName"AExpr
Result
c("TQREnvironmentEditor.NewOKBtnClickA⪻l(!Self$ !Senderc(&TQREnvironmentEditor.NewCancelBtnClickA㪻x(!Self$ !Senderc( TQREnvironmentEditor.AddBtnClickA䪻(!Self$!Sender NewNamef NewExprfc(&TQREnvironmentEditor.SpeedButton1ClickA媻 (!Self$!Sender ANamef AExprfc(#TQREnvironmentEditor.FormCloseQueryA檻(!Self$ !Sender"CanClose
c( FinalizationAEa\! (c(QREnvEdA !(cG $ F\ !z& ,VariableOKBtn , AvailableGB ,UDFGrid , DeleteBtn ,EditBtn! ,AddBtn1 ,LocalCB
NewEntryGBa ,Label1 q ,Label2 ,Name ,
Expression , SpeedButton1 ,NewOKBtn , NewCancelBtn -
FormCreate-UDFGridSetEditText- EditBtnClick- LocalCBClick-VariableOKBtnClick--NewOKBtnClickM-NewCancelBtnClickY- AddBtnClicke-SpeedButton1Clicky-FormCloseQuery, CloseDialog
, NewResult , FEnvironment -WorkEnvironment -GetNew 9 - PopulateGrid0 Environment cD & P@ i @Qrenved@initialization$qqrv i
i>@Qrenved@TQREnvironmentEditor@AddBtnClick$qqrp14System@TObjecte
iD@Qrenved@TQREnvironmentEditor@NewCancelBtnClick$qqrp14System@TObjectY
i@@Qrenved@TQREnvironmentEditor@NewOKBtnClick$qqrp14System@TObjectM
i>@Qrenved@TQREnvironmentEditor@GetNew$qqrr17System@AnsiStringt19
iE@Qrenved@TQREnvironmentEditor@VariableOKBtnClick$qqrp14System@TObject-
iN@Qrenved@EditEnvironment$qqrp23Qrexpr@TQREvEnvironmentop20Controls@TWinControl
i?@Qrenved@TQREnvironmentEditor@LocalCBClick$qqrp14System@TObject
i?@Qrenved@TQREnvironmentEditor@EditBtnClick$qqrp14System@TObject!
i[@Qrenved@TQREnvironmentEditor@UDFGridSetEditText$qqrp14System@TObjectiix17System@AnsiString%
i=@Qrenved@TQREnvironmentEditor@FormCreate$qqrp14System@TObject)
i/@Qrenved@TQREnvironmentEditor@PopulateGrid$qqrv-
i2@Qrenved@TQREnvironmentEditor@WorkEnvironment$qqrv1
i#@$xp$28Qrenved@TQREnvironmentEditor5
i @Qrenved@TQREnvironmentEditor@9
l% % % % % % % % % % % % % % % % mB ea]YUQM-I9EMAY=e9y51-) d
6 8 : < > @ B D
AnsiStringgTObject.DispatchGgTObject.NewInstanceGgTObject.FreeInstanceGgPos g@LStrPosEagDelete g @LStrDeleteEag @LStrAddRefj g@LStrAsg4g@LStrClrѨ}g@HandleFinallyEagLength g@LStrLeng TObject.FreeGgTObject.AfterConstructionGfLongintgTruegFalsegCopy g @LStrCopyEag @LStrLAsg4g@LStrArrayClrzYg @LStrCatNEagLoadResString! g@IsClassF>g@LStrCatEagExit gTObject.CreateGg@LStrFromStringhcdSysInitC cdWindowsC gES_AUTOHSCROLLg ES_MULTILINEcdMessagesC cdSysUtilsC gStrToIntgAnsiPos ܄gFormatgIntToStri5g
FloatToStr)cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`gTComponent.ValidateRenamegTComponent.QueryInterfaceg TComponent.BeforeDestructionfTList; "g.TList"]sg TList.Add5EcdGraphicsC cdControlsC gTWinControl.AssignTo.gTWinControl.CanAutoSize.gTWinControl.CanResize.g TWinControl.ConstrainedResize.gTWinControl.CreateHandle.g#TWinControl.CustomAlignInsertBefore.g TWinControl.CustomAlignPosition.gTWinControl.DestroyWnd.gTWinControl.GetClientOrigin.g TWinControl.GetControlExtents.g TWinControl.GetDeviceContext.g TWinControl.SetParentBackground.gTWinControl.ShowControl.gTWinControl.Invalidate.gTWinControl.Repaint.gTWinControl.SetBounds .gTWinControl.Update.gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)f TWinControl'AgTControl.SetTop`)gTControl.SetLeft`)gTControl.SetText`)gTControl.BringToFront`)gTControl.GetTextʅ`)fTCreateParamsg TWinControl.AdjustClientRect.gTWinControl.AlignControls.g TWinControl.DefineProperties.g TWinControl.DestroyWindowHandle.gTWinControl.GetClientRect.gTWinControl.PaintWindow.gTWinControl.ReadState.gTWinControl.WndProc.gTWinControl.Destroy.gTWinControl.SetFocus .gTControl.GetFloating>`)gTControl.LoadedB`)gTControl.NotificationF`)gTControl.SetParentR`)g
TScrollBox48lf TCustomFormsg.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
poDesignedEnagTCustomForm.Showgag
.TGroupBox@g.TButton x;Hg
.TComboBoxȮRg .TListBoxR3g.TEdit g TCustomEdit.CreateWindowHandle- gTCustomEdit.CreateWnd. gTCustomEdit.DestroyWnd/ g
qrpt70.bpl g @Qrexpbld@initialization$qqrv g@Qrexpbld@Finalization$qqrv gH@Qrexpbld@TQRExpressionBuilder@ModifyVariablesClick$qqrp14System@TObject gK@Qrexpbld@TQRExpressionBuilder@AvailableVariablesClick$qqrp14System@TObject gJ@Qrexpbld@TQRExpressionBuilder@VariableCancelBtnClick$qqrp14System@TObject gF@Qrexpbld@TQRExpressionBuilder@VariableOKBtnClick$qqrp14System@TObject gJ@Qrexpbld@TQRExpressionBuilder@InsertVariableBtnClick$qqrp14System@TObject gD@Qrexpbld@TQRExpressionBuilder@ValidateBtnClick$qqrp14System@TObject g>@Qrexpbld@TQRExpressionBuilder@ClearClick$qqrp14System@TObject g?@Qrexpbld@TQRExpressionBuilder@CancelClick$qqrp14System@TObject g;@Qrexpbld@TQRExpressionBuilder@OKClick$qqrp14System@TObject gJ@Qrexpbld@TQRExpressionBuilder@AvailableDatasetsClick$qqrp14System@TObject g@@Qrexpbld@TQRExpressionBuilder@FormActivate$qqrp14System@TObject g1@Qrexpbld@TQRExpressionBuilder@PickVariables$qqrv g0@Qrexpbld@TQRExpressionBuilder@PickDataSets$qqrv g@@Qrexpbld@TQRExpressionBuilder@AddSomeClick$qqrp14System@TObject g@@Qrexpbld@TQRExpressionBuilder@InsertText$qqr17System@AnsiString gB@Qrexpbld@TQRExpressionBuilder@GetVariable$qqrr17System@AnsiString gC@Qrexpbld@TQRExpressionBuilder@GetDatafield$qqrr17System@AnsiString gD@Qrexpbld@TQRExpressionBuilder@FormCloseQuery$qqrp14System@TObjectro gJ@Qrexpbld@TQRExpressionBuilder@FunctionCancelBtnClick$qqrp14System@TObject gI@Qrexpbld@TQRExpressionBuilder@FuncArgCancelBtnClick$qqrp14System@TObject gG@Qrexpbld@TQRExpressionBuilder@FuncParamOkBtnClick$qqrp14System@TObject gJ@Qrexpbld@TQRExpressionBuilder@InsertFunctionBtnClick$qqrp14System@TObject gE@Qrexpbld@TQRExpressionBuilder@GetParamExprClick$qqrp14System@TObject gS@Qrexpbld@TQRExpressionBuilder@GetParams$qqr17System@AnsiStringr17System@AnsiString g>@Qrexpbld@TQRExpressionBuilder@GetFunc$qqrr17System@AnsiString g>@Qrexpbld@TQRExpressionBuilder@FormCreate$qqrp14System@TObject gF@Qrexpbld@TQRExpressionBuilder@AvailableFuncClick$qqrp14System@TObject g.@Qrexpbld@TQRExpressionBuilder@SelectFunc$qqri g3@Qrexpbld@TQRExpressionBuilder@GetFunctionsCat$qqri gC@Qrexpbld@TQRExpressionBuilder@CategoriesClick$qqrp14System@TObject gF@Qrexpbld@TQRExpressionBuilder@FunctionOKBtnClick$qqrp14System@TObject gG@Qrexpbld@TQRExpressionBuilder@DataFieldOKBtnClick$qqrp14System@TObject gK@Qrexpbld@TQRExpressionBuilder@DataFieldCancelBtnClick$qqrp14System@TObject gK@Qrexpbld@TQRExpressionBuilder@InsertDataFieldBtnClick$qqrp14System@TObject g@Qrexpbld@GetExpression$qqr17System@AnsiStringr17System@AnsiStringp17Forms@TCustomFormp20Controls@TWinControlp23Qrexpr@TQREvEnvironment g$@$xp$29Qrexpbld@TQRExpressionBuilder g @Qrexpbld@TQRExpressionBuilder@ c4QRExpBldiif@c4Windows Lc4Messages Rc4SysUtils Tc4Classes `c4Graphics vc4Controls xc4Forms c4Dialogs c4StdCtrls c4ExtCtrls c4QRExpr %c4QR3Const c&.TQRExpressionBuilderA>Ûq*TQRExpressionBuilderQD@m .2BC$4QRPrntr c4QRExtra c4Buttons c4DB c4QREnvEd c(TrimExprA!
!AExprf
#Result
c(GetExpressionA: !ACaptionf
"Value
! ADataSetForm
!AParentControl!ALocalEnvironment&, Resultf .f@c&.TWordWrapEditAD
c(,TQRExpressionBuilder.DataFieldCancelBtnClickA
c('TQRExpressionBuilder.AvailableFuncClickA `8J!Self@!Senderc( TQRExpressionBuilder.FormCreateA lJ!Self@!Sender .(c( TQRExpressionBuilder.GetFuncA@x !Self@"Funcf
Result AllArgumentsf
Argumentsf
..
c( TQRExpressionBuilder.GetParamsA?! !Self@! ParamListf
" ParamResultf
Resultf I
. .( .:c(&TQRExpressionBuilder.GetParamExprClickA9IJ!Self@!Senderf I ParamExprf
.(c(+TQRExpressionBuilder.InsertFunctionBtnClickA EJ!Self@!Sender AFunctionf
c((TQRExpressionBuilder.FuncParamOkBtnClickA!J!Self@ !Senderc(*TQRExpressionBuilder.FuncArgCancelBtnClickA"J!Self@ !Senderc(+TQRExpressionBuilder.FunctionCancelBtnClickA#J!Self@ !Senderc(#TQRExpressionBuilder.FormCloseQueryA$~J!Self@ !Sender"CanClosec(!TQRExpressionBuilder.GetDatafieldAA !Self@"Fieldf
Resultc( TQRExpressionBuilder.GetVariableAB- !Self@"Variablef
Resultc( TQRExpressionBuilder.InsertTextA<}J!Self@!ATextf
c(!TQRExpressionBuilder.AddSomeClickA%J!Self@!Senderc(!TQRExpressionBuilder.PickDataSetsA=pJ!Self@c("TQRExpressionBuilder.PickVariablesA>)J!Self@ Ifc(!TQRExpressionBuilder.FormActivateA&ABJ!Self@!Senderc(+TQRExpressionBuilder.AvailableDatasetsClickA'YJ!Self@!Sender I
.< c( TQRExpressionBuilder.OKClickA(qJ!Self@ !Senderc( TQRExpressionBuilder.CancelClickA)J!Self@ !Senderc( TQRExpressionBuilder.ClearClickA* J!Self@ !Senderc(%TQRExpressionBuilder.ValidateBtnClickA+
J!Selff@!Sender I AResultf0
TextResultf
.f2c(+TQRExpressionBuilder.InsertVariableBtnClickA,J!Self@!Sender AVariablef
c('TQRExpressionBuilder.VariableOKBtnClickA-J!Self@ !Senderc(+TQRExpressionBuilder.VariableCancelBtnClickA.J!Self@ !Senderc(,TQRExpressionBuilder.AvailableVariablesClickA/9J!Self@!Sender VarNamef
.6 .6c()TQRExpressionBuilder.ModifyVariablesClickA01 J!Self@ !Senderc( FinalizationAEaI\! Jc(QRExpBldA a!JcG @ F^ Az& ,MainPage* ,DataFieldPage* , FunctionPage* ,FuncParamsPage* ,Heading ! , GroupBox1 1 ,InsertDataFieldBtn"A ,InsertFunctionBtn"Q ,InsertVariableBtn"a ,AddPlus"q ,AddMinus" ,AddMul" ,AddDiv" ,AddEqual" ,
AddSmaller" , AddLarger" , AddNotEqual" , AddLessEqual" ,AddGreaterEqual",AddNot",AddAnd"!,AddOr"1, ValidateBtn"A,Clear"Q,OK"a,Cancel"q,DataFieldOKBtn",DataFieldCancelBtn", DataFieldGB ,Label2 ,Label3 ,DataSet$, DataField&,FunctionOKBtn",FunctionCancelBtn", GroupBox2 ,Label4 !,Label5 1,AvailableFields&A, GroupBox4 Q,
Categories&a,Label6 q,AvailableFunc&,Label7 ,FuncName ,FuncDescription , GroupBox3 , CopyFuncName ,CopyFuncDescription , FuncParamSB,FuncParamOkBtn",FuncArgCancelBtn",AvailableDatasets&!, VariablePage*1, GroupBox5 A,VariableOKBtn"Q,VariableCancelBtn"a,AvailableVariables&q,VariableValue ,Label1 ,ModifyVariables"-InsertDataFieldBtnClick-DataFieldCancelBtnClick -DataFieldOKBtnClick)-FunctionOKBtnClick5-CategoriesClickA-AvailableFuncClickq-
FormCreate}-InsertFunctionBtnClick-FuncParamOkBtnClick-FuncArgCancelBtnClick-FunctionCancelBtnClick-FormCloseQuery- AddSomeClickU- FormActivateu-AvailableDatasetsClick-OKClick- CancelClick-
ClearClick-ValidateBtnClick-InsertVariableBtnClick-VariableOKBtnClick-VariableCancelBtnClick-AvailableVariablesClick-ModifyVariablesClick,Expr (,FFuncParamsResult , FFuncResult ,FDatafieldResult , FExprResult , FDatasetForm ,FVariableResult ,FLocalEnvironment ,!-GetParamExprClick -GetFunctionsCat M-
SelectFunc a-
InsertText I- PickDataSets a-PickVariables i- GetParams -GetFunc - GetDatafield ) - GetVariable 9 0 DatasetForm 0LocalEnvironment, cD B PG F FP( t& - CreateParamsLcL @ i @Qrexpbld@initialization$qqrv=
i@Qrexpbld@Finalization$qqrv!A
iH@Qrexpbld@TQRExpressionBuilder@ModifyVariablesClick$qqrp14System@TObjectE
iK@Qrexpbld@TQRExpressionBuilder@AvailableVariablesClick$qqrp14System@TObjectI
iJ@Qrexpbld@TQRExpressionBuilder@VariableCancelBtnClick$qqrp14System@TObjectM
iF@Qrexpbld@TQRExpressionBuilder@VariableOKBtnClick$qqrp14System@TObjectQ
iJ@Qrexpbld@TQRExpressionBuilder@InsertVariableBtnClick$qqrp14System@TObjectU
iD@Qrexpbld@TQRExpressionBuilder@ValidateBtnClick$qqrp14System@TObjectY
i>@Qrexpbld@TQRExpressionBuilder@ClearClick$qqrp14System@TObject]
i?@Qrexpbld@TQRExpressionBuilder@CancelClick$qqrp14System@TObjecta
i;@Qrexpbld@TQRExpressionBuilder@OKClick$qqrp14System@TObjecte
iJ@Qrexpbld@TQRExpressionBuilder@AvailableDatasetsClick$qqrp14System@TObjecti
i@@Qrexpbld@TQRExpressionBuilder@FormActivate$qqrp14System@TObjectum
i1@Qrexpbld@TQRExpressionBuilder@PickVariables$qqrviq
i0@Qrexpbld@TQRExpressionBuilder@PickDataSets$qqrvau
i@@Qrexpbld@TQRExpressionBuilder@AddSomeClick$qqrp14System@TObjectUy
i@@Qrexpbld@TQRExpressionBuilder@InsertText$qqr17System@AnsiStringI}
iB@Qrexpbld@TQRExpressionBuilder@GetVariable$qqrr17System@AnsiString9
iC@Qrexpbld@TQRExpressionBuilder@GetDatafield$qqrr17System@AnsiString)
iD@Qrexpbld@TQRExpressionBuilder@FormCloseQuery$qqrp14System@TObjectro
iJ@Qrexpbld@TQRExpressionBuilder@FunctionCancelBtnClick$qqrp14System@TObject
iI@Qrexpbld@TQRExpressionBuilder@FuncArgCancelBtnClick$qqrp14System@TObject
iG@Qrexpbld@TQRExpressionBuilder@FuncParamOkBtnClick$qqrp14System@TObject
iJ@Qrexpbld@TQRExpressionBuilder@InsertFunctionBtnClick$qqrp14System@TObject
iE@Qrexpbld@TQRExpressionBuilder@GetParamExprClick$qqrp14System@TObject
iS@Qrexpbld@TQRExpressionBuilder@GetParams$qqr17System@AnsiStringr17System@AnsiString
i>@Qrexpbld@TQRExpressionBuilder@GetFunc$qqrr17System@AnsiString
i>@Qrexpbld@TQRExpressionBuilder@FormCreate$qqrp14System@TObject}
iF@Qrexpbld@TQRExpressionBuilder@AvailableFuncClick$qqrp14System@TObjectq
i.@Qrexpbld@TQRExpressionBuilder@SelectFunc$qqria
i3@Qrexpbld@TQRExpressionBuilder@GetFunctionsCat$qqriM
iC@Qrexpbld@TQRExpressionBuilder@CategoriesClick$qqrp14System@TObjectA
iF@Qrexpbld@TQRExpressionBuilder@FunctionOKBtnClick$qqrp14System@TObject5
iG@Qrexpbld@TQRExpressionBuilder@DataFieldOKBtnClick$qqrp14System@TObject)
iK@Qrexpbld@TQRExpressionBuilder@DataFieldCancelBtnClick$qqrp14System@TObject
iK@Qrexpbld@TQRExpressionBuilder@InsertDataFieldBtnClick$qqrp14System@TObject
i@Qrexpbld@GetExpression$qqr17System@AnsiStringr17System@AnsiStringp17Forms@TCustomFormp20Controls@TWinControlp23Qrexpr@TQREvEnvironment
i$@$xp$29Qrexpbld@TQRExpressionBuilder
i @Qrexpbld@TQRExpressionBuilder@
ly% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % m ie a)]5YAUMQaMqI}EA=951-)%)!9 IUaiu !
=Q
6 8 : < > @ B D
֭ ڭ ܭ ޭ A M a I a i - ) = 9 } M!
a q uX g@LStrClrѨ}fLongintg@LStrAsg4g@AStrCmpEagAbs g@LStrFromStringhfTGUIDyRg @IntfCast0Zg
@IntfClear%EbgDec g@LStrToStringEagTObject.ClassTypeGg @IntfCopyfhgCopy g @LStrCopyEag@LStrCmpEaf PAnsiCharruggLength g@LStrLenfPCharrugg @LStrToPCharffCharig@_llmulEag@_lldivEag@CallDynaInstEag@HandleAnyExceptionEag @DoneExceptEag@FinalizeArrayBBg@InitResStringImportsEacdSysInitC cdWindowsC fTRect$.fTHandle"gLANG_JAPANESEgCreateCompatibleDCSgDeleteDCM7fTSizeçg SelectObject XgGetTextExtentPoint+gGetDCSgGetDeviceCapsJ;g NUMCOLORSg ReleaseDCD^fLCID"gGetSystemDefaultLCIDgLOCALE_IMEASUREcdClassesC f
TComponenttfTList; "g .TComponent[YwgTComponent.DefineProperties|gTComponent.LoadedgTComponent.NotificationgTComponent.ReadStategTComponent.SetNamegTComponent.UpdateRegistrygTComponent.ValidateRenamegTComponent.WriteStategTComponent.QueryInterfaceg TComponent.BeforeDestructiong TComponent.SafeCallExceptiongTPersistent.AssignToN`gTPersistent.AssignN`f
TOperationomJf TPersistent
TAlignment$QgTComponent.FindComponentgTComponent.Createg.TList"]sgTComponent.Destroyg TList.Add5Eg TList.Get.EgTComponent.FreeNotificationg TComponent.GetComponentCountngTComponent.GetComponentmf.84g csDestroyingDr"gopRemoveg csDesigningEr"gRect gTReader.ReadListBegin) gTReader.ReadFloat) gTReader.ReadListEnd) gTWriter.WriteListBegin gTWriter.WriteFloat흦 gTWriter.WriteListEnd g csLoadingAr"f TStringList~8g .TStringListt
TList.MoveAEg TList.Delete7EgtaLeftJustify|dygtaRightJustify}dygtaCenter~dygGroupDescendentsWithj6cdControlsC fTControlrfTCreateParamsg
egTPen.SetStyle*
egTPen.SetColor%
egTFont.GetSizehgTCanvas.MoveToDKjgTCanvas.LineToBKjgTCanvas.TextOutQKjgpsDot SgTFont.SetNamengTFont.SetSizepgTFont.SetColorkgclSilverkgclWhiteZgTCanvas.TextHeightPKjgTFont.GetHandledgTCanvas.StretchDrawNKjgTCanvas.RectangleJKjgclBlackZgpsDash SgclGray{+cdButtonsC cdFormsC g Application0Ϥg TApplication.ProcessMessagesOgScreeni f TCustomFormsg .TCustomForm1fIDesignerHookE~fTFormIgTCustomForm.SetScaled/gagTCustomForm.CreategagTCustomForm.Showgag
poPageNums 'g poWarning 'f TPrintRangeOg
prAllPagesg prSelectiong
prPageNumscdPrintersC fTPrinterOrientation.6g
poPortrait2lgPrinter/qgTPrinter.GetPrinter 0qgTPrinter.SetPrinter 0qgTPrinter.SetPrinterIndex/qgTPrinter.SetOrientation 0qgTPrinter.GetPrinterIndex/qgTPrinter.GetOrientation/qcdDBC fTDataSet1|4!gTDataSet.GetActivem?"EgTParams.GetItem<%TgTDataSet.First,@"EgTDataSet.NextB@"EgTDataSet.PriorE@"Eg .TDataSet
fTParam8gTParam.GetDataTypef
TFieldType~gftString94IgTParam.SetAsStringg
ftSmallint:4Ig ftInteger;4IgftWord<4IgTParam.SetAsIntegerg ftBoolean=4IgTParam.SetAsBooleangftFloat>4Ig
ftCurrency?4IgftBCD@4IgTParam.SetAsFloatgftDateA4IgTParam.SetAsDategftTimeB4IgTParam.SetAsTimeg
ftDateTimeC4IgTParam.SetAsDateTimecdDBTablesC fTQueryyB(g.TQuery`T gTQuery.GetParamsCountLcdQRPrntrq uX f TQRPaperSizeJ&f TQRBandType,fTQRPrinterSettings!g.TQRPrinterSettings fTQRBin]7f
TQRPrinternfTQRAfterPrintEvent\fTQRAfterPreviewEventfTQRExportFilter.DfTCM_QRPageAvailabler.gCM_QRPAGEAVAILABLEgfTCM_QRPreviewClosehgCM_QRPREVIEWCLOSEjf TCM_QRPrint@p .g
CM_QRPRINThgrbTitle5grbChild5gTQRPrinter.SetProgress`grbGroupHeader5grbGroupFooter5gLetterEgA4EgCustomEgDefaultEgcQRPaperSizeMetricsФg rbPageFooter5g rbPageHeader5g rbOverlay5gTQRPrinter.XPos`gTQRPrinter.YPos`gTQRPrinter.GetCanvas`g rbSubDetail5grbColumnHeader5grbDetail5g rbSummary5gTQRPrinterSettings.CreateEg .TQRPrinter+ QgTQRPrinter.Create`gTQRPrinter.GetPaperSize`gTQRPrinter.Cancel`gTQRPrinter.GetPaperLength`gTQRPrinter.GetPaperWidth`gTQRPrinter.SetCompression`gTQRPrinter.BeginDoc`gTQRPrinter.GetOrientation`gTQRPrinter.EndDoc`gTQRPrinter.AbortDoc`g
qrdPrinter0gTQRPrinter.GetPage`g TQRPrinter.SetShowingPreview`g qrdMetafile0gTQRPrinter.Preview`gTQRPrinter.PreviewModal`fTQRPrinterStatusZ"`g
mpFinishedgTQRPrinter.NewPage`gcQRCornerSizecdQR3Constq uX gSqrTitlec~vgSqrPageHeaderc~vg SqrDetailc~vgSqrPageFooterc~vg
SqrSummaryc~vgSqrGroupHeaderc~vgSqrGroupFooterc~vg SqrSubDetailc~vgSqrColumnHeaderc~vg
SqrOverlayc~vgSqrChildc~vgSqrTitleBandNamec~vgSqrPageHeaderBandNamec~vgSqrDetailBandNamec~vgSqrPageFooterBandNamec~vgSqrSummaryBandNamec~vgSqrGroupHeaderBandNamec~vgSqrGroupFooterBandNamec~vgSqrSubDetailBandNamec~vgSqrColumnHeaderBandNamec~vgSqrOverlayBandNamec~vgSqrChildBandNamec~vgSqrNoCircularc~vgSqrLoopBandTypec~vgSqrLoopBandNamec~vgSqrStringsBandTypec~vgSqrStringsBandNamec~vcdQRPrgresq uX fTQRProgressForm3>:^g.TQRProgressForm
qrpt70.bpl g @Quickrpt@initialization$qqrv g@Quickrpt@Finalization$qqrv g@Quickrpt@SetQRLoColor$qqrv g@Quickrpt@SetQRHiColor$qqrv gP@Quickrpt@PerformSQLParamsUpdate$qqrp15Dbtables@TQueryp23Qrexpr@TQREvEnvironment g)@Quickrpt@TQRCompositeReport@Prepare$qqrv g)@Quickrpt@TQRCompositeReport@Preview$qqrv g'@Quickrpt@TQRCompositeReport@Print$qqrv g1@Quickrpt@TQRCompositeReport@CreateComposite$qqrv g<@Quickrpt@TQRCompositeReport@CMPrint$qqrr17Messages@TMessage gL@Quickrpt@TQRCompositeReport@CMPreviewClose$qqrr26Qrprntr@TCM_QRPreviewClose g+@Quickrpt@TQRCompositeWinControl@$bdtr$qqrv g@@Quickrpt@TQRCompositeWinControl@CMPrint$qqrr17Messages@TMessage gP@Quickrpt@TQRCompositeWinControl@CMPreviewClose$qqrr26Qrprntr@TCM_QRPreviewClose g2@Quickrpt@TQRCompositeReport@SetPrinterValues$qqrv g.@Quickrpt@TQRCompositeReport@PrinterSetup$qqrv g'@Quickrpt@TQRCompositeReport@$bdtr$qqrv g;@Quickrpt@TQRCompositeReport@$bctr$qqrp18Classes@TComponent g%@Quickrpt@TQRPrintable@UnPrepare$qqrv g*@Quickrpt@TQRPrintable@SetTransparent$qqro g*@Quickrpt@TQRPrintable@GetTransparent$qqrv g;@Quickrpt@TQRPrintable@SetParent$qqrp20Controls@TWinControl g(@Quickrpt@TQRPrintable@SetBounds$qqriiii g(@Quickrpt@TQRPrintable@PaintCorners$qqrv g"@Quickrpt@TQRPrintable@Print$qqrii g!@Quickrpt@TQRPrintable@Paint$qqrv gW@Quickrpt@TQRPrintable@QRNotification$qqrp14System@TObject27Quickrpt@TQRNotifyOperation g7@Quickrpt@TQRPrintable@SetFrame$qqrp17Quickrpt@TQRFrame g*@Quickrpt@TQRPrintable@SetAlignToBand$qqro g;@Quickrpt@TQRPrintable@SetAlignment$qqr18Classes@TAlignment g#@Quickrpt@TQRPrintable@Prepare$qqrv g#@Quickrpt@TQRPrintable@AlignIt$qqrv g#@Quickrpt@TQRPrintable@SetZoom$qqri g#@Quickrpt@TQRPrintable@GetZoom$qqrv g*@Quickrpt@TQRPrintable@GetEditorClass$qqrv g%@Quickrpt@TQRPrintable@IsEnabled$qqrv g"@Quickrpt@TQRPrintable@Loaded$qqrv g!@Quickrpt@TQRPrintable@$bdtr$qqrv g5@Quickrpt@TQRPrintable@$bctr$qqrp18Classes@TComponent g0@Quickrpt@TQRPrintableEditor@GetControlName$qqrv g*@Quickrpt@TQRPrintableEditor@GetValue$qqrv g3@Quickrpt@TQRPrintableEditor@GetPrintableClass$qqrv g1@Quickrpt@TQRPrintableEditor@GetGlyphResName$qqrv g)@Quickrpt@TQRPrintableEditor@GetFont$qqrv g*@Quickrpt@TQRPrintableEditor@GetColor$qqrv g>@Quickrpt@TQRPrintableEditor@$bctr$qqrp21Quickrpt@TQRPrintable g<@Quickrpt@TQRPrintableSize@WriteValues$qqrp15Classes@TWriter g)@Quickrpt@TQRPrintableSize@SetValue$qqrig g.@Quickrpt@TQRPrintableSize@SetParentSizes$qqrv g'@Quickrpt@TQRPrintableSize@FixZoom$qqrv g;@Quickrpt@TQRPrintableSize@ReadValues$qqrp15Classes@TReader g(@Quickrpt@TQRPrintableSize@GetValue$qqri g<@Quickrpt@TQRPrintableSize@$bctr$qqrp21Quickrpt@TQRPrintable g&@Quickrpt@TQuickLabelReport@$bdtr$qqrv g;@Quickrpt@TQuickLabelReport@$bctr$qqrp18Classes@TComponenti g(@Quickrpt@TQRLabelSetup@SetInteger$qqrii g&@Quickrpt@TQRLabelSetup@SetValue$qqrig g'@Quickrpt@TQRLabelSetup@GetInteger$qqri g%@Quickrpt@TQRLabelSetup@GetValue$qqri g<@Quickrpt@TQRLabelSetup@$bctr$qqrp24Quickrpt@TCustomQuickRep gM@Quickrpt@TQuickRep@Notification$qqrp18Classes@TComponent18Classes@TOperation g+@Quickrpt@TQuickRep@SetControllerBands$qqrv g @Quickrpt@TQuickRep@Execute$qqrv g'@Quickrpt@TQuickRep@GetRecordCount$qqrv g(@Quickrpt@TQuickRep@GetRecordNumber$qqrv g0@Quickrpt@TQuickRep@SetDataSet$qqrp11Db@TDataSet g#@Quickrpt@TQuickRep@GetDataSet$qqrv g @Quickrpt@TQuickRep@$bdtr$qqrv g3@Quickrpt@TQuickRep@$bctr$qqrp18Classes@TComponenti g8@Quickrpt@TCustomQuickRep@SetUnits$qqr16Quickrpt@TQRUnit gG@Quickrpt@TCustomQuickRep@SetExportFilter$qqrp23Qrprntr@TQRExportFilter g+@Quickrpt@TCustomQuickRep@SetBounds$qqriiii g:@Quickrpt@TCustomQuickRep@PaintRuler$qqr16Quickrpt@TQRUnit g)@Quickrpt@TCustomQuickRep@PaintFrame$qqrv g+@Quickrpt@TCustomQuickRep@PaintMargins$qqrv g+@Quickrpt@TCustomQuickRep@PaintColumns$qqrv g$@Quickrpt@TCustomQuickRep@Paint$qqrv gA@Quickrpt@TCustomQuickRep@RemoveBand$qqrp22Quickrpt@TQRCustomBand gS@Quickrpt@TCustomQuickRep@Notification$qqrp18Classes@TComponent18Classes@TOperation g%@Quickrpt@TCustomQuickRep@Loaded$qqrv g[@Quickrpt@TCustomQuickRep@GetChildren$qqrynpqqrp18Classes@TComponent$vp18Classes@TComponent g,@Quickrpt@TCustomQuickRep@SetBandValues$qqrv g.@Quickrpt@TCustomQuickRep@RebuildBandList$qqrv g1@Quickrpt@TCustomQuickRep@SetControllerBands$qqrv gC@Quickrpt@TCustomQuickRep@RegisterBand$qqrp22Quickrpt@TQRCustomBand g&@Quickrpt@TCustomQuickRep@EndPage$qqrv g2@Quickrpt@TCustomQuickRep@PrintPageBackground$qqrv g&@Quickrpt@TCustomQuickRep@NewPage$qqrv g(@Quickrpt@TCustomQuickRep@NewColumn$qqrv g-@Quickrpt@TCustomQuickRep@AvailableSpace$qqrv gF@Quickrpt@TCustomQuickRep@ExportToFilter$qqrp23Qrprntr@TQRExportFilter g+@Quickrpt@TCustomQuickRep@PrinterSetup$qqrv g(@Quickrpt@TCustomQuickRep@PreviewIt$qqro g+@Quickrpt@TCustomQuickRep@PreviewModal$qqrv g&@Quickrpt@TCustomQuickRep@Preview$qqrv g.@Quickrpt@TCustomQuickRep@PreviewModeless$qqrv g&@Quickrpt@TCustomQuickRep@Prepare$qqrv g9@Quickrpt@TCustomQuickRep@CMPrint$qqrr17Messages@TMessage gI@Quickrpt@TCustomQuickRep@CMPreviewClose$qqrr26Qrprntr@TCM_QRPreviewClose gK@Quickrpt@TCustomQuickRep@CMPageAvailable$qqrr27Qrprntr@TCM_QRPageAvailable g.@Quickrpt@TCustomQuickRep@PrintBackground$qqrv g/@Quickrpt@TCustomQuickRep@PrepareQRPrinter$qqrv g<@Quickrpt@TCustomQuickRep@PrintFinished$qqrp14System@TObject g>@Quickrpt@TCustomQuickRep@PreviewFinished$qqrp14System@TObject g$@Quickrpt@TCustomQuickRep@Print$qqrv g/@Quickrpt@TCustomQuickRep@SetPrinterValues$qqrv g+@Quickrpt@TCustomQuickRep@CreateReport$qqro g&@Quickrpt@TCustomQuickRep@Execute$qqrv g+@Quickrpt@TCustomQuickRep@ForceNewPage$qqrv g-@Quickrpt@TCustomQuickRep@ForceNewColumn$qqrv g@@Quickrpt@TCustomQuickRep@PrintBand$qqrp22Quickrpt@TQRCustomBand g2@Quickrpt@TCustomQuickRep@ResetPageFooterSize$qqrv g>@Quickrpt@TCustomQuickRep@AddBand$qqrp22Quickrpt@TQRCustomBand g&@Quickrpt@TCustomQuickRep@SetZoom$qqri g-@Quickrpt@TCustomQuickRep@SetRotateBands$qqri g+@Quickrpt@TCustomQuickRep@SetHideBands$qqro gE@Quickrpt@TCustomQuickRep@AddNotifyClient$qqrp21Quickrpt@TQRPrintable g.@Quickrpt@TCustomQuickRep@SetPrintIfEmpty$qqro g.@Quickrpt@TCustomQuickRep@GetPrintIfEmpty$qqrv g?@Quickrpt@TCustomQuickRep@SetDescription$qqrp16Classes@TStrings gK@Quickrpt@TCustomQuickRep@TextWidth$qqrp14Graphics@TFont17System@AnsiString gL@Quickrpt@TCustomQuickRep@TextHeight$qqrp14Graphics@TFont17System@AnsiString g'@Quickrpt@TCustomQuickRep@GetUnits$qqrv g=@Quickrpt@TCustomQuickRep@CreateBand$qqr19Qrprntr@TQRBandType g%@Quickrpt@TCustomQuickRep@Cancel$qqrv g%@Quickrpt@TCustomQuickRep@Modify$qqrv gJ@Quickrpt@TCustomQuickRep@SetController$qqrp28Quickrpt@TQRCustomController g$@Quickrpt@TCustomQuickRep@$bdtr$qqrv g9@Quickrpt@TCustomQuickRep@$bctr$qqrp18Classes@TComponenti g8@Quickrpt@TCustomQuickRep@$bctr$qqrp18Classes@TComponent g,@Quickrpt@TQRCreateReportThread@Execute$qqrv gD@Quickrpt@TQRCreateReportThread@$bctr$qqrp24Quickrpt@TCustomQuickRep g)@Quickrpt@TQuickRepBands@SetHasBand$qqrio g:@Quickrpt@TQuickRepBands@SetBand$qqr19Qrprntr@TQRBandTypeo g%@Quickrpt@TQuickRepBands@GetBand$qqri g(@Quickrpt@TQuickRepBands@GetHasBand$qqri g<@Quickrpt@TQuickRepBands@BandInList$qqr19Qrprntr@TQRBandType g=@Quickrpt@TQuickRepBands@$bctr$qqrp24Quickrpt@TCustomQuickRep gR@Quickrpt@TQRStringsBand@Notification$qqrp18Classes@TComponent18Classes@TOperation g8@Quickrpt@TQRStringsBand@SetItems$qqrp16Classes@TStrings g&@Quickrpt@TQRStringsBand@GetItems$qqrv g%@Quickrpt@TQRStringsBand@GetItem$qqrv g&@Quickrpt@TQRStringsBand@GetIndex$qqrv g.@Quickrpt@TQRStringsBand@CreateController$qqrv g/@Quickrpt@TQRStringsBand@BandComponentName$qqrv g0@Quickrpt@TQRStringsBand@LocalVarExpression$qqrv g*@Quickrpt@TQRStringsBand@BandTypeName$qqrv g7@Quickrpt@TQRStringsBand@$bctr$qqrp18Classes@TComponent g+@Quickrpt@TQRStringsController@Execute$qqrv g1@Quickrpt@TQRStringsController@LocalVarValue$qqrv g1@Quickrpt@TQRStringsController@RegisterBands$qqrv g)@Quickrpt@TQRStringsController@$bdtr$qqrv g=@Quickrpt@TQRStringsController@$bctr$qqrp18Classes@TComponent gO@Quickrpt@TQRLoopBand@Notification$qqrp18Classes@TComponent18Classes@TOperation g#@Quickrpt@TQRLoopBand@GetCount$qqrv g(@Quickrpt@TQRLoopBand@SetPrintCount$qqri g(@Quickrpt@TQRLoopBand@GetPrintCount$qqrv g+@Quickrpt@TQRLoopBand@CreateController$qqrv g,@Quickrpt@TQRLoopBand@BandComponentName$qqrv g-@Quickrpt@TQRLoopBand@LocalVarExpression$qqrv g'@Quickrpt@TQRLoopBand@BandTypeName$qqrv g4@Quickrpt@TQRLoopBand@$bctr$qqrp18Classes@TComponent g(@Quickrpt@TQRLoopController@Execute$qqrv g.@Quickrpt@TQRLoopController@LocalVarValue$qqrv g.@Quickrpt@TQRLoopController@RegisterBands$qqrv g:@Quickrpt@TQRLoopController@$bctr$qqrp18Classes@TComponent gP@Quickrpt@TQRSubDetail@Notification$qqrp18Classes@TComponent18Classes@TOperation gA@Quickrpt@TQRSubDetail@SetHeaderBand$qqrp22Quickrpt@TQRCustomBand gA@Quickrpt@TQRSubDetail@SetFooterBand$qqrp22Quickrpt@TQRCustomBand g)@Quickrpt@TQRSubDetail@RegisterBands$qqrv g)@Quickrpt@TQRSubDetail@GetHeaderBand$qqrv g)@Quickrpt@TQRSubDetail@GetFooterBand$qqrv gC@Quickrpt@TQRSubDetail@SetOnNeedData$qqrynpqqrp14System@TObjectro$v g3@Quickrpt@TQRSubDetail@SetDataSet$qqrp11Db@TDataSet g)@Quickrpt@TQRSubDetail@GetOnNeedData$qqrv g&@Quickrpt@TQRSubDetail@GetDataSet$qqrv gB@Quickrpt@TQRSubDetail@AddNotifyClient$qqrp21Quickrpt@TQRPrintable g!@Quickrpt@TQRSubDetail@$bdtr$qqrv g5@Quickrpt@TQRSubDetail@$bctr$qqrp18Classes@TComponent g2@Quickrpt@TQRSubDetailGroupBands@SetHasFooter$qqro g2@Quickrpt@TQRSubDetailGroupBands@SetHasHeader$qqro g3@Quickrpt@TQRSubDetailGroupBands@GetFooterBand$qqrv g3@Quickrpt@TQRSubDetailGroupBands@GetHeaderBand$qqrv g2@Quickrpt@TQRSubDetailGroupBands@GetHasHeader$qqrv g2@Quickrpt@TQRSubDetailGroupBands@GetHasFooter$qqrv gB@Quickrpt@TQRSubDetailGroupBands@$bctr$qqrp21Quickrpt@TQRSubDetail g0@Quickrpt@TQRControllerBand@SetPrintIfEmpty$qqro g0@Quickrpt@TQRControllerBand@GetPrintIfEmpty$qqrv g@@Quickrpt@TQRControllerBand@SetParent$qqrp20Controls@TWinControl g>@Quickrpt@TQRControllerBand@SetMaster$qqrp18Classes@TComponent g.@Quickrpt@TQRControllerBand@RegisterBands$qqrv g3@Quickrpt@TQRControllerBand@LocalVarExpression$qqrv g/@Quickrpt@TQRControllerBand@RemoveLocalVar$qqrv g/@Quickrpt@TQRControllerBand@CreateLocalVar$qqrv gJ@Quickrpt@TQRControllerBand@SetParentReport$qqrp24Quickrpt@TCustomQuickRep g;@Quickrpt@TQRControllerBand@SetName$qqrx17System@AnsiString g/@Quickrpt@TQRControllerBand@GetPrintBefore$qqrv g/@Quickrpt@TQRControllerBand@SetPrintBefore$qqro g1@Quickrpt@TQRControllerBand@CreateController$qqrv g&@Quickrpt@TQRControllerBand@$bdtr$qqrv g:@Quickrpt@TQRControllerBand@$bctr$qqrp18Classes@TComponent gP@Quickrpt@TQRChildBand@Notification$qqrp18Classes@TComponent18Classes@TOperation gA@Quickrpt@TQRChildBand@SetParentBand$qqrp22Quickrpt@TQRCustomBand g5@Quickrpt@TQRChildBand@$bctr$qqrp18Classes@TComponent g@@Quickrpt@TQRCustomBand@SetLinkBand$qqrp22Quickrpt@TQRCustomBand g*@Quickrpt@TQRCustomBand@StretchHeight$qqro g)@Quickrpt@TQRCustomBand@SetBounds$qqriiii gQ@Quickrpt@TQRCustomBand@Notification$qqrp18Classes@TComponent18Classes@TOperation g"@Quickrpt@TQRCustomBand@Print$qqrv g&@Quickrpt@TQRCustomBand@MakeSpace$qqrv g<@Quickrpt@TQRCustomBand@AddPrintable$qqrp17System@TMetaClass g+@Quickrpt@TQRCustomBand@ExpandBand$qqrgrgro g&@Quickrpt@TQRCustomBand@CanExpand$qqrg g)@Quickrpt@TQRCustomBand@AdvancePaper$qqrv g8@Quickrpt@TQRCustomBand@PaintRuler$qqr16Quickrpt@TQRUnit g"@Quickrpt@TQRCustomBand@Paint$qqrv g6@Quickrpt@TQRCustomBand@SetUnits$qqr16Quickrpt@TQRUnit gF@Quickrpt@TQRCustomBand@SetParentReport$qqrp24Quickrpt@TCustomQuickRep g<@Quickrpt@TQRCustomBand@SetParent$qqrp20Controls@TWinControl g>@Quickrpt@TQRCustomBand@SetBandSize$qqrp20Quickrpt@TQRBandSize g<@Quickrpt@TQRCustomBand@SetBandType$qqr19Qrprntr@TQRBandType g%@Quickrpt@TQRCustomBand@GetUnits$qqrv g(@Quickrpt@TQRCustomBand@SetHasChild$qqro g$@Quickrpt@TQRCustomBand@SetZoom$qqri g'@Quickrpt@TQRCustomBand@SetEnabled$qqro g(@Quickrpt@TQRCustomBand@GetHasChild$qqrv g.@Quickrpt@TQRCustomBand@BandComponentName$qqrv g)@Quickrpt@TQRCustomBand@BandTypeName$qqrv g%@Quickrpt@TQRCustomBand@GetChild$qqrv g#@Quickrpt@TQRCustomBand@Loaded$qqrv g8@Quickrpt@TQRCustomBand@WriteDummy$qqrp15Classes@TWriter g(@Quickrpt@TQRCustomBand@GetBandSize$qqrv g"@Quickrpt@TQRCustomBand@$bdtr$qqrv g6@Quickrpt@TQRCustomBand@$bctr$qqrp18Classes@TComponent g@@Quickrpt@TQRBasePanel@CreateParams$qqrr22Controls@TCreateParams g/@Quickrpt@TQRBasePanel@UnprepareComponents$qqrv g-@Quickrpt@TQRBasePanel@PrepareComponents$qqrv g!@Quickrpt@TQRBasePanel@Paint$qqrv g7@Quickrpt@TQRBasePanel@PaintRuler$qqr16Quickrpt@TQRUnit g#@Quickrpt@TQRBasePanel@SetZoom$qqri g7@Quickrpt@TQRBasePanel@SetFrame$qqrp17Quickrpt@TQRFrame g$@Quickrpt@TQRBasePanel@GetFrame$qqrv g!@Quickrpt@TQRBasePanel@$bdtr$qqrv g5@Quickrpt@TQRBasePanel@$bctr$qqrp18Classes@TComponent g;@Quickrpt@TQRPage@SetPrintOrder$qqr22Quickrpt@TQRPrintOrder g8@Quickrpt@TQRPage@SetPaperSize$qqr20Qrprntr@TQRPaperSize g0@Quickrpt@TQRPage@SetUnits$qqr16Quickrpt@TQRUnit g @Quickrpt@TQRPage@SetRuler$qqro g @Quickrpt@TQRPage@SetValue$qqrig g%@Quickrpt@TQRPage@SetParentSizes$qqrv gB@Quickrpt@TQRPage@SetOrientation$qqr28Printers@TPrinterOrientation g @Quickrpt@TQRPage@GetRuler$qqrv g#@Quickrpt@TQRPage@GetPaperSize$qqrv g3@Quickrpt@TQRPage@WriteValues$qqrp15Classes@TWriter g!@Quickrpt@TQRPage@SetColumns$qqri g2@Quickrpt@TQRPage@ReadValues$qqrp15Classes@TReader g @Quickrpt@TQRPage@FixZoom$qqrv g @Quickrpt@TQRPage@GetValue$qqri g6@Quickrpt@TQRPage@$bctr$qqrp24Quickrpt@TCustomQuickRep g7@Quickrpt@TQRBandSize@WriteValues$qqrp15Classes@TWriter g$@Quickrpt@TQRBandSize@SetValue$qqrig g)@Quickrpt@TQRBandSize@SetParentSizes$qqrv g6@Quickrpt@TQRBandSize@ReadValues$qqrp15Classes@TReader g#@Quickrpt@TQRBandSize@GetValue$qqri g"@Quickrpt@TQRBandSize@FixZoom$qqrv g8@Quickrpt@TQRBandSize@$bctr$qqrp22Quickrpt@TQRCustomBand g&@Quickrpt@TQRUnitBase@RestoreUnit$qqrv g7@Quickrpt@TQRUnitBase@WriteValues$qqrp15Classes@TWriter g6@Quickrpt@TQRUnitBase@ReadValues$qqrp15Classes@TReader g)@Quickrpt@TQRUnitBase@SetParentSizes$qqrv g!@Quickrpt@TQRUnitBase@Loaded$qqrv g$@Quickrpt@TQRUnitBase@SetPixels$qqrv g;@Quickrpt@TQRUnitBase@DefineProperties$qqrp14Classes@TFiler g6@Quickrpt@TQRUnitBase@SaveUnit$qqrg16Quickrpt@TQRUnito g6@Quickrpt@TQRUnitBase@LoadUnit$qqrg16Quickrpt@TQRUnito g4@Quickrpt@TQRUnitBase@SetUnits$qqr16Quickrpt@TQRUnit g#@Quickrpt@TQRUnitBase@GetUnits$qqrv g @Quickrpt@TQRUnitBase@$bctr$qqrv g-@Quickrpt@TQRFrame@SetPen$qqrp13Graphics@TPen g @Quickrpt@TQRFrame@SetWidth$qqri g!@Quickrpt@TQRFrame@SetValue$qqrio g3@Quickrpt@TQRFrame@SetStyle$qqr18Graphics@TPenStyle g4@Quickrpt@TQRFrame@SetParent$qqrp17Controls@TControl g0@Quickrpt@TQRFrame@SetColor$qqr15Graphics@TColor g @Quickrpt@TQRFrame@AnyFrame$qqrv gB@Quickrpt@TQRFrame@PaintIt$qqrp16Graphics@TCanvasrx11Types@TRectgg g @Quickrpt@TQRFrame@$bctr$qqrv g!@Quickrpt@TQRGroup@Unprepare$qqrv g @Quickrpt@TQRGroup@Prepare$qqrv g7@Quickrpt@TQRGroup@SetParent$qqrp20Controls@TWinControl g5@Quickrpt@TQRGroup@SetMaster$qqrp18Classes@TComponent g7@Quickrpt@TQRGroup@SetFooterBand$qqrp16Quickrpt@TQRBand g @Quickrpt@TQRGroup@Check$qqrv g$@Quickrpt@TQRGroup@NewPageCheck$qqrv g(@Quickrpt@TQRGroup@PrintGroupFooter$qqrv g(@Quickrpt@TQRGroup@PrintGroupHeader$qqrv g7@Quickrpt@TQRGroup@SetExpression$qqr17System@AnsiString gL@Quickrpt@TQRGroup@Notification$qqrp18Classes@TComponent18Classes@TOperation g @Quickrpt@TQRGroup@$bdtr$qqrv g1@Quickrpt@TQRGroup@$bctr$qqrp18Classes@TComponent g4@Quickrpt@TQRController@SetDataSet$qqrp11Db@TDataSet g$@Quickrpt@TQRController@Execute$qqrv g$@Quickrpt@TQRController@Prepare$qqrv g1@Quickrpt@TQRController@PrintEmptyController$qqrv gQ@Quickrpt@TQRController@Notification$qqrp18Classes@TComponent18Classes@TOperation g-@Quickrpt@TQRController@RegisterDatasets$qqrv g*@Quickrpt@TQRController@RegisterBands$qqrv gL@Quickrpt@TQRCustomController@NotifyClients$qqr27Quickrpt@TQRNotifyOperation gI@Quickrpt@TQRCustomController@AddNotifyClient$qqrp21Quickrpt@TQRPrintable g*@Quickrpt@TQRCustomController@Execute$qqrv g,@Quickrpt@TQRCustomController@Unprepare$qqrv g1@Quickrpt@TQRCustomController@UpdateLocalVar$qqrv g0@Quickrpt@TQRCustomController@LocalVarValue$qqrv g*@Quickrpt@TQRCustomController@Prepare$qqrv g7@Quickrpt@TQRCustomController@PrintEmptyController$qqrv g8@Quickrpt@TQRCustomController@PrintAfterControllers$qqrv g9@Quickrpt@TQRCustomController@PrintBeforeControllers$qqrv g3@Quickrpt@TQRCustomController@RegisterDatasets$qqrv g,@Quickrpt@TQRCustomController@BuildTree$qqrv g0@Quickrpt@TQRCustomController@RegisterBands$qqrv g8@Quickrpt@TQRCustomController@CheckLastGroupFooters$qqrv g1@Quickrpt@TQRCustomController@SetPrintBefore$qqro g@@Quickrpt@TQRCustomController@SetMaster$qqrp18Classes@TComponent g4@Quickrpt@TQRCustomController@PrintGroupFooters$qqrv g4@Quickrpt@TQRCustomController@PrintGroupHeaders$qqrv g5@Quickrpt@TQRCustomController@NewPageCheckGroups$qqrv g.@Quickrpt@TQRCustomController@CheckGroups$qqrv gJ@Quickrpt@TQRCustomController@AddBefore$qqrp28Quickrpt@TQRCustomController gI@Quickrpt@TQRCustomController@AddAfter$qqrp28Quickrpt@TQRCustomController g(@Quickrpt@TQRCustomController@$bdtr$qqrv g<@Quickrpt@TQRCustomController@$bctr$qqrp18Classes@TComponent g@@Quickrpt@UniqueName$qqrp18Classes@TComponent17System@AnsiString g"@$xp$27Quickrpt@TQRCompositeReport g @Quickrpt@TQRCompositeReport@ g&@$xp$31Quickrpt@TQRCompositeWinControl g!@Quickrpt@TQRCompositeWinControl@ g @$xp$21Quickrpt@TQRPrintable g@Quickrpt@TQRPrintable@ g,@Quickrpt@TQRPrintableEditor@ShowEditor$qqrv g<@Quickrpt@TQRPrintableEditor@SetValue$qqr17System@AnsiString g9@Quickrpt@TQRPrintableEditor@SetFont$qqrp14Graphics@TFont g:@Quickrpt@TQRPrintableEditor@SetColor$qqr15Graphics@TColor g"@$xp$27Quickrpt@TQRPrintableEditor g @Quickrpt@TQRPrintableEditor@ g'@$xp$32Quickrpt@TQRPrintableEditorClass g!@$xp$26Quickrpt@TQRPrintableClass g @$xp$25Quickrpt@TQRPrintableSize g@Quickrpt@TQRPrintableSize@ g@$xp$17Quickrpt@TQRGroup g@Quickrpt@TQRGroup@ g!@$xp$26Quickrpt@TQuickLabelReport g @Quickrpt@TQuickLabelReport@ g @$xp$22Quickrpt@TQRLabelSetup g@Quickrpt@TQRLabelSetup@ g!@$xp$26Quickrpt@TQuickAbstractRep g @Quickrpt@TQuickAbstractRep@ g@$xp$18Quickrpt@TQuickRep g@Quickrpt@TQuickRep@ g @$xp$24Quickrpt@TCustomQuickRep g
CharactersF% %NativeF% *TQRUnitQ|& .TQRUnitBaseA(f * TQRUnitBaseQ(x& .TQRBandSizeAka G&* TQRBandSizeQQ;%ColByColyqc %RowByRowyqc *TQRPrintOrderQj&.TQRPageAr1*TQRPageQӺ&.TQRBasePanelAlL#G8* TQRBasePanelQ A*TQRBandBeforePrintEventQ+Aͥ*TQRBandAfterPrintEventQ:C&.TQRCustomBandAAH*TQRCustomBandQhƹ&.TQRBandAȇP*TQRBandQ`"ʱ&.TQRChildBandA"GW* TQRChildBandQ,Ω&.TQRControllerBandAU^*TQRControllerBandQTsҡ&.TQRSubDetailGroupBandsAT)g*TQRSubDetailGroupBandsQƶ֙&.TQRSubDetailA_:o* TQRSubDetailQxڑ&.TQRLoopControllerAֆEGw*TQRLoopControllerQҬމ& .TQRLoopBandAL* TQRLoopBandQ(nj&.TQRStringsControllerA({dž}*TQRStringsControllerQ3y&.TQRStringsBandA Gu*TQRStringsBandQr q&.TQuickRepBandsAt]m*TQuickRepBandsQ1i% qrAvailableOՉ' % qrPreparePՉ' % qrPreviewQՉ' %qrPrintRՉ' %qrEditSՉ' *TQRStateQ+e&.TQuickRepPrinterSettingsAè_a*TQuickRepPrinterSettingsQ
.TQuickRepAFֽ1* TQuickRepQu6-&.TQuickAbstractRepACF ݽ)*TQuickAbstractRepQ,c!%&.TQRLabelSetupA72%!*TQRLabelSetupQ) &.TQuickLabelReportA(X-*TQuickLabelReportQv1& .TQRGroupA] =5*TQRGroupQv
Z9&.TQRPrintableSizeA7"= *TQRPrintableSizeQP@A*TQRPrintableClass+ܪ
E*TQRPrintableEditorClassrOI &.TQRPrintableEditorAc+ZMǾ *TQRPrintableEditorQ|4wQ (TQRPrintableEditor.SetColors
U!SelfQ !ValueL c(
U!SelfQ !ValueT c(TQRPrintableEditor.SetValueu
U!SelfQ !Value c( TQRPrintableEditor.ShowEditorw
!SelfQ c&.TQRPrintableALp6Y, * TQRPrintableQe] &.TQRCompositeWinControlAf a4 *TQRCompositeWinControlQ8e &.TQRCompositeReportAc#i< *TQRCompositeReportQ|Am .33qc$4QRCtrls }c4CommDlg c4QRPrnSu c*.43 u'cQRBandTypeNameuc$*.53 y'cQRBandComponentNamey$ cqrRulerMinorStyleN$ cqrRulerMajorStyleN$ cqrRulerMinorColorL$ cqrRulerMajorColorLÄ$ cqrRulerFontName}$ cqrRulerFontColorL$ cqrRulerFontSize$ cqrMarginStyleN#$ cqrMarginColorLC$ cqrBandFrameStyleNc$ cqrBandFrameColorL$ LocalMeasureInches$(
UniqueNameAY0e !
AComponent !Startf #Result
ic( DataSetOKA4!ADataSeth Result c( CharWidthAh!Size Resultf c(
CharHeightA#!Size Resultf c(
SnapToUnit !Value&!aUnit Resultfc(
!.!AOwner c(TQRCustomController.DestroyA>HU!Self!.c( TQRCustomController.AddAfterA>TU!Self ! aControllerc( TQRCustomController.AddBeforeA>`U!Self ! aControllerc( TQRCustomController.CheckGroupsA>l !Self
Resultf I J .9c(&TQRCustomController.NewPageCheckGroupsA>xU!Self
I Jf Reprintf .9c(%TQRCustomController.PrintGroupHeadersA>zU!Self
Ic(%TQRCustomController.PrintGroupFootersA>vU!Self Ic( TQRCustomController.SetMasterA>U!Self!Value c("TQRCustomController.SetPrintBeforeA>U!Self !Valuec()TQRCustomController.CheckLastGroupFootersA>~U!Self Ic(!TQRCustomController.RegisterBandsA>U!Self cj(BuildTreeFromAc U! Component Ick( TQRCustomController.BuildTreeA>U!Selff
Controllerf Groupf9c($TQRCustomController.RegisterDatasetsA >U!Self c(*TQRCustomController.PrintBeforeControllersA>TU!Self
Ic()TQRCustomController.PrintAfterControllersA>TU!Self
Ic((TQRCustomController.PrintEmptyControllerA>&U!Selfc(TQRCustomController.PrepareA>-U!Self
Ic(!TQRCustomController.LocalVarValueA>) !Self #Resultc("TQRCustomController.UpdateLocalVarA>AZU!Selfc( TQRCustomController.UnprepareA>YU!Self
Ic(TQRCustomController.ExecuteA>qU!Self c(#TQRCustomController.AddNotifyClientA>U!Self !Value]c(!TQRCustomController.NotifyClientsA>rU!Self! Operationf I
c(TQRController.RegisterBandsA U!Self Ic( TQRController.RegisterDatasetsA
\U!Selfc(
!
AComponent ! Operation$c("TQRController.PrintEmptyControllerAU!Selfc(TQRController.PrepareAU!Self I
c(TQRController.ExecuteA 1U!Self MoreDataf RecCountf DSOKf I
c(TQRController.SetDataSetAI&U!Self !Valuehc(TQRGroup.CreateA|̈́~aU!Self9!.!AOwner c(TQRGroup.DestroyA}̈́~y`U!Self9!.c(TQRGroup.NotificationAǘ~zU!Self9
!
AComponent ! Operation$c(TQRGroup.SetExpressionAÿ́~U!Self9!Valuef c(TQRGroup.PrintGroupHeaderAẅ́~VU!Self9c(TQRGroup.PrintGroupFooterAẍ́~FU!Self9c(TQRGroup.NewPageCheckAẗ́~U!Self9 c(TQRGroup.CheckAs̈́~ U!Self9 aValuef c(TQRGroup.SetFooterBandAp̈́~!JU!Self9!Valuec(TQRGroup.SetMasterAq̈́~9U!Self9!Value c(TQRGroup.SetParentAz̈́~QjU!Self9!AParentBc(TQRGroup.PrepareAv̈́~iU!Self9c(TQRGroup.UnprepareA{̈́~U!Self9 c(TQRFrame.CreateA_lYvU!Self !.c(TQRFrame.PaintItA]lYqU!Self!ACanvasP!ARectf!XFact&(!YFact& FWX
FWYfc(TQRFrame.AnyFrameA`lY< !Self Result c(TQRFrame.SetColorAXlY U!Self!ValueLc(TQRFrame.SetParentAYlYU!Self !Value>c(TQRFrame.SetStyleAZlY U!Self!ValueNc(TQRFrame.SetValueA[lY)\U!Self!index!Valuec(TQRFrame.SetWidthA\lYA U!Self!Valuec(TQRFrame.SetPenA^lYYRU!Self!aPenRc(TQRUnitBase.CreateA);qU!Self!.c(TQRUnitBase.GetUnitsA ; !Self Result c(TQRUnitBase.SetUnitsA%;U!Self !Valuec(TQRUnitBase.LoadUnitA ;q !Self!Value&!aUnit!
Horizontal Resultfc(TQRUnitBase.SaveUnitA ;q !Self!Value&!aUnit!
Horizontal Resultfc( TQRUnitBase.DefinePropertiesA!;U!Self!Filer(c(TQRUnitBase.SetPixelsA';&U!Selfc(TQRUnitBase.LoadedA"; U!Self c(
!.!AParentc(TQRBandSize.FixZoomA|_ U!Self c(TQRBandSize.GetValueAw_ !Self!Index Resultf c(TQRBandSize.ReadValuesAy_ZU!Self!Reader*c(
!.!AParentc(TQRPage.GetValueAйQ !Self!Index Resultf c(TQRPage.FixZoomAܹi U!Self c(TQRPage.ReadValuesAعU!Self!Reader*c(TQRPage.SetColumnsAѹVU!Self!Valuec(TQRPage.WriteValuesA۹aU!Self!Writer,c(TQRPage.GetPaperSizeAι p!Self Resultp c(TQRPage.GetRulerAϹ !Self Result c(TQRPage.SetOrientationAҹ0U!Self!Valuefc(TQRPage.SetParentSizesAٹU!Selfc(TQRPage.SetValueAֹ)U!Self!Index!Value&c(TQRPage.SetRulerAչAnU!Self!Valuec(TQRPage.SetUnitsAڹY6U!Self!Valuec(TQRPage.SetPaperSizeAӹqqU!Self!Valuepc(TQRPage.SetPrintOrderAԹ U!Self !Valuec(TQRBasePanel.CreateA eU!Self!.f!AOwner c(TQRBasePanel.DestroyA e`U!Self!.c(TQRBasePanel.GetFrameAx e !Self Result c(TQRBasePanel.SetFrameAy eU!Self !Valuec(TQRBasePanel.SetZoomAz e U!Self!Value Icj( PaintInchesAa U I Major .Pc(PaintMMAc U I Majorf .Pc(PaintCharactersA U I .Pck(TQRBasePanel.PaintRulerA| e U!Selff!Units
TotalLinesf
Resolutionf Factorf
PaintMinorf PaintNumbersf .Pc(TQRBasePanel.PaintA{ e1 U!Self .Pc( TQRBasePanel.PrepareComponentsA} eI U!Self Ic( TQRBasePanel.UnprepareComponentsA~ ea U!Self Ic(TQRBasePanel.CreateParamsA ey >U!Self "Params@c(TQRCustomBand.CreateAvV! U!Self
!.!AOwner c(TQRCustomBand.DestroyAvV! U!Self!.c(TQRCustomBand.GetBandSizeAvV! !Self Result c(TQRCustomBand.WriteDummyAvV! U!Self !Writer,c(TQRCustomBand.LoadedAvV! dU!Selfc(TQRCustomBand.GetChildAvV!
!Self Result Ic(
> !Self#Result c( TQRCustomBand.BandComponentNameAvV!9
> !Self#Result c(TQRCustomBand.GetHasChildAvV!Q
" !Self Result c(TQRCustomBand.SetEnabledAvV!i
2U!Self!Valuec(TQRCustomBand.SetZoomAvV!
PU!Self!Valuec(TQRCustomBand.SetHasChildAvV!
U!Self!Valuef aBand aNamef
AComponent .f\c(TQRCustomBand.GetUnitsAvV!
* !Self Result c(TQRCustomBand.SetBandTypeAvV!
JU!Self!Valuerc(TQRCustomBand.SetBandSizeAvV!
U!Self !Valuec(TQRCustomBand.SetParentAvV!
U!Self!AParentBc( TQRCustomBand.SetParentReportAvV! U!Self !AParentReportc(TQRCustomBand.SetUnitsAvV!) U!Self !Value Ic(TQRCustomBand.PaintAvV!A U!Self aRectf .Pc(TQRCustomBand.PaintRulerAvV!Y bU!Self
!Unitsc(
Resultc(
aPrintablef] I MaxX c(TQRCustomBand.MakeSpaceAvV! 5U!Self AHeightc(TQRCustomBand.PrintAvV! U!Self I OrgLengthf PrintBandf MyChild AllFinishedf FirstPassf .Pc(
!
AComponent ! Operation$c(TQRCustomBand.SetBoundsAvV! iU!Self!ALeft
!ATopf!AWidth&!AHeight aUnitf I .]
c(TQRCustomBand.StretchHeightAvV!1 !Self
! IncludeNext Resultf c(TQRCustomBand.SetLinkBandAvV!I U!Self !Value aBandc(TQRChildBand.CreateA%a |U!Self!.!AOwner c(
aBandc(TQRChildBand.NotificationA% \U!Self!
AComponent
! Operation$c(TQRControllerBand.CreateAB U!Self
!.!AOwner c(TQRControllerBand.DestroyAB pU!Self!.c("TQRControllerBand.CreateControllerAB TU!Selfc( TQRControllerBand.SetPrintBeforeAB vU!Self!Valuec( TQRControllerBand.GetPrintBeforeAB !Self Result c(TQRControllerBand.SetNameA B!pU!Self!NewName.c(!TQRControllerBand.SetParentReportAB9PU!Self!AParentReportc( TQRControllerBand.CreateLocalVarABQU!Selfc( TQRControllerBand.RemoveLocalVarABi@U!Selfc($TQRControllerBand.LocalVarExpressionAB !Self #Result c( TQRControllerBand.RegisterBandsA B U!Self c(TQRControllerBand.SetMasterA
B5U!Self!Value
aComponent c(TQRControllerBand.SetParentA BpU!Self!AParentBc(!TQRControllerBand.GetPrintIfEmptyAB !Self Result c(!TQRControllerBand.SetPrintIfEmptyABU!Self !Valuec( TQRSubDetailGroupBands.CreateA=xU!Self
!.!AOwnerc(#TQRSubDetailGroupBands.GetHasFooterA=)$ !Self Result c(#TQRSubDetailGroupBands.GetHasHeaderA=A$ !Self Result c($TQRSubDetailGroupBands.GetHeaderBandA=Y !Self Result c($TQRSubDetailGroupBands.GetFooterBandA=q !Self Result c(#TQRSubDetailGroupBands.SetHasHeaderA=U!Self!Valuec(#TQRSubDetailGroupBands.SetHasFooterA=U!Self!Valuec(TQRSubDetail.CreateAsoU!Self!.!AOwner c(TQRSubDetail.DestroyAto`U!Self!.c( TQRSubDetail.AddNotifyClientAuoU!Self !Value]c(TQRSubDetail.GetDataSetAioT h!Self Resulth c(
!
AComponent ! Operation$c(TQRLoopController.CreateAtU!Self!.!AOwner c( TQRLoopController.RegisterBandsA U!Self
Ic( TQRLoopController.LocalVarValueA! !Self #Resultc(TQRLoopController.ExecuteA9U!Self I
c(TQRLoopBand.CreateA C\Q|U!Self!.!AOwner c(TQRLoopBand.BandTypeNameA C\i" !Self #Result c( TQRLoopBand.LocalVarExpressionA C\. !Self#Result c( TQRLoopBand.BandComponentNameA C\" !Self #Result c( TQRLoopBand.CreateControllerA
AComponent
! Operation$c(TQRStringsController.CreateA]V)U!Self!.!AOwner c( TQRStringsController.DestroyA]VAZU!Self!.c("TQRStringsController.RegisterBandsA]VYU!Self
Ic("TQRStringsController.LocalVarValueA]Vq !Self#Resultc( TQRStringsController.ExecuteA]VU!Self I
c(TQRStringsBand.CreateA5
|U!Self!.!AOwner c(TQRStringsBand.BandTypeNameA5
" !Self #Result c(!TQRStringsBand.LocalVarExpressionA5
@ !Self #Result c( TQRStringsBand.BandComponentNameA5
" !Self #Result c( TQRStringsBand.CreateControllerA5
@U!Selfc(TQRStringsBand.GetIndexA5
!Self Result c(TQRStringsBand.GetItemA5
1j !Self#Result c(TQRStringsBand.GetItemsA5
I 0!Self Result0 c(TQRStringsBand.SetItemsA5
a&U!Self!Value0c(TQRStringsBand.NotificationA5
ybU!Self!
AComponent
! Operation$c(TQuickRepBands.CreateA =xU!Self
!.!AOwnerc(TQuickRepBands.BandInListA~ = !Self !BandTyper Resultf Ic(TQuickRepBands.GetHasBandA == !Self!Index Result c(TQuickRepBands.GetBandA = !Self !Index Result c(TQuickRepBands.SetBandA =U!Self!BandTyper!Valuef aBand c(TQuickRepBands.SetHasBandA = U!Self !Index!Valuec( TQRCreateReportThread.CreateAnD, FPenStyle N ,FRight ",FTop $,FWidth (-SetColor - SetParent -SetStyle %-SetValue 1-SetWidth A-PaintIt-SetPenM.Create-AnyFrame 0Parent> # 0ColorL # 0DrawTop #1 0
DrawBottom#1 0DrawLeft#1 0 DrawRight#1 0StyleN
#% 0Width #A cC G FL& 0 , FResolution ,FUnits ,
SavedUnits ,FParentReport ,FParentUpdating ,FZoom (-LoadUnit} -SaveUnit -GetUnits
e -DefineProperties-Loaded -
ReadValues-SetParentSizes-SetUnitsq- WriteValues- SetPixels- RestoreUnit.CreateY0 ParentReport $ $ 0ParentUpdating !$!$ 0
Resolution $ 0Units 1$E$ 0Zoom %$%$ cG F p ,FWidth 0,FLength P,Parent h-GetValue -SetValue --
ReadValues-SetParentSizes%- WriteValues=-FixZoom.Create0Length - 0Height - 0Width - cCv G F ! ,FBottomMargin 0, FColumnSpace P,FColumns h, FLeftMargin p,FLength !, FOrientation fI,
FPaperSize pM, FPrintOrder Q, FRightMargin a,FRuler ,
FTopMargin ,FWidth ,Parent - GetPaperSize -GetRuler -GetValue Y -
SetColumns }-SetOrientation - SetPaperSize -SetPrintOrder -SetRuler -SetValue 0
PrintOrder $ -
ReadValuesq-SetParentSizes-SetUnits- WriteValues-FixZoomi.CreateI0 BottomMargin Y 0 ColumnSpace Y 0Columns $} 0
LeftMarginY 0LengthY 0 Orientationf
$ 0 PaperSizep 0 RightMargin
Y 0Ruler 0 TopMarginY 0WidthY cG F ` j& , FFontSize ,FZoom ,FFrame -GetFrame -SetFrame )-SetZoomf5-Paintd-
PaintRulerhq-PrepareComponents-UnprepareComponents- CreateParamsL.Create/Destroy0Zoom E%U% 0FontSize A%A% 0Frame ) cHE Uj!Sender " PrintBand cHI Uj!Sender ! BandPrinted cG FY a
r0& ,BandFrameRect ,
ButtonDown ! , FExpanded A ,FAfterPrintEvent ,FAlignToBottom ,FBeforePrintEvent ,FEnabled ,FForceNewColumn ,FForceNewPage , FLinkBand ,FParentReport
,FParentUpdating
, FQRBandType r
, LoadedHeight !
,FSize 1
,FNotifyController A
- SetLinkBand - GetBandSize - GetHasChild ) -GetChild - SetBandType u- SetHasChild M-GetUnitsi -StretchHeight - BandTypeNamej -BandComponentNamel - AdvancePaper-Loaded- MakeSpace - NotificationM-Paintd-
PaintRulerh-Print)- SetParent4-SetParentReportn- SetBandSize- SetBoundsB]-
SetEnabled25-SetUnits-SetZoomfA-
WriteDummyp0NotifyController %% 0ParentUpdating %% 0Units i .Create/Destroy- AddPrintable - CanExpand -
ExpandBand 0Expanded % 0BandTyper %u 0 ChildBand 0 ParentReport %& 0
AfterPrint %% 0AlignToBottom
ParentFont , 0Size. cG F a
r2& 0BandType 0 cG F1
r2& , FParentBand a
-SetParentBand - Notification.Create0
ParentBand0 & cG iF5
~2& ,LocalVarCreated a
, FController q
,FMaster
-GetPrintIfEmptye -GetPrintBefore -SetPrintBefore-CreateControllerr-RegisterBandstA- SetMastervI-SetName - SetParent4Y-SetParentReportn-CreateLocalVarx%-RemoveLocalVarz--LocalVarExpression|5 -SetPrintIfEmptyq0
Controller && .Create/Destroy0 PrintIfEmpty eq 0 PrintBefore 0Master 0 && cG F & ,Owner -GetFooterBand - GetHasFooter - GetHasHeader -GetHeaderBand - SetHasFooter - SetHasHeader .Create}0
FooterBand 0
HeaderBand 0 HasFooter 0 HasHeader cG UF
~@& ,FBands ֡
-
GetDataSet -GetFooterBand - -GetHeaderBand 9 -GetOnNeedData -
SetDataSet -SetFooterBand M-SetHeaderBand ]-SetOnNeedData !- Notificationm-RegisterBandstE.Create/Destroy-AddNotifyClient0Bands2 5'5' 0DataSeth4 0
FooterBand6 -M 0
HeaderBand8 9] 0
OnNeedData: ! 0 PrintBefore < 0 PrintIfEmpty > cG FX 0& ,FCount q, FPrintCount , FDetailBand Ƒ-LocalVarValue -RegisterBands(.Create}-Execute 0Detail '' 0
PrintCount '' 0Count '' cG QF!
~6& -GetPrintCount -SetPrintCount-CreateControllerr- Notification
PrintCount2 0 PrintBefore 4 cG F^) %0& ,FItems 0q,FIndex , FDetailBand Ƒ-LocalVarValueI
-~6& -GetIndex
BandInList
GetHasBand -
SetHasBand 5.Create
DetailBand 0ColumnFooterBand
0PageFooterBand 0 SummaryBand 0HasTitle 5 0HasPageHeader5 0HasColumnHeader5 0 HasDetail5 0HasPageFooter 5 0
HasSummary
5 cCMQ= G FYt 8U
0Copies 0Duplex 0 FirstPage 0LastPage 0 OutputBin cG Fa 8] 0 Orientation
0 PaperSize cG F`i2 !e ,
FQRPrinter x, FQuickRep .CreateE-ExecuteU0QuickRep (( cCeym J<} Hf Uj!Sender cH] Uj!Sender " PrintReport cG FT A ~& ,BGThread , BandRegList ", FAllDataSets " ,FAfterPrintEvent z! ,FAfterPreviewEvent |A ,
FAvailable a , FBandList "q ,FBands ,FBeforePrintEvent ,
FCancelled , FController ,FColumnTopPosition ,FCurrentColumn , FCurrentX
, FCurrentY
, FDescription 0!
, FEnvironment 1
,FExportFilter ~A
,
FExporting Q
,
FFinalPass U
,
FHideBands Y
, FLastPage ]
, FModified a
,FOnEndPageEvent
,FOnNeedDataEvent
,FOnPreviewEvent 4
,FOnStartPageEvent
,FOptions ,FPage , FPreviewPage V! ,
FPageCount 1 ,FPageFooterSize A ,FPrinterSettings q , FReportTitle , FRotateBands ,FShowProgress , FSnapToGrid ,FState ,
FQRPrinter x ,NewColumnForced ,NewPageForced , ReferenceDC
PaintFramet -
PaintRulerh -PreviewFinished - PreviewIt -PrintFinished! -RebuildBandList - RegisterBand -SetControllerBandsv -SetPrintIfEmptyx9 - SetHideBandsQ -SetRotateBands] -SetZoomfi 0
Controller ( .Create]. CreateNewzm/Destroy-
CreateBand -
TextHeight - TextWidth -AddBandu -AddNotifyClient|E -Cancel-ExportToFilter -EndPage -Modify- NewColumn -NewPage -Paintd -Print -PrintBackground= - PrinterSetup -Preparei -Previewy -PreviewModelessq - PreviewModal -ResetPageFooterSize -
RemoveBand -SetBandValues) - SetBoundsB 0 Available ( 0 AllDataSets" (( 0BandList" ( 0 Cancelled ( 0ColumnTopPosition (( 0CurrentColumn ) 0CurrentX )) 0CurrentY ) ) 0 ExportFilter~ ) 0 Exporting ) 0 FinalPass ) 0 HideBands !)Q 0
PageNumber I) 0Printerx i) 0 QRPrinterx i)i) 0 RotateBands Y)] 0State e)e) 0
AfterPrintz (( 0 AfterPreview| (( 0Bands (( 0 BeforePrint (( 0 Description0 )! 0Font 0 Functions )) 0 OnEndPage -)-) 0
OnNeedData 1)1) 0 OnPreview4 5)5) 0 OnStartPage 9)9) 0Options =)=) 0Page A)A) 0 PrintIfEmpty - * 0PrinterSettings Q)Q) 0 ReportTitle U)U) 0 ShowProgress ])]) 0
SnapToGrid a)a) 0Units ) 0Zoom cG IF] A ~B& -
GetDataSet - -GetRecordCount Q -GetRecordNumber E -
SetDataSet 9 -Executel] - Notificationu -SetControllerBandsvi . CreateNewz /Destroy! 0 RecordCount Q 0 RecordNumber E 0
AfterPrint 0 AfterPreview
OnNeedData * 0 OnPreview , 0 OnStartPage . 0Options 0 0Page 2 0PrinterSettings 4 0 PrintIfEmpty 6 0 ReportTitle 8 0 ShowProgress : 0
SnapToGrid < 0Units > 0Zoom @ cG !iF1
A ~:& 0
AfterPrint 0 AfterPreview
FTopMargin 0, FSideMargin P,FVerticalPitch p, FLabelWidth !, FLabelHeight a,FHorizontalPitch , FNumberDown ,FNumberAcross ,FParent -GetValue -
GetInteger -SetValue -
SetInteger .Create 0 TopMargin 0
SideMargin 0VerticalPitch 0
LabelWidth 0 LabelHeight 0HorizontalPitch
0
NumberDown 0 NumberAcross cG 1iFE a ~
LabelSetup) 5,5, cG 9-F r8& , Evaluator a
, FExpression q
, FFooterBand ʁ
,FMaster
,FReprint
,FReprintOnNewPage
,
GroupValue
, HasResult ,InGroup ,PrintPageNumber -SetFooterBand - SetMaster 0Reprint U,U, -Check- NewPageCheck- Notificationa-Prepare-PrintGroupHeader}-PrintGroupFooter-SetExpressionq- SetParent4- Unprepare.CreateE/DestroyU0
Expression 0 I,q 0
FooterBand2 M, 0Master 4 Q, 0ReprintOnNewPage6 Y,Y, cG A%F a ,FHeight 0,FLeft P,FTop p,FWidth !,Parent ]Q-GetValue -SetValue 5 -SetParentSizes- -
ReadValues - WriteValuesE -FixZoom% .Create 0Height 5 0Left 5 0Top 5 0Width 5 cG ] G Q G Q-FZ ,FControl ]-GetColor a -GetFontm -GetPrintableClass -GetValue -GetGlyphResNamey -GetControlName
-SetColor -SetFont-SetValue.CreateQ -
ShowEditor0Control] ,, 0ColorL ,- 0FontT ,- 0PrintableClassE - 0Value -- 0 GlyphResName - 0 ControlName - c@ G ]F!D v & ,AlignUpdating A,
FAlignment 8E, FAlignToBand I,
ButtonDown M,FFrame Q, FIsPrinting a,FParentReport q,FPrintFinished ,
FQRPrinter x,FSize A, LoadedTop , LoadedWidth , LoadedHeight ,
LoadedLeft -GetTransparent ! -SetTransparent !-GetZoom -SetAlignToBand !-SetFrame %!- IsEnabledf -GetEditorClassh -AlignItj -Loaded - PaintCorners]!- SetParent4!-SetZoom -PaintdA!-Preparel!-PrintnM!-QRNotificationp1!- SetAlignmentr!- SetBoundsBi!- UnPreparet!0 Alignment8 E-- 0 AlignToBand I-! 0
IsPrinting U-U- 0PrintFinished ]-]- 0 QRPrinterx a-a- 0 Transparent !! .Create /Destroy 0 ParentReport Y-Y- 0Zoom 0 EditorClassI - 0Enabled 0Frame Q-%! 0SizeA
FQRPrinter x!,FReports "1,FIndex A, FReportTitle Q, FGenerating a,aReport q, aWinControl e-CreateComposite 5"-SetPrinterValues !-CMPreviewClose "-CMPrint)"0
Generating -. .Create!/Destroy!-Preparem"- PrinterSetup!-Previewa"-PrintU"0Index %. 0Reports" !.!. 0 OnAddReports4 .. 0
OnFinished4 .. 0Options .. 0PrinterSettings
.. 0 ReportTitle ).). cD q PL*X% L*X- K > A L L C r C r D @Quickrpt@TQRPrintableEditor@$bctr$qqrp21Quickrpt@TQRPrintableQ i<@Quickrpt@TQRPrintableSize@WriteValues$qqrp15Classes@TWriterE i)@Quickrpt@TQRPrintableSize@SetValue$qqrig5 i.@Quickrpt@TQRPrintableSize@SetParentSizes$qqrv- i'@Quickrpt@TQRPrintableSize@FixZoom$qqrv% i;@Quickrpt@TQRPrintableSize@ReadValues$qqrp15Classes@TReader i(@Quickrpt@TQRPrintableSize@GetValue$qqri i<@Quickrpt@TQRPrintableSize@$bctr$qqrp21Quickrpt@TQRPrintable i&@Quickrpt@TQuickLabelReport@$bdtr$qqrv i;@Quickrpt@TQuickLabelReport@$bctr$qqrp18Classes@TComponenti i(@Quickrpt@TQRLabelSetup@SetInteger$qqrii i&@Quickrpt@TQRLabelSetup@SetValue$qqrig i'@Quickrpt@TQRLabelSetup@GetInteger$qqri i%@Quickrpt@TQRLabelSetup@GetValue$qqri i<@Quickrpt@TQRLabelSetup@$bctr$qqrp24Quickrpt@TCustomQuickRep iM@Quickrpt@TQuickRep@Notification$qqrp18Classes@TComponent18Classes@TOperationu i+@Quickrpt@TQuickRep@SetControllerBands$qqrvi i @Quickrpt@TQuickRep@Execute$qqrv] i'@Quickrpt@TQuickRep@GetRecordCount$qqrvQ i(@Quickrpt@TQuickRep@GetRecordNumber$qqrvE i0@Quickrpt@TQuickRep@SetDataSet$qqrp11Db@TDataSet9 i#@Quickrpt@TQuickRep@GetDataSet$qqrv- i @Quickrpt@TQuickRep@$bdtr$qqrv! i3@Quickrpt@TQuickRep@$bctr$qqrp18Classes@TComponenti i8@Quickrpt@TCustomQuickRep@SetUnits$qqr16Quickrpt@TQRUnit iG@Quickrpt@TCustomQuickRep@SetExportFilter$qqrp23Qrprntr@TQRExportFilter i+@Quickrpt@TCustomQuickRep@SetBounds$qqriiii i:@Quickrpt@TCustomQuickRep@PaintRuler$qqr16Quickrpt@TQRUnit i)@Quickrpt@TCustomQuickRep@PaintFrame$qqrv i+@Quickrpt@TCustomQuickRep@PaintMargins$qqrv i+@Quickrpt@TCustomQuickRep@PaintColumns$qqrv i$@Quickrpt@TCustomQuickRep@Paint$qqrv iA@Quickrpt@TCustomQuickRep@RemoveBand$qqrp22Quickrpt@TQRCustomBand iS@Quickrpt@TCustomQuickRep@Notification$qqrp18Classes@TComponent18Classes@TOperationq i%@Quickrpt@TCustomQuickRep@Loaded$qqrvi i[@Quickrpt@TCustomQuickRep@GetChildren$qqrynpqqrp18Classes@TComponent$vp18Classes@TComponentQ i,@Quickrpt@TCustomQuickRep@SetBandValues$qqrv) i.@Quickrpt@TCustomQuickRep@RebuildBandList$qqrv ! i1@Quickrpt@TCustomQuickRep@SetControllerBands$qqrv % iC@Quickrpt@TCustomQuickRep@RegisterBand$qqrp22Quickrpt@TQRCustomBand ) i&@Quickrpt@TCustomQuickRep@EndPage$qqrv - i2@Quickrpt@TCustomQuickRep@PrintPageBackground$qqrv 1 i&@Quickrpt@TCustomQuickRep@NewPage$qqrv 5 i(@Quickrpt@TCustomQuickRep@NewColumn$qqrv 9 i-@Quickrpt@TCustomQuickRep@AvailableSpace$qqrv = iF@Quickrpt@TCustomQuickRep@ExportToFilter$qqrp23Qrprntr@TQRExportFilter A i+@Quickrpt@TCustomQuickRep@PrinterSetup$qqrv E i(@Quickrpt@TCustomQuickRep@PreviewIt$qqro I i+@Quickrpt@TCustomQuickRep@PreviewModal$qqrv M i&@Quickrpt@TCustomQuickRep@Preview$qqrvy Q i.@Quickrpt@TCustomQuickRep@PreviewModeless$qqrvq U i&@Quickrpt@TCustomQuickRep@Prepare$qqrvi Y i9@Quickrpt@TCustomQuickRep@CMPrint$qqrr17Messages@TMessage] ] iI@Quickrpt@TCustomQuickRep@CMPreviewClose$qqrr26Qrprntr@TCM_QRPreviewCloseQ a iK@Quickrpt@TCustomQuickRep@CMPageAvailable$qqrr27Qrprntr@TCM_QRPageAvailableE e i.@Quickrpt@TCustomQuickRep@PrintBackground$qqrv= i i/@Quickrpt@TCustomQuickRep@PrepareQRPrinter$qqrv- m i<@Quickrpt@TCustomQuickRep@PrintFinished$qqrp14System@TObject! q i>@Quickrpt@TCustomQuickRep@PreviewFinished$qqrp14System@TObject u i$@Quickrpt@TCustomQuickRep@Print$qqrv y i/@Quickrpt@TCustomQuickRep@SetPrinterValues$qqrv } i+@Quickrpt@TCustomQuickRep@CreateReport$qqro i&@Quickrpt@TCustomQuickRep@Execute$qqrv i+@Quickrpt@TCustomQuickRep@ForceNewPage$qqrv i-@Quickrpt@TCustomQuickRep@ForceNewColumn$qqrv i@@Quickrpt@TCustomQuickRep@PrintBand$qqrp22Quickrpt@TQRCustomBand i2@Quickrpt@TCustomQuickRep@ResetPageFooterSize$qqrv i>@Quickrpt@TCustomQuickRep@AddBand$qqrp22Quickrpt@TQRCustomBandu i&@Quickrpt@TCustomQuickRep@SetZoom$qqrii i-@Quickrpt@TCustomQuickRep@SetRotateBands$qqri] i+@Quickrpt@TCustomQuickRep@SetHideBands$qqroQ iE@Quickrpt@TCustomQuickRep@AddNotifyClient$qqrp21Quickrpt@TQRPrintableE i.@Quickrpt@TCustomQuickRep@SetPrintIfEmpty$qqro9 i.@Quickrpt@TCustomQuickRep@GetPrintIfEmpty$qqrv- i?@Quickrpt@TCustomQuickRep@SetDescription$qqrp16Classes@TStrings! iK@Quickrpt@TCustomQuickRep@TextWidth$qqrp14Graphics@TFont17System@AnsiString iL@Quickrpt@TCustomQuickRep@TextHeight$qqrp14Graphics@TFont17System@AnsiString i'@Quickrpt@TCustomQuickRep@GetUnits$qqrv i=@Quickrpt@TCustomQuickRep@CreateBand$qqr19Qrprntr@TQRBandType i%@Quickrpt@TCustomQuickRep@Cancel$qqrv i%@Quickrpt@TCustomQuickRep@Modify$qqrv iJ@Quickrpt@TCustomQuickRep@SetController$qqrp28Quickrpt@TQRCustomController i$@Quickrpt@TCustomQuickRep@$bdtr$qqrv i9@Quickrpt@TCustomQuickRep@$bctr$qqrp18Classes@TComponentim i8@Quickrpt@TCustomQuickRep@$bctr$qqrp18Classes@TComponent] i,@Quickrpt@TQRCreateReportThread@Execute$qqrvU iD@Quickrpt@TQRCreateReportThread@$bctr$qqrp24Quickrpt@TCustomQuickRepE i)@Quickrpt@TQuickRepBands@SetHasBand$qqrio5 i:@Quickrpt@TQuickRepBands@SetBand$qqr19Qrprntr@TQRBandTypeo! i%@Quickrpt@TQuickRepBands@GetBand$qqri i(@Quickrpt@TQuickRepBands@GetHasBand$qqri i<@Quickrpt@TQuickRepBands@BandInList$qqr19Qrprntr@TQRBandType
e ) 5 A M a q y } y u q m i e a ] Y U !Q 9M EI UE aA q= }9 5 1 - ) % ! % 1 A M Y e q } % - = I Y i q } } y u q m i e a )] 5Y qU Q M I E A = 9 5 1 - ) % )! 5 A M i u
)
M
]
%
-
5
A
I
Y
e
q
}
}
y
u
q
m
i
e
a
]
Y
U
Q
!M
-I
9E
EA
M=
]9
m5
}1
-
)
%
!
!
A 5
9 a E
U Y ] a ie5 e miM i% qma m1 uqy qA yu
} 9 u e
Y ea a% ie e= mi i qma m yuA u y
}5 " % q # % & =& i" "
5 E M Q Ue a]50 ] ea.
a ie. e mi. iA qm/ mI uq/ q yu. uY }y0 y }/ }% 5/
1 0 } e0 1 - 1 9 ! 2 %!1
! )%1 %M -)a2 )] 1-2 -! 511 1m =92 9E A=92 = IEU1 E MIq1
} 3 m3 ! 4! 14! 4!
3!
)!
m}
5 M79
5 a A a I a M i ] i e i i E u q 7i q U y u 7i u i
y y m q u }
(
*
,
.
0
2
4
6 !
8 %
: )
< -
> 1
@ 5
B 9
D =
F A
H E
J I
L M
N Q
P U
R Y
T ]
V a
X e
Z i
\ m
^ q
y
u
%:` u
- }
y
:b y
}
;d }
eDf
=Ih
aIj
!
:l
-?n
9p
<r
E
u@t
Q
@v
]
@x
ECz
-
@|
<~
Q<
}<
Q
F
i
F
q
G
G
1H
eH
H
?
A
!
?
5E
D
%E
9
:
Q
:
]
;
i =; ] 7 m % 7 ) % 8 % - ) }9 ) 1 - 9: - 5 1 m: 1 u 9 5 i; 5 E = 9 : 9 A = Y9 = E A B A I E D E M I !9 I Q M C M U Q D Q Y U G U ] Y m? Y = a ] Q@ ] e a A a i i e @ e y m i 9A i q q m %A m u q A q y u ; u } y IG y ) } E } H ! % ) - 1 5 9 = A E I ! - - ) I ) Q 1 - 1J - E 5 1 J 1 9 9 5 J 5 ] A = eJ
= u E A J A i I E J E a Q I Q ! e a I a e i q
E I M Q U a] K ] eaQK a ieyK e mi)L
L 5 iM - 5M L E M % !M L
y N EN ! !Q -)M ) - -
5" YT ! S
QRPrev.DFM\*p
QRDEFS.INC/{*p
QRPrev.pas[* dSystemC fTObject_fWord{fIntegergTObject.DispatchGgTObject.NewInstanceGgTObject.FreeInstanceGfStringf
AnsiStringgTrueg @ClassCreateg@AfterConstructionڿ%UgLoadResString! g @LStrCatNEag@LStrArrayClrzYg@HandleFinallyEag TObject.FreeGg@LStrAsg4g@LStrClrѨ}gFalseg@LStrCatEacdSysInitC cdWindowsC gVK_NEXTgVK_PRIORgVK_HOME gVK_ENDg VK_ESCAPE cdMessagesC cdSysUtilsC gIntToStri5g
FileExistscdClassesC f TShiftStateFf
TComponenttgTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`f.1gssCtrlq"g TList.Get.EcdGraphicsC cdControlsC f
TImageList RVgTWinControl.AssignTo.gTWinControl.CanAutoSize.gTWinControl.CanResize.g TWinControl.ConstrainedResize.gTWinControl.CreateHandle.g#TWinControl.CustomAlignInsertBefore.g TWinControl.CustomAlignPosition.gTWinControl.DestroyWnd.gTWinControl.GetClientOrigin.g TWinControl.GetControlExtents.g TWinControl.GetDeviceContext.g TWinControl.SetParentBackground.gTWinControl.ShowControl.gTWinControl.Invalidate.gTWinControl.Repaint.gTWinControl.SetBounds .gTWinControl.Update.gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)g .TImageList8gTControl.SetText`)gTControl.SetTop`)gTControl.SetLeft`)gTControl.SetHeight`)gTControl.SetWidth`)cdFormsC fTFormIf TCloseAction%g.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
TQRPreview+x+f
TQRPrinterng .TQRPreviewgTQRPreview.SetQRPrintereOfTQRPrinterStatusZ"`g
mpFinishedgTQRPrinter.ClosePreview`gTQRPreview.ZoomToFit
eOgTQRPreview.SetZoom eOgTQRPreview.ZoomToWidth eOgTQRPreview.SetPageNumbereOgTQRPrinter.Print`gTQRPreview.UpdateZoomeOfTQRExportFilter.DgQRExportFilterLibrary'
g*TQRExportFilterLibrary.GetSaveDialogFiltergcQRPDefaultExt
tgTQRPrinter.Save`fTQRExportFilterLibraryEntryojgTQRExportFilter.CreatehgTQRPrinter.ExportToFilter`gTQRPrinter.PrintSetup`gTQRPrinter.Load`g TQRPreviewImage.SetPageNumber~ cdQR3Constq uX gSqrPagec~vgSqrOfc~vgSqrSaveReportc~vgSqrLoadReportc~vg SqrQRFilec~vgSqrFileNotExistc~vcdComCtrlsC f
TStatusBar 6fTToolBar(Wf TToolButton3f TProgressBarUg .TStatusBarjg .TToolBarߠ9g .TToolButtonf.g.TProgressBarCgTProgressBar.Create gTToolButton.SetDown!gTStatusPanels.GetItemRgTStatusPanel.SetText
cdToolWinC cdMenusC cdImgListC ceQuickRptq uX ch
qrpt70.bpl g@Qrprev@initialization$qqrv g@Qrprev@Finalization$qqrv g:@Qrprev@TQRStandardPreview@FormCreate$qqrp14System@TObject gH@Qrprev@TQRStandardPreview@QRPreviewProgressUpdate$qqrp14System@TObjecti gG@Qrprev@TQRStandardPreview@QRPreviewPageAvailable$qqrp14System@TObjecti g9@Qrprev@TQRStandardPreview@LoadClick$qqrp14System@TObject g?@Qrprev@TQRStandardPreview@PrintSetupClick$qqrp14System@TObject g9@Qrprev@TQRStandardPreview@SaveClick$qqrp14System@TObject gn@Qrprev@TQRStandardPreview@FormKeyDown$qqrp14System@TObjectrus46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6% g$@Qrprev@TQRStandardPreview@Show$qqrv g:@Qrprev@TQRStandardPreview@FormResize$qqrp14System@TObject g9@Qrprev@TQRStandardPreview@ExitClick$qqrp14System@TObject g:@Qrprev@TQRStandardPreview@PrintClick$qqrp14System@TObject g=@Qrprev@TQRStandardPreview@LastPageClick$qqrp14System@TObject g=@Qrprev@TQRStandardPreview@NextPageClick$qqrp14System@TObject g=@Qrprev@TQRStandardPreview@PrevPageClick$qqrp14System@TObject g>@Qrprev@TQRStandardPreview@FirstPageClick$qqrp14System@TObject g@@Qrprev@TQRStandardPreview@ZoomToWidthClick$qqrp14System@TObject g>@Qrprev@TQRStandardPreview@ZoomTo100Click$qqrp14System@TObject g>@Qrprev@TQRStandardPreview@ZoomToFitClick$qqrp14System@TObject g*@Qrprev@TQRStandardPreview@UpdateInfo$qqrv gN@Qrprev@TQRStandardPreview@FormClose$qqrp14System@TObjectr18Forms@TCloseAction gN@Qrprev@TQRStandardPreview@$bctr$qqrp18Classes@TComponentp18Qrprntr@TQRPrinter g @$xp$25Qrprev@TQRStandardPreview g@Qrprev@TQRStandardPreview@ c4QRPreviif@c4Windows 0c4Messages c4Classes Dc4Graphics Xc4Controls Zc4Forms c4Dialogs c4ExtCtrls !c4StdCtrls %c4Buttons )c4QRPrntr 5c4QR3Const c4ComCtrls c4ToolWin c4Menus c4ImgList c&.TQRStandardPreviewA2Gs]*TQRStandardPreviewQw^4Y .26Æ$4QuickRpt c( TQRStandardPreview.CreatePreviewA,:L 8!Self4!.f:!AOwner!
aQRPrinter"c( TQRStandardPreview.FormCloseA:L *8!Self4 !Sender"Actionc( TQRStandardPreview.UpdateInfoA.:Lq8!Self4c(!TQRStandardPreview.ZoomToFitClickA:L$88!Self4!Senderc(!TQRStandardPreview.ZoomTo100ClickA:L0B8!Self4!Senderc(#TQRStandardPreview.ZoomToWidthClickA
Separator1.1 , FirstPage.A , PreviousPage.Q , ToolButton2.a ,LastPage.q ,
Separator2. ,
PrintSetup. ,Print. ,
Separator3. ,
SaveReport. ,
LoadReport. ,
Separator4. ,Images , ToolButton1.,
ExitButton , QRPreview !- FormClose-ZoomToFitClick-ZoomTo100Click-ZoomToWidthClick-FirstPageClick -PrevPageClick-NextPageClick!-LastPageClick--
PrintClick9- ExitClickE-
FormResizeQ- FormKeyDowne- SaveClicky-PrintSetupClick- LoadClick-QRPreviewPageAvailable-QRPreviewProgressUpdate-
FormCreate,
FQRPrinter "1,Gauge 0A, LastProgress Q.CreatePreviewz-Show]-
UpdateInfo0 QRPrinter" uu cD 6 P@ A : i@Qrprev@initialization$qqrv9i@Qrprev@Finalization$qqrv=i:@Qrprev@TQRStandardPreview@FormCreate$qqrp14System@TObjectAiH@Qrprev@TQRStandardPreview@QRPreviewProgressUpdate$qqrp14System@TObjectiEiG@Qrprev@TQRStandardPreview@QRPreviewPageAvailable$qqrp14System@TObjectiIi9@Qrprev@TQRStandardPreview@LoadClick$qqrp14System@TObjectMi?@Qrprev@TQRStandardPreview@PrintSetupClick$qqrp14System@TObjectQi9@Qrprev@TQRStandardPreview@SaveClick$qqrp14System@TObjectyUin@Qrprev@TQRStandardPreview@FormKeyDown$qqrp14System@TObjectrus46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%eYi$@Qrprev@TQRStandardPreview@Show$qqrv]]i:@Qrprev@TQRStandardPreview@FormResize$qqrp14System@TObjectQai9@Qrprev@TQRStandardPreview@ExitClick$qqrp14System@TObjectEei:@Qrprev@TQRStandardPreview@PrintClick$qqrp14System@TObject9ii=@Qrprev@TQRStandardPreview@LastPageClick$qqrp14System@TObject-mi=@Qrprev@TQRStandardPreview@NextPageClick$qqrp14System@TObject!qi=@Qrprev@TQRStandardPreview@PrevPageClick$qqrp14System@TObjectui>@Qrprev@TQRStandardPreview@FirstPageClick$qqrp14System@TObject yi@@Qrprev@TQRStandardPreview@ZoomToWidthClick$qqrp14System@TObject}i>@Qrprev@TQRStandardPreview@ZoomTo100Click$qqrp14System@TObjecti>@Qrprev@TQRStandardPreview@ZoomToFitClick$qqrp14System@TObjecti*@Qrprev@TQRStandardPreview@UpdateInfo$qqrviN@Qrprev@TQRStandardPreview@FormClose$qqrp14System@TObjectr18Forms@TCloseActioniN@Qrprev@TQRStandardPreview@$bctr$qqrp18Classes@TComponentp18Qrprntr@TQRPrinteri @$xp$25Qrprev@TQRStandardPreviewi@Qrprev@TQRStandardPreview@l)% % % % % % % % % % % % % % % % % % % % % % % m^ UQMIEA =9!5-19-E)Q%]!e y 4
p r t v x z | ~
QRDEFS.INC/{*p QRPrntr.pas* dSystemC fStringf
AnsiStringfExtended@fIntegerfByte7cgTObject.SafeCallExceptionGgTObject.AfterConstructionGgTObject.BeforeDestructionGgTObject.DispatchGgTObject.DefaultHandlerGgTObject.NewInstanceGgTObject.FreeInstanceGgTObject.DestroyGfCardinal"fWord{fTObject_g.TObject BfBooleanW~8fLongintfPCharrugf TDateTimepٿfCharigAssert gAssigned g@AssertW5gSizeOf g@LStrFromArray}g@LStrCmpEag@HandleFinallyEag@LStrArrayClrzYgMove,QgLoadResString! g@LStrAsg4f PAnsiCharruggTObject.CreateGgTrueg @ClassCreateg@AfterConstructionڿ%UgFalseg @LStrAddRefj g@LStrClrѨ}g TObject.FreeGg@BeforeDestructiondg@ClassDestroyOgInc gDec fPointer gRound g@ROUNDEagExit g @LStrCatNEagGetMem g@GetMemgFreeMem g@FreeMemg@LStrCatEag @LStrToPCharfg SetLength gFillChar g @FillCharxgBreak g@DynArraySetLengthEag@DynArrayClearxB)g@IsClassF>g @RaiseExceptEagInt g@INTEag@FinalizeArrayBBg@InitResStringImportsEacdSysInitC cdWindowsC gDMPAPER_LETTERgDMPAPER_LETTERSMALLgDMPAPER_TABLOIDgDMPAPER_LEDGERgDMPAPER_LEGALgDMPAPER_STATEMENTgDMPAPER_EXECUTIVEg
DMPAPER_A3g
DMPAPER_A4gDMPAPER_A4SMALLg
DMPAPER_A5g
DMPAPER_B4g
DMPAPER_B5gDMPAPER_FOLIOgDMPAPER_QUARTOgDMPAPER_10X14gDMPAPER_11X17g DMPAPER_NOTEgDMPAPER_ENV_9gDMPAPER_ENV_10gDMPAPER_ENV_11gDMPAPER_ENV_12gDMPAPER_ENV_14gDMPAPER_CSHEETgDMPAPER_DSHEETgDMPAPER_ESHEETfTRTLCriticalSection]s?fTHandle"f PDeviceModezg GetTempPath igGetTempFileName/gInitializeCriticalSectionEy
GlobalLockfg DM_COPIESfgDM_DEFAULTSOURCEfg DM_DUPLEXf!gDMDUP_SIMPLEXgGetDeviceCapsJ;g
LOGPIXELSX=g
LOGPIXELSY?fTPointfgPHYSICALOFFSETXUgPHYSICALOFFSETYVg DM_PAPERSIZEgPHYSICALWIDTHSgPHYSICALHEIGHTTg DC_PAPERSg GlobalUnlockM7gDM_PAPERLENGTHgDM_PAPERWIDTHgDMDUP_HORIZONTALgDM_ORIENTATIONgDMORIENT_PORTRAITgDMORIENT_LANDSCAPEg SendMessage1g StartPageS?{g PostMessageĎZXcdWinSpoolC f PDriverInfo2(3g OpenPrinter)E gGetPrinterDriver]mGg ClosePrinterM7gDeviceCapabilitiesrm$cdSysUtilsC f Exception|,g
.Exception+gStrPasfg
fmOpenReadgfmShareDenyNone%g
DeleteFilegfmOpenReadWritegNow_TgStrLCopyFYgExtractFileNamex݄gException.Create`jPcdMessagesC gWM_USERffTMessage@p .cdClassesC fTList; "fTStreamYefTMemoryStreamf TFileStreamjIkg.TStreamgTStream.GetSize S gTStream.SetSize S gTStream.SetSize S g TStream.Seek S f
TComponenttg .TComponent[YwgTComponent.DefineProperties|gTComponent.LoadedgTComponent.NotificationgTComponent.ReadStategTComponent.SetNamegTComponent.UpdateRegistrygTComponent.ValidateRenamegTComponent.WriteStategTComponent.QueryInterfacegTComponent.CreategTComponent.Destroyg TComponent.BeforeDestructiong TComponent.SafeCallExceptiongTPersistent.AssignToN`gTPersistent.AssignN`f
TAlignment$Qf TPersistent
Xg soFromEndgsoFromCurrentf.84g csDesigningEr"gRect g.TList"]sg TList.Get.Eg TList.Add5Eg TList.Delete7EcdControlsC f TWinControl'AfTGraphicControl_Z)wg.TGraphicControlFYgTControl.AssignTo`)gTControl.CanResize `)gTControl.CanAutoSize `)g
poPortrait2lgTPrinter.SetPrinter 0qg .TPrinterw0gTPrinter.Create0qgTPrinter.GetPrinterIndex/qgTPrinter.SetPrinterIndex/qgTPrinter.BeginDoc0qgTPrinter.GetCanvas/qgTPrinter.NewPage
0qgTPrinter.EndDoc 0qgTPrinter.Abort0qg poLandscape2lgTPrinter.GetPageWidth/qgTPrinter.GetPageHeight/qcdGraphicsC gclBlackZf TMetafileذfTFontnBϸfTColor⾇٨"*TPrinterSettingsQN &.TQRPrinterSettingsA G"*TQRPrinterSettingsQ!% qrdMetafile0 %
qrdPrinter0 *TQRPrinterDestinationQW%mpReady %mpBusy %
mpFinished *TQRPrinterStatusQZ"`*TQRGenerateToPrinterEventQʽ*TQRPrintSetupEventQT9 ̹*TQRExportToFilterEventQȷ?Wε*TQRPreviewEventQ9 б*TQRAfterPrintEventQ\ҭ*TQRAfterPreviewEventQԩ& .TQRPrinterA+ Q "*
TQRPrinterQnء QRExportFilterLibrary'
G" .51p$4QRPrev c
FQRPrinter#$ GlobalPreviewInterfaceC$%cQRPFormatVersion
n *TQRFileHeader (QRPHeaderSizeAA !Streamb6 Resultf OldPositionf Buff FoundSize c(GetFileHeaderSizeAK !Stream6 Result c(FixupFileHeaderACK !Stream6 " aFileHeader*TQRD4FileHeader D4FileHeaderf MySize FileSize cj*.61 'Names$k( QRPaperNameAo 6!Size`#Resultc( TempFilenameAn #Result ANamef ADirfc(TQRStream.CreateA!Self
!.! MemoryLimitc(TQRStream.CreateFromFileA$]!Self!.!Filenamefc(TQRStream.DestroyA0q!Selff!.fc(TQRStream.LockStreamA<!Self c(TQRStream.UnlockStreamAH!Self c(TQRStream.WriteATU !Self"Buffer!Count
Resultc(TQRStream.ReadA` !Self"Buffer!Count
Resultc(TQRStream.SeekAl!Self!Offset!Origin
Resultc(TQRStream.SaveToStreamAx!Self!AStream6
Bufferf BytesReadc(TQRCompress.CreateA!!Self!.f!aStream6! CompressDatac(TQRCompress.DestroyA!!Self!.c(TQRCompress.InitializeSplayA!!Self I~ J| K~c(TQRCompress.SplayA!!Self !Plainz A~ B~
C| D|c(TQRCompress.CompressA!!Self!Plainfz A~ U| Sp Stackfc(TQRCompress.GetByteA!4
!Self Resultf
c(TQRCompress.ExpandA!!Self"Expanded
A~c(TQRPageList.CreateA/&ؘ!Self!.c(TQRPageList.DestroyA/&~!Self!.c(TQRPageList.ClearA
PageNumber ThisPageNumf NextPositionf PrevPositionfc(TQRPageList.GetPageA/& P!Selff!
PageNumber ResultfP Dummyf
TempStream8 aBytef
BytesToGetf I c(
aPageCountfc( SavePostInfoAc ck(TQRPageList.AddPageA/&!Selff! aMetafileP If SavePos1f SavePos2f SavePos3f
TempStream8 aBytef
c(QREnumFontsProc "LogFont&&"
TextMetric&(!FontType& !Data& ( Resultc(GetFontsApSVD ResultD c(TQRPreviewInterface.ShowA}1 H!Self !
AQRPrinter ResultH c( TQRPreviewInterface.ShowModalA}I H!Self !
AQRPrinter ResultH c( TQRStandardPreviewInterface.ShowA!Textfc( TQRExportFilterLibrary.CreateA1!Self!.c( TQRExportFilterLibrary.DestroyAI!Self!. I
c( TQRExportFilterLibrary.AddFilterAa!Self
!AFilterf
aTmpFilter aLibraryEntryc(#TQRExportFilterLibrary.RemoveFilterAy!Self!AFilter
aTmpFilterf I aLibraryEntry
c(*TQRExportFilterLibrary.GetSaveDialogFilterAّ1 !Selff#Result
If .c(TPrinterSettings.CreateAus$!Self!.c(TPrinterSettings.DestroyAvs$z!Self!.c(
GPixelsPerAP c(GOffsetAR 1 PrintOffsetf,c(
GPaperSizeACW aSize I`c( GPaperDimAY 1 PSizef,cj*.71Ak( GPaperSizesAc_ E DCResultf I J` Countck(#TPrinterSettings.GetPrinterSettingsAks$!Selffc( TPrinterSettings.ApplySettingsAws$ !Selfc(
!Self!APrinterc( ResetDriverAÅ !aPrinterL Devicef Namef Portf DevModef" c(TQRPrinter.CreateA`!
U!Self
!.c(TQRPrinter.DestroyA`9
-!Self
!.c(TQRPrinter.CleanupA`Q
!Selfc(TQRPrinter.ClosePreviewA`i
F!Self!ControlHc(TQRPrinter.XPosA`
@ !Self!Value& Result c(TQRPrinter.XSizeA`
6 !Self!Value& Result c(TQRPrinter.YPosA`
F !Self!Value& Result c(TQRPrinter.YSizeA`
6 !Self!Value& Result c(TQRPrinter.GetCompressionA`
!Self Result c(TQRPrinter.SetCompressionA`
!Self !Valuec(TQRPrinter.GetBinA` b!Self Resultb c(TQRPrinter.GetCopiesA`) !Self Result c(TQRPrinter.GetDuplexA`A !Self Result c(TQRPrinter.GetLeftWasteA`Y $ !Self Result c(TQRPrinter.GetOrientationA`q \!Self Result\ c(TQRPrinter.GetPaperLengthA` !Self Result c(TQRPrinter.PaperLengthValueA` Q !Self Result c(
!Self c(TQRPrinter.BeginDocA`!Selfc( TQRPrinter.SetAvailablePagesA`)T!Self!Valuec(TQRPrinter.SetProgressA`AT!Self!Valuec( TQRPrinter.SetShowingPreviewA`Y%!Selff!Valuefc(TQRPrinter.EndDocA`q!Selfc(TQRPrinter.AbortDocA`!Selfc(TQRPrinter.LoadA`
!Selff!Filenamef I` Hf Vf .fPc(TQRPrinter.SaveA`!Self!Filenamefc(TQRPrinter.ExportToFilterA`$!Self !aFilterc(TQRPrinter.PreviewA` !Self .fc(TQRPrinter.PreviewModalA`!Self .fc(TQRPrinter.PrintA`y!Selff* TSmallPoint If aPointf ASizef, APagefP FromPage ToPagefc(TQRPrinter.PrintSetupA`1$!Self c( QRPrinterA`I@ Result c(RegisterPreviewClassA a !APreviewInterface c( A0 ( FinalizationAEay! c(QRPrntrA l!cCuA
` 6CU}
E
b
l D p D p PD p L
G xFD 0 cD. p D, p D0 p L |~L ! ~|M % ,Msg ,Position, QRPrintercM ) ,Msg , PageCount, QRPrintercM - ,Msg ,Dummy, QRPrintercG 5 G Fj= 9 ,FExportFilterClass ,FName ,
FExtension 0ExportFilterClass 0
FilterName 0 Extension cG F`E A , FFilterList 4-GetSaveDialogFilter .CreateE/DestroyQ- AddFiltera- RemoveFilteru0Filters4 0SaveDialogFilterString cG FFM 6 `I ,FLock , MemoryStream 88, FFilename @,
FileStream :H, FInMemory P, FMemoryLimit X.Createu .CreateFromFile /Destroy -Write -Seek
-Read -
LockStream - UnlockStream - SaveToStream 0InMemory cG FJU QQ ,BitPos
, CompressFlag
,InByte z ,Left ,Right !,OutByte z!,Stream 61,Up A-GetByte m -InitializeSplay !-Splay 5.Create/Destroy-Expandy-CompressQcG FJ] XY ,FLock , aCompressor 8, FCompression @,
FPageCount H,FStream P- SeekToFirst -
SeekToLast -
SeekToPage -ReadFileHeader --WriteFileHeader 9.Create/Destroy-GetPage -AddPageQ-Clear-Finish- LoadFromFile-LockList-
SaveToFile-
UnlockList0 Compression mm 0 PageCount q 0Stream uu cG aFZe < `a & -Show - ShowModal
FQRPrinter ء, FPageNumber , aMetaFile P,FImageOK - PaintPage -SetPageNumber ,Zoom.Create/Destroy-PaintF0ImageOK 0
PageNumber 0 QRPrinter cH% j!Sender !Progress cH j!Sender !PageNum cG F Z A j& ,FOnPageAvailableEvent ,FOnProgressUpdateEvent ,FPreviewImage , FPageNumber ,
FQRPrinter ,FZoom ,
FZoomState ! -SetPageNumber Y-SetZoom - Fixvalues }- SetQRPrinter 5-CMPageAvailableA-CMProgressUpdateM.Create/Destroy)- UpdateImagee-
UpdateZoomm- ZoomToWidth- ZoomToFit0 PreviewImage 0 QRPrinter %5 0 ZoomState -- 0OnPageAvailable 0OnProgressUpdate 0
PageNumber !Y 0Zoom ) cG YFR ( ,FOriginalQRPrinter ,FActive , FFilename ,FOwner < -GetDescription - GetExtension -GetFilterName -GetVendorName - GetStreaming .Create-Start
-EndPage -Finish-NewPage -TextOut%0Active 0 Description 0FileExtension 0Filename 0Name 0Owner< 0 Streaming 0Vendor 0OriginalQRPrinter }} cL 6 G FT ,FDevice ,FDriver ,FPort ,
DeviceMode " ,DevMode $(,FCopies 0,FDuplex 8, FMaxExtentX @, FMaxExtentY H, FMinExtentX P, FMinExtentY X, FOrientation \`,
FOutputBin bb,
FPaperSize `d, FPaperSizes f, FPaperWidth A, FPaperLength Q, FPixelsPerX a, FPixelsPerY q,
FTopOffset , FLeftOffset ,FPrinter L,FTitle - GetCopies - GetDriver - GetDuplex -GetMaxExtentX -GetMaxExtentY -GetMinExtentX -GetMinExtentY -GetOrientation - GetOutputBin - GetPaperSize % -GetPaperSizeSupported 1 -GetPaperWidth A -GetPaperLength M -GetPixelsPerX Y -GetPixelsPerY e -GetPort q -
GetPrinter -GetTitle - GetTopOffset } -GetLeftOffset - Supported -SetField -GetPrinterSettings %- SetCopies 5- SetDuplex A-SetOrientation M- SetOutputBin Y- SetPaperSize e-SetPaperLength q-SetPaperWidth }-
SetPrinter -SetTitle .Create/Destroy-ApplySettings-0Device 0Driver 0
LeftOffset 0
MaxExtentX 0
MaxExtentY 0
MinExtentX 0
MinExtentY 0PaperSizeSupported 1 0
PixelsPerX Y 0
PixelsPerY e 0Port q 0 TopOffset } 0Copies 5 0Duplex A 0 Orientation\ M 0 OutputBinb Y 0 PaperLength Mq 0 PaperSize` %e 0
PaperWidth A} 0PrinterL 0Title cG FX @ 8 ,FCopies ,FDuplex , FOrientation \,
FOutputBin b,
FPaperSize `,FPrinterIndex ,FTitle ,
FFirstPage (, FLastPage 0.Create-ApplySettings0Copies 0Duplex 0 FirstPage 55 0LastPage 99 0 Orientation\ !! 0 OutputBinb %% 0 PaperSize` )) 0 PrinterIndex -- 0Title 11 cC C HD cH6 cHx j!aFilter cH0 cH^ j!Sender cHb j!Sender cG FH @ ,aPrinter L,aPrinterSettings ,aStream ,FAfterPrintEvent ,FAfterPreviewEvent 0,FAvailablePages @,
FCancelled H,FCanvas VP,FCloseControl HX, FDestination `,
FFirstPage h, FLastpage p,
FLeftWaste x,FClient H,FMaster H, FMetafile P!,FOnExportToFilterEvent A,FOnPreviewEvent Ba,FOnPrintSetupEvent ́,FPage P,
FPageCount , FPageNumber ,
FPrinterOK , FProgress ,FTitle , FTopWaste ,FShowingPreview ,FStatus ,FXFactor !,FYFactor a,PageList ,PreviewControl H,FReportLoaded -CurrentPageOK - GetLeftWaste y -GetBin U - GetCanvas y -GetCompression = - GetCopies a - GetDuplex m -GetOrientation -GetPaperLength - GetPaperSize -GetPaperWidth -GetPrinterIndex - GetPrinters - GetTopWaste -CreateMetafileCanvas -CreatePrinterCanvas -EndMetafileCanvas -EndPrinterCanvas -SetAvailablePages -SetBin -SetCompression I- SetCopies -SetDestination - SetDuplex -SetOrientation !-SetPaperLength U-SetPageNumber I- SetPaperSize a-SetPaperWidth --SetPrinterIndex m- SetProgress -SetShowingPreview .Create/Destroy-GetPage9 -XPos -XSize -YPos -YSize- -PaperLengthValue -PaperWidthValue -AbortDoc-BeginDoc-Cancel-Cleanup- ClosePreview-EndDoc-ExportToFilter%-Load-NewPage-Preview1- PreviewModal=-PrintI-
PrintSetupm-Save0 ReportLoaded 0 AfterPreview 0
AfterPrint 0AvailablePages 0 OutputBinb U 0 Cancelled 0CanvasV y 0ClientH 0 Compression =I 0Copies a 0 Destination 0Duplex m 0 FirstPage 0LastPage 0 LeftWaste y 0MasterH 0 Orientation\ ! 0OnExportToFilter 0 OnPreviewB 0 OnPrintSetup 0 PaperLength U 0PageP 0 PageCount 0
PageNumber I 0
PaperWidth - 0 PaperSize` a 0 PrinterIndex m 0 PrinterOK 0PrintersD 0Progress 0ShowingPreview 0Status 0Title 0TopWaste 0XFactor 0YFactor cM ,FormatVersion , QRVersion,PageSize`, PageCount,CreateDateTime ,Portrait0, Compression
2,
EmptySpace4cL
, PageCount,CreateDateTime,Portrait(, Compression
*,
EmptySpace,cL*Q L
D p L |EB!L %
D p L 1
L 5
C ` 6D p D p @L 9D p D p D p D p D p D p Pi @Qrprntr@initialization$qqrvi
i
i@Qrprntr@cQRBinTranslate
i
i @Qrprntr@cQRPaperSizeMetrics
i@$xp$14Qrprntr@TQRBin}
i@$xp$20Qrprntr@TQRPaperSizeA
l% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % m= Y e u } y u qmi!e5aQ]mYyUQMIEA=951-) %-!9 Q )5AMYem} %EQau}yuqmiea]YU%Q1MAIMEYAe=q9}51-)%!% -5AMY eq} -=IUamy !}-y9uIqUmaimeya]YUQMIEA=951-)%%!1 =Imu} 4
a RA
l l n p r t v x z | ~
!
%
)
-
1
5
9
=
}
E
I
M
Q
U
Y
]
a
e
i
m
q
u
y
ƅ
ȉ
ʍ
̑
Е
! % ) 1 9 A E I M! Q% Y% ]% a% e) q) u) y) }- - - - 1 5 = = = = = =
= E E AE E
u
5M 9u EAM A IEM E MIM I QMUM M UQM Q YUM U ]Y-M
U U U m U ! }U 5 U 1U aU
] !] E] - ] 9 ] )] M] ]
m
Y } 5 - A M
! %
e i m q u }Y" } "
}# 9
&
)$
=$
Q$
-
e$
5%
y%
!
5*
%
!
( !
)
%
( %
-
)
# )
1
-
# -
5
1
) 1
% 9
5
=+ 5
=
9
u* 9
A
=
9( =
1 E
A
U+ A
= I
E
+ E
I M
I
+ I
m Q
M
- M
U
Q
%+ Q
U
Y
]
a
e
i
m
q
u
y
}
e
mY
1} 9-u - e-a Y- q uX gTObject.CreateGfCharig@LStrFromChar9%\g@LStrCatEagLoadResString! g @LStrAddRefj g@HandleAnyExceptionEag @DoneExceptEag TObject.FreeGg @ClassCreateg@AfterConstructionڿ%UgAssigned g@BeforeDestructiondg@ClassDestroyOg@LStrCmpEag@LStrAsg4gFalsegDelete g @LStrDeleteEag @LStrCat3EagTObject.ClassNameGg @LStrLAsg4g@LStrFromStringhgTruegRound g @LStrCatNEag@ROUNDEag@LStrArrayClrzYgPos g@LStrPosEacdSysInitC cdWindowsC cdSysUtilsC gIntToStri5gAnsiPos ܄cdClassesC f
TComponenttfTStringseg .TComponent[YwgTComponent.DefineProperties|gTComponent.LoadedgTComponent.NotificationgTComponent.ReadStategTComponent.SetNamegTComponent.UpdateRegistrygTComponent.ValidateRenamegTComponent.WriteStategTComponent.QueryInterfaceg TComponent.BeforeDestructiong TComponent.SafeCallExceptiongTPersistent.AssignToN`gTPersistent.AssignN`g TComponent.GetComponentCountngTComponent.GetComponentmf TDataModuleqlf TStringList~8g .TStringListt
TAlignment$QgtaCenter~dygtaRightJustify}dygRegisterClasses4cdControlsC f TWinControl'Ag .TWinControl촳mgTControl.SetVisible`)gTControl.SetFont`)gTControl.SetHeight`)gTControl.SetLeft`)gTControl.SetWidth`)cdStdCtrlsC f TComboBox cdExtCtrlsC cdGraphicsC fTFontnBϸg.TFontUAg TFont.CreatesgTFont.SetNamengTFont.SetSizepgTFont.SetStyleqf
TFontStyle AgfsBoldL?cdButtonsC cdFormsC f TCustomFormsgScreeni g
poPortrait2lg poLandscape2lcdDBC fTDataSet1|4!g .TDataSet
fTFieldf
TBlobField 8g .TBlobFieldgTField.GetDisplayWidth~gTField.GetDisplayName~gTDataSet.FieldByName&@"EgTDataSet.GetFieldCounto?"EgTFields.GetFieldUScdClipbrdC cdQRPrntrq uX f
TQRPrinterng .TQRPrinter+ QgTQRPrinter.Create`gTQRPrinter.SetDestination`fTQRPrinterDestinationWg qrdMetafile0gTQRPrinter.Preview`g
qrdPrinter0gTQRPrinter.Load`gTQRPrinter.Print`cdQuickRptq uX fTCustomQuickRep Jf TQuickRepu6g
.TQuickRepFg
UniqueNameYgTQRPage.SetOrientationҹgTCustomQuickRep.Createc gTQuickRepBands.GetHasBand =gTQuickRepBands.SetHasBand =gTQuickRepBands.GetBand =g
Zg .TQRGroup] =f TQRSubDetailxg.TQRSubDetail_:f TQRChildBand,g.TQRChildBand"cdQRCtrlsq uX fTQRLabel䠙g .TQRLabel. gTQRCustomLabel.SetCaptionݸ8fTQRExprT
g.TQRExpr;agTQRExpr.SetExpressionJtfTQRShapeqzg .TQRShapeXucdQRCompEdq uX cdQRExpBldq uX cdDBTablesC fTTablen8sg.TTableU VfTQueryyB(g.TQuery`T cdQRPrevq uX ceQR3Constq uX gSqrErrorLoadingc~vgSqrPagec~vch
qrpt70.bpl g @Qrextra@initialization$qqrv g
TQRBuilderQ 0Pq&.TQRListBuilderA.RǙm*TQRListBuilderQUTi .5Vc$4QR3Const c%cqrToolBarHeight
X i%cqrStatusBarHeight
X (%cQRFontSizeCount
X ' cQRFontSizesZc $(PopulateFontSizeComboA&, \!aCombo
I
cj(AddFormA; 9 \!AControl I
c(AddDMA? \!DMf I
ck( AllDataSetsAq1 !Form !IncludeDataModules Resultf J
c(dupAE !aChar !Count
#Result I
c( QRLoadReportA2!Filenamef Resultf2 aForm"c( QRFreeReportA$ \!aReport2 c(TQRPrintJob.CreateOutputA 20\!SelfH !
AQRPrinter,c(TQRPrintJob.PreviewA 2<\!SelfH
aQRPrinterf,c(TQRPrintJob.PrintA 2H\!SelfH
aQRPrinterf,c(TQRPHandler.CreateA Tr\!SelfL!.^c(TQRPHandler.DestroyA `b\!SelfL!.^c(TQRPHandler.SetFilenameA l\!SelfL!Valuefc(TQRPHandler.PreviewA xR\!SelfLc(TQRPHandler.PrintA \!SelfL c& .TNameCountA`` *
TNameCount b(TQRBuilder.CreateAT1\!SelfP!.f^!AOwnerc(TQRBuilder.DestroyAT\!SelfP !.^ I
c(TQRBuilder.FetchReportAT4 0!SelfP Result0c(TQRBuilder.NewNameAT !SelfP!
AClassNamef#Resultf Value
Index
.b c(TQRBuilder.RenameObjectsAT\!SelfP I
aNamef AOwnerc(TQRBuilder.SetOrientationAT:\!SelfP !Value$c(TQRBuilder.SetTitleAT\!SelfP!Valuefc(TQRBuilder.BuildFrameworkAT\!SelfP HadBand .0 .<
.>
c(TQRBuilder.SetActiveATL\!SelfP!Valuec(TQRListBuilder.CreateA\!SelfT!.^!AOwnerc(TQRListBuilder.DestroyAZ\!SelfT!.^c(TQRListBuilder.SetActiveA)^\!SelfT!Valuec(TQRListBuilder.SetFieldsAA
aField( aExprf> aLabelf< aHeightf
HadDetailf
HadColHeadfc(TQRListBuilder.AddAllFieldsAq~\!SelfT I
c( QRCreateListAjI \"AReport0!AOwner
!aDataSetf&!aTitlef!
aFieldList .fTc( FinalizationAEa\! \c(QRExtraA !\cG HFJ - CreateOutput y-Preview-PrintcG LFJ , FFilename ,
FQRPrinter ,- SetFilename.Create/Destroy-Preview-Print0Filename cG PFH ! & ,FActive `,FFont h, FOrientation $p,FReport 0x,FTitle ,NameList -NewName -BuildFrameworkM-RenameObjects!- SetActive
@ A ^ G bFH ,Count
cD V i @Qrextra@initialization$qqrvi
M ! e M 5 I A e
q ) Q 9 ia =q } a $ q uX @Qrdatawz@TTableSelector@ContinueBtnClick$qqrp14System@TObject g:@Qrdatawz@TTableSelector@BackBtnClick$qqrp14System@TObject g(@Qrdatawz@TTableSelector@FixButtons$qqrv gD@Qrdatawz@TTableSelector@SelectedFieldsDblClick$qqrp14System@TObject gE@Qrdatawz@TTableSelector@AvailableFieldsDblClick$qqrp14System@TObject gA@Qrdatawz@TTableSelector@SelectedFieldsClick$qqrp14System@TObject gB@Qrdatawz@TTableSelector@AvailableFieldsClick$qqrp14System@TObject g<@Qrdatawz@TTableSelector@RemoveAllClick$qqrp14System@TObject g<@Qrdatawz@TTableSelector@RemoveOneClick$qqrp14System@TObject g9@Qrdatawz@TTableSelector@AddAllClick$qqrp14System@TObject g9@Qrdatawz@TTableSelector@AddOneClick$qqrp14System@TObject g8@Qrdatawz@TTableSelector@FormCreate$qqrp14System@TObject g<@Qrdatawz@TTableSelector@TableNameEnter$qqrp14System@TObject g<@Qrdatawz@TTableSelector@SelectDirClick$qqrp14System@TObject g=@Qrdatawz@TTableSelector@TableNameChange$qqrp14System@TObject g(@Qrdatawz@TTableSelector@PickFields$qqrv g(@Qrdatawz@TTableSelector@PickTables$qqrv g @$xp$23Qrdatawz@TTableSelector g@Qrdatawz@TTableSelector@ c4QRDataWziif@c4Windows 2c4Messages 4c4SysUtils 6c4Classes 8c4Graphics Dc4Controls Fc4Forms c4Dialogs c4DB c4DBTables c4StdCtrls c4FileCtrl 9c&.TTableSelectorAh e*TTableSelectorQ g" .2$$(MoveListA# A &!Source !Destf Ic( MoveListAllA u &!Source !Destf Ic(TTableSelector.PickTablesAT &!Selff"c(TTableSelector.PickFieldsAT &!Self" I
c( TTableSelector.TableNameChangeAT &!Self" !Senderc( TTableSelector.SelectDirClickAT$&!Self"!Sender
ADirectoryfc( TTableSelector.TableNameEnterAT0 &!Self" !Senderc(TTableSelector.FormCreateAT<&!Self"!Sender ADirfc(
!ParentControl
Resultf .f"c( FinalizationAEa\! &c(QRDataWzA !&cG "YFR z& , GroupBox2 , SelectDir , AliasName
FormCreateA- AddOneClickQ- AddAllClick]-RemoveOneClicki-RemoveAllClicku-AvailableFieldsClick-SelectedFieldsClick-AvailableFieldsDblClick-SelectedFieldsDblClick- BackBtnClick-ContinueBtnClick-CancelBtnClick-
PickFields -
PickTables -
FixButtons cD $ P@ i @Qrdatawz@initialization$qqrvi@Qrdatawz@Finalization$qqrviV@Qrdatawz@GetTable$qqrr17System@AnsiStringt1p16Classes@TStringsp20Controls@TWinControli<@Qrdatawz@TTableSelector@CancelBtnClick$qqrp14System@TObjecti>@Qrdatawz@TTableSelector@ContinueBtnClick$qqrp14System@TObjecti:@Qrdatawz@TTableSelector@BackBtnClick$qqrp14System@TObjecti(@Qrdatawz@TTableSelector@FixButtons$qqrviD@Qrdatawz@TTableSelector@SelectedFieldsDblClick$qqrp14System@TObjectiE@Qrdatawz@TTableSelector@AvailableFieldsDblClick$qqrp14System@TObjectiA@Qrdatawz@TTableSelector@SelectedFieldsClick$qqrp14System@TObjectiB@Qrdatawz@TTableSelector@AvailableFieldsClick$qqrp14System@TObjecti<@Qrdatawz@TTableSelector@RemoveAllClick$qqrp14System@TObjectui<@Qrdatawz@TTableSelector@RemoveOneClick$qqrp14System@TObjectii9@Qrdatawz@TTableSelector@AddAllClick$qqrp14System@TObject]i9@Qrdatawz@TTableSelector@AddOneClick$qqrp14System@TObjectQi8@Qrdatawz@TTableSelector@FormCreate$qqrp14System@TObjectAi<@Qrdatawz@TTableSelector@TableNameEnter$qqrp14System@TObject5i<@Qrdatawz@TTableSelector@SelectDirClick$qqrp14System@TObject%i=@Qrdatawz@TTableSelector@TableNameChange$qqrp14System@TObjecti(@Qrdatawz@TTableSelector@PickFields$qqrvi(@Qrdatawz@TTableSelector@PickTables$qqrvi @$xp$23Qrdatawz@TTableSelectori@Qrdatawz@TTableSelector@l% % % % % % % % % % % % % % % % % % % % % mV %5AQ]}iyuuqmiea]YUQMI5 t
6 8 : < > @ B D
AnsiStringfBooleanW~8g.TObject Bg@AbstractErrorEagTObject.SafeCallExceptionGgTObject.AfterConstructionGgTObject.BeforeDestructionGgTObject.DefaultHandlerGgTObject.DestroyGg TObject.FreeGg@HandleFinallyEafIntegerg@LStrClrѨ}gLoadResString! gTruegTObject.CreateGg@LStrArrayClrzYcdSysInitC cdWindowsC cdMessagesC cdSysUtilsC cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`fTList; "g TList.Get.EfTStringsef TStringList~8g .TStringListt
.TGroupBox@g
.TComboBoxȮRg.TMemoЮL0cdExtCtrlsC fTPanelfTImage9g.TPanelyg.TImageډcdQuickRptq uX fTCustomQuickRep Jf TQuickRepu6g
.TQuickRepFgTCustomQuickRep.Createc fTQuickRepBands1gTQuickRepBands.SetHasBand =gTQuickRep.SetDataSet8ZcdDBTablesC fTTablen8sg.TTableU VgTTable.Createg
qrpt70.bpl g @Qrwizard@initialization$qqrv g@Qrwizard@Finalization$qqrv g;@Qrwizard@TMainWizardForm@Button1Click$qqrp14System@TObject g2@Qrwizard@RegisterQRWizard$qqrp17System@TMetaClass g@Qrwizard@WizardList$qqrv g;@Qrwizard@TQRLabelWizard@Execute$qqrp20Controls@TWinControl g&@Qrwizard@TQRLabelWizard@CanClose$qqrv g)@Qrwizard@TQRLabelWizard@Description$qqrv g"@Qrwizard@TQRLabelWizard@Name$qqrv gB@Qrwizard@TQRMasterDetailWizard@Execute$qqrp20Controls@TWinControl g-@Qrwizard@TQRMasterDetailWizard@CanClose$qqrv g0@Qrwizard@TQRMasterDetailWizard@Description$qqrv g)@Qrwizard@TQRMasterDetailWizard@Name$qqrv g:@Qrwizard@TQRListWizard@Execute$qqrp20Controls@TWinControl g%@Qrwizard@TQRListWizard@CanClose$qqrv g(@Qrwizard@TQRListWizard@Description$qqrv g!@Qrwizard@TQRListWizard@Name$qqrv g;@Qrwizard@TQRPlainWizard@Execute$qqrp20Controls@TWinControl g&@Qrwizard@TQRPlainWizard@CanClose$qqrv g)@Qrwizard@TQRPlainWizard@Description$qqrv g"@Qrwizard@TQRPlainWizard@Name$qqrv gB@Qrwizard@TMainWizardForm@StartWizardBtnClick$qqrp14System@TObject g9@Qrwizard@TMainWizardForm@FormCreate$qqrp14System@TObject g=@Qrwizard@TMainWizardForm@WizardCBChange$qqrp14System@TObject g;@Qrwizard@TMainWizardForm@FormActivate$qqrp14System@TObject g @Qrwizard@ExecuteQRWizard$qqrv g#@$xp$28Qrwizard@TQRLabelWizardClass g @$xp$23Qrwizard@TQRLabelWizard g@Qrwizard@TQRLabelWizard@ g*@$xp$35Qrwizard@TQRMasterDetailWizardClass g%@$xp$30Qrwizard@TQRMasterDetailWizard g @Qrwizard@TQRMasterDetailWizard@ g"@$xp$27Qrwizard@TQRListWizardClass g @$xp$22Qrwizard@TQRListWizard g@Qrwizard@TQRListWizard@ g#@$xp$28Qrwizard@TQRPlainWizardClass g @$xp$23Qrwizard@TQRPlainWizard g@Qrwizard@TQRPlainWizard@ g @$xp$23Qrwizard@TQRWizardClass g6@Qrwizard@TQRWizard@Execute$qqrp20Controls@TWinControl g @Qrwizard@TQRWizard@Picture$qqrv g!@Qrwizard@TQRWizard@CanClose$qqrv g$@Qrwizard@TQRWizard@Description$qqrv g @Qrwizard@TQRWizard@Name$qqrv g@$xp$18Qrwizard@TQRWizard g@Qrwizard@TQRWizard@ g @$xp$24Qrwizard@TMainWizardForm g
.TQRWizardA;0G9* TQRWizardQz*25(TQRWizard.Name=N
!Self2 c(TQRWizard.Description=N
!Self2 c(TQRWizard.CanClose=N
!Self2 c(TQRWizard.Picture=N
!Self2 c(TQRWizard.Execute=N
$!Self2 !Parent c*TQRWizardClassK
L4 &.TQRPlainWizardA*)j6*TQRPlainWizardQɜ8*TQRPlainWizardClassy:&.TQRListWizardA
c( TMainWizardForm.WizardCBChangeA>T%P!Self.!Senderc(
PageNumber
PageResult
TableNamef AliasNamef FieldList
ATable*c(
WizardListA*Eq@ Result c(RegisterQRWizardAGӉh P! WizardClass4c( TMainWizardForm.Button1ClickA> P!Self. !Senderc( FinalizationAEa! Pc(QRWizardA "!PcG .- FT z& , SelectPanel ,StartWizardBtn ,Button1 , GroupBox1
FormCreate!-StartWizardBtnClick-- Button1Click9,FReport $Q , ActiveWizard 2a 0Report$ y cG 2FH
-Name - Description-CanClose-Picture-ExecutecG 2 G 8FR2
-Name 9 - DescriptionE -CanCloseQ -Execute] cG 8 G >FP2
-Name q - Description} -CanClose -Execute cG > G DF`2
-Name - Description -CanClose -Execute cG D G JFR2
-Name - Description -CanClose -Execute cG J D N P@ i @Qrwizard@initialization$qqrvi@Qrwizard@Finalization$qqrvEi;@Qrwizard@TMainWizardForm@Button1Click$qqrp14System@TObject9i2@Qrwizard@RegisterQRWizard$qqrp17System@TMetaClass1i@Qrwizard@WizardList$qqrv)i;@Qrwizard@TQRLabelWizard@Execute$qqrp20Controls@TWinControl i&@Qrwizard@TQRLabelWizard@CanClose$qqrv i)@Qrwizard@TQRLabelWizard@Description$qqrvi"@Qrwizard@TQRLabelWizard@Name$qqrviB@Qrwizard@TQRMasterDetailWizard@Execute$qqrp20Controls@TWinControli-@Qrwizard@TQRMasterDetailWizard@CanClose$qqrv i0@Qrwizard@TQRMasterDetailWizard@Description$qqrv!i)@Qrwizard@TQRMasterDetailWizard@Name$qqrv%i:@Qrwizard@TQRListWizard@Execute$qqrp20Controls@TWinControl)i%@Qrwizard@TQRListWizard@CanClose$qqrv-i(@Qrwizard@TQRListWizard@Description$qqrv}1i!@Qrwizard@TQRListWizard@Name$qqrvq5i;@Qrwizard@TQRPlainWizard@Execute$qqrp20Controls@TWinControl]9i&@Qrwizard@TQRPlainWizard@CanClose$qqrvQ=i)@Qrwizard@TQRPlainWizard@Description$qqrvEAi"@Qrwizard@TQRPlainWizard@Name$qqrv9EiB@Qrwizard@TMainWizardForm@StartWizardBtnClick$qqrp14System@TObject-Ii9@Qrwizard@TMainWizardForm@FormCreate$qqrp14System@TObject!Mi=@Qrwizard@TMainWizardForm@WizardCBChange$qqrp14System@TObjectQi;@Qrwizard@TMainWizardForm@FormActivate$qqrp14System@TObjectUi @Qrwizard@ExecuteQRWizard$qqrvYi @$xp$23Qrwizard@TQRLabelWizard]i@Qrwizard@TQRLabelWizard@ai%@$xp$30Qrwizard@TQRMasterDetailWizardei @Qrwizard@TQRMasterDetailWizard@ii @$xp$22Qrwizard@TQRListWizardmi@Qrwizard@TQRListWizard@qi @$xp$23Qrwizard@TQRPlainWizardui@Qrwizard@TQRPlainWizard@yi@$xp$18Qrwizard@TQRWizard}i@Qrwizard@TQRWizard@i @$xp$24Qrwizard@TMainWizardFormi
8 : < @> > B@ @! DB B- FD- D9 HFq F
` f j9 pnY nE rpm pQ tr r] vt t z ~q } 1 U ) 9E a q uX @ B D
QRDEFS.INC/{*p QRExport.pas* dSystemC f
AnsiStringfExtended@gTObject.SafeCallExceptionGgTObject.AfterConstructionGgTObject.BeforeDestructionGgTObject.DispatchGgTObject.DefaultHandlerGgTObject.NewInstanceGgTObject.FreeInstanceGfStringfIntegerfBooleanW~8gTObject.DestroyGfCharifTextfTObject_g.TObject BgCopy g @LStrCopyEag @LStrCatNEag@LStrArrayClrzYg@HandleFinallyEagFalseg @ClassCreateg@AfterConstructionڿ%UgTObject.CreateGg TObject.FreeGg@BeforeDestructiondg@ClassDestroyOgTruegRound gExit g@ROUNDEagInc g@LStrAsg4g@LStrClrѨ}g @LStrAddRefj gLength g@LStrLeng @LStrToPCharfg@IsClassF>gLoadResString! g@LStrFromChar9%\g @LStrCat3Eag@LStrCatEag
AssignFile g@AssignjtgRewrite g @RewritTextR#Dg@_IOTestEagWriteln g@Write0LStringE[g@WriteLnԠ?g CloseFile g@CloseR#DgDelete g @LStrDeleteEagInsert g @LStrInsertEag @LStrLAsg4cdSysInitC cdWindowsC cdMessagesC cdSysUtilsC gIntToHex5BgIntToStri5cdClassesC f TPersistent
TAlignment$Qg .TPersistent gTPersistent.AssignToN`g TPersistent.DefinePropertiesN`gTPersistent.DestroyN`gTPersistent.AssignN`fTList; "fTStreamYef
TComponenttg .TComponent[YwgTComponent.DefineProperties|gTComponent.LoadedgTComponent.NotificationgTComponent.ReadStategTComponent.SetNamegTComponent.UpdateRegistrygTComponent.ValidateRenamegTComponent.WriteStategTComponent.QueryInterfaceg TComponent.BeforeDestructiong TComponent.SafeCallExceptiong.TList"]sg TList.Get.Eg TList.Delete7Eg TList.Add5Ef TFileStreamjIkg .TFileStreamMgfmCreateegTFileStream.Create-7gTComponent.CreategTComponent.DestroyfTMemoryStreamg.TMemoryStreamn6gtaRightJustify}dycdGraphicsC fTFontnBϸfTColor@Qrexport@TQRAbstractExportFilter@Start$qqriip14Graphics@TFont g3@Qrexport@TQRAbstractExportFilter@GetExtension$qqrv g5@Qrexport@TQRAbstractExportFilter@GetDescription$qqrv g4@Qrexport@TQRAbstractExportFilter@GetFilterName$qqrv g @$xp$22Qrexport@TQRTextFilter g@Qrexport@TQRTextFilter@ g$@$xp$29Qrexport@TQRAsciiExportFilter g @Qrexport@TQRAsciiExportFilter@ g@$xp$20Qrexport@QRExport__8 g @$xp$22Qrexport@TQRHTMLFilter g@Qrexport@TQRHTMLFilter@ g%@$xp$30Qrexport@TQRHTMLDocumentFilter g @Qrexport@TQRHTMLDocumentFilter@ g @$xp$21Qrexport@TQRCSVFilter g@Qrexport@TQRCSVFilter@ g'@$xp$32Qrexport@TQRCommaSeparatedFilter g"@Qrexport@TQRCommaSeparatedFilter@ g'@$xp$32Qrexport@TQRAbstractExportFilter g"@Qrexport@TQRAbstractExportFilter@ g
TTextEntryQUÀ()&.TQRAbstractExportFilterAGo*P"%*TQRAbstractExportFilterQ`Gr,!&.TQRCommaSeparatedFilterA;.GY" *TQRCommaSeparatedFilterQ0#0&.TQRCSVFilterAȥ2b"* TQRCSVFilterQ:34&.TQRHTMLDocumentFilterA%T6i"*TQRHTMLDocumentFilterQ> gr8 &.TQRHTMLFilterAdr[:Gr"*TQRHTMLFilterQ}<*.8A>&.TQRAsciiExportFilterAi6l@}"*TQRAsciiExportFilterQB&.TQRTextFilterAzDG"*TQRTextFilterQF .01H#$4qrexpr )c&.TQRPositionsAJC * TQRPositions L&.TQRPositionEntryAN# *TQRPositionEntry P CSV_Separator C$ WMF_Enhanced
RTF_VertAdj (ColorToHTMLColorA# !Color"#Resultc(TQRPositionEntry.CreateAc R!SelfP !.T!Position&c(TQRPositions.CreateA R!SelfL!.Tc(TQRPositions.DestroyA R!SelfL
!.Tc(TQRPositions.BeginUpdateA
R!SelfL c(TQRPositions.EndUpdateA !R!SelfL
If J Minf No .P .P c(TQRPositions.NewPositionA !SelfL
!Position& Resultf Ic(TQRPositions.AddAC R!SelfL!Position& Ic(%TQRAbstractExportFilter.GetFilterNameA\
` P !Self, #Resultc(&TQRAbstractExportFilter.GetDescriptionA]
` !Self, #Resultc($TQRAbstractExportFilter.GetExtensionA^
` !Self, #Resultc( TQRAbstractExportFilter.StartAp
`$AR!Self,!
PaperWidthf! PaperHeight
!Font c($TQRAbstractExportFilter.CreateStreamAa
`0R!Self,!Filenamefc(#TQRAbstractExportFilter.CloseStreamAb
`<R!Self, c(%TQRAbstractExportFilter.WriteToStreamA_
`HFR!Self,!ATextc('TQRAbstractExportFilter.WriteLnToStreamA`
`TR!Self,!ATextc( TQRAbstractExportFilter.FinishAr
``dR!Self,c($TQRAbstractExportFilter.ClearEntriesAc
`llR!Self, aEntry(c( TQRAbstractExportFilter.NewPageAs
`xnR!Self,c( TQRAbstractExportFilter.EndPageAq
`4R!Self,c((TQRAbstractExportFilter.ConvertToColumnsAe
`R!Self,
I .fL .( .f(c(&TQRAbstractExportFilter.ConvertToLinesAf
`R!Self,
I .fL .( .f(c(#TQRAbstractExportFilter.ProcessPageAd
`<R!Self,c(!TQRAbstractExportFilter.StorePageAg
`R!Self, c( TQRAbstractExportFilter.TextOutAt
`R!Self,!X&8!Y& !Fontf !BGColor"! Alignment&!Textf
aTextEntry(c( TQRAbstractExportFilter.GetTextA[
`I !Selff,!X&(!Y&"Fontf #Resultf I .(
c(%TQRCommaSeparatedFilter.GetFilterNameAp G" !Self0 #Resultc(&TQRCommaSeparatedFilter.GetDescriptionAp G" !Self0 #Resultc($TQRCommaSeparatedFilter.GetExtensionAp G@ !Self0 #Resultc(!TQRCommaSeparatedFilter.StorePageAp GR!Self0 X Yf Fontf c(TQRCSVFilter.CreateA R!Self4!.T!AOwner
!Self8 Result
c( FontValueA#> !Size Result c(HTMLFontSizeAdjustA@ !!Size1!Size2
#Result Diffc("TQRHTMLDocumentFilter.CreateStreamA3TR!Self8!Filenamefc(!TQRHTMLDocumentFilter.CloseStreamA4TR!Self8 c( TQRHTMLDocumentFilter.StorePageA5T
R!Self8 X
Yf Fontf ATextf Parameterfc(TQRHTMLFilter.CreateAmR!Self<!.T!AOwner
V % BIT_BIFF5
X % BOF_BIFF5
X % %BIFF_EOF
V %
DIMENSIONS
X % DOCTYPE_XLS
V %LEN_RECORDHEADER
V %
XLACCUMROW
* ___XLGlobRow (dupAa !aChar !Count
#Result I c(#TQRAsciiExportFilter.GetDescriptionAxkI" !SelfB #Resultc("TQRAsciiExportFilter.GetFilterNameAwka" !SelfB #Resultc(!TQRAsciiExportFilter.GetExtensionAyky" !SelfB #Resultc(
PaperWidth! PaperHeight
!Font c( TQRAsciiExportFilter.EndPageA{k|R!SelfB Ic(TQRAsciiExportFilter.FinishA|k R!SelfB c( TQRAsciiExportFilter.NewPageA}k6R!SelfB Ic( TQRAsciiExportFilter.TextOutA~k1R!SelfB!X&8!Y& !Font !BGColor"! Alignment&!Textf aLinefc(TQRTextFilter.CreateA| R!SelfF!.T!AOwner
FAlignment 8,TextFont @cG ,qFdy$ u ,Entries (,FStream 0,
FCharWidth @, FCharHeight T, FPaperWidth h, FPaperHeight |,
FLineCount !, FColCount 1,FPageProcessed
A,FFont Q, FActiveFont a-GetTextA -GetFilterNameU -GetDescription a - GetExtensionm -WriteToStream-WriteLnToStream- CreateStream- CloseStream- ClearEntries- ProcessPage-ConvertToColumns-ConvertToLines- StorePage
mm 0 CharWidth UU 0
CharHeight YY 0
PaperWidth ]] 0 PaperHeight aa 0 LineCount ee 0ColCount ii -Start
y-EndPage -Finish-NewPage-TextOut cG 0qFd, } -GetFilterNamea -GetDescription m - GetExtensiony - StorePage
-GetFilterName -GetDescription - GetExtension - GetStreaming - CreateStream - CloseStream)- StorePage
FreeStream
cG <)FP
-EndPage -Finish-NewPage-TextOutcG F)FP
,IgnoreClientCount
.Create/Destroy- BeginUpdate - EndUpdate-AddE- NewPosition1 cG PFV @ ,ExactPosition , NewPosition (,Clients 0,Stored
8.Createc@ A T D H D H D H !i @Qrexport@initialization$qqrvi@Qrexport@Finalization$qqrv5i"@Qrexport@TQRTextFilter@$bdtr$qqrv)i6@Qrexport@TQRTextFilter@$bctr$qqrp18Classes@TComponentiu@Qrexport@TQRAsciiExportFilter@TextOut$qqrggp14Graphics@TFont15Graphics@TColor18Classes@TAlignment17System@AnsiStringi+@Qrexport@TQRAsciiExportFilter@NewPage$qqrvi*@Qrexport@TQRAsciiExportFilter@Finish$qqrvi+@Qrexport@TQRAsciiExportFilter@EndPage$qqrvi;@Qrexport@TQRAsciiExportFilter@Start$qqriip14Graphics@TFonti0@Qrexport@TQRAsciiExportFilter@GetExtension$qqrvi1@Qrexport@TQRAsciiExportFilter@GetFilterName$qqrvi2@Qrexport@TQRAsciiExportFilter@GetDescription$qqrvi"@Qrexport@TQRHTMLFilter@$bdtr$qqrv]i6@Qrexport@TQRHTMLFilter@$bctr$qqrp18Classes@TComponentMi.@Qrexport@TQRHTMLDocumentFilter@StorePage$qqrv1i0@Qrexport@TQRHTMLDocumentFilter@CloseStream$qqrv)iC@Qrexport@TQRHTMLDocumentFilter@CreateStream$qqr17System@AnsiString i1@Qrexport@TQRHTMLDocumentFilter@GetStreaming$qqrvi1@Qrexport@TQRHTMLDocumentFilter@GetExtension$qqrvi3@Qrexport@TQRHTMLDocumentFilter@GetDescription$qqrvi2@Qrexport@TQRHTMLDocumentFilter@GetFilterName$qqrvi(@Qrexport@TQRCSVFilter@SetSeparator$qqrci(@Qrexport@TQRCSVFilter@GetSeparator$qqrvi!@Qrexport@TQRCSVFilter@$bdtr$qqrvi5@Qrexport@TQRCSVFilter@$bctr$qqrp18Classes@TComponenti0@Qrexport@TQRCommaSeparatedFilter@StorePage$qqrvi3@Qrexport@TQRCommaSeparatedFilter@GetExtension$qqrvy i5@Qrexport@TQRCommaSeparatedFilter@GetDescription$qqrvmi4@Qrexport@TQRCommaSeparatedFilter@GetFilterName$qqrvaiA@Qrexport@TQRAbstractExportFilter@GetText$qqrggrp14Graphics@TFontAix@Qrexport@TQRAbstractExportFilter@TextOut$qqrggp14Graphics@TFont15Graphics@TColor18Classes@TAlignment17System@AnsiString i0@Qrexport@TQRAbstractExportFilter@StorePage$qqrv i2@Qrexport@TQRAbstractExportFilter@ProcessPage$qqrv!i5@Qrexport@TQRAbstractExportFilter@ConvertToLines$qqrv%i7@Qrexport@TQRAbstractExportFilter@ConvertToColumns$qqrv)i.@Qrexport@TQRAbstractExportFilter@EndPage$qqrv-i.@Qrexport@TQRAbstractExportFilter@NewPage$qqrv1i3@Qrexport@TQRAbstractExportFilter@ClearEntries$qqrv5i-@Qrexport@TQRAbstractExportFilter@Finish$qqrv9iI@Qrexport@TQRAbstractExportFilter@WriteLnToStream$qqrx17System@AnsiString=iG@Qrexport@TQRAbstractExportFilter@WriteToStream$qqrx17System@AnsiStringAi2@Qrexport@TQRAbstractExportFilter@CloseStream$qqrvEiE@Qrexport@TQRAbstractExportFilter@CreateStream$qqr17System@AnsiStringIi>@Qrexport@TQRAbstractExportFilter@Start$qqriip14Graphics@TFontyMi3@Qrexport@TQRAbstractExportFilter@GetExtension$qqrvmQi5@Qrexport@TQRAbstractExportFilter@GetDescription$qqrvaUi4@Qrexport@TQRAbstractExportFilter@GetFilterName$qqrvUYi @$xp$22Qrexport@TQRTextFilter]i@Qrexport@TQRTextFilter@ai$@$xp$29Qrexport@TQRAsciiExportFilterei @Qrexport@TQRAsciiExportFilter@ii@$xp$20Qrexport@QRExport__8mi @$xp$22Qrexport@TQRHTMLFilterqi@Qrexport@TQRHTMLFilter@ui%@$xp$30Qrexport@TQRHTMLDocumentFilteryi @Qrexport@TQRHTMLDocumentFilter@}i @$xp$21Qrexport@TQRCSVFilteri@Qrexport@TQRCSVFilter@i'@$xp$32Qrexport@TQRCommaSeparatedFilteri"@Qrexport@TQRCommaSeparatedFilter@}i'@$xp$32Qrexport@TQRAbstractExportFilteryi"@Qrexport@TQRAbstractExportFilter@ui
ly ry vy xy zy |y
~y y y y y y A q y U y
=
Y
Y ) 1 !M -)! )] 1-9 - = E I M Q
U a]Q ] ea= a iee e qmy m uq q yu u }y y }
AnsiStringg@LStrClrѨ}g@HandleFinallyEagFalsegTrueg@LStrArrayClrzYg TObject.FreeGgAssigned g@IsClassF>g@LStrCmpEacdSysInitC cdWindowsC cdMessagesC cdSysUtilsC cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`g TComponent.GetComponentCountngTComponent.GetComponentmcdGraphicsC cdControlsC gTWinControl.AssignTo.gTWinControl.CanAutoSize.gTWinControl.CanResize.g TWinControl.ConstrainedResize.gTWinControl.CreateHandle.g#TWinControl.CustomAlignInsertBefore.g TWinControl.CustomAlignPosition.gTWinControl.DestroyWnd.gTWinControl.GetClientOrigin.g TWinControl.GetControlExtents.g TWinControl.GetDeviceContext.g TWinControl.SetParentBackground.gTWinControl.ShowControl.gTWinControl.Invalidate.gTWinControl.Repaint.gTWinControl.SetBounds .gTWinControl.Update.gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)f TWinControl'AgTWinControl.GetControlCount .gTWinControl.GetControl.gTControl.SetText`)gTControl.GetTextʅ`)gTControl.SetVisible`)cdFormsC fTFormIg.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
.TGroupBox@g.TButton x;Hg
.TComboBoxȮRg.TEdit g.TLabelg.TMemoЮL0g
.TCheckBoxucdExtCtrlsC f TRadioGroup3 Ag .TRadioGroup
UniqueNameYgTQuickRep.SetDataSet8ZgTQuickRep.GetDataSet8Zg.TQRSubDetail_:gTQRSubDetail.CreatesogTQRSubDetail.SetDataSetmocdQREditorq uX fTQRCustomEditorN++gTCustomEditor.AddgTCustomEditor.SetEventscdQRMDSUq uX gSetupSubDetailhkch
qrpt70.bpl g @Qrdatasu@initialization$qqrv g@Qrdatasu@Finalization$qqrv g>@Qrdatasu@TQRDataSetup@MDSetupButtonClick$qqrp14System@TObject g9@Qrdatasu@TQRDataSetup@MDEnableClick$qqrp14System@TObject g9@Qrdatasu@TQRDataSetup@OKButtonClick$qqrp14System@TObject g5@Qrdatasu@TQRDataSetup@SQLChange$qqrp14System@TObject g;@Qrdatasu@TQRDataSetup@TableNameChange$qqrp14System@TObject g>@Qrdatasu@TQRDataSetup@DataBaseNameChange$qqrp14System@TObject g=@Qrdatasu@TQRDataSetup@BrowseButtonClick$qqrp14System@TObject g9@Qrdatasu@TQRDataSetup@SetReport$qqrp18Quickrpt@TQuickRep g6@Qrdatasu@TQRDataSetup@FormCreate$qqrp14System@TObject g9@Qrdatasu@TQRDataSetup@DataTypeClick$qqrp14System@TObject g#@Qrdatasu@TQRDataSetup@SetData$qqrv g)@Qrdatasu@TQRDataSetup@GetEditValues$qqrv g@Qrdatasu@QRDataSetup g @$xp$21Qrdatasu@TQRDataSetup g@Qrdatasu@TQRDataSetup@ c4QRDatasuiif@c4Windows *c4Messages ,c4SysUtils .c4Classes 0c4Graphics >c4Controls @c4Forms c4Dialogs c4Buttons c4StdCtrls c4ExtCtrls c4DB c4DBTables c4FileCtrl Qc4QuickRpt Yc4QREditor }c4QRMDSU c&.TQRDataSetupAk M.C* TQRDataSetupQ k0 QRDataSetup7k0J .22$(EnableAC v 4!Control
!Enabled ic(
ADirectoryf
c( TQRDataSetup.DataBaseNameChangeAT H4!Self0!Senderc( TQRDataSetup.TableNameChangeAT TU4!Self0!Senderc(TQRDataSetup.SQLChangeAT ` 4!Self0 !Senderc(
ASubDetail*c( TQRDataSetup.MDSetupButtonClickAT >4!Self0 !Senderc( FinalizationAEa\! 4c(QRDatasuA !4cG 0FN) %z& ,DataType ,AliasGB , BrowseButton , DataBaseName ,
TableGroup! , TableName1 ,FilterExpressionA ,Label1
FormCreatee-BrowseButtonClick-DataBaseNameChange-TableNameChange- SQLChange-OKButtonClick-MDEnableClick-MDSetupButtonClick,FReport (, TableComp $!, QueryComp &1,MasterDS "A, DetailTable $Q,FReportEditor ,a,
FSubDetail *q-GetEditValuesE- SetReportq-SetDataM0QuickRep( Uq 0 SubDetail* mm 0 ReportEditor, ii cD 2 P@ i @Qrdatasu@initialization$qqrvi@Qrdatasu@Finalization$qqrvi>@Qrdatasu@TQRDataSetup@MDSetupButtonClick$qqrp14System@TObjecti9@Qrdatasu@TQRDataSetup@MDEnableClick$qqrp14System@TObjecti9@Qrdatasu@TQRDataSetup@OKButtonClick$qqrp14System@TObjecti5@Qrdatasu@TQRDataSetup@SQLChange$qqrp14System@TObjecti;@Qrdatasu@TQRDataSetup@TableNameChange$qqrp14System@TObjecti>@Qrdatasu@TQRDataSetup@DataBaseNameChange$qqrp14System@TObjecti=@Qrdatasu@TQRDataSetup@BrowseButtonClick$qqrp14System@TObjecti9@Qrdatasu@TQRDataSetup@SetReport$qqrp18Quickrpt@TQuickRepqi6@Qrdatasu@TQRDataSetup@FormCreate$qqrp14System@TObjectei9@Qrdatasu@TQRDataSetup@DataTypeClick$qqrp14System@TObjectUi#@Qrdatasu@TQRDataSetup@SetData$qqrvMi)@Qrdatasu@TQRDataSetup@GetEditValues$qqrvEi@Qrdatasu@QRDataSetup-i @$xp$21Qrdatasu@TQRDataSetup)i@Qrdatasu@TQRDataSetup@%l% % % % % % % % % % % % % % m: EMUeqA r ) *) ,) .) 0) 2)
4) 6) 8) :) <) >) @) B)
AnsiStringg@AbstractErrorEagTObject.DestroyGfWord{fCharig@IsClassF>gFalseg @ClassCreateg@AfterConstructionڿ%UgTruegTObject.CreateGg TObject.FreeGg@BeforeDestructiondg@ClassDestroyOgInc gAssigned gExit g @LStrAddRefj g@HandleFinallyEag@LStrClrѨ}gLoadResString! g@HandleAnyExceptionEag @DoneExceptEag@LStrAsg4g @LStrCat3Eag@LStrArrayClrzYgOrd gInclude g@AsClassФf PAnsiCharrugcdSysInitC g HInstanceFEfTMemoryStreamg.TMemoryStreamn6gTStream.SetPosition S g
egTCanvas.FillRect>KjgclBlackZgTFont.GetSizehgTFont.GetNameff
TFontStyle AgfsBoldL?gTFont.GetStyleigfsItalicM?g fsUnderlineN?f TFontStylesm6gTFont.SetStyleqgTBitmap.SetHandle;jgTFont.SetNamengTFont.SetSizepcdControlsC fTCustomControl{fTControlrg.TCustomControl;g
TImageList RVg .TImageList8gTControl.SetCursor`)g crDefaultaL\gcrSizeNSaL\gcrSizeWEaL\g
crSizeNESWaL\g
crSizeNWSEaL\gTControl.SetHeight`)gTControl.SetWidth`)gTControl.SetTop`)gTControl.SetLeft`)gTControl.SetVisible`)gTWinControl.Destroy.gTWinControl.GetHandle .gTControl.Refresh`)gTControl.GetBoundsRectŅ`)gTControl.BringToFront`)gTControl.SendToBack`)gTWinControl.GetControlCount .gTWinControl.GetControl.f TBevelCut TgbvNoneީZg .TControlnPgTControl.ClientToScreen`)gTControl.ScreenToClient`)gmbRightsgTControl.SetText`)galClientygTControl.GetTextʅ`)f.01g
csCreatingGr"cdFormsC fTFormIf
TScrollBox48lg.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
.TMainMenu
Oag
.TMenuItemgTMenuItem.SetEnabledyAcdQuickRptq uX f TQRPrintableefTQRPrintableEditor|4wfTQRPrintableClass+ܪ
f TQuickRepu6g
.TQuickRepFfTCustomQuickRep Jg.TQRPrintableLp6f TQRSubDetailxg.TQRSubDetail_:gTQRSubDetail.GetDataSetiogTCustomQuickRep.Printr gTCustomQuickRep.Previewv cdQRCtrlsq uX fTQRExprT
g.TQRExpr;afTQRLabel䠙g .TQRLabel. cdStdCtrlsC f TComboBox fTEdit5$Pg
.TComboBoxȮRg.TEdit gTCustomComboBox.SetSorted~cdComCtrlsC fTCoolBarRfTToolBar(Wf TToolButton3f
TStatusBar 6g .TCoolBar95g .TToolBarߠ9g .TToolButtonf.g .TStatusBarjgTToolButton.SetDown!cdToolWinC cdButtonsC f TSpeedButtonMl g.TSpeedButtongTSpeedButton.SetDownZDgTSpeedButton.CreateZDgTSpeedButton.SetFlatZDgTSpeedButton.GetGlyphZDcdDBC f TDataSourcevg .TDataSource] cdDBTablesC fTTablen8sgTTable.SetDataSource}g.TTableU VfTQueryyB(g.TQuery`T cdImgListC ceQRPrntrq uX gGetFontspSceQRExtraq uX gPopulateFontSizeCombo&,ceQRWizardq uX gExecuteQRWizard gRegisterQRWizardGfTQRPlainWizardɜg.TQRPlainWizard*)jfTQRListWizardg.TQRListWizard
.TQRCompEd8vgTQRCompEd.SetQuickRepT'ceQRDatasuq uX f TQRDataSetup kg.TQRDataSetupk MgTQRDataSetup.SetReportT ch
qrpt70.bpl g @Qreditor@initialization$qqrv g@Qreditor@Finalization$qqrv g9@Qreditor@TQREditor@OpenReportFile$qqr17System@AnsiString g#@Qreditor@TQREditor@ShowEditor$qqrv g @Qreditor@TQREditor@Show$qqrv g(@Qreditor@TQREditor@GetReportEditor$qqrv g*@Qreditor@TQREditor@SetShowStatusLine$qqro g$@Qreditor@TQREditor@SetShowMenu$qqro g8@Qreditor@TQREditor@SetParent$qqrp20Controls@TWinControl g$@Qreditor@TQREditor@GetFilename$qqrv g7@Qreditor@TQREditor@SetFilename$qqrx17System@AnsiString g#@Qreditor@TQREditor@SelectData$qqrv g%@Qreditor@TQREditor@SaveReportAs$qqrv g#@Qreditor@TQREditor@SaveReport$qqrv g'@Qreditor@TQREditor@ReportSettings$qqrv g$@Qreditor@TQREditor@PrintReport$qqrv g&@Qreditor@TQREditor@PreviewReport$qqrv g @Qreditor@TQREditor@Paste$qqrv g#@Qreditor@TQREditor@OpenReport$qqrv g"@Qreditor@TQREditor@NewReport$qqrv g*@Qreditor@TQREditor@GetShowStatusLine$qqrv g @Qreditor@TQREditor@Cut$qqrv g @Qreditor@TQREditor@Copy$qqrv g @Qreditor@TQREditor@$bdtr$qqrv g2@Qreditor@TQREditor@$bctr$qqrp18Classes@TComponent gD@Qreditor@TQReportEditor@ControlValueKeyPress$qqrp14System@TObjectrc g7@Qreditor@RegisterEditorControl$qqrp17System@TMetaClass g+@Qreditor@TQReportEditor@GetFormEditor$qqrv g>@Qreditor@TQReportEditor@FontNameCBChange$qqrp14System@TObject g(@Qreditor@TQReportEditor@SelectData$qqrv g:@Qreditor@TQReportEditor@FormActivate$qqrp14System@TObject g(@Qreditor@TQReportEditor@ShowEditor$qqrv g@@Qreditor@TQReportEditor@EditorAddedControl$qqrp14System@TObject g@@Qreditor@TQReportEditor@EditControl$qqrp21Quickrpt@TQRPrintable g4@Qreditor@TQReportEditor@CreateComponentButtons$qqrv g=@Qreditor@TQReportEditor@AddControlClick$qqrp14System@TObject g.@Qreditor@TQReportEditor@EnableAndDisable$qqrv g6@Qreditor@TQReportEditor@BtnClick$qqrp14System@TObject g6@Qreditor@TQReportEditor@SetStyle$qqrp14System@TObject g)@Qreditor@TQReportEditor@CancelValue$qqrv g&@Qreditor@TQReportEditor@SetValue$qqrv g+@Qreditor@TQReportEditor@PreviewReport$qqrv g)@Qreditor@TQReportEditor@PrintReport$qqrv g,@Qreditor@TQReportEditor@ReportSettings$qqrv g*@Qreditor@TQReportEditor@SaveReportAs$qqrv g+@Qreditor@TQReportEditor@SetDesignTime$qqro g8@Qreditor@TQReportEditor@FormCreate$qqrp14System@TObject g(@Qreditor@TQReportEditor@SaveReport$qqrv g>@Qreditor@TQReportEditor@ControlValueExit$qqrp14System@TObject g?@Qreditor@TQReportEditor@ControlValueEnter$qqrp14System@TObject g=@Qreditor@TQReportEditor@ControlTBResize$qqrp14System@TObject g(@Qreditor@TQReportEditor@OpenReport$qqrv g"@Qreditor@TQReportEditor@Copy$qqrv g!@Qreditor@TQReportEditor@Cut$qqrv g#@Qreditor@TQReportEditor@Paste$qqrv gH@Qreditor@TQReportEditor@EditorClipboardStateChange$qqrp14System@TObject gA@Qreditor@TQReportEditor@EditorSelectControl$qqrp14System@TObject g-@Qreditor@TQReportEditor@PrintableEditor$qqrv g9@Qreditor@TQReportEditor@OpenMIClick$qqrp14System@TObject g'@Qreditor@TQReportEditor@NewReport$qqrv gl@Qreditor@TQReportEditor@FormKeyDown$qqrp14System@TObjectrus46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6% g;@Qreditor@TQReportEditor@SetFilename$qqr17System@AnsiString g3@Qreditor@TCustomEditor@Load$qqr17System@AnsiString g<@Qreditor@TCustomEditor@LoadFromStream$qqrp15Classes@TStream g3@Qreditor@TCustomEditor@Save$qqr17System@AnsiString g:@Qreditor@TCustomEditor@SaveToStream$qqrp15Classes@TStream g%@Qreditor@TCustomEditor@ClearAll$qqrv g"@Qreditor@TCustomEditor@Paste$qqrv g(@Qreditor@TCustomEditor@CutSelected$qqrv g)@Qreditor@TCustomEditor@CopySelected$qqrv g+@Qreditor@TCustomEditor@DeleteSelected$qqrv gn@Qreditor@TCustomEditor@MouseDown$qqr21Controls@TMouseButton46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%ii g@Qreditor@TCustomEditor@MouseUpHandler$qqrp14System@TObject21Controls@TMouseButton46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%ii go@Qreditor@TCustomEditor@MouseMoveHandler$qqrp14System@TObject46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%ii g@Qreditor@TCustomEditor@MouseDownHandler$qqrp14System@TObject21Controls@TMouseButton46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%ii g3@Qreditor@TCustomEditor@EndMove$qqrrx12Types@TPoint g2@Qreditor@TCustomEditor@MoveTo$qqrrx12Types@TPoint g5@Qreditor@TCustomEditor@StartMove$qqrrx12Types@TPoint g5@Qreditor@TCustomEditor@EndResize$qqrrx12Types@TPoint g4@Qreditor@TCustomEditor@ResizeTo$qqrrx12Types@TPoint gO@Qreditor@TCustomEditor@StartResize$qqr22Qreditor@TGrabPositionrx12Types@TPoint g(@Qreditor@TCustomEditor@UnselectAll$qqrv g8@Qreditor@TCustomEditor@Unselect$qqrp17Controls@TControl g7@Qreditor@TCustomEditor@Select$qqrp17Controls@TControlo g8@Qreditor@TCustomEditor@AddClass$qqrp17System@TMetaClass g%@Qreditor@TCustomEditor@DoPopup$qqrii g#@Qreditor@TCustomEditor@DoAdd$qqrii gK@Qreditor@TCustomEditor@Add$qqrp18Classes@TComponentp20Controls@TWinControl g(@Qreditor@TCustomEditor@SetModified$qqro g'@Qreditor@TCustomEditor@SetEditing$qqro g<@Qreditor@TCustomEditor@SetEvents$qqrp20Controls@TWinControl g"@Qreditor@TCustomEditor@$bdtr$qqrv g6@Qreditor@TCustomEditor@$bctr$qqrp18Classes@TComponent g4@Qreditor@TSelectionList@Copy$qqrrp15Classes@TStream g*@Qreditor@TSelectionList@AlignBottoms$qqrv g'@Qreditor@TSelectionList@AlignTops$qqrv g)@Qreditor@TSelectionList@AlignRights$qqrv g(@Qreditor@TSelectionList@AlignLefts$qqrv g<@Qreditor@TSelectionList@AlignTo$qqr22Qreditor@TGrabPosition g2@Qreditor@TSelectionList@FindMaxValues$qqrrit1t1t1 g(@Qreditor@TSelectionList@SendToBack$qqrv g*@Qreditor@TSelectionList@BringToFront$qqrv g#@Qreditor@TSelectionList@Move$qqrii g%@Qreditor@TSelectionList@Size$qqriiii g.@Qreditor@TSelectionList@UnselectChildren$qqrv g,@Qreditor@TSelectionList@UpdateControls$qqrv g%@Qreditor@TSelectionList@GetItem$qqri g&@Qreditor@TSelectionList@GetCount$qqrv g@@Qreditor@TSelectionList@SetState$qqr25Qreditor@TFocusFrameState g;@Qreditor@TSelectionList@IsSelected$qqrp17Controls@TControl g#@Qreditor@TSelectionList@Clear$qqrv g7@Qreditor@TSelectionList@Remove$qqrp17Controls@TControl g4@Qreditor@TSelectionList@Add$qqrp17Controls@TControl g#@Qreditor@TSelectionList@$bdtr$qqrv g#@Qreditor@TSelectionList@$bctr$qqrv g%@Qreditor@TFocusFrame@MoveFrame$qqrii g'@Qreditor@TFocusFrame@SizeFrame$qqriiii g=@Qreditor@TFocusFrame@SetState$qqr25Qreditor@TFocusFrameState g%@Qreditor@TFocusFrame@PaintFrame$qqrv g,@Qreditor@TFocusFrame@UpdateGrabHandles$qqrv g @Qreditor@TFocusFrame@$bdtr$qqrv gH@Qreditor@TFocusFrame@$bctr$qqrp18Classes@TComponentp17Controls@TControl g @Qreditor@TGrabHandle@Paint$qqrv g)@Qreditor@TGrabHandle@UpdatePosition$qqrv g!@Qreditor@TGrabHandle@SetDim$qqro g"@Qreditor@TGrabHandle@SetSize$qqri g$@Qreditor@TGrabHandle@SetCursor$qqrv g`@Qreditor@TGrabHandle@$bctr$qqrp18Classes@TComponentp17Controls@TControl22Qreditor@TGrabPosition g@$xp$18Qreditor@TQREditor g@Qreditor@TQREditor@ g @$xp$23Qreditor@TQReportEditor g@Qreditor@TQReportEditor@ g @$xp$24Qreditor@TQRCustomEditor g
%gpWg@~ %gpNWh@~ *TGrabPositionQ J-~& .TGrabHandleA4* TGrabHandleQV
!Self c("TQRCustomComponentEditor.GetBitmapK
*!Self c( TQRCustomComponentEditor.PopupK
!Self c( TQRCustomComponentEditor.EditK
!Self c(!TQRCustomComponentEditor.Settings
!Self c&.TQRCustomEditorA~ܝ*TQRCustomEditorQN++&.TQReportEditorA=G*TQReportEditorQV[n&&
.TQREditorA * TQREditorQِB1 .9$4QRPrntr Uc4QRExtra ]c4QRWizard ec4QRCompEd c4QRDatasu c EditorClassList
CalcOffsetA!|!AControl2#Resultc(TGrabHandle.CreateGrabA><!Self!.f!AOwner!ParentControl&2!Position&~c(TGrabHandle.SetCursorA>H!Self c(TGrabHandle.SetSizeA>Tz!Self!Valuec(TGrabHandle.SetDimA>`@!Self!Valuec(
!.c( TFocusFrame.UpdateGrabHandlesAjrB!Self Cornerc(TFocusFrame.PaintFrameAjrn!Self AHandlec(TFocusFrame.SetStateAjr!Self !Value I
Ofsf c(TFocusFrame.SizeFrameAjr!Self!ALeft!AUp
!ARight&!ADown&c(TFocusFrame.MoveFrameAjr~!Self!ALeft!AUp
c(TSelectionList.CreateAS!Self!.c(TSelectionList.DestroyA߷Sx!Self!.c(TSelectionList.AddASr!Self!AControl2 aFramec(TSelectionList.RemoveASr!Self!AControl2 Ic(TSelectionList.ClearASt!Self I
c(TSelectionList.IsSelectedAS). !Self!AControl2 Result c(TSelectionList.SetStateAٷSAf!Self
!Value Ic(TSelectionList.GetCountAܷSY !Self Result c(TSelectionList.GetItemAݷSq& 2!Self!Index Result2 c( TSelectionList.UpdateControlsAS- !Self Resultf I
.2c( TSelectionList.UnselectChildrenAS!Self
UnselectList
c(TSelectionList.MoveAS!Self!ALeft !AUpf I
c(TSelectionList.BringToFrontAST!Self
Ic(TSelectionList.SendToBackAST!Self
Ic( TSelectionList.FindMaxValuesAڷS !Self"ALeftf"ATopf"ARight&"ABottom& If .2 .2 c(TSelectionList.AlignToA۷S1!Self!Positionf~ I
MaxLeftf MaxRightf MaxTopf MaxBottomf . c(TSelectionList.AlignLeftsASI!Self c(
AComponent AChildc(TCustomEditor.CreateAI!Self!.f!AOwnerc(TCustomEditor.DestroyA~!Self!.c(TCustomEditor.SetEventsA!Self
!AControl4 Ic(TCustomEditor.SetEditingA Z!Self!Valuec(TCustomEditor.SetModifiedA!f!Self!Valuec(TCustomEditor.AddA9!Self
!
AComponent!AParent4c(TCustomEditor.DoAddAQ-!Self!Xf !Yf
AComponent AParent4
c(TCustomEditor.DoPopupAi"!Self!X!Yc(TCustomEditor.AddClassA !Self !ComponentClassc(TCustomEditor.SelectA!Self!AControl2! MultiSelectc(TCustomEditor.UnselectA\!Self!AControl2c(TCustomEditor.UnselectAllA!Self I AControl2c(TCustomEditor.StartResizeA!Self !Position~!APointf c(TCustomEditor.ResizeToAI!Self!APointf
ChangeLeft ChangeTop ChangeBottom ChangeRight
c(TCustomEditor.EndResizeA!Self!APointf c(TCustomEditor.StartMoveA)!Self!APointf c(TCustomEditor.MoveToAA!Self!APointf c(TCustomEditor.EndMoveAY!Self!APointf c( TCustomEditor.MouseDownHandlerAq!Self!Sender!Buttonf6!Shift& !X&!Y& AControlf2c( TCustomEditor.MouseMoveHandlerA]!Self!Sender!ShiftF !X&!Y&c( TCustomEditor.MouseUpHandlerAq!Self!Sender
!Button6!Shift& !X&!Y&c(TCustomEditor.MouseDownA\!Self!Button6!ShiftF !X&!Y&c( TCustomEditor.DeleteSelectedA~!Self
Ic(
Streamf&c( TCustomEditor.LoadFromStreamA Ûy!Self!Stream cj2
sLoadError
{"k%.
error (TCustomEditor.LoadAÛ!!Selff!Filenamef
Streamf& aForm@ I
AComponentcj2sAskFileNameFilter
"k%.
< QuickReport file|*.qr ( AskFilenameAÉ"" AFilename
Resultf .fFc(
c(
#"k%.
< QuickReport file|*.qr (TQReportEditor.OpenReportA \J!Self I ADSfp .fHc( TQReportEditor.ControlTBResizeA \JL!Self !Senderc( TQReportEditor.ControlValueEnterA \Jr!Self!Senderc( TQReportEditor.ControlValueExitA \Jr!Self!Senderc(TQReportEditor.SaveReportA \Jv!Selfc(TQReportEditor.FormCreateA \J!Self!Sender .c( TQReportEditor.SetDesignTimeA \J)!Self!Valuec(TQReportEditor.SaveReportAsA \JAd!Selfc( TQReportEditor.ReportSettingsA \JY!Self .fzc(
AFontStyle. .fTc(TQReportEditor.BtnClickA \J!Self!Sendercj( SetToolBarsA#"p !ABarh
!Enablef ick( TQReportEditor.EnableAndDisableA \J !Selfc( TQReportEditor.AddControlClickA \J !Self!Sender .nc(%TQReportEditor.CreateComponentButtonsA \J1 !Selff If ResNamefq .fn .fR .Tc(
"!Self !Sender"Keyc(TQREditor.CreateAS0U!
!Self!.!AOwnerc(TQREditor.DestroyAS0U9
!Self
!.c(TQREditor.CopyAS0UQ
!Self c(TQREditor.CutAS0Ui
!Self c(TQREditor.GetShowStatusLineAS0U
!Self Result c(TQREditor.NewReportAS0U
!Self c(TQREditor.OpenReportAS0U
!Self c(TQREditor.PasteAS0U
!Self c(TQREditor.PreviewReportAS0U
!Self c(TQREditor.PrintReportAS0U
!Self c(TQREditor.ReportSettingsAS0U !Self c(TQREditor.SaveReportAS0U) !Self c(TQREditor.SaveReportAsAS0UA !Self c(TQREditor.SelectDataAS0UY !Self c(TQREditor.SetFilenameAS0Uq !Self !Value
c(TQREditor.GetFilenameAS0U 8
!Self#Result
c(TQREditor.SetParentAS0U !Self!AControl4c(TQREditor.SetShowMenuAS0U !Self!Valuec(TQREditor.SetShowStatusLineAS0U $!Self !Valuec(TQREditor.GetReportEditorAS0U !Self Result c(TQREditor.ShowAS0U !Self c(TQREditor.ShowEditorAS0U !Self c(TQREditor.OpenReportFileAS0U1 1!Self! AFilenamef
I ADSfp .c( FinalizationAEaI ! c(QREditorA a !cC5yY~ G FL0 }f& , FPosition ~A,FSize Q,FParentControl 2a,FDim q,Offset -SetSize U -SetDim a - SetCursor M -Paintdy .
CreateGrab5 0Size uU 0Dim }a -UpdatePositionm cC G FL4 d& , CurrentRect !, GrabHandles
PaintFrame .CreateParented /Destroy - SizeFrame - MoveFrame -UpdateGrabHandles 0State cG FR X , ControlList
SizedRight P-SetStateM
-FindMaxValues
-AlignTo -GetCount]
-GetItemi
.Create /Destroy
-
AlignLefts- - AlignRights5 - AlignTops= - AlignBottomsE -Add
-Remove!
-Clear1
-Size
-Move
- BringToFront
-
SendToBack
-CopyM -UnselectChildren
-UpdateControlsy
-
IsSelected=
0ItemsD i
0State M
0Count ]
0Editor cG C G FJ
& ,FSelectionList ,FEditing , MouseIsDown , Clipboard ,SizeUp ,SizeDown ,SizeLeft , SizeRight ,Origin ,NewComponentClass ,FClipboardAvailable , FMainControl 4! ,FState 1 ,FOnAddedControl A ,FOnSelectControl a ,FOnUnselectControl ,FOnClipboardStateChange , FOnModified , FModified -DoAddf -DoPopuph - MouseDown -
SetEditingj -MouseDownHandlerly -MouseMoveHandlern -MouseUpHandlerp - StartResizer -ResizeTot- - EndResizevI - StartMovexU -MoveToza -EndMove|m - SetModified~ 0State .Createi /Destroyy -AddClass -Add -ClearAll-Select -Unselect - UnselectAll -DeleteSelected - CopySelected - CutSelected -Paste- SaveToStream-Save-- SetEvents -LoadFromStream=-LoadQ0ClipboardAvailable 0SelectionList e 0Editing i 0 MainControl4 0Modified 0OnAddedControl 0OnSelectControl 0OnUnselectControl
OnModified cG Ff
-GetName - GetBitmap-Popup-Edit-Settings0Name
Y 0Bitmap* ] c@ G F
"& 0Align 0OnSelectControl 0OnUnselectControl
OnModified cG a
ScrollAreaB ,CoolBar1f ,FileTBh ,NewBtnj! ,OpenBtnj1 ,SaveBtnjA , ToolButton4jQ ,PrintBtnja ,
PreviewBtnjq , ToolButton7j ,CutBtnj ,CopyBtnj ,PasteBtnj , AttributeTBh ,
FontNameCBb , ToolButton12j ,
FontSizeCBb , ToolButton13j,BoldBtnj, ItalicBtnj!,
UnderLnBtnj1, ToolButton17jA, LeftAlBtnjQ, CenterAlBtnja,
RightAlBtnjq, ToolButton21j, ComponentsTBh, ControlTBh, ControlOKBtnj,ControlCancelBtnj, ToolButton6j, ControlValued,ControlEditBtnj, ToolButton1j, StatusBarl,MainMenuN!,Insert1P1,NewMIPA,OpenMIPQ,SaveMIPa,SaveAsMIPq,load1P,ReportSetupMIP, PreviewMIP,PrintMIP,N1P,ExitMIP,View1P,CutMIP,CopyMIP,PasteMIP,N2P!,ClearMIP1, SelectAllMIPA,Data1PQ, SelectDataMIPa,AddChildtable1Pq, NormalImages:, ToolButton2j, SettingsBtnj, DataSetupBtnj- FormKeyDown- OpenMIClick-EditorSelectControl-
FormCreateM-BtnClick-EditorAddedControl - FormActivate1-FontNameCBChangeI-ControlValueKeyPressm, FFilename
, FDesignTime ,ControlEditors
DesignTime ] 0Filename
0
FormEditor Y -
ShowEditor)- NewReport-
OpenReport-
SaveReportE- PrintReport}-PreviewReport- SaveReportAsi-ReportSettingsq-
SelectData=-Cut-Copy-PastecG UFA 4 a d & ,QReportEditorForm !, FShowMenu 1, FFilename
A-GetShowStatusLine - GetFilename - SetFilename -GetReportEditor 9 - SetParent4- SetShowMenu!-SetShowStatusLine-.Create}/Destroy0Filename
0 ReportEditor 9 0ShowMenu 1! 0ShowStatusLine - 0Align
ShowEditorM- NewReport-
OpenReport-
SaveReport- PrintReport-PreviewReport- SaveReportAs-ReportSettings-
SelectData-Cut-Copy-Paste-ShowE-OpenReportFileUcD PA L A H 2j!index cD =i @Qreditor@initialization$qqrvi@Qreditor@Finalization$qqrvmi9@Qreditor@TQREditor@OpenReportFile$qqr17System@AnsiStringUi#@Qreditor@TQREditor@ShowEditor$qqrvMi @Qreditor@TQREditor@Show$qqrvEi(@Qreditor@TQREditor@GetReportEditor$qqrv9i*@Qreditor@TQREditor@SetShowStatusLine$qqro-i$@Qreditor@TQREditor@SetShowMenu$qqro!i8@Qreditor@TQREditor@SetParent$qqrp20Controls@TWinControli$@Qreditor@TQREditor@GetFilename$qqrv i7@Qreditor@TQREditor@SetFilename$qqrx17System@AnsiStringi#@Qreditor@TQREditor@SelectData$qqrvi%@Qreditor@TQREditor@SaveReportAs$qqrvi#@Qreditor@TQREditor@SaveReport$qqrvi'@Qreditor@TQREditor@ReportSettings$qqrv i$@Qreditor@TQREditor@PrintReport$qqrv!i&@Qreditor@TQREditor@PreviewReport$qqrv%i @Qreditor@TQREditor@Paste$qqrv)i#@Qreditor@TQREditor@OpenReport$qqrv-i"@Qreditor@TQREditor@NewReport$qqrv1i*@Qreditor@TQREditor@GetShowStatusLine$qqrv5i @Qreditor@TQREditor@Cut$qqrv9i @Qreditor@TQREditor@Copy$qqrv=i @Qreditor@TQREditor@$bdtr$qqrvAi2@Qreditor@TQREditor@$bctr$qqrp18Classes@TComponent}EiD@Qreditor@TQReportEditor@ControlValueKeyPress$qqrp14System@TObjectrcmIi7@Qreditor@RegisterEditorControl$qqrp17System@TMetaClasseMi+@Qreditor@TQReportEditor@GetFormEditor$qqrvYQi>@Qreditor@TQReportEditor@FontNameCBChange$qqrp14System@TObjectIUi(@Qreditor@TQReportEditor@SelectData$qqrv=Yi:@Qreditor@TQReportEditor@FormActivate$qqrp14System@TObject1]i(@Qreditor@TQReportEditor@ShowEditor$qqrv)ai@@Qreditor@TQReportEditor@EditorAddedControl$qqrp14System@TObject ei@@Qreditor@TQReportEditor@EditControl$qqrp21Quickrpt@TQRPrintable ii4@Qreditor@TQReportEditor@CreateComponentButtons$qqrvmi=@Qreditor@TQReportEditor@AddControlClick$qqrp14System@TObjectqi.@Qreditor@TQReportEditor@EnableAndDisable$qqrvui6@Qreditor@TQReportEditor@BtnClick$qqrp14System@TObjectyi6@Qreditor@TQReportEditor@SetStyle$qqrp14System@TObject}i)@Qreditor@TQReportEditor@CancelValue$qqrvi&@Qreditor@TQReportEditor@SetValue$qqrvi+@Qreditor@TQReportEditor@PreviewReport$qqrvi)@Qreditor@TQReportEditor@PrintReport$qqrv}i,@Qreditor@TQReportEditor@ReportSettings$qqrvqi*@Qreditor@TQReportEditor@SaveReportAs$qqrvii+@Qreditor@TQReportEditor@SetDesignTime$qqro]i8@Qreditor@TQReportEditor@FormCreate$qqrp14System@TObjectMi(@Qreditor@TQReportEditor@SaveReport$qqrvEi>@Qreditor@TQReportEditor@ControlValueExit$qqrp14System@TObject9i?@Qreditor@TQReportEditor@ControlValueEnter$qqrp14System@TObject-i=@Qreditor@TQReportEditor@ControlTBResize$qqrp14System@TObject!i(@Qreditor@TQReportEditor@OpenReport$qqrvi"@Qreditor@TQReportEditor@Copy$qqrvi!@Qreditor@TQReportEditor@Cut$qqrvi#@Qreditor@TQReportEditor@Paste$qqrviH@Qreditor@TQReportEditor@EditorClipboardStateChange$qqrp14System@TObjectiA@Qreditor@TQReportEditor@EditorSelectControl$qqrp14System@TObjecti-@Qreditor@TQReportEditor@PrintableEditor$qqrvi9@Qreditor@TQReportEditor@OpenMIClick$qqrp14System@TObjecti'@Qreditor@TQReportEditor@NewReport$qqrvil@Qreditor@TQReportEditor@FormKeyDown$qqrp14System@TObjectrus46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%i;@Qreditor@TQReportEditor@SetFilename$qqr17System@AnsiStringi3@Qreditor@TCustomEditor@Load$qqr17System@AnsiStringQi<@Qreditor@TCustomEditor@LoadFromStream$qqrp15Classes@TStream=i3@Qreditor@TCustomEditor@Save$qqr17System@AnsiString-i:@Qreditor@TCustomEditor@SaveToStream$qqrp15Classes@TStreami%@Qreditor@TCustomEditor@ClearAll$qqrvi"@Qreditor@TCustomEditor@Paste$qqrvi(@Qreditor@TCustomEditor@CutSelected$qqrv i)@Qreditor@TCustomEditor@CopySelected$qqrv i+@Qreditor@TCustomEditor@DeleteSelected$qqrv in@Qreditor@TCustomEditor@MouseDown$qqr21Controls@TMouseButton46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%ii i@Qreditor@TCustomEditor@MouseUpHandler$qqrp14System@TObject21Controls@TMouseButton46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%ii io@Qreditor@TCustomEditor@MouseMoveHandler$qqrp14System@TObject46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%ii i@Qreditor@TCustomEditor@MouseDownHandler$qqrp14System@TObject21Controls@TMouseButton46System@%Set$t18Classes@Classes__1$iuc$0$iuc$6%iiy i3@Qreditor@TCustomEditor@EndMove$qqrrx12Types@TPointm i2@Qreditor@TCustomEditor@MoveTo$qqrrx12Types@TPointa i5@Qreditor@TCustomEditor@StartMove$qqrrx12Types@TPointU i5@Qreditor@TCustomEditor@EndResize$qqrrx12Types@TPointI i4@Qreditor@TCustomEditor@ResizeTo$qqrrx12Types@TPoint- !iO@Qreditor@TCustomEditor@StartResize$qqr22Qreditor@TGrabPositionrx12Types@TPoint %i(@Qreditor@TCustomEditor@UnselectAll$qqrv )i8@Qreditor@TCustomEditor@Unselect$qqrp17Controls@TControl -i7@Qreditor@TCustomEditor@Select$qqrp17Controls@TControlo 1i8@Qreditor@TCustomEditor@AddClass$qqrp17System@TMetaClass 5i%@Qreditor@TCustomEditor@DoPopup$qqrii 9i#@Qreditor@TCustomEditor@DoAdd$qqrii =iK@Qreditor@TCustomEditor@Add$qqrp18Classes@TComponentp20Controls@TWinControl Ai(@Qreditor@TCustomEditor@SetModified$qqro Ei'@Qreditor@TCustomEditor@SetEditing$qqro Ii<@Qreditor@TCustomEditor@SetEvents$qqrp20Controls@TWinControl Mi"@Qreditor@TCustomEditor@$bdtr$qqrvy Qi6@Qreditor@TCustomEditor@$bctr$qqrp18Classes@TComponenti Ui4@Qreditor@TSelectionList@Copy$qqrrp15Classes@TStreamM Yi*@Qreditor@TSelectionList@AlignBottoms$qqrvE ]i'@Qreditor@TSelectionList@AlignTops$qqrv= ai)@Qreditor@TSelectionList@AlignRights$qqrv5 ei(@Qreditor@TSelectionList@AlignLefts$qqrv- ii<@Qreditor@TSelectionList@AlignTo$qqr22Qreditor@TGrabPosition mi2@Qreditor@TSelectionList@FindMaxValues$qqrrit1t1t1
qi(@Qreditor@TSelectionList@SendToBack$qqrv
ui*@Qreditor@TSelectionList@BringToFront$qqrv
yi#@Qreditor@TSelectionList@Move$qqrii
}i%@Qreditor@TSelectionList@Size$qqriiii
i.@Qreditor@TSelectionList@UnselectChildren$qqrv
i,@Qreditor@TSelectionList@UpdateControls$qqrvy
i%@Qreditor@TSelectionList@GetItem$qqrii
i&@Qreditor@TSelectionList@GetCount$qqrv]
i@@Qreditor@TSelectionList@SetState$qqr25Qreditor@TFocusFrameStateM
i;@Qreditor@TSelectionList@IsSelected$qqrp17Controls@TControl=
i#@Qreditor@TSelectionList@Clear$qqrv1
i7@Qreditor@TSelectionList@Remove$qqrp17Controls@TControl!
i4@Qreditor@TSelectionList@Add$qqrp17Controls@TControl
i#@Qreditor@TSelectionList@$bdtr$qqrv
i#@Qreditor@TSelectionList@$bctr$qqrv i%@Qreditor@TFocusFrame@MoveFrame$qqrii i'@Qreditor@TFocusFrame@SizeFrame$qqriiii i=@Qreditor@TFocusFrame@SetState$qqr25Qreditor@TFocusFrameState i%@Qreditor@TFocusFrame@PaintFrame$qqrv i,@Qreditor@TFocusFrame@UpdateGrabHandles$qqrv i @Qreditor@TFocusFrame@$bdtr$qqrv iH@Qreditor@TFocusFrame@$bctr$qqrp18Classes@TComponentp17Controls@TControl i @Qreditor@TGrabHandle@Paint$qqrvy i)@Qreditor@TGrabHandle@UpdatePosition$qqrvm i!@Qreditor@TGrabHandle@SetDim$qqroa i"@Qreditor@TGrabHandle@SetSize$qqriU i$@Qreditor@TGrabHandle@SetCursor$qqrvM i`@Qreditor@TGrabHandle@$bctr$qqrp18Classes@TComponentp17Controls@TControl22Qreditor@TGrabPosition5 i@$xp$18Qreditor@TQREditor i@Qreditor@TQREditor@ i @$xp$23Qreditor@TQReportEditor i@Qreditor@TQReportEditor@i @$xp$24Qreditor@TQRCustomEditori
i
e!
a1
]=
YM
U]
Qi
My
I
E
A
=
9
5
1 -- )5 %= !E M i y - I U a m y -=Q}yuq!m-i9eEaM]]YiUqQ}MIEA=951- ) %)!1 =IYem } !-9EMUm
@U DB1 Ba FDU DM HF Fy LJ J5 PN N P Rm VTu
h ljY j pn n rp p tr r vt t xv9 v x ~
M
-
i
A
Q " - - $ 5 A & = U ( E i *
q , !
. 1
0
2
! 4
M 6
m 8 M } :
< y
U
> =
@ ġB ơD ȡF ʡH ̥ ҹ ԩ ԭ Ա Ե
! %
) - 1 5 9 = A E
) 9 Q ! - }
QRMDSU.DFM\*p
QRMDSU.pas1* dSystemC fTObject_gTObject.DispatchGgTObject.NewInstanceGgTObject.FreeInstanceGg TObject.FreeGg@HandleFinallyEafBooleanW~8fIntegerfStringf
AnsiStringg@LStrArrayClrzYg@LStrClrѨ}gFalsegTrueg@LStrCmpEacdSysInitC cdWindowsC cdMessagesC cdSysUtilsC cdClassesC gTComponent.UpdateRegistrygTComponent.WriteStateg TComponent.SafeCallExceptiongTPersistent.AssignN`cdGraphicsC cdControlsC gTWinControl.AssignTo.gTWinControl.CanAutoSize.gTWinControl.CanResize.g TWinControl.ConstrainedResize.gTWinControl.CreateHandle.g#TWinControl.CustomAlignInsertBefore.g TWinControl.CustomAlignPosition.gTWinControl.DestroyWnd.gTWinControl.GetClientOrigin.g TWinControl.GetControlExtents.g TWinControl.GetDeviceContext.g TWinControl.SetParentBackground.gTWinControl.ShowControl.gTWinControl.Invalidate.gTWinControl.Repaint.gTWinControl.SetBounds .gTWinControl.Update.gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)f TWinControl'AgTWinControl.GetControlCount .gTWinControl.GetControl.gTControl.SetText`)gTControl.GetTextʅ`)gTControl.SetVisible`)cdFormsC fTFormIg.TFormu$,gTCustomForm.AlignControlsmgagTCustomForm.CreateParamspgag TCustomForm.CreateWindowHandleqgagTCustomForm.CreateWndrgag TCustomForm.DefinePropertiestgag TCustomForm.DestroyWindowHandleugagTCustomForm.DoCreatewgagTCustomForm.DoDestroyxgagTCustomForm.GetClientRect{gagTCustomForm.GetFloating}gagTCustomForm.LoadedgagTCustomForm.NotificationgagTCustomForm.PaintWindowgag
.TGroupBox@g.TButton x;Hg
.TComboBoxȮRg.TEdit g.TLabelg
.TCheckBoxucdExtCtrlsC cdDBC f TDataSourcevgTDataSet.GetFieldCounto?"EgTFields.GetFieldUScdDBTablesC fTTablen8sfTQueryyB(g
qrpt70.bpl g@Qrmdsu@initialization$qqrv g@Qrmdsu@Finalization$qqrv g<@Qrmdsu@TQRSubdetailSetup@OKButtonClick$qqrp14System@TObject g>@Qrmdsu@TQRSubdetailSetup@TableNameChange$qqrp14System@TObject gA@Qrmdsu@TQRSubdetailSetup@DataBaseNameChange$qqrp14System@TObject g@@Qrmdsu@TQRSubdetailSetup@BrowseButtonClick$qqrp14System@TObject g<@Qrmdsu@TQRSubdetailSetup@SetReport$qqrp18Quickrpt@TQuickRep g9@Qrmdsu@TQRSubdetailSetup@FormCreate$qqrp14System@TObject g&@Qrmdsu@TQRSubdetailSetup@SetData$qqrv g,@Qrmdsu@TQRSubdetailSetup@GetEditValues$qqrv gs@Qrmdsu@SetupSubDetail$qqrp21Quickrpt@TQRSubDetailp18Quickrpt@TQuickRepp14Db@TDataSourcep24Qreditor@TQRCustomEditor g@Qrmdsu@QRSubdetailSetup g @$xp$24Qrmdsu@TQRSubdetailSetup g
ASubDetail&!AReport$!AMasterSource
!AEditor&( .f,c(Enable v 0!Control
!Enabled ic( TQRSubdetailSetup.GetEditValuesA65 0!Self, I
c(TQRSubdetailSetup.SetDataA850!Self,c( TQRSubdetailSetup.FormCreateA*5$~0!Self,!Senderc(TQRSubdetailSetup.SetReportA7500!Self, !Value$ I c(#TQRSubdetailSetup.BrowseButtonClickA+5<0!Self,!Sender
ADirectoryf
c($TQRSubdetailSetup.DataBaseNameChangeA,5H}0!Self,!Senderc(!TQRSubdetailSetup.TableNameChangeA-5TU0!Self,!Senderc( TQRSubdetailSetup.OKButtonClickA.5` 0!Self, !Senderc( FinalizationAEal\! 0c(QRMDSUA x!0cG , FT az& ,AliasGB , BrowseButton , DataBaseName ,
TableGroup , TableName! ,FilterExpression1 ,Label1
FormCreate -BrowseButtonClick9-DataBaseNameChangeI-TableNameChangeU-OKButtonClicka,FReport $ , TableComp , QueryComp ", FMasterDS !, FDetailTable 1,FReportEditor (A,
FSubDetail &Q-GetEditValues - SetReport)-SetData0QuickRep$ ) 0 SubDetail& 0 DetailTable 0 ReportEditor( 0MasterDS cD . P@ i@Qrmdsu@initialization$qqrv1
2 4 6 8 : < > @
содержание ..
68
69
70
71 ..
|