Produced by Araxis Merge on 10/18/2017 11:37:29 AM Eastern Daylight 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 | OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source | SgnonCnf.pas | Wed Oct 11 20:08:07 2017 UTC |
| 2 | OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source | SgnonCnf.pas | Tue Oct 17 19:58:08 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 1194 |
| 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 | { ******** ********** ********** ********** ********** ********** **** | |
| 2 | Pa ckage: XWB - Kernel RPCBroker | |
| 3 | Da te Created : Sept 18, 1997 (Ver sion 1.1) | |
| 4 | Si te Name: O akland, OI Field Off ice, Dept of Veteran Affairs | |
| 5 | De velopers: PII, PII, PII | |
| 6 | De scription: Contains TRPCBroker and relat ed compone nts. | |
| 7 | Unit: Sg nonCnf Sig non Form c onfigurati on dialog. | |
| 8 | Cu rrent Rele ase: Versi on 1.1 Pat ch 65 | |
| 9 | ********** ********** ********** ********** ********** ********** *** } | |
| 10 | ||
| 11 | { ******** ********** ********** ********** ********** ** | |
| 12 | Changes in v1.1.65 (HGW 08/0 5/2015 ) X WB*1.1*65 | |
| 13 | 1. None. | |
| 14 | ||
| 15 | Changes in v1.1.60 (HGW 05/0 8/2014 ) X WB*1.1*60 | |
| 16 | 1. None. Windows R egistry ac cess error s resolved in Xwbut1 .pas. | |
| 17 | ||
| 18 | Changes in v1.1.31 (DCM ) XW B*1.1*31 | |
| 19 | 1. Modif ied to sto re signon configurat ion under the HKCU k ey. This | |
| 20 | permi ts users o n NT2000 m achines wh o have USE R access t o set thei r | |
| 21 | confi guration. Also, mak es configu ration spe cific to u ser on | |
| 22 | machi nes which might be s hared. | |
| 23 | 2. Make it so that configura tion is on ly written to the re gistry | |
| 24 | when the user i ndicates t hat it sho uld be sav ed (previo usly the | |
| 25 | defau lt values were writt en into th e registry as well a s applied | |
| 26 | to th e window i f data was not in th e registry ). The def ault | |
| 27 | value s previous ly stored in the reg istry woul d override any chang es | |
| 28 | in th e signon w indow desi gn via cod ing. To o vercome th is, if the | |
| 29 | user does not h ave saved configurat ion data, the window generated | |
| 30 | on op ening will be used a s the defa ult, and t he default data writ ten | |
| 31 | into the regist ry as defa ults. Thi s will per mit the us er to rest ore | |
| 32 | to th e current window def aults if d esired, bu t will not overwrite | |
| 33 | chang es release d for the window in later patc hes. | |
| 34 | ********** ********** ********** ********** ********** } | |
| 35 | unit Sgnon Cnf; | |
| 36 | ||
| 37 | interface | |
| 38 | ||
| 39 | uses | |
| 40 | {System} | |
| 41 | Classes, SysUtils, UITypes, | |
| 42 | {WinApi} | |
| 43 | WinTypes , WinProcs , | |
| 44 | {VA} | |
| 45 | MFunStr, XWBut1, | |
| 46 | {Vcl} | |
| 47 | Graphics , Forms, C ontrols, B uttons, St dCtrls, Ex tCtrls, Di alogs; | |
| 48 | ||
| 49 | type | |
| 50 | TSignonV alues = cl ass(TObjec t) | |
| 51 | private | |
| 52 | FHeigh t: Integer ; | |
| 53 | FWidth : Integer; | |
| 54 | FTextC olor: Long Int; | |
| 55 | FPosit ion: Strin g; | |
| 56 | FSize: String; | |
| 57 | FIntro Font: Stri ng; | |
| 58 | FIntro FontStyles : String; | |
| 59 | FBackC olor: Long Int; | |
| 60 | FFont: TFont; | |
| 61 | FFontS tyles: TFo ntStyles; | |
| 62 | FTop: Integer; | |
| 63 | FLeft: Integer; | |
| 64 | proced ure SetSiz e(const Va lue: Strin g); | |
| 65 | proced ure SetPos ition(cons t Value: S tring); | |
| 66 | proced ure SetInt roFont(con st Value: String); | |
| 67 | proced ure SetInt roFontStyl es(const V alue: Stri ng); | |
| 68 | proced ure SetFon t(Value: T Font); | |
| 69 | proced ure SetTex tColor(Val ue: LongIn t); | |
| 70 | public | |
| 71 | proced ure Clear; virtual; | |
| 72 | constr uctor Crea te; | |
| 73 | destru ctor Destr oy; overri de; | |
| 74 | proced ure SetEqu al(EqualTo Value: TSi gnonValues ); | |
| 75 | proper ty Height: Integer r ead FHeigh t write FH eight; | |
| 76 | proper ty Width: Integer re ad FWidth write FWid th; | |
| 77 | proper ty TextCol or: LongIn t read FTe xtColor wr ite SetTex tColor; | |
| 78 | proper ty Positio n: String read FPosi tion write SetPositi on; | |
| 79 | proper ty Size: S tring read FSize wri te SetSize ; | |
| 80 | proper ty IntroFo nt: String read FInt roFont wri te SetIntr oFont; | |
| 81 | proper ty IntroFo ntStyles: String rea d FIntroFo ntStyles w rite SetIn troFontSty les; | |
| 82 | proper ty BackCol or: LongIn t read FBa ckColor wr ite FBackC olor; | |
| 83 | proper ty Font: T Font read FFont writ e SetFont; | |
| 84 | proper ty FontSty les: TFont Styles rea d FFontSty les write FFontStyle s; | |
| 85 | proper ty Top: In teger read FTop writ e FTop; | |
| 86 | proper ty Left: I nteger rea d FLeft wr ite FLeft; | |
| 87 | end; | |
| 88 | ||
| 89 | TSignonC onfigurati on = class ; | |
| 90 | ||
| 91 | { | |
| 92 | This cl ass is the form show n for conf iguration of the sig non form | |
| 93 | } | |
| 94 | TfrmSign onConfig = class(TFo rm) | |
| 95 | OKBtn: TBitBtn; | |
| 96 | Cancel Btn: TBitB tn; | |
| 97 | HelpBt n: TBitBtn ; | |
| 98 | Bevel1 : TBevel; | |
| 99 | rgrWin dowPositio n: TRadioG roup; | |
| 100 | rgrWin dowSize: T RadioGroup ; | |
| 101 | FontDi alog1: TFo ntDialog; | |
| 102 | GroupB ox1: TGrou pBox; | |
| 103 | Button 1: TButton ; | |
| 104 | btnDef aults: TBi tBtn; | |
| 105 | rgrInt roBackClr: TRadioGro up; | |
| 106 | ColorD ialog1: TC olorDialog ; | |
| 107 | proced ure Button 1Click(Sen der: TObje ct); | |
| 108 | proced ure OKBtnC lick(Sende r: TObject ); | |
| 109 | proced ure FormSh ow(Sender: TObject); | |
| 110 | proced ure rgrInt roBackClrC lick(Sende r: TObject ); | |
| 111 | private | |
| 112 | { Priv ate declar ations } | |
| 113 | FContr oller: TSi gnonConfig uration; | |
| 114 | public | |
| 115 | proper ty Control ler: TSign onConfigur ation read FControll er write F Controller ; | |
| 116 | { Publ ic declara tions } | |
| 117 | end; | |
| 118 | ||
| 119 | { | |
| 120 | This class hand les the pr ocessing f or signon configurat ion | |
| 121 | } | |
| 122 | TSignonC onfigurati on = class (TObject) | |
| 123 | private | |
| 124 | OrigHe lp: String ; | |
| 125 | FIntro BackColor: LongInt; | |
| 126 | FIntro FontValue: String; | |
| 127 | FIntro FontStyles : String; | |
| 128 | FIntro TextColor: LongInt; | |
| 129 | FPosit ion: Strin g; | |
| 130 | FSize: String; | |
| 131 | protecte d | |
| 132 | proced ure ResetT oDefaults; virtual; | |
| 133 | proced ure UserCl ickedOK; v irtual; | |
| 134 | proced ure IntroB ackColor; virtual; | |
| 135 | proced ure FontDi alog; virt ual; | |
| 136 | proced ure Update Window; | |
| 137 | public | |
| 138 | functi on ShowMod al: Intege r; virtual ; | |
| 139 | proced ure ReadRe gistrySett ings; | |
| 140 | constr uctor Crea te; | |
| 141 | end; | |
| 142 | ||
| 143 | function S toreFontSt yle(Values : TFontSty les): stri ng; | |
| 144 | function R estoreFont Styles(Val ue: String ): TFontSt yles; | |
| 145 | ||
| 146 | ||
| 147 | var | |
| 148 | frmSigno nConfig: T frmSignonC onfig; | |
| 149 | strPosit ion, strSi ze: string ; | |
| 150 | InitialV alues: TSi gnonValues ; | |
| 151 | SignonDe faults: TS ignonValue s; | |
| 152 | IsShared Broker: Bo olean; | |
| 153 | ||
| 154 | implementa tion | |
| 155 | ||
| 156 | {$R *.DFM} | |
| 157 | ||
| 158 | uses | |
| 159 | {VA} | |
| 160 | Loginfrm , fSgnonDl g, Trpcb; | |
| 161 | ||
| 162 | procedure TfrmSignon Config.But ton1Click( Sender: TO bject); | |
| 163 | begin | |
| 164 | Controll er.FontDia log; | |
| 165 | end; | |
| 166 | ||
| 167 | procedure TfrmSignon Config.OKB tnClick(Se nder: TObj ect); | |
| 168 | begin | |
| 169 | ||
| 170 | end; | |
| 171 | ||
| 172 | {--------- ----- TSig nonConfigu ration.Rea dRegistryS ettings -- ---------- -- | |
| 173 | Read Signo n related settings f rom the Re gistry. S ubstitute defaults | |
| 174 | for missin g values. | |
| 175 | ---------- ---------- ---------- ---------- ---------- ---------- ------} | |
| 176 | procedure TSignonCon figuration .ReadRegis trySetting s; | |
| 177 | var | |
| 178 | strFontS tyle: Stri ng; | |
| 179 | strFontC olor: Stri ng; | |
| 180 | strFontS ettings: S tring; | |
| 181 | begin | |
| 182 | { Test h andling of Defaults } | |
| 183 | InitialV alues.SetE qual(Signo nDefaults) ; | |
| 184 | InitialV alues.Posi tion := '0 '; | |
| 185 | InitialV alues.Size := '0'; | |
| 186 | InitialV alues.Back Color := c lWindow; | |
| 187 | InitialV alues.Text Color := c lWindowTex t; | |
| 188 | ||
| 189 | {%%%%%%% Sign-on W indow Posi tion %%%%% %%} | |
| 190 | strPosit ion := Rea dRegDataDe fault(HKCU , REG_SIGN ON, 'Signo nPos',''); | |
| 191 | if strPo sition <> '' then | |
| 192 | Initia lValues.Po sition := strPositio n; | |
| 193 | ||
| 194 | {%%%%%%% Sign-on W indow Size %%%%%%%} | |
| 195 | strSize := ReadReg DataDefaul t(HKCU, RE G_SIGNON, 'SignonSiz ', ''); | |
| 196 | if strSi ze <> '' t hen | |
| 197 | Initia lValues.Si ze := strS ize; | |
| 198 | ||
| 199 | {%%%%%%% Intro Tex t Backgrou nd Color % %%%%%%} | |
| 200 | if ReadR egDataDefa ult(HKCU, REG_SIGNON , 'IntroBa ckClr', '' ) <> '' th en | |
| 201 | Initia lValues.Ba ckColor := StrToInt( ReadRegDat aDefault(H KCU, REG_S IGNON, 'In troBackClr ', '')); | |
| 202 | ||
| 203 | {%%%%%%% Intro Tex t Font %%% %%%%} | |
| 204 | strFontS ettings := ReadRegDa taDefault( HKCU, REG_ SIGNON, 'I ntroTextFo nt', ''); | |
| 205 | if strFo ntSettings <> '' the n | |
| 206 | begin | |
| 207 | Initia lValues.In troFont := strFontSe ttings; | |
| 208 | Initia lValues.Fo nt.Name := Piece(str FontSettin gs,U,1); | |
| 209 | Initia lValues.Fo nt.Size := StrToInt( Piece(strF ontSetting s,U,2)); | |
| 210 | end; | |
| 211 | ||
| 212 | {%%%%%%% Intro Tex t Color %% %%%%%} | |
| 213 | strFontC olor := Re adRegDataD efault(HKC U, REG_SIG NON, 'Intr oTextClr', ''); | |
| 214 | if strFo ntColor <> '' then | |
| 215 | begin | |
| 216 | Initia lValues.Te xtColor := StrToInt( strFontCol or); | |
| 217 | Initia lValues.Fo nt.Color : = InitialV alues.Text Color; | |
| 218 | end; | |
| 219 | ||
| 220 | {%%%%%%% Intro Tex t Font Sty les %%%%%% %} | |
| 221 | strFontS tyle := Re adRegDataD efault(HKC U, REG_SIG NON, 'Intr oTextStyle ', ''); | |
| 222 | if strFo ntStyle <> '' then | |
| 223 | begin | |
| 224 | Initia lValues.In troFontSty les := str FontStyle; | |
| 225 | Initia lValues.Fo nt.Style : = RestoreF ontStyles( strFontSty le) | |
| 226 | end; | |
| 227 | end; | |
| 228 | ||
| 229 | ||
| 230 | function S toreFontSt yle(Values : TFontSty les): Stri ng; | |
| 231 | begin | |
| 232 | Result : = ''; | |
| 233 | if fsBol d in Value s then | |
| 234 | Result := Result + 'B'; | |
| 235 | if FsIta lic in Val ues then | |
| 236 | Result := Result + 'I'; | |
| 237 | if fsUnd erline in Values the n | |
| 238 | Result := Result + 'U'; | |
| 239 | if fsStr ikeout in Values the n | |
| 240 | Result := Result + 'S'; | |
| 241 | end; | |
| 242 | ||
| 243 | procedure TfrmSignon Config.For mShow(Send er: TObjec t); | |
| 244 | begin | |
| 245 | // | |
| 246 | end; | |
| 247 | ||
| 248 | function R estoreFont Styles(Val ue: String ): TFontSt yles; | |
| 249 | begin | |
| 250 | Result : = []; | |
| 251 | if pos(' B',Value) > 0 then | |
| 252 | Result := Result + [fsBold ]; | |
| 253 | if pos(' I',Value) > 0 then | |
| 254 | Result := Result + [fsItal ic]; | |
| 255 | if pos(' U',Value) > 0 then | |
| 256 | Result := Result + [fsUnde rline]; | |
| 257 | if pos(' S',Value) > 0 then | |
| 258 | Result := Result + [fsStri keout]; | |
| 259 | end; | |
| 260 | ||
| 261 | procedure TfrmSignon Config.rgr IntroBackC lrClick(Se nder: TObj ect); | |
| 262 | begin | |
| 263 | Controll er.IntroBa ckColor; | |
| 264 | end; | |
| 265 | ||
| 266 | function T SignonConf iguration. ShowModal: Integer; | |
| 267 | var | |
| 268 | ModalVal ue: Intege r; | |
| 269 | begin | |
| 270 | ReadRegi strySettin gs; | |
| 271 | if frmSi gnonConfig = nil the n | |
| 272 | frmSig nonConfig := TfrmSig nonConfig. Create(App lication); | |
| 273 | frmSigno nConfig.Co ntroller : = Self; | |
| 274 | OrigHelp := Applic ation.Help File; // Save orig inal helpf ile. | |
| 275 | try | |
| 276 | Applic ation.Help File := Re adRegData( HKLM, REG_ BROKER, 'B rokerDr') + | |
| 277 | '\c lagent.hlp '; // Identify ConnectTo helpfile. | |
| 278 | with f rmSignonCo nfig do | |
| 279 | begin | |
| 280 | // s et selecti ons for en try to for m | |
| 281 | rgrI ntroBackCl r.ItemInde x := 0; // Current Backgroun d | |
| 282 | rgrW indowPosit ion.ItemIn dex := Str ToInt(Piec e(InitialV alues.Posi tion,U,1)) ; | |
| 283 | rgrW indowSize. ItemIndex := StrToIn t(Piece(In itialValue s.Size,U,1 )); | |
| 284 | / / initiali ze font va lues to cu rrent sett ings | |
| 285 | FInt roFontValu e := Initi alValues.I ntroFont; | |
| 286 | FInt roTextColo r := Initi alValues.T extColor; | |
| 287 | FInt roFontStyl es := Init ialValues. IntroFontS tyles; | |
| 288 | ||
| 289 | Show Applicatio nAndFocusO K(Applicat ion); | |
| 290 | Moda lValue := frmSignonC onfig.Show Modal; | |
| 291 | if M odalValue = mrOK the n // esta blish chan ges for us er | |
| 292 | begi n | |
| 293 | Us erClickedO K | |
| 294 | end | |
| 295 | else if ModalV alue = mrI gnore then // resto re default values | |
| 296 | Re setToDefau lts; | |
| 297 | end; // with SignonForm | |
| 298 | Result := ModalV alue; | |
| 299 | finally | |
| 300 | frmSig nonConfig. Free; // Release; jli 04110 4 | |
| 301 | Applic ation.Help File := Or igHelp; / / Restore helpfile. | |
| 302 | end; | |
| 303 | end; | |
| 304 | ||
| 305 | { | |
| 306 | called if user chan ges select ion for Ba ckground C olor | |
| 307 | selecti on 0 is to current v alue | |
| 308 | selecti on 1 is to select ne w color | |
| 309 | } | |
| 310 | procedure TSignonCon figuration .IntroBack Color; | |
| 311 | var | |
| 312 | frmSigno nDialog: T frmSignonD ialog; | |
| 313 | OldHandl e: THandle ; | |
| 314 | begin | |
| 315 | OldHandl e := GetFo regroundWi ndow; | |
| 316 | if frmSi gnonConfig .rgrIntroB ackClr.Ite mIndex = 1 then | |
| 317 | begin | |
| 318 | frmSig nonDialog := TfrmSig nonDialog. Create(App lication); | |
| 319 | // Show Applicatio nAndFocusO K(Applicat ion); | |
| 320 | SetF oregroundW indow(frmS ignonDialo g.Handle); | |
| 321 | if frm SignonDial og.ShowMod al = mrOK then | |
| 322 | FInt roBackColo r := clWin dow | |
| 323 | else | |
| 324 | begin | |
| 325 | Show Applicatio nAndFocusO K(Applicat ion); | |
| 326 | if I sSharedBro ker then | |
| 327 | fr mSignonCon fig.Window State := w sMinimized ; | |
| 328 | if f rmSignonCo nfig.Color Dialog1.Ex ecute then | |
| 329 | FI ntroBackCo lor := frm SignonConf ig.ColorDi alog1.Colo r; | |
| 330 | frmS ignonConfi g.WindowSt ate := wsN ormal; | |
| 331 | end; | |
| 332 | end | |
| 333 | else | |
| 334 | FIntro BackColor := Initial Values.Bac kColor; | |
| 335 | SetForeg roundWindo w(OldHandl e); | |
| 336 | end; | |
| 337 | ||
| 338 | { called i f user sel ects to ch ange font for signon form } | |
| 339 | procedure TSignonCon figuration .FontDialo g; | |
| 340 | var | |
| 341 | frmSigno nDialog: T frmSignonD ialog; | |
| 342 | OldHandl e: THandle ; | |
| 343 | FFontVal ue: TFont; | |
| 344 | begin | |
| 345 | FFontVal ue := TFon t.Create; | |
| 346 | OldHandl e := GetFo regroundWi ndow; | |
| 347 | try | |
| 348 | FFontV alue.Name := Initial Values.Fon t.Name; | |
| 349 | FFontV alue.Size := Initial Values.Fon t.Size; | |
| 350 | FFontV alue.Style := Initia lValues.Fo nt.Style; | |
| 351 | FFontV alue.Color := Initia lValues.Fo nt.Color; | |
| 352 | frmSig nonDialog := TfrmSig nonDialog. Create(App lication); | |
| 353 | frmSig nonDialog. Label1.Cap tion := 'D o you want to use th e Default Font face and size?' ; | |
| 354 | // Show Applicatio nAndFocusO K(Applicat ion); | |
| 355 | ||
| 356 | SetFor egroundWin dow(frmSig nonDialog. Handle); | |
| 357 | if frm SignonDial og.ShowMod al = mrOK then | |
| 358 | FFon tValue := SignonDefa ults.Font | |
| 359 | else | |
| 360 | begin | |
| 361 | // i nitialize font to cu rrent valu es | |
| 362 | frmS ignonConfi g.FontDial og1.Font.C olor := In itialValue s.Font.Col or; | |
| 363 | frmS ignonConfi g.FontDial og1.Font.N ame := Ini tialValues .Font.Name ; | |
| 364 | frmS ignonConfi g.FontDial og1.Font.S ize := Ini tialValues .Font.Size ; | |
| 365 | frmS ignonConfi g.FontDial og1.Font.S tyle := In itialValue s.Font.Sty le; | |
| 366 | Show Applicatio nAndFocusO K(Applicat ion); | |
| 367 | if I sSharedBro ker then | |
| 368 | fr mSignonCon fig.Window State := w sMinimized ; | |
| 369 | if f rmSignonCo nfig.FontD ialog1.Exe cute then | |
| 370 | FF ontValue : = frmSigno nConfig.Fo ntDialog1. Font; | |
| 371 | frmS ignonConfi g.WindowSt ate := wsN ormal; | |
| 372 | end; | |
| 373 | FIntro FontValue := FFontVa lue.Name + U + IntTo Str(FFontV alue.Size) ; | |
| 374 | FIntro FontStyles := StoreF ontStyle(F FontValue. Style); | |
| 375 | FIntro TextColor := FFontVa lue.Color; | |
| 376 | finally | |
| 377 | FFontV alue.Free; | |
| 378 | SetFor egroundWin dow(OldHan dle); | |
| 379 | end; | |
| 380 | end; | |
| 381 | ||
| 382 | procedure TSignonCon figuration .ResetToDe faults; | |
| 383 | begin | |
| 384 | if Messa geDlg('Are you sure you want t o reset al l settings to their defaults?' , | |
| 385 | mtWa rning, [mb No, mbYes] , 0) = mrY es then | |
| 386 | begin | |
| 387 | // P31 remove setting o f default values int o registry - | |
| 388 | // remove entries f rom regist ry and use default w indow in a pp | |
| 389 | Delete RegData(HK CU, REG_SI GNON, 'Sig nonPos'); | |
| 390 | Delete RegData(HK CU, REG_SI GNON, 'Sig nonSiz'); | |
| 391 | Delete RegData(HK CU, REG_SI GNON, 'Int roBackClr' ); | |
| 392 | Delete RegData(HK CU, REG_SI GNON, 'Int roTextClr' ); | |
| 393 | Delete RegData(HK CU, REG_SI GNON, 'Int roTextFont '); | |
| 394 | Delete RegData(HK CU, REG_SI GNON, 'Int roTextStyl e'); | |
| 395 | strPos ition := ' 0'; | |
| 396 | strSiz e := '0'; | |
| 397 | // Res tore value s to Defau lts at Sig non | |
| 398 | Initia lValues.Se tEqual(Sig nonDefault s); | |
| 399 | ||
| 400 | Update Window; | |
| 401 | end; | |
| 402 | end; | |
| 403 | ||
| 404 | procedure TSignonCon figuration .UserClick edOK; | |
| 405 | var | |
| 406 | JPositio n: Integer ; | |
| 407 | JSize: I nteger; | |
| 408 | begin | |
| 409 | JPositio n := frmSi gnonConfig .rgrWindow Position.I temIndex; | |
| 410 | JSize := frmSignon Config.rgr WindowSize .ItemIndex ; | |
| 411 | ||
| 412 | if JPosi tion = 0 t hen | |
| 413 | FPosit ion := '0' | |
| 414 | else | |
| 415 | FPosit ion := Int ToStr(JPos ition)+U+I ntToStr(fr mSignon.To p)+U+IntTo Str(frmSig non.Left); | |
| 416 | strPosit ion := FPo sition; | |
| 417 | ||
| 418 | if JSize = 0 then | |
| 419 | FSize := '0' | |
| 420 | else | |
| 421 | FSize := IntToSt r(JSize)+U +IntToStr( frmSignon. Width)+U+I ntToStr(fr mSignon.He ight); | |
| 422 | strSize := FSize; | |
| 423 | ||
| 424 | if FIntr oBackColor <> Initia lValues.Ba ckColor th en | |
| 425 | begin | |
| 426 | Initia lValues.Ba ckColor := FIntroBac kColor; | |
| 427 | if Ini tialValues .BackColor <> Signon Defaults.B ackColor t hen | |
| 428 | Writ eRegData(H KCU, REG_S IGNON, 'In troBackClr ',IntToStr (FIntroBac kColor)) | |
| 429 | else | |
| 430 | Dele teRegData( HKCU, REG_ SIGNON, 'I ntroBackCl r'); | |
| 431 | end; | |
| 432 | ||
| 433 | if FIntr oTextColor <> Initia lValues.Te xtColor th en | |
| 434 | begin | |
| 435 | Initia lValues.Te xtColor := FIntroTex tColor; | |
| 436 | if Ini tialValues .BackColor <> Signon Defaults.B ackColor t hen | |
| 437 | Writ eRegData(H KCU, REG_S IGNON, 'In troTextClr ',IntToStr (FIntroTex tColor)) | |
| 438 | else | |
| 439 | Dele teRegData( HKCU, REG_ SIGNON, 'I ntroTextCl r'); | |
| 440 | end; | |
| 441 | ||
| 442 | if FIntr oFontValue <> Initia lValues.In troFont th en | |
| 443 | begin | |
| 444 | Initia lValues.In troFont := FIntrofon tValue; | |
| 445 | if Ini tialValues .IntroFont <> Signon Defaults.I ntroFont t hen | |
| 446 | Writ eRegData(H KCU, REG_S IGNON, 'In troTextFon t',FIntroF ontValue) | |
| 447 | else | |
| 448 | Dele teRegData( HKCU, REG_ SIGNON, 'I ntroTextFo nt'); | |
| 449 | end; | |
| 450 | ||
| 451 | if FIntr oFontStyle s <> Initi alValues.I ntroFontSt yles then | |
| 452 | begin | |
| 453 | Initia lValues.In troFontSty les := FIn trofontSty les; | |
| 454 | if Ini tialValues .IntroFont Styles <> SignonDefa ults.Intro FontStyles then | |
| 455 | Writ eRegData(H KCU, REG_S IGNON, 'In troTextSty le',FIntro FontStyles ) | |
| 456 | else | |
| 457 | Dele teRegData( HKCU, REG_ SIGNON, 'I ntroTextSt yle'); | |
| 458 | end; | |
| 459 | ||
| 460 | if FPosi tion <> In itialValue s.Position then | |
| 461 | begin | |
| 462 | Initia lValues.Po sition := FPosition; | |
| 463 | if In itialValue s.Position <> Signon Defaults.P osition th en | |
| 464 | Writ eRegData(H KCU, REG_S IGNON, 'Si gnonPos',F Position) | |
| 465 | else | |
| 466 | Dele teRegData( HKCU, REG_ SIGNON, 'S ignonPos') ; | |
| 467 | end; | |
| 468 | ||
| 469 | if FSize <> Initia lValues.Si ze then | |
| 470 | begin | |
| 471 | Initia lValues.Si ze := FSiz e; | |
| 472 | if Ini tialValues .Size <> S ignonDefau lts.Size t hen | |
| 473 | Writ eRegData(H KCU, REG_S IGNON, 'Si gnonSiz',F Size) | |
| 474 | else | |
| 475 | Dele teRegData( HKCU, REG_ SIGNON, 'S ignonSiz') ; | |
| 476 | end; | |
| 477 | ||
| 478 | UpdateWi ndow; | |
| 479 | end; | |
| 480 | ||
| 481 | constructo r TSignonC onfigurati on.Create; | |
| 482 | begin | |
| 483 | inherite d; | |
| 484 | if Signo nDefaults = nil then | |
| 485 | Signon Defaults : = TSignonV alues.Crea te; | |
| 486 | if Initi alValues = nil then | |
| 487 | Initia lValues := TSignonVa lues.Creat e; | |
| 488 | ||
| 489 | end; | |
| 490 | ||
| 491 | procedure TSignonCon figuration .UpdateWin dow; | |
| 492 | begin | |
| 493 | // TODO -cMM: defa ult body i nserted | |
| 494 | frmSig non.IntroT ext.Color := Initial Values.Bac kColor; | |
| 495 | frmSig non.IntroT ext.Font.N ame := Ini tialValues .Font.Name ; | |
| 496 | frmSig non.IntroT ext.Font.S ize := Ini tialValues .Font.Size ; | |
| 497 | frmSig non.IntroT ext.Font.S tyle := In itialValue s.Font.Sty le; | |
| 498 | frmSig non.IntroT ext.Font.C olor := In itialValue s.Font.Col or; | |
| 499 | frmSig non.Left : = SignonDe faults.Lef t; | |
| 500 | frmSig non.Top := SignonDef aults.Top; | |
| 501 | frmSig non.Width := SignonD efaults.Wi dth; | |
| 502 | frmSig non.Height := Signon Defaults.H eight; | |
| 503 | end; | |
| 504 | ||
| 505 | procedure TSignonVal ues.Clear; | |
| 506 | begin | |
| 507 | FHeigh t := 0; | |
| 508 | FWidth := 0; | |
| 509 | FTextC olor := cl WindowText ; | |
| 510 | FPosit ion := ''; | |
| 511 | FSize := ''; | |
| 512 | FIntro Font := '' ; | |
| 513 | FIntro FontStyles := ''; | |
| 514 | FBackC olor := cl Window; | |
| 515 | FFont. Name := 'C ourier New ' ; | |
| 516 | FFont. Size := 11 ; | |
| 517 | FFont. Style := [ ]; | |
| 518 | end; | |
| 519 | ||
| 520 | constructo r TSignonV alues.Crea te; | |
| 521 | begin | |
| 522 | inherite d; | |
| 523 | FFont := TFont.Cre ate; | |
| 524 | end; | |
| 525 | ||
| 526 | destructor TSignonVa lues.Destr oy; | |
| 527 | begin | |
| 528 | FFont.Fr ee; | |
| 529 | inherite d; | |
| 530 | end; | |
| 531 | ||
| 532 | procedure TSignonVal ues.SetSiz e(const Va lue: Strin g); | |
| 533 | begin | |
| 534 | FSize := Value; | |
| 535 | if Value <> '0' th en | |
| 536 | begin | |
| 537 | FWidth := StrToI nt(Piece(V alue,U,2)) ; | |
| 538 | FHeigh t := StrTo Int(Piece( Value,U,3) ); | |
| 539 | end; | |
| 540 | end; | |
| 541 | ||
| 542 | procedure TSignonVal ues.SetPos ition(cons t Value: S tring); | |
| 543 | begin | |
| 544 | FPositio n := Value ; | |
| 545 | if Value <> '0' th en | |
| 546 | begin | |
| 547 | FTop : = StrToInt (Piece(Val ue,U,2)); | |
| 548 | FLeft := StrToIn t(Piece(Va lue,U,3)); | |
| 549 | end; | |
| 550 | end; | |
| 551 | ||
| 552 | procedure TSignonVal ues.SetInt roFont(con st Value: String); | |
| 553 | begin | |
| 554 | FIntroFo nt := Valu e; | |
| 555 | FFont.Na me := Piec e(Value,U, 1); | |
| 556 | FFont.Si ze := StrT oInt(Piece (Value,U,2 )); | |
| 557 | end; | |
| 558 | ||
| 559 | procedure TSignonVal ues.SetInt roFontStyl es(const V alue: Stri ng); | |
| 560 | begin | |
| 561 | FIntroFo ntStyles : = Value; | |
| 562 | if Value <> '' the n | |
| 563 | FFont. Style := R estoreFont Styles(Val ue) | |
| 564 | else | |
| 565 | FFont. Style := [ ]; | |
| 566 | end; | |
| 567 | ||
| 568 | procedure TSignonVal ues.SetEqu al(EqualTo Value: TSi gnonValues ); | |
| 569 | begin | |
| 570 | BackColo r := Equal ToValue.Ba ckColor; | |
| 571 | Font.Nam e := Equal ToValue.Fo nt.Name; | |
| 572 | Font.Siz e := Equal ToValue.Fo nt.Size; | |
| 573 | FontStyl es := Equa lToValue.F ontStyles; | |
| 574 | Height : = EqualToV alue.Heigh t; | |
| 575 | IntroFon t := Equal ToValue.In troFont; | |
| 576 | IntroFon tStyles := EqualToVa lue.IntroF ontStyles; | |
| 577 | Left := EqualToVal ue.Left; | |
| 578 | Position := EqualT oValue.Pos ition; | |
| 579 | Size := EqualToVal ue.Size; | |
| 580 | TextColo r := Equal ToValue.Te xtColor; | |
| 581 | Top := E qualToValu e.Top; | |
| 582 | Width := EqualToVa lue.Width; | |
| 583 | end; | |
| 584 | ||
| 585 | procedure TSignonVal ues.SetFon t(Value: T Font); | |
| 586 | begin | |
| 587 | FFont := Value; | |
| 588 | FIntroFo nt := Valu e.Name+U+I ntToStr(Va lue.Size); | |
| 589 | FIntroFo ntStyles : = StoreFon tStyle(FFo nt.Style) | |
| 590 | end; | |
| 591 | ||
| 592 | procedure TSignonVal ues.SetTex tColor(Val ue: LongIn t); | |
| 593 | begin | |
| 594 | FTextCol or := Valu e; | |
| 595 | FFont.Co lor := Val ue; | |
| 596 | end; | |
| 597 | ||
| 598 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.