Ferramenta Open Source com funcionalidades relacionadas a documentos fiscais (NFe, CFe).
Toda interface foi construída utilizando apenas os componentes nativos do Delphi Community 10.3.3 Rio.
Algumas funcionalidades dependem dos componentes ACBr.
Open Source tool to facilitate brazilian invoice and tax document operations
The entire interface was develop using only VCL Delphi 10.3.3 Rio components.
For extras funcionalities I've use the ACBr lib.
{runtime Timer create in OnCreate event}
procedure form.OnCreate;
begin
Timer := TTimer.Create(nil);
try
FadeIn; {function}
except
{exception}
end
{fadeIn Event}
procedure FadeIn;
begin
Self.AlphaBlend := True;
Self.AlphaBlendValue := 0;
Timer.OnTimer := OnTimer;
Timer.Interval := 3;
Timer.Enabled := True;
end;
{Timer event}
procedure OnTimer(Sender: TObject);
begin
if Self.AlphaBlendValue > 250 then
begin
Self.AlphaBlendValue := 255;
Timer.Enabled := False;
end
else
Self.AlphaBlendValue := Self.AlphaBlendValue + 17;
end;
end.
{Move Leave Events Button / Panels}
procedure PanelMouseLeave(Sender: TObject);
begin
LeaveBtnPanel(TPanel(Sender));
end;
procedure PanelMouseLeave(Sender: TObject);
begin
MoveBtnPanel(TPanel(Sender));
end;
{functions (Same for Labels, Replacing TPanel for TLabel(aLabel).Font.Color)}
procedure MoveBtnPanel(aPanel: TPanel);
begin
TPanel(aPanel).Color := COLOR_BUTTON_HOVER;
end;
procedure TfrmMain.LeaveBtnPanel(aPanel: TPanel);
begin
TPanel(aPanel).Color := COLOR_BUTTON;
end;
{I Have create a Styles Class to able change the font sizes, colors and the style of interface at the same time}
unit FacilitaFiscal.View.Styles.Colors;
interface
const
H0 = 28;
H1 = 24;
H2 = 18;
H3 = 16;
H4 = 14;
H5 = 12;
H6 = 10;
H7 = 8;
COLOR_BACKGROUND = $001E1213;
COLOR_BACKGROUND_DARK = $00110A0B;
COLOR_HIGHLIGHT_MAIN = $00620FDD;
COLOR_HILIGHT_SECOND = $004600FA;
COLOR_BUTTON = $004A1379;
COLOR_BUTTON_HOVER = $004734FA;
COLOR_WHITE = $FFFFFF;
FONT_STANDARD = 'Segoe UI Light';
implementation
end.