Index: AAPClient/UI/BestaandePalletScherm.pas =================================================================== diff -u -r206 -r219 --- AAPClient/UI/BestaandePalletScherm.pas (.../BestaandePalletScherm.pas) (revision 206) +++ AAPClient/UI/BestaandePalletScherm.pas (.../BestaandePalletScherm.pas) (revision 219) @@ -77,10 +77,10 @@ btnCentraalOnder.Action := actHome; btnRechtsOnder.Action := nil; lblPalletCode.Caption := UiContext.Pallet; - fImagesScherm.ilAlgemeen128.GetIcon(7, imgHuidigeToelevering.Picture.Icon); - fImagesScherm.ilAlgemeen128.GetIcon(10, imgRework.Picture.Icon); - fImagesScherm.ilAlgemeen128.GetIcon(9, imgExtraToelevering.Picture.Icon); - fImagesScherm.ilAlgemeen128.GetIcon(2, imgAnnuleren.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(7, imgHuidigeToelevering.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(10, imgRework.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(9, imgExtraToelevering.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(2, imgAnnuleren.Picture.Icon); inherited; end; Index: AAPClient/ProScanMain.pas =================================================================== diff -u -r207 -r219 --- AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 207) +++ AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 219) @@ -69,16 +69,17 @@ procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject); begin fUiContext := TUiContext.Create(); - fLoginScherm2 := TfmLoginScherm2.Create(Self); + fUiContext.ImagesScherm := TImagesScherm.Create(self); + {fLoginScherm2 := TfmLoginScherm2.Create(Self); fHomeScherm := TfmHomeScherm.Create(Self); fPalletScherm := TfmPalletScherm.Create(Self); fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self); fDnaCodeScherm := TfmDnaCodeScherm.Create(Self); fInfoLogScherm := TfmInfoLogScherm.Create(Self); fHernoemPalletScherm := TfmHernoemPalletScherm.Create(Self); fDnaCodeReedsGescandScherm := TfmDnaCodeReedsGescandScherm.Create(Self); - - fHuidigScherm := fLoginScherm2; + } + fHuidigScherm := TfmLoginScherm2.Create(Self); end; procedure TfmProScanHoofdscherm.HuidigeGebruikerAfmelden; Index: AAPClient/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r191 -r219 --- AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 191) +++ AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 219) @@ -45,8 +45,6 @@ private fUiContext: TUiContext; protected - fImagesScherm: TImagesScherm; - fAgent: TAgent; function ComputerName: String; function WUserName: String; function FullName: String; @@ -71,8 +69,6 @@ actCentraalOnder := nil; actRechtsOnder := nil; lblGebruiker.Visible := false; - fImagesScherm := TImagesScherm.Create(self); - fAgent := TAgent.Create(); end; procedure TfmDrieKnoppenScherm.FormShow(Sender: TObject); @@ -81,18 +77,18 @@ btnCentraalOnder.Visible := false; btnRechtsOnder.Visible := false; - btnLinksOnder.Images := fImagesScherm.ilAlgemeen48; - btnCentraalOnder.Images := fImagesScherm.ilAlgemeen48; - btnRechtsOnder.Images := fImagesScherm.ilAlgemeen48; + btnLinksOnder.Images := UiContext.ImagesScherm.ilAlgemeen48; + btnCentraalOnder.Images := UiContext.ImagesScherm.ilAlgemeen48; + btnRechtsOnder.Images := UiContext.ImagesScherm.ilAlgemeen48; if btnLinksOnder.Action <> nil then begin - fImagesScherm.ilAlgemeen128.GetIcon(btnLinksOnder.ImageIndex, imgLinksOnder.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(btnLinksOnder.ImageIndex, imgLinksOnder.Picture.Icon); end; if btnCentraalOnder.Action <> nil then begin - fImagesScherm.ilAlgemeen128.GetIcon(btnCentraalOnder.ImageIndex, imgCentraalOnder.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(btnCentraalOnder.ImageIndex, imgCentraalOnder.Picture.Icon); end; if btnRechtsOnder.Action <> nil then begin - fImagesScherm.ilAlgemeen128.GetIcon(btnRechtsOnder.ImageIndex, imgRechtsOnder.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(btnRechtsOnder.ImageIndex, imgRechtsOnder.Picture.Icon); end; lblGebruiker.Caption := UiContext.Initialen; @@ -158,21 +154,21 @@ PopupScherm.lblActie1.Font.Color := clBlack; //grote image in het midden kiezen - fImagesScherm.ilAlgemeen128.GetIcon(imgCentraalIndex, PopupScherm.imgCentraal.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(imgCentraalIndex, PopupScherm.imgCentraal.Picture.Icon); //indien nodig de knoppen vergroten en een image laden if ImageIndex1 >= 0 then begin PopupScherm.pnlbtnActie1.Top := PopupScherm.pnlbtnActie1.Top - 60; PopupScherm.pnlbtnActie1.Height := PopupScherm.pnlbtnActie1.Height + 60; - fImagesScherm.ilAlgemeen64.GetIcon(ImageIndex1, PopupScherm.imgActie1.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen64.GetIcon(ImageIndex1, PopupScherm.imgActie1.Picture.Icon); PopupScherm.pnlbtnActie1.VerticalAlignment := taAlignBottom; PopupScherm.lblActie1.Align := alBottom; PopupScherm.imgActie1.BringToFront; end; if ImageIndex2 >= 0 then begin PopupScherm.pnlbtnActie2.Top := PopupScherm.pnlbtnActie2.Top - 60; PopupScherm.pnlbtnActie2.Height := PopupScherm.pnlbtnActie2.Height + 60; - fImagesScherm.ilAlgemeen64.GetIcon(ImageIndex2, PopupScherm.imgActie2.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen64.GetIcon(ImageIndex2, PopupScherm.imgActie2.Picture.Icon); PopupScherm.lblActie2.Align := alBottom; PopupScherm.imgActie2.BringToFront; end; Index: AAPClient/UI/UiContext.pas =================================================================== diff -u -r213 -r219 --- AAPClient/UI/UiContext.pas (.../UiContext.pas) (revision 213) +++ AAPClient/UI/UiContext.pas (.../UiContext.pas) (revision 219) @@ -2,6 +2,9 @@ interface +uses + Images; + const mrLogin = 101; mrHome = 102; @@ -21,13 +24,15 @@ fToelevering: String; fLaatsteDnaCode: String; fInfoLogSchermToonGescand: boolean; + fImagesScherm: TImagesScherm; public Property Initialen: String Read fInitialen Write fInitialen; Property LoginCode: String Read fLoginCode Write fLoginCode; Property Pallet: String Read fPallet Write fPallet; Property Toelevering: String Read fToelevering Write fToelevering; Property LaatsteDnaCode: String Read fLaatsteDnaCode Write fLaatsteDnaCode; Property InfoLogSchermToonGescand: boolean Read fInfoLogSchermToonGescand Write fInfoLogSchermToonGescand; + Property ImagesScherm: TImagesScherm Read fImagesScherm Write fImagesScherm; end; implementation Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas =================================================================== diff -u -r198 -r219 --- AAPClient/UI/DnaCodeReedsGescandScherm.pas (.../DnaCodeReedsGescandScherm.pas) (revision 198) +++ AAPClient/UI/DnaCodeReedsGescandScherm.pas (.../DnaCodeReedsGescandScherm.pas) (revision 219) @@ -63,9 +63,9 @@ edtPallet.Enabled := False; edtPallet.Visible := False; lblScanPallet.Visible := False; - fImagesScherm.ilAlgemeen128.GetIcon(11, imgWegnemen.Picture.Icon); - fImagesScherm.ilAlgemeen128.GetIcon(12, imgVerplaatsen.Picture.Icon); - fImagesScherm.ilAlgemeen128.GetIcon(2, imgAnnuleren.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(11, imgWegnemen.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(12, imgVerplaatsen.Picture.Icon); + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(2, imgAnnuleren.Picture.Icon); end; procedure TfmDnaCodeReedsGescandScherm.imgAnnulerenClick(Sender: TObject);