Игра "Ctrl+V"

[mixon-21]

Правила просты: Пишешь то что сейчас у тебя в буфере обмена (Ну или просто жмете Ctrl+V и отправляете!)

И не жульничать!!!=) и правил форума не нарушать

From Stilet: Тему перенес.

[Вадим Мошев]

Ага, и в "помощи студентам" ей самое место.
ИМХО, тему в топку.

[Xaker_Two]

iWidth.Left:=GameWindow.ClientWidth-(iWidth.Width+5);
iHeight.Left:=GameWindow.ClientWidt h-(iHeight.Width+5);
iAmmoPack.Left:=GameWindow.ClientWi dth-(iAmmoPack.Width+5);
iScores.Left:=GameWindow.ClientWidt h-(iScores.Width+5);
iName.Left:=GameWindow.ClientWidth-(iName.Width+5);
ProgressBar1.Left:=GameWindow.Clien tWidth-(ProgressBar1.Width+5);

сойдет? честно вот 5 мин назад закончил маятся игрулькой своей))

[Stilet]

Query1.Close;
Query1.DatabaseName:='БД';
Query1.SQL.Clear;
Query1.SQL.Text:='select * from Разделы where kmr<>0 order by nmr';
Query1.Open;
CheckListBox1.Clear;
while not Query1.Eof do begin
CheckListBox1.Items.AddObject(Query 1['nmr'], Query1.FieldByName('kmr').AsInteger );
Query1.Next;
end;
Query1.Close;
end;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
Query2.SQL.Text := 'select * from Документы where kmr='+
IntToStr(Integer(CheckListBox1.Item s.Objects[CheckListBox1.ItemIndex]));
Query2.Open;
CheckListBox2.Items.Clear;
while not Query2.Eof do begin
CheckListBox2.Items.Add(Query2.Fiel dByName('npmr').AsString);
Query2.Next;
end;
Query2.Close;
end;

[ROD]

← (откуда это там?!)

[Kix.IV]

‰PNG


