Index: AAPClient/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r5 -r14 --- AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 5) +++ AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 14) @@ -4,7 +4,8 @@ uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ActnList; + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ActnList, Images, + Vcl.ImgList; type TfmDrieKnoppenScherm = class(TForm) @@ -22,7 +23,7 @@ procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); private - { Private declarations } + fImagesScherm: TImagesScherm; public { Public declarations } end; @@ -40,13 +41,19 @@ actCentraalOnder := nil; actRechtsOnder := nil; lblGebruiker.Visible := false; + fImagesScherm := TImagesScherm.Create(self); end; procedure TfmDrieKnoppenScherm.FormShow(Sender: TObject); begin btnLinksOnder.Visible := false; btnCentraalOnder.Visible := false; btnRechtsOnder.Visible := false; + + btnLinksOnder.Images := fImagesScherm.ilAlgemeen32; + btnCentraalOnder.Images := fImagesScherm.ilAlgemeen32; + btnRechtsOnder.Images := fImagesScherm.ilAlgemeen32; + if actLinksOnder<>nil then begin btnLinksOnder.Visible := true; btnLinksOnder.Caption := actLinksOnder.Caption;