API tools faq
paste
jpfassis

Menu.Principal003 Delphi

jpfassis
Jul 7th, 2022 (edited)
527
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 6.68 KB | None | 0 0
raw download clone embed print report
  1. unit View.Pages.Menu.Principal003;
  2.  
  3. interface
  4.  
  5. uses
  6.   Winapi.Windows,
  7.   Winapi.Messages,
  8.   System.SysUtils,
  9.   System.Variants,
  10.   System.Classes,
  11.   Vcl.Graphics,
  12.   Vcl.Controls,
  13.   Vcl.Forms,
  14.   Vcl.Dialogs,
  15.   Vcl.ExtCtrls,
  16.   View.Components.Helpers,
  17.   View.Styles.Colors;
  18.  
  19. type
  20.   TPageMenuPrincipal003 = class(TForm)
  21.     Panel1: TPanel;
  22.     Panel2: TPanel;
  23.   private
  24.     { Private declarations }
  25.     FPanelMenu : TPanel;
  26.   public
  27.     { Public declarations }
  28.     function Component : TWinControl;
  29.     function PanelMenu(aValue : TPanel) : TPageMenuPrincipal003;
  30.   end;
  31.  
  32. var
  33.   PageMenuPrincipal003: TPageMenuPrincipal003;
  34.  
  35. implementation
  36.  
  37. {$R *.dfm}
  38.  
  39. { TPageMenuPrincipal003 }
  40.  
  41. function TPageMenuPrincipal003.Component: TWinControl;
  42. begin
  43.  Result := Panel1;
  44.  
  45.  Panel1.Align:=alClient;
  46.  Panel1.Parent:=FPanelMenu;
  47.  Panel1.Visible:=True;
  48.  
  49.  Panel2.Components
  50.   .Clocks.Clock002(Self)
  51.     .Attributes
  52.        .BackGround($482925)
  53.        .FontColor(INFO)
  54.        .Align(alClient)
  55.     .&End
  56.   .Component;
  57.  
  58.  Panel1.Components
  59.    .Buttons.Button005(Self)
  60.    .Attributes
  61.       .BackGround(SECONDARY)
  62.       .FontColor(INFO)
  63.       .Title('Clientes')
  64.       .Image('ico_people')
  65.       .Align(alTop)
  66.       .TitleAlignment(taCenter)
  67.       .Onclick(
  68.         procedure (Sender : TObject)
  69.         begin
  70. //
  71.         end
  72.       )
  73.    .&End
  74.    .Component;
  75.  
  76.  
  77.   Panel1.Components
  78.    .Buttons.Button005(Self)
  79.    .Attributes
  80.       .BackGround(SECONDARY)
  81.       .FontColor(INFO)
  82.       .Title('Fornecceddores')
  83.       .Image('ico_people')
  84.       .Align(alTop)
  85.       .TitleAlignment(taCenter)
  86.       .Onclick(
  87.         procedure (Sender : TObject)
  88.         begin
  89. //
  90.         end
  91.       )
  92.    .&End
  93.    .Component;
  94.  
  95.   Panel1.Components
  96.    .Buttons.Button005(Self)
  97.    .Attributes
  98.       .BackGround(SECONDARY)
  99.       .FontColor(INFO)
  100.       .Title('Produtos')
  101.       .Image('ico_people')
  102.       .Align(alTop)
  103.       .TitleAlignment(taCenter)
  104.       .Onclick(
  105.         procedure (Sender : TObject)
  106.         begin
  107. //
  108.         end
  109.       )
  110.    .&End
  111.    .Component;
  112.  
  113.   Panel1.Components
  114.    .Buttons.Button005(Self)
  115.    .Attributes
  116.       .BackGround(SECONDARY)
  117.       .FontColor(INFO)
  118.       .Title('Usuários')
  119.       .Image('ico_people')
  120.       .Align(alTop)
  121.       .TitleAlignment(taCenter)
  122.       .Onclick(
  123.         procedure (Sender : TObject)
  124.         begin
  125. //
  126.         end
  127.       )
  128.    .&End
  129.    .Component;
  130.  
  131.  
  132.  
  133.      Panel1.Components.Accordions.Accordion001(Self)
  134.       .Attributes
  135.         .BackGround(SECONDARY)
  136.         .DestBackGround(PRIMARY)
  137.         .FontColor(INFO)
  138.         .Title('Tributação')
  139.         .Image('ico_keydown')
  140.         .Align(alTop)
  141.         .TitleAlignment(taCenter)
  142.       .&End
  143.       .AddSubMenu(
  144.          Components.Accordions.Accordion001(Self)
  145.           .Attributes
  146.             .BackGround(LIGHT3)
  147.             .DestBackGround(PRIMARY)
  148.             .FontColor(LIGHT)
  149.             .Title('Tributação ICMS')
  150.             .Image('ico_control')
  151.             .Align(alTop)
  152.             .TitleAlignment(taCenter)
  153.             .Onclick(
  154.               procedure (Sender : TObject)
  155.               begin
  156. //
  157.               end
  158.               )
  159.           .&End
  160.           .Component
  161.       )
  162.      .AddSubMenu(
  163.          Components.Accordions.Accordion001(Self)
  164.           .Attributes
  165.             .BackGround(LIGHT3)
  166.             .DestBackGround(PRIMARY)
  167.             .FontColor(LIGHT)
  168.             .Title('Tributação IPI')
  169.             .Image('ico_control')
  170.             .Align(alTop)
  171.             .TitleAlignment(taCenter)
  172.             .Onclick(
  173.               procedure (Sender : TObject)
  174.               begin
  175. //
  176.               end
  177.               )
  178.           .&End
  179.           .Component
  180.     )
  181.     .AddSubMenu(
  182.        Components.Accordions.Accordion001(Self)
  183.           .Attributes
  184.             .BackGround(LIGHT3)
  185.             .DestBackGround(PRIMARY)
  186.             .FontColor(LIGHT)
  187.             .Title('Tributação PIS/Cofins')
  188.             .Image('ico_control')
  189.             .Align(alTop)
  190.             .TitleAlignment(taCenter)
  191.             .Onclick(
  192.               procedure (Sender : TObject)
  193.               begin
  194. //
  195.               end
  196.               )
  197.           .&End
  198.           .Component
  199.     )
  200.     .Component;
  201.  
  202.  
  203.     Panel1.Components.Accordions.Accordion001(Self)
  204.       .Attributes
  205.         .BackGround(SECONDARY)
  206.         .DestBackGround(PRIMARY)
  207.         .FontColor(LIGHT)
  208.         .Title('Tabelas Tributarias')
  209.         .Image('ico_keydown')
  210.         .Align(alTop)
  211.         .TitleAlignment(taCenter)
  212.       .&End
  213.       .AddSubMenu(
  214.           Components.Accordions.Accordion001(Self)
  215.           .Attributes
  216.             .BackGround(LIGHT3)
  217.             .DestBackGround(PRIMARY)
  218.             .FontColor(LIGHT)
  219.             .Title('Operações Fiscais')
  220.             .Image('ico_control')
  221.             .Align(alTop)
  222.             .TitleAlignment(taCenter)
  223.             .Onclick(
  224.               procedure (Sender : TObject)
  225.               begin
  226. //
  227.               end
  228.               )
  229.           .&End
  230.           .Component
  231.       )
  232.      .AddSubMenu(
  233.        Components.Accordions.Accordion001(Self)
  234.           .Attributes
  235.             .BackGround(LIGHT3)
  236.             .DestBackGround(PRIMARY)
  237.             .FontColor(LIGHT)
  238.             .Title('Tabela de CRT')
  239.             .Image('ico_control')
  240.             .Align(alTop)
  241.             .TitleAlignment(taCenter)
  242.             .Onclick(
  243.               procedure (Sender : TObject)
  244.               begin
  245. //
  246.               end
  247.               )
  248.           .&End
  249.           .Component
  250.     )
  251.     .AddSubMenu(
  252.        Components.Accordions.Accordion001(Self)
  253.           .Attributes
  254.             .BackGround(LIGHT3)
  255.             .DestBackGround(PRIMARY)
  256.             .FontColor(LIGHT)
  257.             .Title('Tabela de CST')
  258.             .Image('ico_control')
  259.             .Align(alTop)
  260.             .TitleAlignment(taCenter)
  261.             .Onclick(
  262.               procedure (Sender : TObject)
  263.               begin
  264. //
  265.               end
  266.               )
  267.           .&End
  268.           .Component
  269.     )
  270.     .AddSubMenu(
  271.         Components.Accordions.Accordion001(Self)
  272.           .Attributes
  273.             .BackGround(LIGHT3)
  274.             .DestBackGround(PRIMARY)
  275.             .FontColor(LIGHT)
  276.             .Title('Tabela de CFOP')
  277.             .Image('ico_control')
  278.             .Align(alTop)
  279.             .TitleAlignment(taCenter)
  280.             .Onclick(
  281.               procedure (Sender : TObject)
  282.               begin
  283. //
  284.               end
  285.               )
  286.           .&End
  287.           .Component
  288.     )
  289.     .Component;
  290.  
  291.  
  292.  
  293. end;
  294.  
  295. function TPageMenuPrincipal003.PanelMenu(aValue: TPanel): TPageMenuPrincipal003;
  296. begin
  297.  Result := Self;
  298.  FPanelMenu:=aValue;
  299. end;
  300.  
  301. end.
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!