fsplash.pas

siMail, siMail, siMail, siMail

(*
# (C) Copyright 2003
# Miha Vrhovnik, [e-mail]
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA 02111-1307 USA
#
# The Initial Developer of the Original Code is Miha Vrhovnik (Slovenia).
# Portions created by Miha Vrhovnik are Copyright (c)2003.
# All Rights Reserved.
#==============================================================================
# Contributor(s):
#==============================================================================
# History: see whats new.txt from distribution package
#==============================================================================
*)
unit fSplash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, StdCtrls, gnugettext, ExtCtrls;

type
  TfrmSplash = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    Label3: TLabel;
    lblStatus: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSplash: TfrmSplash;


const poly: array [0..685] of TPoint = (
    (x: 425; y: 4),
    (x: 438; y: 4),
    (x: 444; y: 10),
    (x: 447; y: 11),
    (x: 447; y: 13),
    (x: 446; y: 14),
    (x: 445; y: 17),
    (x: 444; y: 20),
    (x: 442; y: 22),
    (x: 442; y: 24),
    (x: 443; y: 25),
    (x: 444; y: 26),
    (x: 444; y: 29),
    (x: 446; y: 31),
    (x: 447; y: 34),
    (x: 447; y: 35),
    (x: 448; y: 36),
    (x: 451; y: 37),
    (x: 452; y: 38),
    (x: 452; y: 39),
    (x: 451; y: 40),
    (x: 452; y: 41),
    (x: 459; y: 42),
    (x: 459; y: 46),
    (x: 458; y: 47),
    (x: 459; y: 48),
    (x: 459; y: 50),
    (x: 458; y: 51),
    (x: 456; y: 51),
    (x: 454; y: 53),
    (x: 454; y: 54),
    (x: 456; y: 56),
    (x: 457; y: 56),
    (x: 461; y: 60),
    (x: 461; y: 62),
    (x: 463; y: 64),
    (x: 466; y: 65),
    (x: 467; y: 65),
    (x: 467; y: 67),
    (x: 471; y: 71),
    (x: 471; y: 72),
    (x: 472; y: 73),
    (x: 473; y: 73),
    (x: 475; y: 75),
    (x: 475; y: 79),
    (x: 479; y: 83),
    (x: 480; y: 86),
    (x: 481; y: 87),
    (x: 483; y: 87),
    (x: 484; y: 88),
    (x: 484; y: 89),
    (x: 485; y: 90),
    (x: 488; y: 90),
    (x: 489; y: 91),
    (x: 491; y: 91),
    (x: 491; y: 92),
    (x: 490; y: 93),
    (x: 482; y: 93),
    (x: 481; y: 92),
    (x: 478; y: 91),
    (x: 475; y: 90),
    (x: 473; y: 90),
    (x: 471; y: 88),
    (x: 470; y: 88),
    (x: 469; y: 87),
    (x: 469; y: 86),
    (x: 468; y: 85),
    (x: 467; y: 85),
    (x: 465; y: 83),
    (x: 462; y: 82),
    (x: 460; y: 82),
    (x: 458; y: 80),
    (x: 456; y: 80),
    (x: 454; y: 78),
    (x: 448; y: 78),
    (x: 447; y: 79),
    (x: 445; y: 79),
    (x: 442; y: 82),
    (x: 441; y: 82),
    (x: 439; y: 84),
    (x: 437; y: 84),
    (x: 436; y: 85),
    (x: 433; y: 86),
    (x: 432; y: 87),
    (x: 434; y: 92),
    (x: 436; y: 94),
    (x: 436; y: 98),
    (x: 437; y: 99),
    (x: 439; y: 104),
    (x: 442; y: 107),
    (x: 442; y: 110),
    (x: 438; y: 114),
    (x: 431; y: 113),
    (x: 424; y: 113),
    (x: 422; y: 111),
    (x: 419; y: 110),
    (x: 412; y: 111),
    (x: 407; y: 111),
    (x: 407; y: 112),
    (x: 410; y: 115),
    (x: 410; y: 118),
    (x: 407; y: 121),
    (x: 405; y: 121),
    (x: 404; y: 122),
    (x: 403; y: 122),
    (x: 401; y: 124),
    (x: 400; y: 124),
    (x: 399; y: 125),
    (x: 400; y: 126),
    (x: 400; y: 127),
    (x: 399; y: 128),
    (x: 393; y: 128),
    (x: 391; y: 130),
    (x: 388; y: 131),
    (x: 386; y: 133),
    (x: 381; y: 133),
    (x: 380; y: 134),
    (x: 378; y: 134),
    (x: 376; y: 136),
    (x: 373; y: 137),
    (x: 370; y: 138),
    (x: 367; y: 138),
    (x: 367; y: 144),
    (x: 366; y: 145),
    (x: 366; y: 146),
    (x: 364; y: 148),
    (x: 347; y: 148),
    (x: 346; y: 149),
    (x: 345; y: 152),
    (x: 343; y: 157),
    (x: 340; y: 160),
    (x: 339; y: 163),
    (x: 339; y: 169),
    (x: 340; y: 170),
    (x: 341; y: 173),
    (x: 342; y: 174),
    (x: 345; y: 175),
    (x: 347; y: 177),
    (x: 354; y: 180),
    (x: 356; y: 182),
    (x: 356; y: 191),
    (x: 355; y: 192),
    (x: 354; y: 197),
    (x: 354; y: 200),
    (x: 355; y: 201),
    (x: 356; y: 201),
    (x: 357; y: 202),
    (x: 357; y: 205),
    (x: 356; y: 206),
    (x: 356; y: 208),
    (x: 353; y: 211),
    (x: 353; y: 212),
    (x: 351; y: 214),
    (x: 351; y: 222),
    (x: 350; y: 223),
    (x: 349; y: 226),
    (x: 349; y: 229),
    (x: 345; y: 233),
    (x: 342; y: 234),
    (x: 341; y: 234),
    (x: 339; y: 232),
    (x: 337; y: 232),
    (x: 336; y: 231),
    (x: 336; y: 230),
    (x: 335; y: 229),
    (x: 332; y: 229),
    (x: 331; y: 230),
    (x: 330; y: 229),
    (x: 329; y: 230),
    (x: 329; y: 231),
    (x: 327; y: 233),
    (x: 324; y: 234),
    (x: 321; y: 233),
    (x: 319; y: 235),
    (x: 319; y: 238),
    (x: 318; y: 239),
    (x: 312; y: 239),
    (x: 311; y: 240),
    (x: 306; y: 242),
    (x: 304; y: 244),
    (x: 301; y: 245),
    (x: 299; y: 247),
    (x: 296; y: 248),
    (x: 295; y: 248),
    (x: 292; y: 251),
    (x: 291; y: 251),
    (x: 289; y: 253),
    (x: 289; y: 255),
    (x: 292; y: 258),
    (x: 292; y: 259),
    (x: 293; y: 260),
    (x: 294; y: 260),
    (x: 297; y: 257),
    (x: 299; y: 257),
    (x: 300; y: 258),
    (x: 301; y: 258),
    (x: 302; y: 259),
    (x: 302; y: 260),
    (x: 304; y: 262),
    (x: 305; y: 265),
    (x: 308; y: 268),
    (x: 308; y: 271),
    (x: 306; y: 273),
    (x: 298; y: 275),
    (x: 295; y: 275),
    (x: 294; y: 282),
    (x: 294; y: 288),
    (x: 293; y: 289),
    (x: 293; y: 294),
    (x: 294; y: 295),
    (x: 297; y: 296),
    (x: 298; y: 297),
    (x: 298; y: 298),
    (x: 300; y: 300),
    (x: 303; y: 301),
    (x: 306; y: 304),
    (x: 307; y: 304),
    (x: 307; y: 305),
    (x: 305; y: 307),
    (x: 305; y: 308),
    (x: 303; y: 310),
    (x: 303; y: 311),
    (x: 301; y: 313),
    (x: 298; y: 314),
    (x: 295; y: 313),
    (x: 291; y: 313),
    (x: 290; y: 312),
    (x: 288; y: 312),
    (x: 284; y: 316),
    (x: 284; y: 317),
    (x: 283; y: 318),
    (x: 276; y: 319),
    (x: 270; y: 319),
    (x: 263; y: 312),
    (x: 263; y: 310),
    (x: 262; y: 309),
    (x: 260; y: 309),
    (x: 258; y: 307),
    (x: 251; y: 307),
    (x: 250; y: 306),
    (x: 245; y: 304),
    (x: 243; y: 302),
    (x: 241; y: 302),
    (x: 239; y: 300),
    (x: 237; y: 300),
    (x: 237; y: 304),
    (x: 236; y: 305),
    (x: 236; y: 307),
    (x: 235; y: 308),
    (x: 235; y: 309),
    (x: 234; y: 310),
    (x: 231; y: 311),
    (x: 228; y: 312),
    (x: 227; y: 312),
    (x: 226; y: 313),
    (x: 225; y: 312),
    (x: 221; y: 312),
    (x: 220; y: 311),
    (x: 219; y: 311),
    (x: 218; y: 310),
    (x: 218; y: 307),
    (x: 217; y: 306),
    (x: 217; y: 304),
    (x: 216; y: 303),
    (x: 213; y: 302),
    (x: 212; y: 302),
    (x: 210; y: 300),
    (x: 205; y: 298),
    (x: 202; y: 298),
    (x: 201; y: 299),
    (x: 199; y: 297),
    (x: 199; y: 286),
    (x: 197; y: 284),
    (x: 195; y: 284),
    (x: 190; y: 279),
    (x: 187; y: 278),
    (x: 186; y: 277),
    (x: 186; y: 276),
    (x: 185; y: 275),
    (x: 180; y: 275),
    (x: 174; y: 281),
    (x: 173; y: 284),
    (x: 173; y: 287),
    (x: 171; y: 289),
    (x: 171; y: 292),
    (x: 167; y: 296),
    (x: 167; y: 297),
    (x: 162; y: 302),
    (x: 158; y: 302),
    (x: 157; y: 303),
    (x: 157; y: 304),
    (x: 156; y: 305),
    (x: 154; y: 305),
    (x: 153; y: 306),
    (x: 150; y: 307),
    (x: 146; y: 307),
    (x: 144; y: 309),
    (x: 143; y: 309),
    (x: 140; y: 306),
    (x: 137; y: 306),
    (x: 136; y: 305),
    (x: 131; y: 304),
    (x: 129; y: 304),
    (x: 127; y: 306),
    (x: 127; y: 307),
    (x: 126; y: 308),
    (x: 123; y: 309),
    (x: 122; y: 308),
    (x: 117; y: 308),
    (x: 116; y: 309),
    (x: 113; y: 308),
    (x: 108; y: 308),
    (x: 106; y: 306),
    (x: 103; y: 306),
    (x: 101; y: 304),
    (x: 101; y: 303),
    (x: 98; y: 300),
    (x: 94; y: 300),
    (x: 93; y: 301),
    (x: 93; y: 305),
    (x: 94; y: 306),
    (x: 95; y: 309),
    (x: 94; y: 312),
    (x: 94; y: 313),
    (x: 92; y: 315),
    (x: 89; y: 314),
    (x: 84; y: 313),
    (x: 83; y: 313),
    (x: 81; y: 315),
    (x: 81; y: 316),
    (x: 78; y: 319),