Качественные копии часов ~ TAG Heuer

качественные копии часов Даа, это было прикольно -) даже не ожидал, что можно такое сочинить двух слов!Такие талантищи -). Это чудо-совпадение,или мои творения мысли этой компании так не будут замечаться. Саша ты чем? Неужели Кирилл не написал твое творение? Кирилл, ты его потерял?-). написал те,которые меня были.Саня,прости.если напишешь мне стихотворение:) (всмысле не мне, то которое ты писал, то выложу) :). каждого были свои планы на этот праздник кого то они проволились пришлось срочно их менять чьи то так остались неизменными так как вы провели этот день???)). эх кать...мы его помница тобой провели))). качественные копии часов .ромашкину мать...)). меня любой праздник даже днюха друзей для меня праздник. скоро будут фотки вечеринки =). Хочу представить вам програму написаную на делфи, ета програма рисует сердечко верхнем правом углу акивного окна, виглядит не плохо,я ейо использовал как подарок нескольким девочкам дню валентина,можно на марта подарить, пишите по вопросам етой програми,ну ввобще пишите, будем общатся)))можно готовую програму скачать по етой ссилочке удачивот код програмиprogram EM;//{$APPTYPE CONSOLE}usesWindows,Messages;const JMP_LIM 1;STEPS 6;varhandle Cardinal;imsg TMSG;r1,r2 Cardinal;pt array [0..2] of TPOINT;function WndProc (hwnd, msg, wparam, lparam Cardinal) Cardinal; stdcall;var ps TPaintStruct;hbr cardinal;AWnd Cardinal;ARect, WRect TRect;X, Integer;d Word;begincase msg ofWM_NCHITTEST качественные копии часов :beginresult := DefWindowProc(hwnd, msg, wparam, lparam);end;WM_TIMER :beginAWnd := GetForegroundWindow;if AWND hwnd then exit;GetWindowRect(AWnd, ARect);GetWindowRect(Hwnd, WRect); := WRect.Left; := WRect.Top;//Xif Abs(ARect.Left X) < JMP_LIM then := ARect.Left elsebeginD := (abs(ARect.Left X) div STEPS) 1;if ARect.Left > then Inc(X, D) else Dec(X, D);end;//Yif Abs(ARect.top Y) < JMP_LIM then := ARect.top elsebeginD := (abs(ARect.top Y) div STEPS) 1;if ARect.top > then Inc(Y, D) else Dec(y, D);end;//SWPif < then := 0; if < then := 0;SetWindowPos(hwnd, HWND_TOPMOST, x, y, 50, 50, SWP_NOSIZE);end;WM_PAINT :beginBeginPaint(hwnd, ps);hbr := CreateSolidBrush($0000FF);SelectObject(ps.hdc, hbr);//Rectangle(ps.hdc, 0, 0, 100, 100);FillRect(ps. качественные копии часов hdc, ps.rcPaint, hbr);SetPixelV(ps.hdc, 4, 6, $FFFFFF);SetPixelV(ps.hdc, 5, 5, $FFFFFF);SetPixelV(ps.hdc, 6, 4, $FFFFFF);DeleteObject(hbr);EndPaint(hwnd, ps);end;WM_SYSCOMMAND :case wparam ofSC_CLOSE SendMessage(hwnd, WM_DESTROY, 0, 0);elseresult := DefWindowProc(hwnd, msg, wparam, lparam);end;WM_DESTROY PostQuitMessage(0);elseresult := DefWindowProc(hwnd, msg, wparam, lparam);end;end;beginhandle :=CreateWindowEx(WS_EX_PALETTEWINDOW or WS_EX_CLIENTEDGE or WS_EX_TOPMOST or WS_EX_NOACTIVATE,'#32770','Demo',WS_OVERLAPPEDWINDOW,50,50,150,150,0,0,hInstance, nil);SendMessage(handle, WM_SETFONT,GetStockObject(ANSI_FIXED_FONT), 0);SetWindowLong(handle ,GWL_WNDPROC, Cardinal( @WndProc));SetWindowLong(handle, GWL_STYLE, GetWindowLong(handle, GWL_STYLE) and not WS_CAPTION and not WS_SIZEBOX);SetWindowPos(handle, 0, 100, 100, 50, 50, SW_SHOWNA);UpdateWindow(handle);;//CREATE RGNr1 := CreateEllipticRgn(2, 2, 22, 22);r2 := CreateEllipticRgn(2+16, 2, 22+16, 22);CombineRgn(r1, r1, r2, RGN_OR);DeleteObject(r2);pt[0].:= 2; pt[0].:= 13;pt[1].:= 22+15; pt[1].:= 12;pt[2].:= 11+8; pt[2].:= 31;r2 := CreatePolygonRgn(pt, 3, WINDING);CombineRgn(r1, r1, r2, RGN_OR);SetWindowRgn(handle, качественные копии часов r1, true);DeleteObject(r2);DeleteObject(r1);//END RGNSShowWindow(handle, SW_SHOWNOACTIVATE);SetTimer(handle, 0, 30, nil);while GetMessage(imsg, handle, 0, 0) dobeginTranslateMessage(imsg);DispatchMessage(imsg)end;end.

да...и когда тогда этот конкурс начнется...и что будет победителю?Оо. канешн детк...долно быть 10 человек....+2 рейтинга и 1 подарок.... 1.Тилочка ...ррр... Текилочка2.Milki [ Sexy Baby ] Way3.Мария |падший_ангел| Высоцкая. я была)все таки незабываемое было время... В краеведческом музее работают сразу несколько замечательных выставок. Фотовыставка "Машгородку - 50" перекочевала из ТЦ "Восток".

Ролик о качественные копии часов
Hosted by uCoz