Tray icon

 ++

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  { Hide the window and set its state variable to wsMinimized. }
  Hide();
  WindowState := wsMinimized;

  { Show the animated tray icon and also a hint balloon. }
  TrayIcon1.Visible := True;
  TrayIcon1.Animate := True;
  TrayIcon1.ShowBalloonHint;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIcon : TIcon;
begin
  { Load the tray icons. }
  TrayIcon1.Icons := TImageList.Create(Self);
  MyIcon := TIcon.Create;
  MyIcon.LoadFromFile('icons/earth1.ico');
  TrayIcon1.Icon.Assign(MyIcon);
  TrayIcon1.Icons.AddIcon(MyIcon);

  MyIcon.LoadFromFile('icons/earth2.ico');
  TrayIcon1.Icons.AddIcon(MyIcon);
  MyIcon.LoadFromFile('icons/earth3.ico');
  TrayIcon1.Icons.AddIcon(MyIcon);
  MyIcon.LoadFromFile('icons/earth4.ico');
  TrayIcon1.Icons.AddIcon(MyIcon);

  { Set up a hint message and the animation interval. }
  TrayIcon1.Hint := 'Hello World!';
  TrayIcon1.AnimateInterval := 200;

  { Set up a hint balloon. }
  TrayIcon1.BalloonTitle := 'Restoring the window.';
  TrayIcon1.BalloonHint :=
    'Double click the system tray icon to restore the window.';
  TrayIcon1.BalloonFlags := bfInfo;
end;

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
  
  { Hide the tray icon and show the window,
  setting its state property to wsNormal. }
  TrayIcon1.Visible := False;
  Show();
  WindowState := wsNormal;
  Application.BringToFront();
end;

NAJBRZI OGLASI

SUPER OGLASI

ZLATNI OGLASI

https://lazplanet.blogspot.com/2013/06/dragging-form-by-its-body.html

++

https://www.howtogeek.com/722827/how-to-factory-reset-your-windows-10-pc-using-command-prompt/

Office Laser Multifunction Printers
HP LaserJet MFP M443nda
(8AF72A)

https://origin.www8.hp.com/emea_middle_east/en/products/printers/product-detail.html?oid=31072330#!tab=specs

=111.900 din

https://atom.rs/?sid=27574

http://www.computerhistory.org/atchm/adobe-photoshop-source-code [return]
https://en.m.wikipedia.org/wiki/Turbo_Pascal [return]
You can read more about the history of Pascal in the Free Pascal Wiki [return]
http://castle-engine.io/modern_pascal_introduction.html [return]
programming language performance benchmark at The Computer Language Benchmarks Game [return]
http://www.freepascal.org/docs.var [return]
http://wiki.freepascal.org [return]
https://forum.lazarus.freepascal.org [return]
https://plus.google.com/communities/114860965042324270757 [return]
http://www.blaisepascal.eu [return]
http://castle-engine.io [return]
https://www.freepascal.org/~michael/articles/#web1
https://wiki.lazarus.freepascal.org/fcl-web
https://stackoverflow.com/questions/3640336/syntax-highlighting-example/3656605