• 753
    0

    The example is taken from the UniGUI forum and slightly modified. Here’s what we get in the end     Usage example. We can customize the number of digits, the number of stripes, angles, colors and so on. See the code.   unit Main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics,   Controls, Forms, Dialogs, ...
  • 398
    0

      unit MakeImageCode; interface uses   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,uImageCode,   FMX.StdCtrls, FMX.Controls.Presentation, FMX.Objects; type   TForm1 = class(TForm)     lblNum: TLabel;     BtnRandom: TButton;     ImgCode: TImage;     BtnImage: TButton;     procedure BtnRandomClick(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure ...