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;