Вопросы по WinApi... Опции

[Snake_B]

"Вопросы по WinApi..."

Ковыряюсь во всяких справочниках... чего то ни фига не получается...
Если кто может подскажите, как сделать или где поглядеть пример...

1. CreateWindow ( 'STATIC', text', WS_CHILD or WS_VISIBLE, 30, 8, 500, 80, handleWnd, 0, hInstance, nil );
* как задать ему цвет
* сделать вертикальный скролл
* изменить шрифт (размер, цвет и сам шрифт)

2. Загрузить и показать рисунок (bmp и jpg)...

3. Изменить цвет border color...

4. обработка нажатия кнопки...

лучше всего пример...

[volvo]

а в edit'е можно сделать перенос строк? и как...

Легко... Но давай начнем с того, что тебе надо подкорректировать всю программу:

program WinApiTest;

uses
  Windows, Messages;

const
  myClassName= 'myWindow';

  BTN_ID = 200; // ID кнопки

var
  handleWnd, myButton, myLabel, myStatic: HWND;
  myFont: HFONT;

  WndClass: TWndClassEx;
  Msg: TMsg;

// Procedure & function >>
function WindowProc(Window: HWND; AMessage: UINT;
         WParam: WPARAM; LParam: LPARAM): INT_PTR; stdcall;
begin
  case AMessage of
    WM_COMMAND: // Здесь ловим ID нажатой кнопки
    begin
      case LoWord(WParam) of
        BTN_ID: // Вот он, значит, закрываем приложение
        begin
          PostQuitMessage(0);
          Result := 0;
        end;
      end;
    end;

    WM_DESTROY: // Ну, или закрыли крестиком или Alt+F4
    begin
      PostQuitMessage(0);
      Result := 0;
    end;

    else
      // Если ничего не отработало - то вызываем стандартную функцию
      Result := DefWindowProc(Window, AMessage, WParam, LParam);
  end;

end;

// Main Function
begin
  with WndClass do begin
    cbSize := SizeOf(WndClass);
    style := CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc := @WindowProc;
    cbClsExtra := 0;
    cbWndExtra := 0;
    hIcon := LoadIcon(0, IDI_APPLICATION);
    hCursor  := LoadCursor(0, IDC_ARROW);
    hbrBackground := COLOR_BTNFACE + 1;
    lpszMenuName := nil;
    lpszClassName := myClassName;
  end;
  WndClass.hInstance := HInstance;

  if RegisterClassEx(WndClass) = 0 then exit;

  // Создаем окно
  handleWnd := CreateWindow(myClassName, 'Caption...',
      WS_SYSMENU or WS_MINIMIZEBOX,
      100, 100, 600, 400,
      0, 0,
      hInstance, nil);

  ShowWindow(handleWnd, sw_ShowNormal);

  // В этом окне - кнопку ...
  myButton := CreateWindow('button', 'Close',
    WS_VISIBLE or WS_CHILD,
    10, 179, 275, 22,
    handleWnd, BTN_ID, hInstance, nil);
  // ... метку ...
  myLabel := CreateWindow('static', 'Text',
    WS_VISIBLE or WS_CHILD,
    20, 10, 60, 23,
    handleWnd, 0, hInstance, nil);

  // ... и Edit
  myStatic := CreateWindow('edit',
    PChar('Borland Studio Projects Borland Studio Projects '+
          'Borland Studio Projects Borland Studio Projects'+
          'Borland Studio Projects Borland Studio Projects '+
          'Borland Studio Projects Borland Studio Projects '+
          'Borland Studio Projects Borland Studio Projects'+
          'Borland Studio Projects Borland Studio Projects '+
          'Borland Studio Projects Borland Studio Projects '+
          'Borland Studio Projects Borland Studio Projects'+
          'Borland Studio Projects Borland Studio Projects '+
          'Borland Studio Projects Borland Studio Projects'),
    WS_CHILD or WS_VISIBLE or WS_VSCROLL or ES_MULTILINE,
    30, 25, 200, 100, handleWnd, 0, hInstance, nil );

  // Это для красоты - меняем шрифт
  myFont := CreateFont(
    -11, 0, 0, 0, FW_NORMAL, 0, 0, 0, DEFAULT_CHARSET,
    OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
    DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif'
  );
  SendMessage(myButton, WM_SETFONT, WPARAM(myFont), 0);
  SendMessage(myLabel, WM_SETFONT, WPARAM(myFont), 0);
  SendMessage(myStatic, WM_SETFONT, WPARAM(myFont), 0);

  UpdateWindow(handleWnd);

  while GetMessage (Msg, 0, 0, 0) do begin
    TranslateMessage (Msg);
    DispatchMessage (Msg);
  end;
end.

Посмотри, что я изменил, и что из этого получилось... А потом посмотрим, что делать дальше...