графическое приложение (с API-функций)

[diliana]

Всем привет!!!
У меня задание
С помощью API-функций создать графическое приложение

[counter]

ну вот как то так в WM_PAINT

           HPEN hPen;
           hPen=CreatePen(PS_SOLID,5,RGB(0xff,0x00,0x00));
           SelectObject(hDC,hPen);
	Rectangle(hDC,0,0,50,50);
	hPen=CreatePen(PS_DASH,2,RGB(0x00,0xff,0x00));
	SelectObject(hDC,hPen);
	Ellipse(hDC,60,0,90,30);

http://vsokovikov.narod.ru/New_MSDN_..._simpl_ogl.htm

[0nni]

program Project3;
uses
  windows,  messages;//интерфейсные модули
{$R *.RES}
var
  MyWin: HWND;//переменная-дескриптор главного окна
  MyDC: HDC;// переменная-дескриптор сист.типа HDC

//оконная функция
function WindowFunc(MyWin: HWND; Mess,wParam,lParam: longint):longint; export; stdcall;
var ps : TPaintStruct;
    i : Integer;
    Pen : HPEN;
    brush : HBRUSH;
begin
  WindowFunc:=0;
  case Mess of
   WM_DESTROY: begin //обработчик сообщения
               PostQuitMessage(0);
               Exit;
               end;
   WM_Paint: begin //обработчик события
              BeginPaint(MyWin, ps);
                for i := 0 to 9 do
                begin
                  Pen :=  SelectObject(ps.hdc, CreatePen(PS_SOLID, 1, Random($ffffff + 1)));
                  brush := SelectObject(ps.hdc, CreateSolidBrush(Random($ffffff + 1)));
                    Ellipse(ps.hdc,
                      100 + i * 5,
                      100 + i * 5,
                      200 - i * 5,
                      200 - i * 5);
                  DeleteObject( SelectObject(ps.hdc, brush));
                  DeleteObject( SelectObject(ps.hdc, pen));
                end;
              EndPaint(MyWin, ps);
             end;
  else //<<туту была еще ошибка DefWindowProc не всегда нужно вызывать
  //вызов стандартного системного обработчика
  WindowFunc:=DefWindowProc(MyWin, Mess, wParam, lParam);
  end;
end;

//основная функция приложения
procedure WinMain;
var
  Mess: TMsg;//переменная-сообщение
  MyWClass: TWndClass;//переменная для описания оконного класса
begin

  MyWClass.lpfnWndProc:= @WindowFunc;//поле-адрес оконной функции
  MyWClass.lpszClassName:= 'MyClass'; //поле-имя оконного класса
  MyWClass.lpszMenuName:= nil;//поле-меню
  MyWClass.hCursor:= LoadCursor(0,IDC_ARROW);//поле-тип курсора
  MyWClass.hbrBackground:= Hbrush (COLOR_WINDOW);//поле-фон окна
  MyWClass.hIcon:= LoadIcon(0, IDI_ASTERISK);//поле-пиктограмма
  MyWClass.Style:= cs_VRedraw OR cs_HRedraw OR cs_DblClks;
  MyWClass.cbClsExtra:= 0;
  MyWClass.cbWndExtra:= 0;
  MyWClass.hInstance:= hInstance;//заполняем структуру типа TWNDCLASS
  // регестрируем класс окна
  if RegisterClass(MyWClass)=0 then Exit;//если неудачная регистрация
  //создаем главное окно
  MyWin:= CreateWindow('MyClass', 'Простое окно на API',
                         WS_OVERLAPPEDWINDOW,
                         100, 100, 400, 400, 0, 0,
                         hInstance, nil);

  ShowWindow(MyWin, CmdShow);//вывод на экран главное окно
  UpdateWindow(MyWin);
  while GetMessage(Mess, 0, 0, 0) do//цикл обработки сообщений
    begin
     TranslateMessage(Mess);
     DispatchMessage(Mess);
    end;
end;

BEGIN
  WinMain;//запуск приложения
END.

[0nni]

упс :D дубль получился.
counter, а уничтожать кто все это будет?

[diliana]

0nni
спасибо Вам большое!!!!!!!!

[0nni]

Сообщение от diliana

0nni
спасибо Вам большое!!!!!!!!

Если нужны комментарии, отпишись.

[Stilet]

diliana

Скачай себе APIx 2 - Visual WinAPI и кидь в нем на языке Делфи в чистом WIN API

[diliana]

Сообщение от 0nni

Если нужны комментарии, отпишись.

приветик 0nni Комментарии очень даже нужны...

Сообщение от Stilet

Скачай себе APIx 2 - Visual WinAPI и кидь в нем на языке Делфи в чистом WIN API

Stilet
???
я ничего не поняла...

[Stilet]

diliana

Есть такая программа. Называется APIx. Это среда разработки а-ля Делфи (см. скрин в приложении). Вот с помошью нее можно получить код на языке Делфи на чистом Win API. Потом компилируешь полученный код в делфи и радуешся.

[Alter]

Оно ведь http://piddlesoft.narod.ru/prj/apix/index.html