nxshock/calculator
1
0
Fork 0
mirror of https://github.com/nxshock/calculator.git synced 2024-11-27 10:01:00 +05:00
Code Issues Actions Projects Releases Wiki Activity

Замена поля результата на многострочный вариант

Browse Source
This commit is contained in:
Andrey Sotnikov 2024-09-08 20:49:02 +05:00
parent b6cd11e5f0
commit 585862bd00
2 changed files with 74 additions and 167 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

228
src/mainformunit.lfm
View File

@ -1,28 +1,28 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 312 Left = 767
Height = 58 Height = 72
Top = 109 Top = 390
Width = 320 Width = 400
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'Калькулятор' Caption = 'Калькулятор'
ClientHeight = 58 ClientHeight = 72
ClientWidth = 320 ClientWidth = 400
Constraints.MaxHeight = 58 Constraints.MinHeight = 72
Constraints.MinHeight = 58 DesignTimePPI = 120
FormStyle = fsSystemStayOnTop FormStyle = fsSystemStayOnTop
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
LCLVersion = '1.6.0.4' LCLVersion = '3.4.0.0'
object QueryEdit: TEditButton object QueryEdit: TEditButton
Left = 4 Left = 5
Height = 23 Height = 28
Top = 4 Top = 5
Width = 312 Width = 390
Align = alTop Align = alTop
BorderSpacing.Around = 4 BorderSpacing.Around = 5
ButtonHint = 'Очистить' ButtonHint = 'Очистить'
ButtonWidth = 23 ButtonWidth = 29
Flat = True Flat = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -68,15 +68,15 @@ object MainForm: TMainForm
PasswordChar = #0 PasswordChar = #0
TabOrder = 0 TabOrder = 0
end end
object ResultEdit: TEdit object ResultMemo: TMemo
Left = 4 Left = 5
Height = 23 Height = 29
Top = 31 Top = 38
Width = 312 Width = 390
Align = alTop Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 5
ScrollBars = ssAutoVertical
TabOrder = 1 TabOrder = 1
Text = '0,00'
end end
object TrayIcon: TTrayIcon object TrayIcon: TTrayIcon
PopUpMenu = TrayPopupMenu PopUpMenu = TrayPopupMenu
@ -124,159 +124,63 @@ object MainForm: TMainForm
end end
object TrayPopupMenu: TPopupMenu object TrayPopupMenu: TPopupMenu
Images = ImageList16px Images = ImageList16px
left = 32 Left = 40
object ShowHideMenuItem: TMenuItem object ShowHideMenuItem: TMenuItem
Caption = 'Показать/Скрыть' 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 ImageIndex = 0
ShortCut = 16433 ShortCut = 16433
OnClick = ShowHideMenuItemClick OnClick = ShowHideMenuItemClick
end end
object ExitMenuItem: TMenuItem object ExitMenuItem: TMenuItem
Caption = 'Выход' 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 ImageIndex = 1
OnClick = ExitMenuItemClick OnClick = ExitMenuItemClick
end end
end end
object ImageList16px: TImageList object ImageList16px: TImageList
left = 64 Left = 80
Bitmap = { Bitmap = {
4C69020000001000000010000000FFFFFF00A3A4A5EF9FA2A5FF9EA1A5FF9DA1 4C7A020000001000000010000000F40400000000000078DA9D93EB4F14571887
A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9DA1A5FF9EA1 CF9FD0B41F9AF44B8DFDEA87B626D4440D91051696BD70DF657716965DC5E52A
A5FF9FA2A5FFA3A4A5EFFFFFFF00FFFFFF009FA2A5FFFDDBB6FFF8DAB8FFF8DA A6D586822CA25205968B056C04165859B0F102DE2AB4D68A55A3065AC1A2B20A
B9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DAB9FFF8DA 08725960AF836051F0D773864BA1B131759227F3CE99DFF39E9933670090138D
B8FFFDDBB6FF9FA2A5FFFFFFFF00FFFFFF009EA2A6FFF9D0A4FFE8A760FFE7A7 364F9DD5064B830DB56F8165589639A02E835D2F3CFE117FD9DB28ED6FA14DC8
62FFE7A863FFE7A863FFE7A863FFE7A863FFE7A863FFE7A863FFE7A762FFE8A7 3267D9B7589B3077AF118E661DC69BF5183F697833F41ECBB02C7396FDFA13CD
60FFF9D0A4FF9EA2A6FFFFFFFF00FFFFFF00A0A3A7FFFFCA8BFFF9C27EFFF9C2 C0DD22CC5DCFA5982879FF8149C8B0ACE02CF9D61336E4E49A90BD2F8F9E19FB
7FFFF9C280FFF9C280FFF9C280FFF9C280FFF9C280FFF9C280FFF9C27FFFF9C2 912D90BFC47E618CDD5BCC98C09C95F91B1AE0F37AE1F3B830EB7362967782F7
7EFFFFCA8BFFA0A3A7FFFFFFFF00FFFFFF00A2A3A5FF7C7E7FFF7B7D80FF7C7E 79E0F3F1E0F969A166630C9FD7256499B3B27E757570392761EFFD1D1F9B80F5
80FF7C7E81FF7B7E81FF7B7E82FF7B7E82FF7B7E81FF7C7E81FF7C7E80FF7B7D 4940FFA36E1C2D2DC6EE5D691878D4837579747C07848C9B6699B3DA773B9DE8
80FF7C7E7FFFA2A3A5FFFFFFFF00FFFFFF00A0A1A1FFF1F0F0FFF1EFEDFFF6F1 EFEBC5C8C0038C0E3EC4D3FE3E3C1DE8C7D0E0008668CDC646071F0819B7CBB9
ECFFF6F2ECFFF2F1EFFFF1F1F2FFF2F2F3FFF2F1EFFFF6F2ECFFF6F2ECFFF1F0 C6B730DFE512F2E5258574CE548C0E0FA39CCE9F99918691953A45E8E776B961
EDFFF1F0F0FFA0A1A1FFFFFFFF00FFFFFF009F9F9FFFEDECEAFFDAD5CEFF1F7F 59ED5B2CF0BADD426E627C1C938E0938C6C668ED10EAB1D1718C8E4D6184323C
FFFF2266FFFFDDD8D1FF928F8CFF716F6CFFDED8D2FF2080FFFF2265FFFFDAD5 3C226499B3DA9FE6BD98708CA3A4B810196929743DA6506A66752A269C5E784F
CEFFEEECEAFF9F9F9FFFFFFFFF00FFFFFF009F9F9FFFEEECECFFDDD9D5FFE4DE EB05461D746D79DF1ABF96D6CFA779C1E17D5E4CD3DAEBF5D09E3E5A4FC3E59B
D6FFE5DFD7FFE0DDD9FFE0DEDDFFE1DFDEFFE1DDD9FFE5DFD7FFE5DFD6FFDDD9 85FB4C1246AC1A4CB8783C7F3E8DDA7FCDFF62765670CD8587919E6AA4D73330
D5FFEEEDECFF9F9F9FFFFFFFFF00FFFFFF009E9F9FFFEEEDEDFFE0DEDDFF918E 171D415A6A32F8D9398CD4C508B8F9197AEFC59AF985B57CFD1AAF5EBEC4EB85
8AFF716F6BFFE5E2E2FF918F8CFF706E6CFFE4E2E2FF918F8CFF706E6AFFE1DF 058185F9F9A59A8ECF2F606E1E8BBC9C17B2ABD7BFAAAAEA1ABB663D05DE50D7
DEFFEEEDEEFF9E9F9FFFFFFFFF00FFFFFF009E9E9EFFF0EEEEFFE4E2E2FFE9E7 5AEA96B060293BB4ECD3E313CAC6FFC906E64A726C6BC96DA69C5C43E8BE6612
E7FFEAE8E9FFE8E6E6FFE9E7E8FFEAE8E9FFE6E5E7FFE5E6EBFFE4E6EBFFE2E2 94D54832ABAF924B3D93E437BB47D5F56CE695FF9E0684E5342DB94D2CDB2AC9
E4FFF0EEEEFF9E9E9EFFFFFFFF00FFFFFF009E9E9EFFF3F2F0FFE9E8E7FF8E8C 3F0BC981D6B5E4B72070DF0FC8ACF915EDBD53B8D03D898EC73C02B26C50649D
8AFF6E6C6AFFEDECEBFF8F8D8AFF6E6C6BFFE9ECF0FFF0AC62FFF0AC62FFE5E8 22D26FE89CD9D4379D46E0A6CF20DAFC05445B37AD10B0D90F5B366E40BB7D06
ECFFF2F2F1FF9E9E9EFFFFFFFF00FFFFFF009D9E9EFFF4F3F2FFEDECEBFFF2F1 A6563BA22B3B71CDEE4170CE4990A30124726F0B917F7D8AC8B25B21DDBA1912
F0FFF3F3F2FFF0F0EFFFF3F2F1FFF3F3F3FFEDF1F6FFEEAD66FFE4A25BFFE9ED 910821418108095E441C1400D1163F24343C0277BC13AAAA3B68BB3F85D0BCD3
F2FFF4F4F3FF9D9E9EFFFFFFFF00FFFFFF009E9E9EFFF7F6F6FFF2F1F0FF8D8A 20655242CAC5E4A3820CF261413AFD186244FA0741210E852C5402A984121202
88FF6D6B68FFF7F6F5FF8D8B89FF6C6B69FFF2F6F9FFE49F55FFE49F55FFEEF2 49C056E8EA7BA1FDFE0E5415B7D0D2398630FA6EA4544E4829ED51124A485120
F5FFF7F6F7FF9E9E9EFFFFFFFF00FFFFFF009F9F9FFFFFFEFEFFFBFAFAFFFEFD EA1D7690F240C48824880C9341219353A490056F437C4D0FB8CA9B882BEB40D3
FDFFFEFDFDFFFDFCFCFFFEFDFDFFFEFDFEFFFBFCFDFFF9FCFFFFF9FCFFFFF9FA 8D41C80B2E8198A51E522806391C0872C81FA4A31EC79E75D3BE22A843E4880D
FCFFFFFEFEFF9F9F9FFFFFFFFF00FFFFFF00969696C09F9F9FFF9E9E9EFF9E9E 8F40548482F60A82E67817B8F20EACBB3C03CB95878838D206E6260EDD83AEFF
9EFF9E9F9FFF9E9E9EFF9E9E9EFF9E9F9FFF9E9E9EFF9D9E9FFF9D9E9FFF9D9E 2E0C4F6E83DCA806B95583FC215A5788C1854743151505A5420275D55D684AAF
9EFF9F9F9FFF9E9E9EE1FFFFFF00FFFFFF000000002300000033000000330000 627DFB0B545EBA8F68F315C137B8EE81FC590FD26301E9AC01E9AAC1AE27BF80
0033000000330000003300000033000000330000003300000033000000330000 7C178CC4682538652C345132282B6E42557205E2AFAA71B8E50F28CBAE811485
0033000000330000002CFFFFFF004A7CA5004A7CA5004A7CA5004A7CA5004A7E F18BCF1F0472701B88DD0A5DDF05FA5E013046ABA1D770D0716AE85491882EBB
A7004A7EA8004A7EA8004A7EA8004A7EA800497DA7004579A400709BBE00B5D2 8E98E29F20DF7F06B94DB7A1AEB8C136EFA72B7BB238188A7EBAA666115255F1
EA00C3DAEF58CDE3F5FB3F75A1FF4B7CA6004A7CA5004A7CA6004A7EA8B04A82 D811AF83215107BD2E01DBB54A4498AF22B2F03222BEBD882FEBAE437BEC0E92
AEFF4A83B0FF4A83B0FF4A83B0FF4A83B0FF4A82AFFF447DA9FF709CBFFFB9D5 62B524398623EF15A4930FF2538567DECDE991A23760E7760392B6B3B31EC644
EBFFB3D1EAFFC1DBF2FF4279A5FF4F79AB004C7AA7004A7BA6004A7FACFF4438 0D14853F23BCE0221407CFC158D98E84EA2EC46B3892A0E688411547FC936DD8
31FF433B37FF433D38FF433D38FF433D38FF423B36FF3C332CFFB9DAF5FF7FB0 93B41399C664A42727232D6519233276EA213D429FFDD079C80E9C85B6F83CF4
DAFF5495CCFFC0DAEFFF467CA8FF009242005276AF004E77AB004D7BB0FF4C3D 966E701C2710AF51235E1D07AD5A0D8D5A03B5E61F34748C8B8B85D2B817F2DC
3BFF4A4343FF484544FF484644FF484644FF474542FF433C36FF5FA1D8FF5C9A 4648E9BE0BCF3F851DD65EBCC37FBBD14F9B9D159A6D9D3736F6093FFF3B1CEF
CCFF5896C9FFB8D3EBFF4980ACFF00904C00009147001A866E0017866DFF0096 533E67BDFE06A36DF6BD
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
end end

13
src/mainformunit.pas
View File

@ -9,12 +9,15 @@ uses
StdCtrls, ExtCtrls, Menus, Windows, fpExprPars, lazutf8; StdCtrls, ExtCtrls, Menus, Windows, fpExprPars, lazutf8;
type type
{ TMainForm }
TMainForm = class(TForm) TMainForm = class(TForm)
ExitMenuItem: TMenuItem; ExitMenuItem: TMenuItem;
ImageList16px: TImageList; ImageList16px: TImageList;
ResultMemo: TMemo;
ShowHideMenuItem: TMenuItem; ShowHideMenuItem: TMenuItem;
TrayPopupMenu: TPopupMenu; TrayPopupMenu: TPopupMenu;
ResultEdit: TEdit;
QueryEdit: TEditButton; QueryEdit: TEditButton;
TrayIcon: TTrayIcon; TrayIcon: TTrayIcon;
procedure ExitMenuItemClick(Sender: TObject); procedure ExitMenuItemClick(Sender: TObject);
@ -55,7 +58,7 @@ var
parserResult: TFPExpressionResult; parserResult: TFPExpressionResult;
begin begin
if length(QueryEdit.Text) = 0 then begin if length(QueryEdit.Text) = 0 then begin
ResultEdit.Text := '0,00'; ResultMemo.Text := '';
exit; exit;
end; end;
@ -68,10 +71,10 @@ begin
parser.BuiltIns := [bcMath]; parser.BuiltIns := [bcMath];
parser.Expression := UTF8StringReplace(QueryEdit.Text,',','.',[rfReplaceAll]); parser.Expression := UTF8StringReplace(QueryEdit.Text,',','.',[rfReplaceAll]);
parserResult := parser.Evaluate; parserResult := parser.Evaluate;
ResultEdit.Text := formatfloat('0.00', ArgToFloat(parserResult)); ResultMemo.Text := formatfloat('0.00', ArgToFloat(parserResult));
except except
on E: Exception do on E: Exception do
ResultEdit.Text := E.Message; ResultMemo.Text := E.Message;
end; end;
parser.Free; parser.Free;
end; end;
@ -79,7 +82,7 @@ end;
procedure TMainForm.QueryEditKeyPress(Sender: TObject; var Key: char); procedure TMainForm.QueryEditKeyPress(Sender: TObject; var Key: char);
begin begin
if Key = #13 then if Key = #13 then
QueryEdit.Text := ResultEdit.Text; QueryEdit.Text := ResultMemo.Text;
end; end;
procedure TMainForm.ShowHideMenuItemClick(Sender: TObject); procedure TMainForm.ShowHideMenuItemClick(Sender: TObject);