mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 17:25:39 +02:00
108 lines
2.8 KiB
ObjectPascal
108 lines
2.8 KiB
ObjectPascal
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;
|
||
|
||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
{$IF Defined(FINAL_SCS) or Defined(TRIAL_SCS)}
|
||
lbWorkVersion.Visible := false;
|
||
{$else}
|
||
lbWorkVersion.Visible := true;
|
||
lbWorkVersion.BringToFront;
|
||
{$IFEND}
|
||
end;
|
||
|
||
end.
|