- 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
For i := 0 to 7 do
Begin
If ((iMass[i])[1] = dClick.xAlf) and (StrToInt((iMass[i])[2]) = dClick.yFlt) then
BegiN
cObject.Caption := '';
If (i = 1) or (i = 2) then
Begin
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier1.bmp');
Break;
End;
If i = 4 then
Begin
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier3.bmp');
Break;
End;
If i >= 5 then
Begin
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier2.bmp');
Break;
End;
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier'+IntToStr(i + 1)+'.bmp');
Break;
EnD;
End;
Мой высер. За неимением идей, больше ничего придумать не смог.
tr00_gr1m_doomster 15.01.2011 14:28 # −6
Govnocoder#0xFF 15.01.2011 14:32 # 0
tr00_gr1m_doomster 15.01.2011 14:34 # −1
Govnocoder#0xFF 15.01.2011 14:40 # 0
tr00_gr1m_doomster 15.01.2011 14:44 # −1
Анонимус 16.01.2011 09:13 # 0
Вы издеваетесь или пишете на пхп?)
gegMOPO4 16.01.2011 12:28 # +1
tr00_gr1m_doomster 16.01.2011 15:12 # 0
Анонимус 18.01.2011 08:08 # +6
это примерно как гоуту
еще никто не знал про MVC, про трехзвенную архитектуру, про паттерны и рефакторинг, текстовые терминалы "glass tty" подключались к мейн-фреймам по сериальному порту, но все уже значли что меджик наберы это калл.
tr00_gr1m_doomster 18.01.2011 09:47 # +3
bugmenot 18.01.2011 11:29 # +8
правильно, надо же как-то канализацию проектировать
gegMOPO4 15.01.2011 20:31 # +1
StriderMan 16.01.2011 00:12 # 0
bugmenot 16.01.2011 04:13 # +3
Govnocoder#0xFF 16.01.2011 18:49 # +2
guest 16.01.2011 20:33 # 0
Lure Of Chaos 17.01.2011 00:04 # 0
guest 16.01.2011 20:44 # 0
Сионисты.
Lure Of Chaos 17.01.2011 00:07 # 0
кстати-то, юзверей зарегено почти три тыщи, а активничает десятка два. Остальные - "мертвые души" т.н. "возмездия"?