mirror of
https://github.com/nxshock/calculator.git
synced 2024-11-27 10:01:00 +05:00
Upload project
This commit is contained in:
parent
373d7a9821
commit
c95cd46279
2
.gitignore
vendored
2
.gitignore
vendored
@ -3,7 +3,7 @@
|
||||
#
|
||||
# Resource files are binaries containing manifest, project icon and version info.
|
||||
# They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
|
||||
#*.res
|
||||
*.res
|
||||
#
|
||||
# Type library file (binary). In old Delphi versions it should be stored.
|
||||
# Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
|
||||
|
||||
27
README.md
27
README.md
@ -1,2 +1,27 @@
|
||||
# calculator
|
||||
Simple and fast calculator
|
||||
|
||||
Простой и быстрый калькулятор для выполнения простых вычислений.
|
||||
|
||||
## Возможности
|
||||
|
||||
- Поддержка простых вычислений (`+`, `-`, `*`, `/`, `(`, `)`);
|
||||
- Автоматическое удаление из формулы лишних символов (пробелы, буквы) - просто
|
||||
копируйте и вставляйте формулы из любого места без необходимости их обработки;
|
||||
- Горячая клавиша для отображения и скрытия окна программы (`Ctrl+1`);
|
||||
- Никакого Electron'а. Быстрая работа и малое поребление памяти.
|
||||
|
||||
## Сборка
|
||||
|
||||
Запустите `src/make.bat`. Проект осуществляет сборку исполняемого файла в
|
||||
`bin/calculator`.
|
||||
|
||||
## ToDo
|
||||
|
||||
- [ ] Подобрать имя проекта получше
|
||||
- [ ] Добавить поддержку Linux
|
||||
- [ ] Добавить настройки горячей клавиши вызова
|
||||
- [ ] Добавить английский язык
|
||||
|
||||
## Использованные сторонние библиотеки
|
||||
|
||||
- [3926 Free "Farm-Fresh Web Icons"](https://www.fatcow.com/free-icons)
|
||||
|
||||
BIN
src/calculator.ico
Normal file
BIN
src/calculator.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.3 KiB |
109
src/calculator.lpi
Normal file
109
src/calculator.lpi
Normal file
@ -0,0 +1,109 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<SaveClosedFiles Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
<SaveJumpHistory Value="False"/>
|
||||
<SaveFoldState Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="None"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="Калькулятор"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<DpiAware Value="True"/>
|
||||
</XPManifest>
|
||||
<Icon Value="0"/>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="4">
|
||||
<Unit0>
|
||||
<Filename Value="calculator.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="Calculator"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="mainformunit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="MainForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="MainFormUnit"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="support.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="Support"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="hotkeysunit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit3>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\bin\calculator"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
17
src/calculator.lpr
Normal file
17
src/calculator.lpr
Normal file
@ -0,0 +1,17 @@
|
||||
program Calculator;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
Interfaces, Forms, MainFormUnit, Support, hotkeysunit;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Title:='Калькулятор';
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
21
src/hotkeysunit.pas
Normal file
21
src/hotkeysunit.pas
Normal file
@ -0,0 +1,21 @@
|
||||
unit HotkeysUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Windows;
|
||||
|
||||
procedure AssociateHotkeys(h: THANDLE);
|
||||
|
||||
implementation
|
||||
|
||||
procedure AssociateHotkeys(h: THANDLE);
|
||||
begin
|
||||
// Hotkey Ctrl+1
|
||||
RegisterHotKey(h, GlobalAddAtom('Min/Restore hotkey'), MOD_CONTROL, VK_1);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
282
src/mainformunit.lfm
Normal file
282
src/mainformunit.lfm
Normal file
@ -0,0 +1,282 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 312
|
||||
Height = 58
|
||||
Top = 109
|
||||
Width = 320
|
||||
BorderIcons = [biSystemMenu]
|
||||
Caption = 'Калькулятор'
|
||||
ClientHeight = 58
|
||||
ClientWidth = 320
|
||||
Constraints.MaxHeight = 58
|
||||
Constraints.MinHeight = 58
|
||||
FormStyle = fsSystemStayOnTop
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
LCLVersion = '1.6.0.4'
|
||||
object QueryEdit: TEditButton
|
||||
Left = 4
|
||||
Height = 23
|
||||
Top = 4
|
||||
Width = 312
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 4
|
||||
ButtonHint = 'Очистить'
|
||||
ButtonWidth = 23
|
||||
Flat = True
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000230000
|
||||
0033000000330000003300000033000000330000003300000033000000330000
|
||||
0033000000330000003300000033000000330000003300000023A9988AC0B5A2
|
||||
92FFB3A090FFB39F8FFFB39F8FFFB39F8FFFB39F8FFFB3A08FFFB4A190FFB7A4
|
||||
93FFBBA797FFBCA998FFBBA797FFB8A494FFB6A393FFA9988AC0B5A292FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE4E3
|
||||
E5FF8F9092FF8A8B8CFF8F9092FFECEEEEFFFFFFFFFFB6A393FFB4A090FFFFFD
|
||||
FCFFFBF8F5FFFAF7F4FFFAF7F4FFFAF7F4FFFAF7F4FFFBF8F5FFFFFEFBFF8786
|
||||
84FFFFFFFFFF838282FFFFFFFFFF888786FFFFFFFFFFB5A291FFB4A191FFF8F3
|
||||
EFFFF6F1ECFFF5EFEAFFF5EFEAFFF5EFEAFFF5EFEAFFF7F1ECFFFEF8F3FF7E7B
|
||||
78FF817E7AFFE9E4E0FF817E7AFF7F7D79FFFFFCF8FFB6A292FFB5A292FFF1EA
|
||||
E5FFF3EBE3FFF1E9E1FFF1E9E1FFF1E9E1FFF1E9E1FFF3EBE2FFF9F1E8FF827D
|
||||
79FFFFFFF6FF7F7A77FFFFFFF6FF837F7AFFF9F1ECFFB6A393FFB6A393FFE8E3
|
||||
DBFFF0E6DCFFEFE5DAFFEFE5DAFFEFE5DAFFEFE5DAFFEFE5DBFFF3E9DEFFD0C7
|
||||
BFFF817B76FF7B7771FF817B76FFD1C8C0FFECE7E0FFB6A393FFB7A495FFE1DB
|
||||
D4FFDED8D1FFDED7D0FFDED7D0FFDED7D0FFDED7D0FFDED7D0FFDFD8D1FFE2DB
|
||||
D4FFE5DED7FFE7DFD8FFE5DED7FFE2DCD4FFE2DCD5FFB7A595FFB9A797EFB7A5
|
||||
95FFB6A394FFB6A393FFB6A393FFB6A393FFB6A393FFB6A393FFB6A394FFB7A4
|
||||
94FFB7A494FFB8A595FFB7A494FFB7A494FFB7A595FFB9A797B0FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||
}
|
||||
MaxLength = 0
|
||||
NumGlyphs = 1
|
||||
OnButtonClick = QueryEditButtonClick
|
||||
OnChange = QueryEditChange
|
||||
OnKeyPress = QueryEditKeyPress
|
||||
PasswordChar = #0
|
||||
TabOrder = 0
|
||||
end
|
||||
object ResultEdit: TEdit
|
||||
Left = 4
|
||||
Height = 23
|
||||
Top = 31
|
||||
Width = 312
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 4
|
||||
TabOrder = 1
|
||||
Text = '0,00'
|
||||
end
|
||||
object TrayIcon: TTrayIcon
|
||||
PopUpMenu = TrayPopupMenu
|
||||
Icon.Data = {
|
||||
7E04000000000100010010100000010020006804000016000000280000001000
|
||||
0000200000000100200000000000000400006400000064000000000000000000
|
||||
0000FFFFFF000000002300000033000000330000003300000033000000330000
|
||||
00330000003300000033000000330000003300000033000000330000002CFFFF
|
||||
FF00FFFFFF00969696C09F9F9FFF9E9E9EFF9E9E9EFF9E9F9FFF9E9E9EFF9E9E
|
||||
9EFF9E9F9FFF9E9E9EFF9D9E9FFF9D9E9FFF9D9E9EFF9F9F9FFF9E9E9EE1FFFF
|
||||
FF00FFFFFF009F9F9FFFFFFEFEFFFBFAFAFFFEFDFDFFFEFDFDFFFDFCFCFFFEFD
|
||||
FDFFFEFDFEFFFBFCFDFFF9FCFFFFF9FCFFFFF9FAFCFFFFFEFEFF9F9F9FFFFFFF
|
||||
FF00FFFFFF009E9E9EFFF7F6F6FFF2F1F0FF8D8A88FF6D6B68FFF7F6F5FF8D8B
|
||||
89FF6C6B69FFF2F6F9FFE49F55FFE49F55FFEEF2F5FFF7F6F7FF9E9E9EFFFFFF
|
||||
FF00FFFFFF009D9E9EFFF4F3F2FFEDECEBFFF2F1F0FFF3F3F2FFF0F0EFFFF3F2
|
||||
F1FFF3F3F3FFEDF1F6FFEEAD66FFE4A25BFFE9EDF2FFF4F4F3FF9D9E9EFFFFFF
|
||||
FF00FFFFFF009E9E9EFFF3F2F0FFE9E8E7FF8E8C8AFF6E6C6AFFEDECEBFF8F8D
|
||||
8AFF6E6C6BFFE9ECF0FFF0AC62FFF0AC62FFE5E8ECFFF2F2F1FF9E9E9EFFFFFF
|
||||
FF00FFFFFF009E9E9EFFF0EEEEFFE4E2E2FFE9E7E7FFEAE8E9FFE8E6E6FFE9E7
|
||||
E8FFEAE8E9FFE6E5E7FFE5E6EBFFE4E6EBFFE2E2E4FFF0EEEEFF9E9E9EFFFFFF
|
||||
FF00FFFFFF009E9F9FFFEEEDEDFFE0DEDDFF918E8AFF716F6BFFE5E2E2FF918F
|
||||
8CFF706E6CFFE4E2E2FF918F8CFF706E6AFFE1DFDEFFEEEDEEFF9E9F9FFFFFFF
|
||||
FF00FFFFFF009F9F9FFFEEECECFFDDD9D5FFE4DED6FFE5DFD7FFE0DDD9FFE0DE
|
||||
DDFFE1DFDEFFE1DDD9FFE5DFD7FFE5DFD6FFDDD9D5FFEEEDECFF9F9F9FFFFFFF
|
||||
FF00FFFFFF009F9F9FFFEDECEAFFDAD5CEFF1F7FFFFF2266FFFFDDD8D1FF928F
|
||||
8CFF716F6CFFDED8D2FF2080FFFF2265FFFFDAD5CEFFEEECEAFF9F9F9FFFFFFF
|
||||
FF00FFFFFF00A0A1A1FFF1F0F0FFF1EFEDFFF6F1ECFFF6F2ECFFF2F1EFFFF1F1
|
||||
F2FFF2F2F3FFF2F1EFFFF6F2ECFFF6F2ECFFF1F0EDFFF1F0F0FFA0A1A1FFFFFF
|
||||
FF00FFFFFF00A2A3A5FF7C7E7FFF7B7D80FF7C7E80FF7C7E81FF7B7E81FF7B7E
|
||||
82FF7B7E82FF7B7E81FF7C7E81FF7C7E80FF7B7D80FF7C7E7FFFA2A3A5FFFFFF
|
||||
FF00FFFFFF00A0A3A7FFFFCA8BFFF9C27EFFF9C27FFFF9C280FFF9C280FFF9C2
|
||||
80FFF9C280FFF9C280FFF9C280FFF9C27FFFF9C27EFFFFCA8BFFA0A3A7FFFFFF
|
||||
FF00FFFFFF009EA2A6FFF9D0A4FFE8A760FFE7A762FFE7A863FFE7A863FFE7A8
|
||||
63FFE7A863FFE7A863FFE7A863FFE7A762FFE8A760FFF9D0A4FF9EA2A6FFFFFF
|
||||
FF00FFFFFF009FA2A5FFFDDBB6FFF8DAB8FFF8DAB9FFF8DAB9FFF8DAB9FFF8DA
|
||||
B9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB8FFFDDBB6FF9FA2A5FFFFFF
|
||||
FF00FFFFFF00A3A4A5EF9FA2A5FF9EA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1
|
||||
A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9EA1A5FF9FA2A5FFA3A4A5EFFFFF
|
||||
FF00000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000
|
||||
}
|
||||
Visible = True
|
||||
OnClick = TrayIconClick
|
||||
end
|
||||
object TrayPopupMenu: TPopupMenu
|
||||
Images = ImageList16px
|
||||
left = 32
|
||||
object ShowHideMenuItem: TMenuItem
|
||||
Caption = 'Показать/Скрыть'
|
||||
Bitmap.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000064000000640000000000000000000000FFFFFF000000
|
||||
0023000000330000003300000033000000330000003300000033000000330000
|
||||
0033000000330000003300000033000000330000002CFFFFFF00FFFFFF009696
|
||||
96C09F9F9FFF9E9E9EFF9E9E9EFF9E9F9FFF9E9E9EFF9E9E9EFF9E9F9FFF9E9E
|
||||
9EFF9D9E9FFF9D9E9FFF9D9E9EFF9F9F9FFF9E9E9EE1FFFFFF00FFFFFF009F9F
|
||||
9FFFFFFEFEFFFBFAFAFFFEFDFDFFFEFDFDFFFDFCFCFFFEFDFDFFFEFDFEFFFBFC
|
||||
FDFFF9FCFFFFF9FCFFFFF9FAFCFFFFFEFEFF9F9F9FFFFFFFFF00FFFFFF009E9E
|
||||
9EFFF7F6F6FFF2F1F0FF8D8A88FF6D6B68FFF7F6F5FF8D8B89FF6C6B69FFF2F6
|
||||
F9FFE49F55FFE49F55FFEEF2F5FFF7F6F7FF9E9E9EFFFFFFFF00FFFFFF009D9E
|
||||
9EFFF4F3F2FFEDECEBFFF2F1F0FFF3F3F2FFF0F0EFFFF3F2F1FFF3F3F3FFEDF1
|
||||
F6FFEEAD66FFE4A25BFFE9EDF2FFF4F4F3FF9D9E9EFFFFFFFF00FFFFFF009E9E
|
||||
9EFFF3F2F0FFE9E8E7FF8E8C8AFF6E6C6AFFEDECEBFF8F8D8AFF6E6C6BFFE9EC
|
||||
F0FFF0AC62FFF0AC62FFE5E8ECFFF2F2F1FF9E9E9EFFFFFFFF00FFFFFF009E9E
|
||||
9EFFF0EEEEFFE4E2E2FFE9E7E7FFEAE8E9FFE8E6E6FFE9E7E8FFEAE8E9FFE6E5
|
||||
E7FFE5E6EBFFE4E6EBFFE2E2E4FFF0EEEEFF9E9E9EFFFFFFFF00FFFFFF009E9F
|
||||
9FFFEEEDEDFFE0DEDDFF918E8AFF716F6BFFE5E2E2FF918F8CFF706E6CFFE4E2
|
||||
E2FF918F8CFF706E6AFFE1DFDEFFEEEDEEFF9E9F9FFFFFFFFF00FFFFFF009F9F
|
||||
9FFFEEECECFFDDD9D5FFE4DED6FFE5DFD7FFE0DDD9FFE0DEDDFFE1DFDEFFE1DD
|
||||
D9FFE5DFD7FFE5DFD6FFDDD9D5FFEEEDECFF9F9F9FFFFFFFFF00FFFFFF009F9F
|
||||
9FFFEDECEAFFDAD5CEFF1F7FFFFF2266FFFFDDD8D1FF928F8CFF716F6CFFDED8
|
||||
D2FF2080FFFF2265FFFFDAD5CEFFEEECEAFF9F9F9FFFFFFFFF00FFFFFF00A0A1
|
||||
A1FFF1F0F0FFF1EFEDFFF6F1ECFFF6F2ECFFF2F1EFFFF1F1F2FFF2F2F3FFF2F1
|
||||
EFFFF6F2ECFFF6F2ECFFF1F0EDFFF1F0F0FFA0A1A1FFFFFFFF00FFFFFF00A2A3
|
||||
A5FF7C7E7FFF7B7D80FF7C7E80FF7C7E81FF7B7E81FF7B7E82FF7B7E82FF7B7E
|
||||
81FF7C7E81FF7C7E80FF7B7D80FF7C7E7FFFA2A3A5FFFFFFFF00FFFFFF00A0A3
|
||||
A7FFFFCA8BFFF9C27EFFF9C27FFFF9C280FFF9C280FFF9C280FFF9C280FFF9C2
|
||||
80FFF9C280FFF9C27FFFF9C27EFFFFCA8BFFA0A3A7FFFFFFFF00FFFFFF009EA2
|
||||
A6FFF9D0A4FFE8A760FFE7A762FFE7A863FFE7A863FFE7A863FFE7A863FFE7A8
|
||||
63FFE7A863FFE7A762FFE8A760FFF9D0A4FF9EA2A6FFFFFFFF00FFFFFF009FA2
|
||||
A5FFFDDBB6FFF8DAB8FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DA
|
||||
B9FFF8DAB9FFF8DAB9FFF8DAB8FFFDDBB6FF9FA2A5FFFFFFFF00FFFFFF00A3A4
|
||||
A5EF9FA2A5FF9EA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1
|
||||
A5FF9DA1A5FF9DA1A5FF9EA1A5FF9FA2A5FFA3A4A5EFFFFFFF00
|
||||
}
|
||||
ImageIndex = 0
|
||||
ShortCut = 16433
|
||||
OnClick = ShowHideMenuItemClick
|
||||
end
|
||||
object ExitMenuItem: TMenuItem
|
||||
Caption = 'Выход'
|
||||
Bitmap.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000120000003200000033000000330000
|
||||
0033000000330000003300000033000000330000003300000033000000330000
|
||||
0033000000330000003300000033365D7B79497BA2FC68A4D9FF5C5C5CFF5C5C
|
||||
5CFF5E5B5AFF5E5A59FF5D5A5AFF5B5A5BFF5A5B5BFF5A5B5BFF5A5B5BFF5B5A
|
||||
5AFF5C5956FF576876FF4E7EA4FF4C80ACFF5082ABFF65A2D5FF5E5B5C005F5A
|
||||
5C00635859003F69A5FF756667FF706869FF6D6969FF6C6A69FF6C6A69FF6C6A
|
||||
68FF6E6762FF4C89BAFF4E85B2FF4D83AEFF5D8CB2FF629ED1FF66565D006955
|
||||
5C0010866D0013826BFF009346FF715C62FF6A6263FF676463FF666463FF6764
|
||||
62FF68615BFF4F8ABBFF5086B4FF4F84B1FF6895B9FF5F9BCDFF000000300000
|
||||
003300000033008C46FF4FDDB0FF008D43FF6B585EFF655E60FF636160FF6260
|
||||
5FFF645D57FF518DBEFF528AB7FF5187B4FF739FC2FF5D97C9FF008B4BF2008A
|
||||
47FF008845FF008441FF00DAA2FF60D9B3FF008D42FF68545AFF625B5CFF605C
|
||||
5AFF605852FF5490C2FF558CBAFF4E81ADFF7EA6C8FF5A94C4FF008A47FF63ED
|
||||
D0FF00D4A0FF00D29EFF00CC9CFF00CD9CFF6FDCBDFF009346FF615457FF5C57
|
||||
56FF5B534DFF5794C5FF588EBCFF47749BFF88AFCFFF5790C0FF008A47FF61E1
|
||||
D0FF60DDCAFF63DCC8FF00C49BFF00C69CFF82E1C8FF009447FF5C5054FF5853
|
||||
53FF574F4AFF5A96CAFF5B8FBEFF22B9F7FF95B5D3FF548DBCFF008D4CEF008A
|
||||
47FF008844FF00853FFF00C1A0FF97E3D1FF008F43FF5A484EFF565051FF5351
|
||||
4FFF524B45FF5B9ACDFF5C91C1FF20B7F5FF9EBCD7FF5189B8FF008F4E00008F
|
||||
4C00008E4900008B44FFA0E8DAFF009144FF55434AFF524B4DFF4F4D4EFF4F4D
|
||||
4CFF4D4641FF5E9CD2FF5C95C5FF5990C1FFA6C4DFFF4E86B5FF00904C000091
|
||||
47001A866E0017866DFF009647FF523F45FF4F4749FF4D494AFF4C4A4AFF4C48
|
||||
48FF4A423DFF60A0D5FF5D98C9FF5894C6FFAFCCE6FF4B83B0FF009242005276
|
||||
AF004E77AB004D7BB0FF4C3D3BFF4A4343FF484544FF484644FF484644FF4745
|
||||
42FF433C36FF5FA1D8FF5C9ACCFF5896C9FFB8D3EBFF4980ACFF4F79AB004C7A
|
||||
A7004A7BA6004A7FACFF443831FF433B37FF433D38FF433D38FF433D38FF423B
|
||||
36FF3C332CFFB9DAF5FF7FB0DAFF5495CCFFC0DAEFFF467CA8FF4B7CA6004A7C
|
||||
A5004A7CA6004A7EA8B04A82AEFF4A83B0FF4A83B0FF4A83B0FF4A83B0FF4A82
|
||||
AFFF447DA9FF709CBFFFB9D5EBFFB3D1EAFFC1DBF2FF4279A5FF4A7CA5004A7C
|
||||
A5004A7CA5004A7CA5004A7EA7004A7EA8004A7EA8004A7EA8004A7EA800497D
|
||||
A7004579A400709BBE00B5D2EA00C3DAEF58CDE3F5FB3F75A1FF
|
||||
}
|
||||
ImageIndex = 1
|
||||
OnClick = ExitMenuItemClick
|
||||
end
|
||||
end
|
||||
object ImageList16px: TImageList
|
||||
left = 64
|
||||
Bitmap = {
|
||||
4C69020000001000000010000000FFFFFF00A3A4A5EF9FA2A5FF9EA1A5FF9DA1
|
||||
A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9EA1
|
||||
A5FF9FA2A5FFA3A4A5EFFFFFFF00FFFFFF009FA2A5FFFDDBB6FFF8DAB8FFF8DA
|
||||
B9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DA
|
||||
B8FFFDDBB6FF9FA2A5FFFFFFFF00FFFFFF009EA2A6FFF9D0A4FFE8A760FFE7A7
|
||||
62FFE7A863FFE7A863FFE7A863FFE7A863FFE7A863FFE7A863FFE7A762FFE8A7
|
||||
60FFF9D0A4FF9EA2A6FFFFFFFF00FFFFFF00A0A3A7FFFFCA8BFFF9C27EFFF9C2
|
||||
7FFFF9C280FFF9C280FFF9C280FFF9C280FFF9C280FFF9C280FFF9C27FFFF9C2
|
||||
7EFFFFCA8BFFA0A3A7FFFFFFFF00FFFFFF00A2A3A5FF7C7E7FFF7B7D80FF7C7E
|
||||
80FF7C7E81FF7B7E81FF7B7E82FF7B7E82FF7B7E81FF7C7E81FF7C7E80FF7B7D
|
||||
80FF7C7E7FFFA2A3A5FFFFFFFF00FFFFFF00A0A1A1FFF1F0F0FFF1EFEDFFF6F1
|
||||
ECFFF6F2ECFFF2F1EFFFF1F1F2FFF2F2F3FFF2F1EFFFF6F2ECFFF6F2ECFFF1F0
|
||||
EDFFF1F0F0FFA0A1A1FFFFFFFF00FFFFFF009F9F9FFFEDECEAFFDAD5CEFF1F7F
|
||||
FFFF2266FFFFDDD8D1FF928F8CFF716F6CFFDED8D2FF2080FFFF2265FFFFDAD5
|
||||
CEFFEEECEAFF9F9F9FFFFFFFFF00FFFFFF009F9F9FFFEEECECFFDDD9D5FFE4DE
|
||||
D6FFE5DFD7FFE0DDD9FFE0DEDDFFE1DFDEFFE1DDD9FFE5DFD7FFE5DFD6FFDDD9
|
||||
D5FFEEEDECFF9F9F9FFFFFFFFF00FFFFFF009E9F9FFFEEEDEDFFE0DEDDFF918E
|
||||
8AFF716F6BFFE5E2E2FF918F8CFF706E6CFFE4E2E2FF918F8CFF706E6AFFE1DF
|
||||
DEFFEEEDEEFF9E9F9FFFFFFFFF00FFFFFF009E9E9EFFF0EEEEFFE4E2E2FFE9E7
|
||||
E7FFEAE8E9FFE8E6E6FFE9E7E8FFEAE8E9FFE6E5E7FFE5E6EBFFE4E6EBFFE2E2
|
||||
E4FFF0EEEEFF9E9E9EFFFFFFFF00FFFFFF009E9E9EFFF3F2F0FFE9E8E7FF8E8C
|
||||
8AFF6E6C6AFFEDECEBFF8F8D8AFF6E6C6BFFE9ECF0FFF0AC62FFF0AC62FFE5E8
|
||||
ECFFF2F2F1FF9E9E9EFFFFFFFF00FFFFFF009D9E9EFFF4F3F2FFEDECEBFFF2F1
|
||||
F0FFF3F3F2FFF0F0EFFFF3F2F1FFF3F3F3FFEDF1F6FFEEAD66FFE4A25BFFE9ED
|
||||
F2FFF4F4F3FF9D9E9EFFFFFFFF00FFFFFF009E9E9EFFF7F6F6FFF2F1F0FF8D8A
|
||||
88FF6D6B68FFF7F6F5FF8D8B89FF6C6B69FFF2F6F9FFE49F55FFE49F55FFEEF2
|
||||
F5FFF7F6F7FF9E9E9EFFFFFFFF00FFFFFF009F9F9FFFFFFEFEFFFBFAFAFFFEFD
|
||||
FDFFFEFDFDFFFDFCFCFFFEFDFDFFFEFDFEFFFBFCFDFFF9FCFFFFF9FCFFFFF9FA
|
||||
FCFFFFFEFEFF9F9F9FFFFFFFFF00FFFFFF00969696C09F9F9FFF9E9E9EFF9E9E
|
||||
9EFF9E9F9FFF9E9E9EFF9E9E9EFF9E9F9FFF9E9E9EFF9D9E9FFF9D9E9FFF9D9E
|
||||
9EFF9F9F9FFF9E9E9EE1FFFFFF00FFFFFF000000002300000033000000330000
|
||||
0033000000330000003300000033000000330000003300000033000000330000
|
||||
0033000000330000002CFFFFFF004A7CA5004A7CA5004A7CA5004A7CA5004A7E
|
||||
A7004A7EA8004A7EA8004A7EA8004A7EA800497DA7004579A400709BBE00B5D2
|
||||
EA00C3DAEF58CDE3F5FB3F75A1FF4B7CA6004A7CA5004A7CA6004A7EA8B04A82
|
||||
AEFF4A83B0FF4A83B0FF4A83B0FF4A83B0FF4A82AFFF447DA9FF709CBFFFB9D5
|
||||
EBFFB3D1EAFFC1DBF2FF4279A5FF4F79AB004C7AA7004A7BA6004A7FACFF4438
|
||||
31FF433B37FF433D38FF433D38FF433D38FF423B36FF3C332CFFB9DAF5FF7FB0
|
||||
DAFF5495CCFFC0DAEFFF467CA8FF009242005276AF004E77AB004D7BB0FF4C3D
|
||||
3BFF4A4343FF484544FF484644FF484644FF474542FF433C36FF5FA1D8FF5C9A
|
||||
CCFF5896C9FFB8D3EBFF4980ACFF00904C00009147001A866E0017866DFF0096
|
||||
47FF523F45FF4F4749FF4D494AFF4C4A4AFF4C4848FF4A423DFF60A0D5FF5D98
|
||||
C9FF5894C6FFAFCCE6FF4B83B0FF008F4E00008F4C00008E4900008B44FFA0E8
|
||||
DAFF009144FF55434AFF524B4DFF4F4D4EFF4F4D4CFF4D4641FF5E9CD2FF5C95
|
||||
C5FF5990C1FFA6C4DFFF4E86B5FF008D4CEF008A47FF008844FF00853FFF00C1
|
||||
A0FF97E3D1FF008F43FF5A484EFF565051FF53514FFF524B45FF5B9ACDFF5C91
|
||||
C1FF20B7F5FF9EBCD7FF5189B8FF008A47FF61E1D0FF60DDCAFF63DCC8FF00C4
|
||||
9BFF00C69CFF82E1C8FF009447FF5C5054FF585353FF574F4AFF5A96CAFF5B8F
|
||||
BEFF22B9F7FF95B5D3FF548DBCFF008A47FF63EDD0FF00D4A0FF00D29EFF00CC
|
||||
9CFF00CD9CFF6FDCBDFF009346FF615457FF5C5756FF5B534DFF5794C5FF588E
|
||||
BCFF47749BFF88AFCFFF5790C0FF008B4BF2008A47FF008845FF008441FF00DA
|
||||
A2FF60D9B3FF008D42FF68545AFF625B5CFF605C5AFF605852FF5490C2FF558C
|
||||
BAFF4E81ADFF7EA6C8FF5A94C4FF000000300000003300000033008C46FF4FDD
|
||||
B0FF008D43FF6B585EFF655E60FF636160FF62605FFF645D57FF518DBEFF528A
|
||||
B7FF5187B4FF739FC2FF5D97C9FF66565D0069555C0010866D0013826BFF0093
|
||||
46FF715C62FF6A6263FF676463FF666463FF676462FF68615BFF4F8ABBFF5086
|
||||
B4FF4F84B1FF6895B9FF5F9BCDFF5E5B5C005F5A5C00635859003F69A5FF7566
|
||||
67FF706869FF6D6969FF6C6A69FF6C6A69FF6C6A68FF6E6762FF4C89BAFF4E85
|
||||
B2FF4D83AEFF5D8CB2FF629ED1FF5C5C5CFF5C5C5CFF5E5B5AFF5E5A59FF5D5A
|
||||
5AFF5B5A5BFF5A5B5BFF5A5B5BFF5A5B5BFF5B5A5AFF5C5956FF576876FF4E7E
|
||||
A4FF4C80ACFF5082ABFF65A2D5FF000000330000003300000033000000330000
|
||||
0033000000330000003300000033000000330000003300000033000000330000
|
||||
0033365D7B79497BA2FC68A4D9FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000120000003200000033
|
||||
}
|
||||
end
|
||||
end
|
||||
143
src/mainformunit.pas
Normal file
143
src/mainformunit.pas
Normal file
@ -0,0 +1,143 @@
|
||||
unit MainFormUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, EditBtn,
|
||||
StdCtrls, ExtCtrls, Menus, Windows, fpExprPars, lazutf8;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
ExitMenuItem: TMenuItem;
|
||||
ImageList16px: TImageList;
|
||||
ShowHideMenuItem: TMenuItem;
|
||||
TrayPopupMenu: TPopupMenu;
|
||||
ResultEdit: TEdit;
|
||||
QueryEdit: TEditButton;
|
||||
TrayIcon: TTrayIcon;
|
||||
procedure ExitMenuItemClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure QueryEditButtonClick(Sender: TObject);
|
||||
procedure QueryEditChange(Sender: TObject);
|
||||
procedure QueryEditKeyPress(Sender: TObject; var Key: char);
|
||||
procedure ShowHideMenuItemClick(Sender: TObject);
|
||||
procedure TrayIconClick(Sender: TObject);
|
||||
procedure ShowHideForm;
|
||||
private
|
||||
procedure WM_HotKeyHandler(var Message: TMessage);
|
||||
message WM_HOTKEY;
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
uses Support, HotkeysUnit;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
procedure TMainForm.WM_HotKeyHandler(var Message: TMessage);
|
||||
begin
|
||||
if (LOWORD(Message.lParam) = MOD_CONTROL) and (HIWORD(Message.lParam) = VK_1) then
|
||||
ShowHideMenuItemClick(MainForm);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TMainForm.QueryEditChange(Sender: TObject);
|
||||
var
|
||||
t: integer;
|
||||
parser: TFPExpressionParser;
|
||||
parserResult: TFPExpressionResult;
|
||||
begin
|
||||
if length(QueryEdit.Text) = 0 then begin
|
||||
ResultEdit.Text := '0,00';
|
||||
exit;
|
||||
end;
|
||||
|
||||
t := QueryEdit.SelStart;
|
||||
QueryEdit.Text := ClearExpression(QueryEdit.Text);
|
||||
QueryEdit.SelStart := t;
|
||||
|
||||
parser := TFPExpressionParser.Create(nil);
|
||||
try
|
||||
parser.BuiltIns := [bcMath];
|
||||
parser.Expression := UTF8StringReplace(QueryEdit.Text,',','.',[rfReplaceAll]);
|
||||
parserResult := parser.Evaluate;
|
||||
ResultEdit.Text := formatfloat('0.00', ArgToFloat(parserResult));
|
||||
except
|
||||
on E: Exception do
|
||||
ResultEdit.Text := E.Message;
|
||||
end;
|
||||
parser.Free;
|
||||
end;
|
||||
|
||||
procedure TMainForm.QueryEditKeyPress(Sender: TObject; var Key: char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
QueryEdit.Text := ResultEdit.Text;
|
||||
end;
|
||||
|
||||
procedure TMainForm.ShowHideMenuItemClick(Sender: TObject);
|
||||
begin
|
||||
ShowHideForm;
|
||||
end;
|
||||
|
||||
procedure TMainForm.TrayIconClick(Sender: TObject);
|
||||
begin
|
||||
ShowHideForm;
|
||||
end;
|
||||
|
||||
procedure TMainForm.ShowHideForm;
|
||||
begin
|
||||
if MainForm.Visible then
|
||||
MainForm.Hide
|
||||
else
|
||||
begin
|
||||
if MainForm.WindowState = wsMinimized then
|
||||
MainForm.WindowState := wsNormal;
|
||||
MainForm.Show;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FormatSettings.DecimalSeparator := ',';
|
||||
MainForm.Left := Screen.Width - MainForm.Width - 16;
|
||||
MainForm.Top := Screen.Height - MainForm.Height - 64;
|
||||
AssociateHotkeys(Handle);
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormShow(Sender: TObject);
|
||||
begin
|
||||
QueryEdit.SetFocus;
|
||||
QueryEdit.SelectAll;
|
||||
end;
|
||||
|
||||
procedure TMainForm.QueryEditButtonClick(Sender: TObject);
|
||||
begin
|
||||
QueryEdit.Text := '';
|
||||
QueryEdit.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
CloseAction := caHide;
|
||||
end;
|
||||
|
||||
procedure TMainForm.ExitMenuItemClick(Sender: TObject);
|
||||
begin
|
||||
TrayIcon.Hide;
|
||||
try
|
||||
UnregisterHotKey(Handle, 1);
|
||||
GlobalDeleteAtom(1);
|
||||
except;
|
||||
end;
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
end.
|
||||
1
src/make.bat
Normal file
1
src/make.bat
Normal file
@ -0,0 +1 @@
|
||||
lazbuild calculator.lpi
|
||||
31
src/support.pas
Normal file
31
src/support.pas
Normal file
@ -0,0 +1,31 @@
|
||||
unit Support;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
|
||||
function ClearExpression(input: string): string; // Удаление лишних символов из выражения
|
||||
|
||||
implementation
|
||||
|
||||
function ClearExpression(input: string): string;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
// Замена десятичного разделителя с точки на запятую
|
||||
Result := stringreplace(input, '.', ',', [rfReplaceAll, rfIgnoreCase]);
|
||||
|
||||
// Удаление всех лишних символов
|
||||
i := 1;
|
||||
while i <= length(Result) do
|
||||
if not ((Result[i]) in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', ',', '+', '-', '*', '/', '(', ')']) then
|
||||
Delete(Result, i, 1)
|
||||
else
|
||||
i := i + 1;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user