no real change.

main
Norayr Chilingarian 9 months ago
parent 9337437ffc
commit c9f9d79f17

@ -37,6 +37,7 @@
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit>

@ -19,6 +19,7 @@ begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.ShowMainForm := false;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

@ -7,21 +7,21 @@
<Unit>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<EditorIndex Value="1"/>
<CursorPos X="28" Y="22"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="8"/>
<CursorPos X="25" Y="38"/>
<CursorPos X="38" Y="42"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

@ -35,11 +35,11 @@ implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Visible := false;
TrayIcon1.Icon.LoadFromFile('/u/inky/zfs.ico');
TrayIcon1.Icon.LoadFromFile('zfs.ico');
TrayIcon1.Visible := true;
TrayIcon1.ShowIcon := true;
TrayIcon1.Hint := 'my tool tip';
TrayIcon1.Hint := 'բարեւ սիրուն ջան';
TrayIcon1.PopUpMenu := PopupMenu1;

Loading…
Cancel
Save