!!tOpS))) .R 4 l  dd AQL L I#Ƹ<UF,)JClarion ff AQL-- Generator #noedit #system win32 #model clarion dll #pragma define(maincode=>off) #pragma debug(vid=>off) #compile JUSTI_RD.CLW /define(GENERATED=>on)-- GENERATED #compile JUSTI_RU.CLW /define(GENERATED=>on)-- GENERATED #compile JUSTI_SF.CLW /define(GENERATED=>on)-- GENERATED #compile JUSTIFY.clw /define(GENERATED=>on)-- GENERATED #compile JUSTI001.clw /define(GENERATED=>on)-- GENERATED #compile JUSTI002.clw /define(GENERATED=>on)-- GENERATED #link JUSTIFY.lib ]jjS AQTyT%GenerationCompleted%%Module JUSTIFY.clw1 JUSTI001.clw1 JUSTI002.clw1 JUSTI003.clw1 JUSTI004.clw1%LastTarget32%1%LastProgramExtension%LIB%LastApplicationDebug%$%LastApplicationLocalLibrary% -j# AQK!%ProgramAuthor%V%MessageDescription%GlobalExternal%GenerateEmbedComments%INIActive3%INIFile%Program Name.INI%ININame%%DefaultGenerate%DefaultCloseFile%Close the File%DefaultRILogout%WarnOnLogoutError%DefaultThreaded%Use File Setting%DefaultCreate%Use File Setting%DefaultExternal% None External%DefaultExternalSource%%DefaultExternalAPP%DefaultExport%DefaultOpenMode%Share%DefaultUserAccess% Read/Write%DefaultOtherAccess% Deny None%OverrideGenerate%File"%OverrideCloseFile%%File2 Use Default%OverrideRILogout%%File2 Use Default%OverrideThreaded%%File0 Use Default%OverrideCreate%%File2 Use Default%OverrideExternal%%File8 Use Default%OverrideExternalSource%%File$%OverrideExternalAPP%File%OverrideExport%File!%OverrideOpenMode%%File4 Use Default%OverrideUserAccess%%File5 Use Default%OverrideOtherAccess%%File8 Use Default%LockRecoverTime% _jU daQ)L1%Parameters%(rpt, FieldID)kja ŋR -LA%Parameters%(rpt, FieldID, OldCtlData)fpp\ AQJvClarion$ClarionJv hp^ @bQ)L)Clarion$GENERATEDtv p^ zR -L)Clarion$GENERATEDvrr Q]Q)L0Justify(REPORT rpt, SHORT FieldID),LONGLMBottom Justify List Boxes by ResizingClarion$Sourcetvr R -L@ResetHeight(REPORT rpt, SHORT FieldID, LONG OldCtlData)HMReset List Box Height after printClarion$Sourcev .. +T0TNH  L New Height Working Variable@n-6NH:NHNew Height Working Variablew <$ |d NH:NH@n-6 9@n-6?NH:PromptNew Height Working VariableNH (. !T+TYP  J PROP:YPos working variable@n-6YP:YPPROP:YPos working variablew <$ |d YP:YP@n-6 9@n-6?YP:PromptPROP:YPos working variableYP (I? AQJvq%AfterGlobalIncludes!INCLUDE('PRNPROP.CLW') %GlobalMap!! Windows Functions MODULE('Windows') ]GetTextMetrics(SHORT hdc, *GROUP TEXTMETRIC),SHORT,PASCAL,RAW,PROC,NAME('GetTextMetricsA') )GetMapMode(SHORT hdc),SHORT,PASCAL,RAW RCreateFontIndirect(*GROUP LOGFONT),SHORT,PASCAL,RAW,NAME('CreateFontIndirectA') ?GetDeviceCaps(SHORT hdc, SHORT iCapability),SHORT,PASCAL,RAW RMulDiv(SHORT nMultiplicand, SHORT nMultiplier, SHORT nDivisor),SHORT,PASCAL,RAW @SelectObject(SHORT hdc, SHORT hfontOld),SHORT,PASCAL,RAW,PROC UDeleteObject(SHORT hfont),SHORT,PASCAL,RAW,PROC END %GlobalData!OldDataLong LONG -GROUP,OVER(OldDataLong),PRE(OldData) Height SHORT YPos SHORT END w ]Q{K"%DataSection!LF_FACESIZE  EQUATE(32) ! Used in LOGFONT LOGPIXELSY  EQUATE(90) 4! Used by GetDeviceCaps POINTSPERINCH EQUATE(72) ! Points per Inch LOGFONT GROUP,PRE(LF) Height SHORT Width SHORT(0) Escapement SHORT(0) Orientation SHORT(0) Weight SHORT(0) Italic BYTE(0) Underline BYTE(0) StrikeOut BYTE(0) CharSet BYTE(0) OutPrecision BYTE(0) ClipPrecision BYTE(0) Quality BYTE(0) PitchAndFamily BYTE(0) FaceName CSTRING(LF_FACESIZE) END !LOGFONT TEXTMETRIC GROUP,PRE(TM) Height SHORT Ascent SHORT Descent SHORT InternalLeading SHORT ExternalLeading SHORT AveCharWidth SHORT MaxCharWidth SHORT Weight SHORT Italic BYTE Underlined BYTE StruckOut BYTE FirstChar BYTE LastChar BYTE DefaultChar BYTE BreakChar BYTE PitchAndFamily BYTE CharSet BYTE Overhang SHORT DigAspectX SHORT DigAspectY SHORT END !TEXTMETRIC LogPixY SHORT hFontOld  SHORT hfont SHORT nPtSize SHORT NewHeight SHORT FontStyle 9SHORT ! CW's Font Style Code (decode for various) hdc SHORT YP SHORT %ProcessedCode!Y OldData:Height = rpt$FieldID{PROP:Height}  OldData:YPos = rpt$FieldID{PROP:YPos} hdc = rpt{PROPPRINT:Context}  LF:FaceName %= CLIP(rpt$FieldID{PROP:FontName}) IF LEN(LF:FaceName) = 0  LF:FaceName %= CLIP(rpt$FieldID{PROP:FontName}) nPtSize = rpt$FieldID{PROP:FontSize}  FontStyle  = rpt$FieldID{PROP:FontStyle} ELSE nPtSize = rpt{PROP:FontSize}  FontStyle = rpt{PROP:FontStyle} END LogPixY #= GetDeviceCaps(hdc, LOGPIXELSY)  LF:Height -= -MulDiv(nPtSize, LogPixY, POINTSPERINCH)  LF:Width = 0 ! Gets best match LF:Escapement = 0 LF:Orientation = 0  LF:Weight = BAND(FontStyle,7FFh)  LF:Italic = BAND(FontStyle,FONT:italic)  LF:Underline #= BAND(FontStyle,FONT:underline)  LF:StrikeOut #= BAND(FontStyle,FONT:strikeout)  LF:CharSet = 0 LF:OutPrecision = 0 LF:ClipPrecision = 0  LF:Quality = 0 LF:PitchAndFamily = 0 hfont != CreateFontIndirect(LOGFONT);  hfontOld = SelectObject(hdc, hfont); "GetTextMetrics(hdc, TEXTMETRIC) HNewHeight = MulDiv(TM:Height+TM:ExternalLeading, 1000, TM:DigAspectY) -NewHeight *= rpt$FieldID{PROP:Linecount} SelectObject(hdc, hfontOld) DeleteObject(hfont) Grpt$FieldID{PROP:YPos} = OldData:YPos + OldData:Height - NewHeight )rpt$FieldID{PROP:Height} = NewHeight RETURN(OldDataLong) #! OldHeight & OldYPos  Sv%ProcessedCode!  OldDataLong = OldCtlData rpt$FieldID{PROP:YPos} = OldData:YPos rpt$FieldID{PROP:Height} "= OldData:Height >4 CQ)CQ 4 ]Q]Q 4 RR