Suche

Volltextergebnisse:

Delphi Snippets @archiv:coding:delphi

16 Treffer, Zuletzt geändert: vor 13 Jahren

trol: TWinControl; Icon: integer; Title: pchar; Text: PWideChar); const TOOLTIPS_CLASS = 'tooltips_c... ger; rect: TRect; hinst: THandle; lpszText: PWideChar; lParam: Integer; end; var hWn... or TTF_SUBCLASS; ti.hwnd := hWnd; ti.lpszText := Text; Windows.GetClientRect(hWnd, ti.rect); SendMessage(hWndTip, TTM_ADDTOOL, 1, Integer(@ti

QueryBlocker @archiv:coding:msl

9 Treffer, Zuletzt geändert: vor 17 Jahren

, 3 53 37 12 button "decline", 6, 99 53 37 12 text "Nick", 7, 6 13 16 8 text "Zeit", 8, 7 24 16 8 text "MSG", 9, 7 35 16 8 } on *:dialog:query_block:sclick:5: { .msg %glob.nic... query_edit:sclick:2: { if ($did(query_edit,5,seltext) == $null) { echo -a 4ERROR: no nick to add | ha

Server Manager @archiv:coding:msl

6 Treffer, Zuletzt geändert: vor 15 Jahren

og:serv_man:sclick:2: { if ($did(serv_man,1).seltext == $null) { echo -a 4ERROR: no server selected |... n,3).state != 1) { server $did(serv_man,1).seltext ;dialog -x serv_man } elseif ($did(serv_m... ).state == 1) { server -m $did(serv_man,1).seltext ;dialog -x serv_man } } dialog serv_man { ... log:serv_edit:sclick:2: { if ($did(serv_edit,5).text == $null) { echo -a 4ERROR: no server to add | h

Bomben Script @archiv:coding:msl

5 Treffer, Zuletzt geändert: vor 15 Monaten

f /.timerbombreset 00:01 1 1 /bombreset } on 1:text:!bombkick:#:{ if ( $me isop $chan ) /bombkick $nick } on 1:text:!bombstats:%atsbombchan:{ if ( %bombstats [ $+ ... /set -u180 %bombchan [ $+ [ $$1 ] ] $chan } on 1:text:!rot:#:{ if ( %bombkick [ $+ [ $nick ] ] = on ... mit %bombtopn Explosionen !!! } } } } on 1:text:!grün:#:{ if ( %bombkick [ $+ [ $nick ] ] = on