Вверх ↑
Этот топик читают: Гость
Ответов: 322
Рейтинг: 8
#1: 2020-04-29 12:46:43 ЛС | профиль | цитата
Всем привет.
Сделал себе калькулятор просчёта площадей различного материала для покраски. Постоянно нужно для работы.
Может кому пригодится.
Заранее спасибо за критику!!!
карма: 0

0
файлы: 1Калькуляторы.rar [2.2MB] [502]
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2020-04-29 13:42:43 ЛС | профиль | цитата
Dad2016, первое, что попалось на глаза - неистребимая любовь к лишним компонентам.

Add(MathParse,5553372,196,231)
{
MathStr="round(%1 * 3.14 * %2, 0.001)"
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 322
Рейтинг: 8
#3: 2020-04-29 14:00:25 ЛС | профиль | цитата
Tad писал(а):
неистребимая любовь

до этого момента не знал, что так можно.
Уже поправил.
Спасибо за пример.

Редактировалось 1 раз(а), последний 2020-04-29 14:14:51
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2020-04-29 16:17:07 ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2020-04-29 19:25:25
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#5: 2020-04-29 17:17:17 ЛС | профиль | цитата
Второй ChildGroupBox 50% лишних.
https://forum.hiasm.com/getfile/38993

Замена "," на "."
Add(MainForm,2953706,63,91)
{
Height=193
Caption="Замена , на ."
link(onCreate,2381354:doWork1,[(179,111)])
}
Add(Replace,8713522,189,119)
{
SubStr=","
DestStr="."
link(onReplace,302459:doText,[])
link(Str,14973923:Text,[(195,107)(171,107)(171,163)(146,163)])
}
Add(Edit,14973923,140,119)
{
Left=110
Top=20
Width=150
Font=[Courier,12,1,0,204]
Text="12,45"
link(onChange,2381354:doWork2,[])
}
Add(Edit,302459,238,119)
{
Left=110
Top=75
Width=150
Font=[Courier,12,1,0,204]
Text=""
}
Add(HubEx,2381354,175,119)
{
link(onEvent,8713522:doReplace,[])
}


Редактировалось 4 раз(а), последний 2020-04-29 19:24:54
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1Project22Dad.zip [154.6KB] [411]
Ответов: 16884
Рейтинг: 1239
#6: 2020-04-30 09:38:00 ЛС | профиль | цитата
Dad2016, загляни в личку (>200 лишних выбросил.)
Можно ещё выбросить: Загнать все картинки в матрицу, укоротить ChildGroupBox-ы и на MainForm оставить один общий компонент Image.
Ещё 25 компонент долой.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)