FlatFormCase.pas 749 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. unit FlatFormCase;
  2. interface
  3. uses
  4. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  5. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FlatForm, Vcl.ExtCtrls;
  6. type
  7. TFlatFormTestCase = class(TFlatForm)
  8. pnl1: TPanel;
  9. procedure pnl1Click(Sender: TObject);
  10. private
  11. { Private declarations }
  12. public
  13. { Public declarations }
  14. end;
  15. var
  16. FlatFormTestCase: TFlatFormTestCase;
  17. implementation
  18. uses
  19. LoggerImport, AppCentreImport, DataProviderImport;
  20. {$R *.dfm}
  21. procedure TFlatFormTestCase.pnl1Click(Sender: TObject);
  22. var
  23. ABuffer: TBytes;
  24. begin
  25. // GetAppIconProvider.FindIcon('a0e0f1308c2111df92d995795a3bcd40', ABuffer);
  26. // ABuffer := nil;
  27. // GetAppCentre.Login('ttf', nil);
  28. end;
  29. end.