fsplash.pas

siMail, siMail, siMail, siMail

    (x: 73; y: 319),
    (x: 72; y: 318),
    (x: 70; y: 318),
    (x: 69; y: 317),
    (x: 68; y: 317),
    (x: 66; y: 315),
    (x: 66; y: 314),
    (x: 64; y: 312),
    (x: 61; y: 311),
    (x: 57; y: 311),
    (x: 56; y: 312),
    (x: 53; y: 312),
    (x: 52; y: 313),
    (x: 47; y: 314),
    (x: 44; y: 314),
    (x: 43; y: 313),
    (x: 41; y: 313),
    (x: 40; y: 312),
    (x: 39; y: 312),
    (x: 38; y: 311),
    (x: 38; y: 310),
    (x: 37; y: 309),
    (x: 36; y: 309),
    (x: 35; y: 308),
    (x: 35; y: 307),
    (x: 33; y: 305),
    (x: 32; y: 302),
    (x: 32; y: 299),
    (x: 33; y: 298),
    (x: 34; y: 295),
    (x: 34; y: 294),
    (x: 36; y: 292),
    (x: 42; y: 292),
    (x: 43; y: 291),
    (x: 50; y: 290),
    (x: 55; y: 289),
    (x: 56; y: 288),
    (x: 55; y: 287),
    (x: 55; y: 286),
    (x: 51; y: 282),
    (x: 51; y: 281),
    (x: 58; y: 280),
    (x: 61; y: 281),
    (x: 62; y: 281),
    (x: 64; y: 283),
    (x: 67; y: 284),
    (x: 70; y: 284),
    (x: 73; y: 281),
    (x: 73; y: 280),
    (x: 75; y: 280),
    (x: 76; y: 279),
    (x: 76; y: 278),
    (x: 77; y: 277),
    (x: 78; y: 277),
    (x: 80; y: 275),
    (x: 81; y: 275),
    (x: 82; y: 274),
    (x: 80; y: 272),
    (x: 79; y: 272),
    (x: 77; y: 270),
    (x: 77; y: 269),
    (x: 75; y: 267),
    (x: 74; y: 267),
    (x: 73; y: 266),
    (x: 73; y: 263),
    (x: 71; y: 261),
    (x: 71; y: 259),
    (x: 67; y: 255),
    (x: 67; y: 253),
    (x: 65; y: 251),
    (x: 65; y: 250),
    (x: 64; y: 249),
    (x: 62; y: 249),
    (x: 61; y: 248),
    (x: 60; y: 248),
    (x: 58; y: 246),
    (x: 53; y: 244),
    (x: 51; y: 242),
    (x: 50; y: 242),
    (x: 46; y: 238),
    (x: 41; y: 238),
    (x: 40; y: 237),
    (x: 38; y: 237),
    (x: 37; y: 236),
    (x: 36; y: 236),
    (x: 33; y: 233),
    (x: 33; y: 229),
    (x: 32; y: 228),
    (x: 33; y: 223),
    (x: 34; y: 222),
    (x: 36; y: 217),
    (x: 36; y: 216),
    (x: 39; y: 213),
    (x: 39; y: 209),
    (x: 40; y: 209),
    (x: 41; y: 208),
    (x: 41; y: 201),
    (x: 39; y: 199),
    (x: 36; y: 198),
    (x: 31; y: 199),
    (x: 30; y: 200),
    (x: 27; y: 201),
    (x: 26; y: 200),
    (x: 24; y: 200),
    (x: 23; y: 199),
    (x: 22; y: 199),
    (x: 21; y: 198),
    (x: 20; y: 195),
    (x: 20; y: 193),
    (x: 19; y: 192),
    (x: 20; y: 189),
    (x: 22; y: 187),
    (x: 21; y: 186),
    (x: 21; y: 179),
    (x: 23; y: 179),
    (x: 24; y: 178),
    (x: 25; y: 178),
    (x: 26; y: 177),
    (x: 26; y: 175),
    (x: 27; y: 174),
    (x: 32; y: 172),
    (x: 34; y: 170),
    (x: 34; y: 169),
    (x: 35; y: 168),
    (x: 36; y: 168),
    (x: 38; y: 166),
    (x: 39; y: 166),
    (x: 40; y: 165),
    (x: 40; y: 164),
    (x: 42; y: 164),
    (x: 43; y: 163),
    (x: 44; y: 160),
    (x: 44; y: 158),
    (x: 45; y: 157),
    (x: 45; y: 156),
    (x: 46; y: 155),
    (x: 45; y: 154),
    (x: 36; y: 155),
    (x: 32; y: 155),
    (x: 31; y: 154),
    (x: 28; y: 153),
    (x: 25; y: 150),
    (x: 24; y: 150),
    (x: 22; y: 148),
    (x: 21; y: 148),
    (x: 19; y: 146),
    (x: 18; y: 146),
    (x: 16; y: 148),
    (x: 10; y: 148),
    (x: 9; y: 147),
    (x: 8; y: 147),
    (x: 7; y: 146),
    (x: 7; y: 142),
    (x: 5; y: 140),
    (x: 5; y: 128),
    (x: 6; y: 127),
    (x: 9; y: 126),
    (x: 10; y: 125),
    (x: 10; y: 124),
    (x: 14; y: 120),
    (x: 14; y: 115),
    (x: 19; y: 113),
    (x: 22; y: 113),
    (x: 23; y: 112),
    (x: 23; y: 111),
    (x: 26; y: 110),
    (x: 30; y: 106),
    (x: 33; y: 105),
    (x: 34; y: 104),
    (x: 36; y: 99),
    (x: 37; y: 98),
    (x: 41; y: 98),
    (x: 42; y: 97),
    (x: 45; y: 97),
    (x: 46; y: 98),
    (x: 48; y: 98),
    (x: 51; y: 95),
    (x: 53; y: 90),
    (x: 53; y: 85),
    (x: 54; y: 84),
    (x: 54; y: 83),
    (x: 55; y: 82),
    (x: 58; y: 81),
    (x: 67; y: 81),
    (x: 68; y: 82),
    (x: 71; y: 83),
    (x: 72; y: 82),
    (x: 75; y: 81),
    (x: 88; y: 81),
    (x: 89; y: 82),
    (x: 92; y: 83),
    (x: 95; y: 86),
    (x: 98; y: 87),
    (x: 108; y: 87),
    (x: 110; y: 89),
    (x: 113; y: 89),
    (x: 113; y: 90),
    (x: 114; y: 91),
    (x: 117; y: 92),
    (x: 119; y: 92),
    (x: 119; y: 94),
    (x: 123; y: 98),
    (x: 140; y: 99),
    (x: 143; y: 100),
    (x: 150; y: 100),
    (x: 151; y: 99),
    (x: 156; y: 99),
    (x: 157; y: 98),
    (x: 161; y: 98),
    (x: 162; y: 99),
    (x: 162; y: 100),
    (x: 163; y: 101),
    (x: 165; y: 101),
    (x: 166; y: 102),
    (x: 169; y: 103),
    (x: 177; y: 103),
    (x: 177; y: 105),
    (x: 179; y: 107),
    (x: 180; y: 107),
    (x: 180; y: 109),
    (x: 181; y: 110),
    (x: 181; y: 111),
    (x: 182; y: 112),
    (x: 183; y: 112),
    (x: 184; y: 111),
    (x: 185; y: 106),
    (x: 185; y: 101),
    (x: 186; y: 100),
    (x: 188; y: 100),
    (x: 189; y: 99),
    (x: 192; y: 98),
    (x: 195; y: 98),
    (x: 196; y: 97),
    (x: 197; y: 97),
    (x: 198; y: 96),
    (x: 199; y: 93),
    (x: 200; y: 93),
    (x: 201; y: 92),
    (x: 201; y: 91),
    (x: 203; y: 89),
    (x: 204; y: 86),
    (x: 209; y: 85),
    (x: 215; y: 85),
    (x: 216; y: 84),
    (x: 217; y: 84),
    (x: 218; y: 83),
    (x: 219; y: 80),
    (x: 220; y: 75),
    (x: 222; y: 73),
    (x: 223; y: 70),
    (x: 223; y: 68),
    (x: 225; y: 66),
    (x: 225; y: 65),
    (x: 226; y: 64),
    (x: 228; y: 64),
    (x: 229; y: 63),
    (x: 232; y: 62),
    (x: 235; y: 62),
    (x: 236; y: 61),
    (x: 236; y: 60),
    (x: 237; y: 59),
    (x: 241; y: 59),
    (x: 243; y: 61),
    (x: 244; y: 61),
    (x: 246; y: 59),
    (x: 247; y: 56),
    (x: 248; y: 55),
    (x: 251; y: 54),
    (x: 254; y: 53),
    (x: 259; y: 53),
    (x: 260; y: 52),
    (x: 263; y: 52),
    (x: 264; y: 53),
    (x: 267; y: 52),
    (x: 274; y: 53),
    (x: 276; y: 53),
    (x: 276; y: 54),
    (x: 277; y: 55),
    (x: 280; y: 55),
    (x: 281; y: 56),
    (x: 284; y: 55),
    (x: 289; y: 54),
    (x: 297; y: 54),
    (x: 298; y: 53),
    (x: 309; y: 52),
    (x: 310; y: 53),
    (x: 311; y: 53),
    (x: 314; y: 56),
    (x: 314; y: 57),
    (x: 317; y: 60),
    (x: 319; y: 60),
    (x: 320; y: 59),
    (x: 323; y: 58),
    (x: 324; y: 58),
    (x: 326; y: 56),
    (x: 327; y: 53),
    (x: 327; y: 49),
    (x: 328; y: 48),
    (x: 328; y: 47),
    (x: 331; y: 46),
    (x: 334; y: 45),
    (x: 338; y: 45),
    (x: 339; y: 46),
    (x: 340; y: 45),
    (x: 341; y: 45),
    (x: 342; y: 44),
    (x: 342; y: 42),
    (x: 345; y: 41),
    (x: 349; y: 41),
    (x: 350; y: 42),
    (x: 357; y: 43),
    (x: 362; y: 41),
    (x: 363; y: 41),
    (x: 365; y: 39),
    (x: 372; y: 38),
    (x: 379; y: 38),
    (x: 380; y: 39),
    (x: 382; y: 39),
    (x: 386; y: 43),
    (x: 389; y: 44),
    (x: 391; y: 46),
    (x: 392; y: 46),
    (x: 395; y: 49),
    (x: 400; y: 50),
    (x: 401; y: 49),
    (x: 400; y: 48),
    (x: 400; y: 45),
    (x: 399; y: 44),
    (x: 399; y: 43),
    (x: 398; y: 42),
    (x: 396; y: 42),
    (x: 394; y: 40),
    (x: 394; y: 39),
    (x: 392; y: 37),
    (x: 391; y: 30),
    (x: 391; y: 27),
    (x: 392; y: 26),
    (x: 391; y: 25),
    (x: 392; y: 22),
    (x: 392; y: 17),
    (x: 393; y: 16),
    (x: 393; y: 14),
    (x: 395; y: 14),
    (x: 397; y: 12),
    (x: 400; y: 12),
    (x: 401; y: 11),
    (x: 402; y: 11),
    (x: 403; y: 10),
    (x: 403; y: 8),
    (x: 404; y: 7),
    (x: 406; y: 7),
    (x: 407; y: 6),
    (x: 410; y: 5),
    (x: 418; y: 7),
    (x: 421; y: 6));

implementation

{$R *.dfm}

procedure TfrmSplash.FormCreate(Sender: TObject);
var wndRegion: HRGN;
begin
  wndRegion := CreatePolygonRgn(poly[0], High(poly), 1);
  SetWindowRgn(Self.Handle, wndRegion, True);
end;

procedure TfrmSplash.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TfrmSplash.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  Screen.Cursor := crDefault;
  CanClose := Not Timer1.Enabled;
end;

procedure TfrmSplash.FormShow(Sender: TObject);
begin
  //translate me
  TranslateComponent(Self);

  lblStatus.Caption := _('Loading ...');
end;

end.