Produced by Araxis Merge on 11/6/2017 12:10:30 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 | ccre.zip\ccre\Components\ZZZ | fZZ_EventLog.pas | Thu Nov 2 15:25:38 2017 UTC |
| 2 | ccre.zip\ccre\Components\ZZZ | fZZ_EventLog.pas | Mon Nov 6 14:38:40 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 1026 |
| 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 fZZ_E ventLog; | |
| 2 | { | |
| 3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
| 4 | * | |
| 5 | * Pa ckage: develo pment tool | |
| 6 | * Da te Created : 5/08/1 2 | |
| 7 | * Si te: Hines OIFO | |
| 8 | * De velopers: | |
| 9 | * PII | |
| 10 | * | |
| 11 | * De scription: Event log prese ntation wi ndow | |
| 12 | * | |
| 13 | ========== ========== ========== ========== ========== ========== ========== ========== | |
| 14 | } | |
| 15 | ||
| 16 | interface | |
| 17 | ||
| 18 | uses | |
| 19 | Windows, Messages, SysUtils | |
| 20 | , Classe s, Graphic s, Control s, Forms, | |
| 21 | Dialogs, StdCtrls, ExtCtrls, ActnList, Menus, St dActns, Bu ttons, Img List; | |
| 22 | ||
| 23 | type | |
| 24 | TZZ_Even tLog = cla ss(TObject ) | |
| 25 | private | |
| 26 | fLogLi mit: Integ er; | |
| 27 | fEvent Log: TStri ngList; | |
| 28 | fChang eTracker: TNotifyEve nt; | |
| 29 | proced ure setCha ngeTracker (aTracker: TNotifyEv ent); | |
| 30 | proced ure setLog Limit(aLim it: Intege r); | |
| 31 | public | |
| 32 | proper ty ChangeT racker: TN otifyEvent read fCha ngeTracker write set ChangeTrac ker; | |
| 33 | proper ty EventLo g: TString List read fEventLog write fEve ntLog; | |
| 34 | proper ty LogLimi t: Integer read fLog Limit writ e setLogLi mit; | |
| 35 | constr uctor Crea te; | |
| 36 | destru ctor Destr oy; overri de; | |
| 37 | end; | |
| 38 | ||
| 39 | TfrmEven tLog = cla ss(TForm) | |
| 40 | pnlTim eline: TPa nel; | |
| 41 | pnlMai nTitle: TP anel; | |
| 42 | pnlBot tom: TPane l; | |
| 43 | lbLog: TListBox; | |
| 44 | Splitt er1: TSpli tter; | |
| 45 | Panel1 : TPanel; | |
| 46 | mm: TM emo; | |
| 47 | pnlTit le: TPanel ; | |
| 48 | Action List1: TAc tionList; | |
| 49 | acRefr eshLog: TA ction; | |
| 50 | MainMe nu1: TMain Menu; | |
| 51 | Window Close1: TW indowClose ; | |
| 52 | File1: TMenuItem ; | |
| 53 | Refres h1: TMenuI tem; | |
| 54 | N1: TM enuItem; | |
| 55 | Close1 : TMenuIte m; | |
| 56 | SpeedB utton1: TS peedButton ; | |
| 57 | acSave As: TActio n; | |
| 58 | SpeedB utton2: TS peedButton ; | |
| 59 | ImageL ist1: TIma geList; | |
| 60 | Panel2 : TPanel; | |
| 61 | OpenDi alog1: TOp enDialog; | |
| 62 | acSetL imit: TAct ion; | |
| 63 | acClea r: TAction ; | |
| 64 | SpeedB utton5: TS peedButton ; | |
| 65 | SpeedB utton6: TS peedButton ; | |
| 66 | ckbWra p: TCheckB ox; | |
| 67 | acWrap : TAction; | |
| 68 | pnlBot tomDetails : TPanel; | |
| 69 | pnlLim it: TPanel ; | |
| 70 | acLoad : TAction; | |
| 71 | SpeedB utton3: TS peedButton ; | |
| 72 | edHigh : TEdit; | |
| 73 | proced ure lbLogC lick(Sende r: TObject ); | |
| 74 | proced ure acRefr eshLogExec ute(Sender : TObject) ; | |
| 75 | proced ure Close1 Click(Send er: TObjec t); | |
| 76 | proced ure FormCr eate(Sende r: TObject ); | |
| 77 | proced ure acSave AsExecute( Sender: TO bject); | |
| 78 | proced ure acSetL imitExecut e(Sender: TObject); | |
| 79 | proced ure acClea rExecute(S ender: TOb ject); | |
| 80 | proced ure acWrap Execute(Se nder: TObj ect); | |
| 81 | proced ure acLoad Execute(Se nder: TObj ect); | |
| 82 | proced ure lbLogD rawItem(Co ntrol: TWi nControl; Index: Int eger; | |
| 83 | Rect : TRect; S tate: TOwn erDrawStat e); | |
| 84 | proced ure edHigh Change(Sen der: TObje ct); | |
| 85 | private | |
| 86 | { Priv ate declar ations } | |
| 87 | fEvent Log: TStri ngList; | |
| 88 | Curren t: TObject ; | |
| 89 | functi on findObj ect(anObje ct: TObjec t): Intege r; | |
| 90 | proced ure restor ePosition; | |
| 91 | proced ure Refres hLog; | |
| 92 | proced ure ShowLo gSizeInfo; | |
| 93 | public | |
| 94 | { Publ ic declara tions } | |
| 95 | proced ure Update Log(aLog:T StringList =nil); | |
| 96 | proced ure EventL ogPresente rOnChange( Sender:TOb ject); | |
| 97 | proced ure setVie wMode(aPar ented:Bool ean=false) ; | |
| 98 | end; | |
| 99 | ||
| 100 | var | |
| 101 | frmEvent Log: TfrmE ventLog; | |
| 102 | ||
| 103 | function n ewEventLog : TZZ_Even tLog; | |
| 104 | function a ddEvent(aD escription :String;an Event:TObj ect):Boole an; | |
| 105 | function a ddRPCEvent (anEvent:T Object): B oolean; | |
| 106 | function a ddTracker( aTracker: TNotifyEve nt):Boolea n; | |
| 107 | ||
| 108 | procedure ShowEventL og(aModal: Boolean=T rue); | |
| 109 | function s etParented Log(aParen t:TWinCont rol):Boole an; | |
| 110 | ||
| 111 | implementa tion | |
| 112 | ||
| 113 | uses | |
| 114 | uZZ_Desc ribedItem, uZZ_RPCEv ent | |
| 115 | ; | |
| 116 | ||
| 117 | {$R *.dfm} | |
| 118 | ||
| 119 | var | |
| 120 | EL: TZZ_ EventLog; | |
| 121 | ||
| 122 | ////////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// | |
| 123 | function a ddRPCEvent (anEvent:T Object): B oolean; | |
| 124 | var | |
| 125 | sDescrip tion: Stri ng; | |
| 126 | begin | |
| 127 | Result : = False; | |
| 128 | if not A ssigned(EL ) then | |
| 129 | begin | |
| 130 | Show Message(TR PCEventIte m(anEvent) .RPC); | |
| 131 | Free AndNil(anE vent); | |
| 132 | Exit ; | |
| 133 | end; | |
| 134 | sDescrip tion := | |
| 135 | Format (' %-25.25 s',[TRPCEv entItem(an Event).RPC ]) + | |
| 136 | Format DateTime(' hh:mm:ss. zzz', TRPC EventItem( anEvent).S tart); | |
| 137 | EL.Event Log.Insert Object(0,s Descriptio n,anEvent) ; | |
| 138 | Result : = true; | |
| 139 | end; | |
| 140 | ||
| 141 | ||
| 142 | function a ddEvent(aD escription :String;an Event:TObj ect): Bool ean; | |
| 143 | begin | |
| 144 | Result : = False; | |
| 145 | if not A ssigned(EL ) then | |
| 146 | Exit; | |
| 147 | EL.Event Log.Insert Object(0,a Descriptio n,anEvent) ; | |
| 148 | Result : = true; | |
| 149 | end; | |
| 150 | ||
| 151 | function a ddTracker( aTracker: TNotifyEve nt):Boolea n; | |
| 152 | begin | |
| 153 | Result : = False; | |
| 154 | if not A ssigned(EL ) then | |
| 155 | Exit; | |
| 156 | EL.Chang eTracker : = aTracker ; | |
| 157 | Result : = true; | |
| 158 | end; | |
| 159 | ||
| 160 | function n ewEventLog : TZZ_Even tLog; | |
| 161 | begin | |
| 162 | if not A ssigned(EL ) then | |
| 163 | EL := TZZ_EventL og.Create; | |
| 164 | result : = EL; | |
| 165 | end; | |
| 166 | ||
| 167 | ||
| 168 | ////////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// | |
| 169 | procedure ShowEventL og(aModal: Boolean=T rue); | |
| 170 | begin | |
| 171 | if not A ssigned(fr mEventLog) then | |
| 172 | Applic ation.Crea teForm(Tfr mEventLog, frmEventLo g); | |
| 173 | if not A ssigned(fr mEventLog) then Exit ; | |
| 174 | ||
| 175 | frmEvent Log.Update Log(EL.Eve ntLog); | |
| 176 | frmEvent Log.Refres hLog; | |
| 177 | ||
| 178 | if frmEv entLog.Par ent = nil then | |
| 179 | if aMo dal then | |
| 180 | frmE ventLog.Sh owModal | |
| 181 | else | |
| 182 | frmE ventLog.Sh ow; | |
| 183 | ||
| 184 | frmEvent Log.Left : = 0; | |
| 185 | frmEvent Log.Top := 0; | |
| 186 | end; | |
| 187 | ||
| 188 | procedure setFormPar ented(aFor m: TForm; aParent: T WinControl ); | |
| 189 | begin | |
| 190 | if aForm .Parent <> aParent t hen | |
| 191 | begin | |
| 192 | aFor m.BorderSt yle := bsN one; | |
| 193 | aFor m.Parent : = aParent; | |
| 194 | aFor m.Align := alClient; | |
| 195 | aFor m.Menu := nil; | |
| 196 | aFor m.Show; | |
| 197 | end; | |
| 198 | end; | |
| 199 | ||
| 200 | function s etParented Log(aParen t:TWinCOnt rol): Bool ean; | |
| 201 | begin | |
| 202 | Result : = False; | |
| 203 | if Assig ned(frmEve ntLog) the n | |
| 204 | begin | |
| 205 | setF ormParente d(frmEvent Log,aParen t); | |
| 206 | frmE ventLog.se tViewMode( True); | |
| 207 | Resu lt := True ; | |
| 208 | end; | |
| 209 | end; | |
| 210 | ||
| 211 | ////////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// | |
| 212 | ||
| 213 | constructo r TZZ_Even tLog.Creat e; | |
| 214 | begin | |
| 215 | inherite d; | |
| 216 | fEventLo g := TStri ngList.Cre ate; | |
| 217 | fLogLimi t := 500; | |
| 218 | end; | |
| 219 | ||
| 220 | destructor TZZ_Event Log.Destro y; | |
| 221 | begin | |
| 222 | EventLog .OnChange := nil; | |
| 223 | if Assig ned(EventL og) then | |
| 224 | while EventLog.C ount > 0 d o | |
| 225 | begi n | |
| 226 | if Assigned( EventLog.O bjects[0]) then | |
| 227 | try | |
| 228 | TObject( EventLog.O bjects[0]) .Free; | |
| 229 | except | |
| 230 | end; | |
| 231 | Ev entLog.Del ete(0); | |
| 232 | end; | |
| 233 | end; | |
| 234 | ||
| 235 | procedure TZZ_EventL og.setChan geTracker( aTracker: TNotifyEve nt); | |
| 236 | begin | |
| 237 | fChangeT racker := aTracker; | |
| 238 | EventLog .OnChange := aTracke r; | |
| 239 | end; | |
| 240 | ||
| 241 | procedure TZZ_EventL og.setLogL imit(aLimi t: Integer ); | |
| 242 | begin | |
| 243 | if aLimi t <= fLogL imit then | |
| 244 | begin | |
| 245 | whil e EventLog .Count > a Limit do | |
| 246 | begi n | |
| 247 | if EventLog. Objects[Ev entLog.Cou nt - 1] <> nil then | |
| 248 | EventLog.O bjects[Eve ntLog.Coun t - 1].Fre e; | |
| 249 | Ev entLog.Del ete(EventL og.Count - 1); | |
| 250 | end; | |
| 251 | end; | |
| 252 | fLogLimi t := aLimi t; | |
| 253 | end; | |
| 254 | ||
| 255 | ////////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// | |
| 256 | ||
| 257 | procedure TfrmEventL og.FormCre ate(Sender : TObject) ; | |
| 258 | begin | |
| 259 | AddTrack er(EventLo gPresenter OnChange); | |
| 260 | end; | |
| 261 | ||
| 262 | procedure TfrmEventL og.Refresh Log; | |
| 263 | begin | |
| 264 | if not A ssigned(fE ventLog) t hen | |
| 265 | exit; | |
| 266 | lbLog.En abled := F alse; | |
| 267 | EL.LogLi mit := EL. LogLimit; | |
| 268 | lbLog.It ems.Assign (fEventLog ); | |
| 269 | RestoreP osition; | |
| 270 | lbLog.En abled := T rue; | |
| 271 | Applicat ion.Proces sMessages; | |
| 272 | end; | |
| 273 | ||
| 274 | procedure TfrmEventL og.lbLogCl ick(Sender : TObject) ; | |
| 275 | var | |
| 276 | X: ImDes cribe; | |
| 277 | begin | |
| 278 | if lbLog .ItemIndex >= 0 then | |
| 279 | begin | |
| 280 | Curr ent := lbL og.Items.O bjects[lbL og.ItemInd ex]; | |
| 281 | ||
| 282 | if A ssigned(Cu rrent) and Current.G etInterfac e(ImDescri be,X) then | |
| 283 | mm .Text := X .getDescri ption.Text | |
| 284 | else | |
| 285 | be gin | |
| 286 | mm.Text := ''; | |
| 287 | pnlTitle.C aption := ''; | |
| 288 | en d; | |
| 289 | end | |
| 290 | else | |
| 291 | begin | |
| 292 | mm.T ext := ''; | |
| 293 | pnlt itle.Capti on := ''; | |
| 294 | Curr ent := nil ; | |
| 295 | end; | |
| 296 | end; | |
| 297 | ||
| 298 | function T frmEventLo g.findObje ct(anObjec t:TObject) : Integer; | |
| 299 | var | |
| 300 | i: Integ er; | |
| 301 | begin | |
| 302 | Result : = -1; | |
| 303 | for i := 0 to lbLo g.Items.Co unt - 1 do | |
| 304 | begin | |
| 305 | if a nObject = lbLog.Item s.Objects[ i] then | |
| 306 | be gin | |
| 307 | Result := i; | |
| 308 | break; | |
| 309 | en d; | |
| 310 | end; | |
| 311 | end; | |
| 312 | ||
| 313 | procedure TfrmEventL og.restore Position; | |
| 314 | var | |
| 315 | i: Integ er; | |
| 316 | begin | |
| 317 | if not A ssigned(Cu rrent) the n | |
| 318 | Exit; | |
| 319 | i := fin dObject(Cu rrent); | |
| 320 | if i >=0 then | |
| 321 | lbLog. ItemIndex := i; | |
| 322 | end; | |
| 323 | ||
| 324 | procedure TfrmEventL og.Close1C lick(Sende r: TObject ); | |
| 325 | begin | |
| 326 | Close; | |
| 327 | end; | |
| 328 | ||
| 329 | procedure TfrmEventL og.ShowLog SizeInfo; | |
| 330 | begin | |
| 331 | if assig ned(fEvent Log) then | |
| 332 | pnlBot tom.Captio n := Forma t(' %d ',[ fEventLog. Count]); | |
| 333 | if assig ned(EL) th en | |
| 334 | pnlLim it.Caption := Format ('(%d) ',[ EL.LogLimi t]); | |
| 335 | end; | |
| 336 | ||
| 337 | procedure TfrmEventL og.UpdateL og(aLog:TS tringList= nil); | |
| 338 | begin | |
| 339 | if Assig ned(aLog) then | |
| 340 | fEvent Log := aLo g; | |
| 341 | RefreshL og; | |
| 342 | lbLog.It emIndex := 0; | |
| 343 | lbLogCli ck(nil); | |
| 344 | ShowLogS izeInfo; | |
| 345 | Applicat ion.Proces sMessages; | |
| 346 | end; | |
| 347 | ||
| 348 | procedure TfrmEventL og.acRefre shLogExecu te(Sender: TObject); | |
| 349 | begin | |
| 350 | UpdateLo g(fEventLo g); | |
| 351 | end; | |
| 352 | ||
| 353 | procedure TfrmEventL og.EventLo gPresenter OnChange(S ender:TObj ect); | |
| 354 | begin | |
| 355 | UpdateLo g(TStringL ist(Sender )); | |
| 356 | end; | |
| 357 | ||
| 358 | procedure TfrmEventL og.setView Mode(aPare nted:Boole an=false); | |
| 359 | begin | |
| 360 | pnlTitle .ParentCol or := aPar ented; | |
| 361 | pnlMainT itle.Paren tColor := aParented; | |
| 362 | pnlBotto m.ParentCo lor := aPa rented; | |
| 363 | end; | |
| 364 | ||
| 365 | procedure TfrmEventL og.acSaveA sExecute(S ender: TOb ject); | |
| 366 | var | |
| 367 | i: Integ er; | |
| 368 | s: Strin g; | |
| 369 | sN: Stri ng; | |
| 370 | X: ImDes cribe; | |
| 371 | SL : TSt ringList; | |
| 372 | begin | |
| 373 | if OpenD ialog1.Exe cute then | |
| 374 | begin | |
| 375 | sN : = OpenDial og1.FileNa me; | |
| 376 | for i := lbLog .Items.Cou nt -1 down to 0 do | |
| 377 | be gin | |
| 378 | Current := lbLog.Ite ms.Objects [i]; | |
| 379 | if Assigne d(Current) and Curre nt.GetInte rface(ImDe scribe,X) then | |
| 380 | s := s + '--'+lbLo g.Items[i] + #13#10 + X.getDes cription.T ext + #13# 10 | |
| 381 | else | |
| 382 | s := s + #13#10 | |
| 383 | en d; | |
| 384 | SL : = TStringL ist.Create ; | |
| 385 | SL.T ext := s; | |
| 386 | SL.S aveToFile( sN); | |
| 387 | SL.F ree; | |
| 388 | end; | |
| 389 | end; | |
| 390 | ||
| 391 | procedure TfrmEventL og.acSetLi mitExecute (Sender: T Object); | |
| 392 | var | |
| 393 | InputStr ing: strin g; | |
| 394 | begin | |
| 395 | InputStr ing:= Inpu tBox('Log Size Limit ', 'Enter # of recor ds to keep in the Lo g', IntToS tr(EL.LogL imit)); | |
| 396 | if Input String <> IntToStr(E L.LogLimit ) then | |
| 397 | begin | |
| 398 | EL.L ogLimit := StrToIntD ef(InputSt ring,EL.Lo gLimit); | |
| 399 | Show LogSizeInf o; | |
| 400 | end; | |
| 401 | end; | |
| 402 | ||
| 403 | procedure TfrmEventL og.acClear Execute(Se nder: TObj ect); | |
| 404 | begin | |
| 405 | if Messa geDlg('Era se Log now ?', | |
| 406 | mtConf irmation, [mbYes, mb No], 0) = mrYes then | |
| 407 | begin | |
| 408 | lbLo g.Enabled := False; | |
| 409 | whil e fEventLo g.Count > 0 do | |
| 410 | begi n | |
| 411 | if fEventLog .Objects[f EventLog.C ount - 1] <> nil the n | |
| 412 | fEventLog. Objects[fE ventLog.Co unt - 1].F ree; | |
| 413 | fE ventLog.De lete(fEven tLog.Count - 1); | |
| 414 | end; | |
| 415 | lbLo g.Enabled := True; | |
| 416 | end; | |
| 417 | Applicat ion.Proces sMessages; | |
| 418 | end; | |
| 419 | ||
| 420 | procedure TfrmEventL og.acWrapE xecute(Sen der: TObje ct); | |
| 421 | begin | |
| 422 | mm.WordW rap := ckb Wrap.Check ed; | |
| 423 | if ckbWr ap.Checked then | |
| 424 | mm.Scr ollBars := ssVertica l | |
| 425 | else | |
| 426 | mm.Scr ollBars := ssBoth; | |
| 427 | pnlBotto mDetails.V isible := ckbWrap.Ch ecked; | |
| 428 | end; | |
| 429 | ||
| 430 | procedure TfrmEventL og.acLoadE xecute(Sen der: TObje ct); | |
| 431 | var | |
| 432 | sEventNa me,sEventD escription , | |
| 433 | s, sN: S tring; | |
| 434 | i, iCoun t: integer ; | |
| 435 | SL: TStr ingList; | |
| 436 | ||
| 437 | procedur e LogEvent ; | |
| 438 | begin | |
| 439 | if sEv entName+sE ventDescri ption <> ' ' then | |
| 440 | AddE vent(sEven tName,getD escribedIt em(sEventN ame,sEvent Descriptio n)); | |
| 441 | end; | |
| 442 | ||
| 443 | begin | |
| 444 | if OpenD ialog1.Exe cute then | |
| 445 | begin | |
| 446 | sN : = OpenDial og1.FileNa me; | |
| 447 | SL : = TStringL ist.Create ; | |
| 448 | SL.L oadFromFil e(sN); | |
| 449 | i := 0; | |
| 450 | iCou nt := 0; | |
| 451 | sEve ntName := '-- File I mport -- B EGIN'; | |
| 452 | sEve ntDescript ion := 'Fi le: '+sN; | |
| 453 | whil e i < SL.C ount do | |
| 454 | be gin | |
| 455 | s := SL[i] ; | |
| 456 | if pos('-- ',s)=1 the n | |
| 457 | begin | |
| 458 | LogEve nt; | |
| 459 | sEvent Name := '' ; | |
| 460 | sEvent Descriptio n := ''; | |
| 461 | sEvent Name := co py(s,3,Len gth(s)); | |
| 462 | inc(iC ount); | |
| 463 | end | |
| 464 | else | |
| 465 | sEventDe scription := sEventD escription + s + #13 #10; | |
| 466 | inc(i); | |
| 467 | en d; | |
| 468 | sEve ntName := '-- File I mport -- E ND'; | |
| 469 | sEve ntDescript ion := 'To tal lines: '+IntToSt r(SL.Count )+ #13#10+ | |
| 470 | 'T otal event s: ' + Int ToStr(iCou nt-1); | |
| 471 | LogE vent; | |
| 472 | SL.F ree; | |
| 473 | end; | |
| 474 | end; | |
| 475 | ||
| 476 | procedure TfrmEventL og.lbLogDr awItem(Con trol: TWin Control; I ndex: Inte ger; | |
| 477 | Rect: TR ect; State : TOwnerDr awState); | |
| 478 | var | |
| 479 | s: Strin g; | |
| 480 | begin | |
| 481 | inherite d; | |
| 482 | s := edH igh.Text; | |
| 483 | with (Co ntrol as T ListBox).C anvas do | |
| 484 | begin | |
| 485 | if ( Length(s)> 0) and (po s(s,(Contr ol as TLis tBox).Item s[Index])> 0) then | |
| 486 | Fo nt.Color : = clRed | |
| 487 | else if (odSel ected in S tate) then | |
| 488 | Fo nt.Color : = clWhite | |
| 489 | else | |
| 490 | Fo nt.Color : = clWindow text; | |
| 491 | Fill Rect(Rect) ; | |
| 492 | Text Out(Rect.L eft, Rect. Top, (Cont rol as TLi stBox).Ite ms[Index]) ; | |
| 493 | if o dFocused I n State th en | |
| 494 | be gin | |
| 495 | Brush.Colo r := lbLog .Color; | |
| 496 | DrawFocusR ect(Rect); | |
| 497 | en d; | |
| 498 | end; | |
| 499 | end; | |
| 500 | ||
| 501 | procedure TfrmEventL og.edHighC hange(Send er: TObjec t); | |
| 502 | begin | |
| 503 | inherite d; | |
| 504 | lbLog.In validate; | |
| 505 | Applicat ion.Proces sMessages; | |
| 506 | end; | |
| 507 | ||
| 508 | initializa tion | |
| 509 | newEvent Log; | |
| 510 | ||
| 511 | finalizati on | |
| 512 | FreeAndN il(EL); | |
| 513 | end. | |
| 514 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.