Build : Delphi XE 7
Harga : Rp. 50.000
Minat langsung Transfer ke
BCA
8600191200
Fajar Priyadi
Silahkan Konfirmasi via SMS :085787677544 Fajar Priyadi
procedure RenderingSetupCallback(const Sender, Context: TObject; var ColorBits, DepthBits: Integer; var Stencil: Boolean; var Multisamples: Integer); begin // Override OpenGL rendering setup to use custom values. ColorBits := 16; // default is 24 DepthBits := 0; // default is 24 Stencil := False; // default is True Multisamples := 0; // default depends on TForm.Quality or TForm3D.Multisample end;
procedure RegisterRenderingSetup; var SetupService: IFMXRenderingSetupService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXRenderingSetupService, IInterface(SetupService)) then SetupService.Subscribe(RenderingSetupCallback); // There is also SetupService.Unsubscribe, which removes the hook. end;
RegisterRenderingSetup
didalam initialization
seksi dari unit.
Download Pertama2 kita harus punya file installernya terlebih dahulu, download https://github.com/fortesinformatica/fortesrepo...