Produced by Araxis Merge on 1/31/2019 1:51:40 PM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | CPRS v31b Phase 2 T257 CiF Submission..zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet | iGridPanelIntf.pas | Thu Nov 15 18:27:48 2018 UTC |
| 2 | CPRS v31b Phase 2 T257 CiF Submission.zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet | iGridPanelIntf.pas | Tue Jan 29 15:30:06 2019 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 410 |
| Changed | 1 | 2 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | unit iGrid PanelIntf; | |
| 2 | { | |
| 3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
| 4 | * | |
| 5 | * Applicatio n: CPRS - Utiliies | |
| 6 | * Developer: PII | |
| 7 | * Site: Salt L ake City I SC | |
| 8 | * Date: 2015-1 2-04 | |
| 9 | * | |
| 10 | * Descriptio n: Main i nterface t o the comm on TGridPa nel utilie s and | |
| 11 | * method s. | |
| 12 | * | |
| 13 | * Notes: Provid es common access via GridPanel Functions method. | |
| 14 | * | |
| 15 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
| 16 | } | |
| 17 | ||
| 18 | interface | |
| 19 | ||
| 20 | uses | |
| 21 | System.C lasses, | |
| 22 | System.S ysUtils, | |
| 23 | Vcl.Cont rols, | |
| 24 | Vcl.ExtC trls, | |
| 25 | Vcl.Form s, | |
| 26 | Vcl.Grap hics; | |
| 27 | ||
| 28 | type | |
| 29 | TGridPan elCollapse = (gpcNon e, gpcRow, gpcColumn ); | |
| 30 | ||
| 31 | IGridPan elDisplay = interfac e; | |
| 32 | IGridPan elControl = interfac e; | |
| 33 | IGridPan elFrame = interface; | |
| 34 | IGridPan elFunction s = interf ace; | |
| 35 | ||
| 36 | IGridPan elDisplay = interfac e(IInterfa ce) | |
| 37 | ['{B10 67A53-DD6B -458D-B1A1 -9F8CCA851 BD3}'] | |
| 38 | functi on getColu mnCollapse d(aIndex: integer): boolean; | |
| 39 | functi on getColu mnCount: i nteger; | |
| 40 | functi on getColu mnStyle(aI ndex: inte ger): TSiz eStyle; | |
| 41 | functi on getColu mnValue(aI ndex: inte ger): Doub le; | |
| 42 | ||
| 43 | functi on getRowC ollapsed(a Index: int eger): boo lean; | |
| 44 | functi on getRowC ount: inte ger; | |
| 45 | functi on getRowS tyle(aInde x: integer ): TSizeSt yle; | |
| 46 | functi on getRowV alue(aInde x: integer ): Double; | |
| 47 | ||
| 48 | proced ure setCol umnValue(a Index: int eger; cons t aValue: Double); | |
| 49 | proced ure setCol umnStyle(a Index: int eger; cons t aValue: TSizeStyle ); | |
| 50 | ||
| 51 | proced ure setRow Value(aInd ex: intege r; const a Value: Dou ble); | |
| 52 | proced ure setRow Style(aInd ex: intege r; const a Value: TSi zeStyle); | |
| 53 | ||
| 54 | functi on AddColu mn(aSizeSt yle: TSize Style = ss Percent; a Value: Dou ble = 10.0 ): integer ; | |
| 55 | functi on AddCont rol(aContr ol: TContr ol; aCol: integer; a Row: integ er; aAlign : TAlign): boolean; | |
| 56 | functi on FindCon trol(aCont rol: TCont rol; var a Col: integ er; var aR ow: intege r): boolea n; | |
| 57 | ||
| 58 | proced ure AlignG rid; | |
| 59 | proced ure ClearG rid; | |
| 60 | proced ure Expand AllControl s; | |
| 61 | ||
| 62 | proced ure Collap seColumn(a Column: in teger); ov erload; | |
| 63 | proced ure Collap seColumn(a Control: T Control); overload; | |
| 64 | proced ure Collap seRow(aRow : integer) ; overload ; | |
| 65 | proced ure Collap seRow(aCon trol: TCon trol); ove rload; | |
| 66 | ||
| 67 | proced ure Expand Column(aCo lumn: inte ger); over load; | |
| 68 | proced ure Expand Column(aCo ntrol: TCo ntrol); ov erload; | |
| 69 | proced ure Expand Row(aRow: integer); overload; | |
| 70 | proced ure Expand Row(aContr ol: TContr ol); overl oad; | |
| 71 | ||
| 72 | proper ty ColumnC ollapsed[a Index: int eger]: boo lean read getColumnC ollapsed; | |
| 73 | proper ty ColumnC ount: inte ger read g etColumnCo unt; | |
| 74 | proper ty ColumnS tyle[aInde x: integer ]: TSizeSt yle read g etColumnSt yle write setColumnS tyle; | |
| 75 | proper ty ColumnV alue[aInde x: integer ]: Double read getCo lumnValue write setC olumnValue ; | |
| 76 | ||
| 77 | proper ty RowColl apsed[aInd ex: intege r]: boolea n read get RowCollaps ed; | |
| 78 | proper ty RowCoun t: integer read getR owCount; | |
| 79 | proper ty RowStyl e[aIndex: integer]: TSizeStyle read getR owStyle wr ite setRow Style; | |
| 80 | proper ty RowValu e[aIndex: integer]: Double rea d getRowVa lue write setRowValu e; | |
| 81 | end; | |
| 82 | ||
| 83 | IGridPan elControl = interfac e(IInterfa ce) | |
| 84 | ['{0CF B3780-7AF7 -4A66-810E -2187D0E77 462}'] | |
| 85 | functi on getGrid PanelDispl ay: IGridP anelDispla y; | |
| 86 | ||
| 87 | proced ure setGri dPanelDisp lay(const aValue: IG ridPanelDi splay); | |
| 88 | ||
| 89 | proper ty GridPan elDisplay: IGridPane lDisplay r ead getGri dPanelDisp lay write setGridPan elDisplay; | |
| 90 | end; | |
| 91 | ||
| 92 | IGridPan elFrame = interface( IGridPanel Control) | |
| 93 | ['{D04 C6393-9780 -4E28-B56C -36ADF49ED BAA}'] | |
| 94 | functi on getAllo wCollapse: TGridPane lCollapse; | |
| 95 | functi on getAllo wRefresh: boolean; | |
| 96 | functi on getBack groundColo r: TColor; | |
| 97 | functi on getColl apsed: boo lean; | |
| 98 | functi on getTitl eFontColor : TColor; | |
| 99 | functi on getTitl eFontBold: boolean; | |
| 100 | functi on getTitl e: string; | |
| 101 | ||
| 102 | proced ure setAll owCollapse (const aVa lue: TGrid PanelColla pse); | |
| 103 | proced ure setAll owRefresh( const aVal ue: boolea n); | |
| 104 | proced ure setBac kgroundCol or(const a Value: TCo lor); | |
| 105 | proced ure setTit leFontColo r(const aV alue: TCol or); | |
| 106 | proced ure setTit leFontBold (const aVa lue: boole an); | |
| 107 | proced ure setTit le(const a Value: str ing); | |
| 108 | ||
| 109 | proced ure OnExpa ndCollapse (Sender: T Object); | |
| 110 | ||
| 111 | proper ty AllowCo llapse: TG ridPanelCo llapse rea d getAllow Collapse w rite setAl lowCollaps e; | |
| 112 | proper ty AllowRe fresh: boo lean read getAllowRe fresh writ e setAllow Refresh; | |
| 113 | proper ty Backgro undColor: TColor rea d getBackg roundColor write set Background Color; | |
| 114 | proper ty Collaps ed: boolea n read get Collapsed; | |
| 115 | proper ty TitleFo ntColor: T Color read getTitleF ontColor w rite setTi tleFontCol or; | |
| 116 | proper ty TitleFo ntBold: bo olean read getTitleF ontBold wr ite setTit leFontBold ; | |
| 117 | proper ty Title: string rea d getTitle write set Title; | |
| 118 | end; | |
| 119 | ||
| 120 | IGridPan elFunction s = interf ace(IInter face) | |
| 121 | ['{A88 21FA6-142B -4678-B7CE -D2AAF4E00 EAD}'] | |
| 122 | functi on AddCove rSheetCont rol(aGridP anel: TGri dPanel; aC ontrol: TC ontrol; aC ol, aRow: integer; a Align: TAl ign = alNo ne): boole an; | |
| 123 | ||
| 124 | functi on AddRow( aGridPanel : TGridPan el; aSizeS tyle: TSiz eStyle; aV alue: Doub le): integ er; | |
| 125 | functi on AddColu mn(aGridPa nel: TGrid Panel; aSi zeStyle: T SizeStyle; aValue: D ouble): in teger; | |
| 126 | functi on AddCont rol(aGridP anel: TGri dPanel; aC ontrol: TC ontrol; aC ol, aRow: integer; a Align: TAl ign = alNo ne): boole an; | |
| 127 | ||
| 128 | functi on AlignCo lumns(aGri dPanel: TG ridPanel): boolean; | |
| 129 | functi on AlignRo ws(aGridPa nel: TGrid Panel): bo olean; | |
| 130 | ||
| 131 | functi on ClearGr id(aGridPa nel: TGrid Panel): bo olean; | |
| 132 | ||
| 133 | functi on GetCont ents(aGrid Panel: TGr idPanel; a Output: TS trings): i nteger; | |
| 134 | functi on GetSize StyleName( aSizeStyle : TSizeSty le): strin g; | |
| 135 | ||
| 136 | functi on Collaps eRow(aCont rol: TCont rol; aColl apsedHeigh t: integer ): boolean ; | |
| 137 | ||
| 138 | proced ure Format Rows(aGrid Panel: TGr idPanel; a Styles: ar ray of TSi zeStyle; a Values: ar ray of Dou ble); | |
| 139 | end; | |
| 140 | ||
| 141 | function G ridPanelFu nctions: I GridPanelF unctions; | |
| 142 | function N ewGridPane l(aOwner: TComponent ; aColumns , aRows: i nteger; va r aGridPan el: TGridP anel): boo lean; | |
| 143 | function N ewGridPane lDisplay(a GridPanel: TGridPane l; var aGr idPanelDis play): boo lean; | |
| 144 | ||
| 145 | implementa tion | |
| 146 | ||
| 147 | uses | |
| 148 | oGridPan elDisplay, | |
| 149 | oGridPan elFunction s; | |
| 150 | ||
| 151 | var | |
| 152 | fGridPan elFunction s: IGridPa nelFunctio ns; | |
| 153 | ||
| 154 | function G ridPanelFu nctions: I GridPanelF unctions; | |
| 155 | begin | |
| 156 | fGridPan elFunction s.QueryInt erface(IGr idPanelFun ctions, Re sult); | |
| 157 | end; | |
| 158 | ||
| 159 | function N ewGridPane l(aOwner: TComponent ; aColumns , aRows: i nteger; va r aGridPan el: TGridP anel): boo lean; | |
| 160 | begin | |
| 161 | aGridPan el := TGri dPanel.Cre ate(aOwner ); | |
| 162 | try | |
| 163 | aGridP anel.RowCo llection.C lear; | |
| 164 | aGridP anel.Colum nCollectio n.Clear; | |
| 165 | ||
| 166 | { Set the rows } | |
| 167 | while aGridPanel .RowCollec tion.Count < aRows d o | |
| 168 | with aGridPane l.RowColle ction.Add do | |
| 169 | be gin | |
| 170 | SizeStyle := ssPerce nt; | |
| 171 | Value := 1 0; | |
| 172 | en d; | |
| 173 | ||
| 174 | { Set the column s } | |
| 175 | while aGridPanel .ColumnCol lection.Co unt < aCol umns do | |
| 176 | with aGridPane l.ColumnCo llection.A dd do | |
| 177 | be gin | |
| 178 | SizeStyle := ssPerce nt; | |
| 179 | Value := 1 0; | |
| 180 | en d; | |
| 181 | ||
| 182 | { Defa ult settin gs } | |
| 183 | aGridP anel.ShowC aption := False; | |
| 184 | aGridP anel.TabSt op := Fals e; | |
| 185 | aGridP anel.Borde rStyle := bsNone; | |
| 186 | aGridP anel.Bevel Inner := b vNone; | |
| 187 | aGridP anel.Bevel Outer := b vNone; | |
| 188 | aGridP anel.Paren tColor := True; | |
| 189 | aGridP anel.Align := alClie nt; | |
| 190 | Result := True; | |
| 191 | except | |
| 192 | FreeAn dNil(aGrid Panel); | |
| 193 | Result := False; | |
| 194 | end; | |
| 195 | end; | |
| 196 | ||
| 197 | function N ewGridPane lDisplay(a GridPanel: TGridPane l; var aGr idPanelDis play): boo lean; | |
| 198 | begin | |
| 199 | Result : = TGridPan elDisplay. Create(aGr idPanel).G etInterfac e(IGridPan elDisplay, aGridPane lDisplay); | |
| 200 | end; | |
| 201 | ||
| 202 | initializa tion | |
| 203 | ||
| 204 | TGridPanel Functions. Create.Get Interface( IGridPanel Functions, fGridPane lFunctions ); | |
| 205 | ||
| 206 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.