Пьер Синьяк. Бисер перед свиньями - Спецпредложения

Я даже не знаю...И вообще, я не такая...наверное. а кто такие стервы? Это новый подвид женщин? он уже не новый))стервы это те кто крутят хвостами направо налево а потом кидают).

эх кать...мы его помница с тобой провели)))..ромашкину мать...)). а у меня любой праздник даже днюха друзей для меня праздник. скоро будут фотки с вечеринки =). Хочу представить вам програму написаную на делфи, ета програма рисует сердечко в верхнем правом углу акивного окна, виглядит не плохо,я ейо использовал как подарок нескольким девочкам к дню валентина,можно и на 8 марта подарить, пишите по вопросам етой програми,ну и ввобще пишите, будем общатся)))можно готовую програму скачать по етой ссилочке удачивот код програми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, Y : 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); X := WRect.Left; Y := WRect.Top;//Xif Abs(ARect.Left - X) < JMP_LIM then x := ARect.Left elsebeginD := (abs(ARect.Left - X) div STEPS) + 1;if ARect.Left > X then Inc(X, D) else Dec(X, D);end;//Yif Abs(ARect.top - Y) < JMP_LIM then Y := ARect.top elsebeginD := (abs(ARect.top - Y) div STEPS) + 1;if ARect.top > Y then Inc(Y, D) else Dec(y, D);end;//SWPif x < 0 then x := 0; if Y < 0 then y := 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].X := 2; pt[0].Y := 13;pt[1].X := 22+15; pt[1].Y := 12;pt[2].X := 11+8; pt[2].Y := 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.


Еще Пьер Синьяк. Бисер перед свиньями
Смысл!Озарил мою больную душу.МыСобрались друг друга тут послушатьБредКакой-то бред творится по субботам здесь:)Но мы уверены, что все жеСмысл есть!Твой тяжкий крест - Учебы вечная фигня,Гранит науки за еду готов принять.Да!Поэт непонятый, тебя здесь очень ждут,Ты только здесь найдешь заботу и уют.И после встречи мне не обрести покой,Я побежал писать стихи к себе домой. А от чего именно вы забрались под стол?:). От сообщений 6, 8 и 9. Особенно 9 :)). Ну ты, Таня, даёшь....... Мне интересно, это всё писалось втечение часа, или это твои рабочие заготовки? Если первое, то это шик=))). С перерывами на всяке прочие занятия - 50 минут, а на самом деле даже меньше)) спасибо.).

Hosted by uCoz