Вопросы по 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]

1.

Можно ли вызвать стандартный progress bar

Можно:

  // Создаем прогрессбар
  myProgress := CreateWindow('msctls_progress32', '', WS_CHILD or WS_VISIBLE,
    250, 20, 300, 30, handleWnd, 0, HInstance, nil);
  // устанавливаем границы
  SendMessage(myProgress, PBM_SETRANGE, 0, MAKELPARAM(0, 100));

Вот так посылаем прогресс-бару сообщения:

...
      case LoWord(WParam) of
        BTN_ID: // По нажатию кнопки перед закрытием, отобразим Progress...
        begin
          for i := 0 to 100 do begin
            Sleep(50);
            SendMessage(myProgress, PBM_SETPOS, i, 0);
          end;
          PostQuitMessage(0);
          Result := 0;
        end;
...

Необходимые константы:

Const
  PBM_SETRANGE = WM_USER + 1;
  PBM_SETPOS = WM_USER + 2;
  PBM_STEPIT = WM_USER + 5;

2.

Ну всё также, загрузка/показ рисунка... ни где так примера и не нашел...

Вот тебе пример:

var 
  StaticWnd: HWND;
  ImLogo: HBITMAP;
...
   // Создаем статический контрол
   StaticWnd := CreateWindow('static', 'Test',
        WS_VISIBLE or WS_CHILD or SS_BITMAP or SS_CENTERIMAGE,
        100, 100, 500, 300, handleWnd, 0, HInstance, nil);
   // Грузим в битмап содержимое BMP-файла
   ImLogo := LoadImage(0, 'real_map.bmp', IMAGE_BITMAP, 0, 0,
        LR_LOADFROMFILE or LR_LOADMAP3DCOLORS or LR_LOADTRANSPARENT);
   // И посылаем стат. контролу сообщение об установке изображения
   SendMessage(StaticWnd, STM_SETIMAGE, IMAGE_BITMAP, ImLogo);

Насчет неизменяемого EDIT-а сейчас гляну...

Добавлено через 9 мин.
P.S. А, ну так не надо делать ES_READONLY, достаточно написать ничего не делающую оконную функцию:

var
  OldEditProc: Pointer;

function myEditProc(Window: HWND; AMessage: UINT;
         WParam: WPARAM; LParam: LPARAM): INT_PTR; stdcall;

begin
  Case AMessage of
    WM_CHAR: Result:=0;
    WM_LBUTTONDOWN: Result:=0;
    WM_RBUTTONDOWN: Result:=0;
  else Result:=CallWindowProc(OldEditProc, Window, AMessage, WParam, LParam);
  end;
end;

// и после создания EDIT-а подменить стандартную оконную функцию новой:

... // Здесь создаем myStatic

// и подменяем функцию окна
OldEditProc:=Pointer(SetWindowLong(myStatic,GWL_WNDPROC,LongInt(@myEditProc)));

[Snake_B]

Можно:

  // Создаем прогрессбар
  myProgress := CreateWindow('msctls_progress32', '', WS_CHILD or WS_VISIBLE,
    250, 20, 300, 30, handleWnd, 0, HInstance, nil);
  // устанавливаем границы
  SendMessage(myProgress, PBM_SETRANGE, 0, MAKELPARAM(0, 100));

Вот так посылаем прогресс-бару сообщения:

...
      case LoWord(WParam) of
        BTN_ID: // По нажатию кнопки перед закрытием, отобразим Progress...
        begin
          for i := 0 to 100 do begin
            Sleep(50);
            SendMessage(myProgress, PBM_SETPOS, i, 0);
          end;
          PostQuitMessage(0);
          Result := 0;
        end;
...

Необходимые константы:

Const
  PBM_SETRANGE = WM_USER + 1;
  PBM_SETPOS = WM_USER + 2;
  PBM_STEPIT = WM_USER + 5;

Всё вроде понятно... но вот прогресс бар не хотит работать... не знаю чему :-)

p.s. с jpeg'ом тоже разобрался... стандартно... но размер exe сразу за 250 кб перевалил..