IHDR   ФтЕњ
sRGB ®Ой pHYs Г Г
ЗoЁd tIMEЫ
&u*Q 
IDATHЗµ—ыo•хЗ_Пч9П№џУћћУЛйЅ”¶ґt* V€•)&Иж:YXЅ,и.&Х-М-Зd‰‹Й Л’Нў“eЉЋ1‚:+"LQЖ*P*ҐµҐ·sz=—зњз< ·эЂ3nСQќѕяЂплыю|>ЯOЮ_шЯљ¦Q ®(Qo”Ёw]'вщ^ЭМЎ›&Дbџ‹b1G-2°№<ДbЋЭ€ОпбФт*џЇЪkЭЂTMЂoЛ‚Ѕ6В ґ4>o АA,жp8ё
pфЪ8»_GШ¶Ћ®khzю3
I–eA{*°m]ЧЙЄ*¦iтѕыBаѕoя п3ПаЬСЌЫ¶MT5у9ы@¶mcї>hI’„ў(Із‰'MM rђ·oЯоЯєuлІДҐ[лмD\кEY\іЭ'izЋЋ.<;єQ>Х-ўD%b1G”ЁlЫ6ґИ•а
љy¤+V[[›
‡Гц*·ґПUФ°v]'ѕuќHє®СЮЋ*fSиF†Э/!iz
MO‘Н'йиВҐеUt]яПRN їx1Бю~TА±˜M,ЦЪЬЬф˜ЋЌ333¤УiVЇ^•пy неWЧЬЙМѓOgТ.Џ‹
_wИчяrпА%7КЕі8я
нЕrє±_©НqxИьpЩу П=чNр>@жрз¦M›bEбў;&&&РuќL:EOOЏSQ <kGП4н№|сќх>w^НтR·jцюK|УoXЯЂ\Ўв ?ЬН
—ORъµo`n©rTПќmmmХ@XФqxИqаАю1C7D >џ'™Lвсъ Р
Г3<|щЋЙIПЈ/њ ацДЅч{ѓ_Э}Ґзб0жЎ*`-@CЙ¦Е˜%mдя»мо»wњq(V ч56ФЯ6>ЗІ,6lША‘#G®\ДнdnnЮЉ„Ј-MµО© wVK9u37*(ъ™eMјча=њ^q3sїyЉьЫ°-+ѓѕxЋГЗWЯЯlb1*`*?)щV]]Ќ<77‡ў\и™™Y§"TU+џњљл4ф;oЯшЖШдcНљт“ЧVнЌё±сПkl+`п^Ьпѕлі-[У2©4ЉЛ…ф1“пgЬ КЂ€ў(Яхx<wUVVъВ‘ђфЦсc8].lS'ачs]лі±№.ф;ЖУЙДј-егѓ—ЖЊъъHџВX»кЏПЅwЛ©ЃЯї„uс"жЈЏ&“тGБУ¤х(QWљtH. +ZъЏ)}ц†x<^,р ›ЊљA ¦aPV‘HH)//WВБІІбPРЁ®®‘dЕSЁjОљt>Ъ|ъTSЩT"8{Ц ™rзг!щгЮ}љґи@h\Ќk**‹^H&УЛ¦§§k…ђ%S ПрыБЦЙй*NE01:вњљЋыL3™цz%[–u№ґ4”)) е\ІнRsОтY5X•HMхіУтцЏdЗЗ§’–ҐOґ¶^іYHBЋ–•’ХrdІ)Љ‚
‚……TT”*i љЧЙЌ‹ЛОNNN†#б¶АлуиЎP±ZRVCoп°»wp¤пЄр цД¦*д{уЇDИyу++nё6РІґA’Ћ°*ІЄ! бp1Ґeat‹`eнbЏ;а:~вL…·АЇZВeXМ§ЦX| ~*а\B\
юъуzvgЦ/bx¬,¶‘ш‹ГAQ(B ¤®®–Љт(Ѓ`ђуО(УІd ““3
еEЕз‹|К»ыzуђKE«jj«ЯRЬйSХҐМ;”)ц Н&®,¤еKШЫбDAcs“«$RTэ^fбь^ОхNтіЗ @$ўго;Ц·ЅЛWЏхм‹Ј+[ЇK$ТЩЙДо_нпкВUз6ЙY¬Ћ‡ИЈ”–Eук T_aЎ7URZ†eXґ47P-E IВќеї{z¬±љ¬®“юсѓG’c/ї|рhpПa»v‘qюу.Н>°evљаКV†W*hНЌ]8¶ъЖ%‡@M&sєҐ„¤ђЛ!ЦX1vћ™НчefO вO>ЕРЏ~НЙѓыР$ лЄeїчы.g¤cд$І†«1оТщ“§®††кДЕќ7Яvэ3зяЩkОО'ѕlf•
†iврHЊѕpgП>»ьKHчЬ№Sџ№яfЛЦёЄу‘ч p\x
w|€TI5Ћ5№UЛЇO”–D§ѓюХᴤЮУg+Ьѕ@є&2 є±{з7—•зYVgW6ци'*:Ы¦н~Ы6ІC3vнbЖ0
LУє:ьеЅ5е lh”ЭюEж У42™hUс|&›v5,m˜,
†Sзъ—;ј•ХsO^ёҐЌѕзшS?`Ћ0oKB"—ЛЈе3 q)„аgnыo(}ѓdЄWnй~¶ы¦жжEсP$ЁНN%]'Nњ^^яЖSЕIв~ЄZ^џwбn!Ъµ‹АсWwкm+лы ‚~ ›Л*K—.™*-y^{“r@v*К'ђСГы˜9ш6кҐбЮs5
Ч
&f07—4Е-лV?syЯYъrЅш4a3д†E“чДќЦеW!ЯШфЬґ qмШ[y}оh_Y-SiЃ0ђзҐO™tЭБ¦q妛И-Zґ№bяююm9ћјлОб#~?v @цо»“¦Льlї0љ¦aYљ–EУІdФyЪЧS¶m…¶ќ} ?яgtЦї вЎЎ
Tа IEND®B`‚

[Larboss]

Ой, ну ладно...

// Last 8 bits
    if (ACol >= 16) and (ACol <= 24) then
    begin
      max_col32 := 0;
      Stemp := NoxFontFile.BinIMG32[ARow];
      if (Stemp[(ACol + 1) - 16] = '0') and
        ((DrawORClear = 0) or (DrawORClear = 1)) then
        Stemp[(ACol + 1) - 16] := '1'
      else if ((DrawORClear = 0) or (DrawORClear = 2)) then
        Stemp[(ACol + 1) - 16] := '0';
      NoxFontFile.BinIMG32[ARow] := Stemp;
      i := 0;
    end;
    // Find "max position" of pixel
    for i := 0 to Length(NoxFontFile.BinIMG) - 1 do
    begin
      try
        Stemp := NoxFontFile.BinIMG[i];
        for j := Length(Stemp) downto 1 do
          if Stemp[j] = '1' then
            break;
      finally
        if j > max_col then
          max_col := j;
      end;
    end;

[Smogg]

void Form:aintEvent(QPaintEvent *)

смайлик какой-то вылез)

[Человек_Борща]

http://softline.ru/

[ACE Valery]

deleting.execute(index)