- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
// основная функция запуска
func main($script){
//устанавливаем значение переменной
$caption = "гыыы кальулятор";
//грузим иконку
$calc_icon= library_load_icon(library_load("shell32.dll"),307);
//создаем окошко))
$main_window=gui_window("TCalc",$caption,$_WS_SYSMENU+$_WS_VISIBLE+$_WS_CAPTION,$_CW_DESKTOPCENTER,$_CW_DESKTOPCENTER,200,100,$calc_icon,0,0,"WindowFunc");
gui_control($main_window,"button","ok",201,$_WS_CHILD+$_WS_VISIBLE+$_BS_DEFPUSHBUTTON+$_BS_FLAT,152,16,32,16);
gui_control($main_window,"edit","2+7",202,$_WS_CHILD+$_WS_VISIBLE,2,15,130,15);
gui_control($main_window,"static","Ready",203,$_WS_CHILD+$_WS_VISIBLE,16,36,130,16);
//иконка в трее...
tray_icon($main_window,$calc_icon,"ГАЛЬГУЛЯТОР",$_NIM_ADD);
tray_icon_show_balloon($main_window,"[$caption] -> Startup","Добро пожаловать в программу\nСоздано с неизвестным языком (название не придумал)",4);
idle(); //перевод программы в режим ожидания
}
func WindowFunc($hwnd,$msg,$param,$id){ //обработка сообщений виндоуса
if($msg==$_WM_CLOSE){ //если крестик нажали
tray_icon($main_window,$calc_icon,null,$_NIM_DELETE); //удаляем иконку
close(); //выходим
}
if($msg==$_WM_COMMAND){ //если нажали кнопку
if($id==201){ //click ok //определяем ID //math_compiler - производить математические операции
$res=math_compiler(gui_get($hwnd,202)); //gui_get - получить текст
if length($res)==0 { //gui_set - установить текст
$res="[ERROR]";
tray_icon_show_balloon($hwnd,"[$caption] -> Ашипка","Нивазможна\nправирить текст!",2);
}else{
tray_icon_show_balloon($hwnd,"[$caption] -> Result",gui_get($hwnd,202)." = $res",4);
}
gui_set($hwnd,203,$res);
}
}
}
Vasiliy 21.04.2014 15:17 # +5
GovnoGovno 24.04.2014 04:17 # 0
)))
bormand 24.04.2014 05:24 # +1
LispGovno 24.04.2014 12:31 # 0
А почему ты ещё не тимлид? Работать админом - это как-то жостка.
guest 24.04.2014 12:35 # 0
3.14159265 24.04.2014 13:16 # +2
Га-га-га. Глубокий знаток s-a--m оценивает уровень познаний bormand a.
guest 24.04.2014 13:33 # 0
bormand 24.04.2014 13:42 # 0
guest 24.04.2014 20:31 # −4
bormand 24.04.2014 20:41 # +2
Сколько пафоса... Звучит так, как-будто тут в треде 10-20 оппонентов, бесперебойно наседающих на бедного sam'а. А на деле - оппонент всего один, да и написал он всего 1 коммент.
> рашкоблядям до сих пор печет
Причем здесь это? Тредом не промахнулся случаем?
guest 25.04.2014 12:54 # −1
Нет, не промахнулся. Таки печет, раз плюсуют.
bormand 24.04.2014 13:50 # +2
Спихнуть начальника отдела и отобрать у него весь геморрой с бумажками и общением с партнерами/клиентами? :)
Няхуй, няхуй... По крайней мере сейчас меня эта перспектива не особо радует.