Tuesday, December 15, 2020

WINDOWS 10 SOUND KEYBOARD

Vrh aplikacija koja zaista dodaje novu vrednost svakoj tastaturi i Vašem kompjuteru:

 WINDOWS 10 SOUND KEYBOARD (FREEWARE DOWNLOAD)

password = raspakuj

Unesite password dva puta, Please enter the password twice !


************************************
Drugari, ja svoje aplikacije pravim prvenstveno da bi bile dobre i korisne za mene i moje potrebe, ako se i Vama dopadaju, kontaktirajte me, otvoren sam za svaki predlog i saradnju.

Počnemo da radimo ono što želimo!

koja će Vam dati novu energiju i entuzijazam, ako koristite računar u svakodnevnom radu !

Stavite slušalice ili odvrnite zvučnike i počnite da kucate najkvalitetniji sadržaj ikada.

************************************

MORE WINDOWS TIPS:


Dobar mail klijent pisan u Delphi-ju:
http://www.koma-code.de/



MORE LINUX TIPS:


sudo apt-get install snapd

MORE ELECTRONICS TIPS:




MORE DELPHI TIPS:

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;

No comments:

Post a Comment

Коментар: