unit U_Splash;

interface

uses
  Windows, U_LNG, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, cxControls, cxContainer, cxEdit,
  cxProgressBar, cxLabel, RzPrgres, ExtCtrls, RzPanel, jpeg, siComp,
  siLngLnk, EnJpgGr, dxGDIPlusClasses, LibJpeg;

type
  TF_Splash = class(TForm)
    RzPanel1: TRzPanel;
    ProgressBar: TProgressBar;
    imgSCS: TImage;
    lbVersion: TLabel;
    lng_Forms: TsiLangLinked;
    imgTelecom: TImage;
    imgSCS_PE: TImage;
    SC_GRAPH_Img: TImage;
    imgSCS_SPA: TImage;
    lbWorkVersion: TLabel;
    imgPanduit: TImage;
    ImgSCSNiko: TImage;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Splash: TF_Splash;

implementation

{$R *.dfm}

procedure TF_Splash.FormShow(Sender: TObject);
begin
  ImgSCSNiko.Visible := False;
  {$IF Defined(TELECOM)}
    SC_GRAPH_Img.Visible := False;
    imgSCS.Visible  := False;
    imgTelecom.visible := True;
    ImgSCS_PE.Visible := False;
    imgPanduit.Visible := False;
  {$ELSEIF Defined(SCS_PE)}
    SC_GRAPH_Img.Visible := False;
    imgSCS.Visible  := False;
    imgTelecom.visible := False;
    {$IF Defined(SCS_PANDUIT)}
      ImgSCS_PE.Visible := False;
      imgPanduit.Visible := True;
    {$ELSE}
      ImgSCS_PE.Visible := True;
      imgPanduit.Visible := False;
    {$IFEND}
  {$ELSEIF Defined(SCS_SPA)}
    SC_GRAPH_Img.Visible := False;
    imgSCS.Visible  := False;
    imgTelecom.visible := False;
    ImgSCS_PE.Visible := False;
    ImgSCS_SPA.Visible := True;
    imgPanduit.Visible := False;
  {$ELSE}
    {$if Defined(ES_GRAPH_SC)}
      SC_GRAPH_Img.Visible := True;
      imgSCS.Visible := false;
      imgTelecom.visible := False;
      ImgSCS_PE.Visible := False;
      imgPanduit.Visible := False;
    {$else}
      {$IF Defined(SCS_PANDUIT)}
        SC_GRAPH_Img.Visible := False;
        imgSCS.Visible  := False;
        imgTelecom.visible := False;
        ImgSCS_PE.Visible := False;
        imgPanduit.Visible := True;
      {$ELSE}
        SC_GRAPH_Img.Visible := False;
        {$IF Defined(OEM_NIKOMAX)}
          imgSCSNiko.Visible := True;
          imgSCS.Visible := False;
        {$ELSE}
          imgSCS.Visible := True;
          imgSCSNiko.Visible := False;
        {$IFEND}
        imgTelecom.visible := False;
        ImgSCS_PE.Visible := False;
        imgPanduit.Visible := False;
      {$IFEND}  
    {$ifend}
  {$IFEND}

  lbVersion.BringToFront;

  // Рабочая версия
  {$IF Defined(FINAL_SCS) or Defined(TRIAL_SCS)}
    lbWorkVersion.Visible := false;
  {$else}
    lbWorkVersion.Visible := true;
    lbWorkVersion.BringToFront;
  {$IFEND}
end;

end.
