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

а как мне достать содержание этой строки?

var
  ListB1: HWND;
  i, len: integer;
  buffer: string;

...

  len := SendMessage(ListB1, LB_GETTEXTLEN, i, 0); // i - номер строки
  SetLength(Buffer, len); // достаточное место для хранения данных
  SendMessage(ListB1, LB_GETTEXT, i, integer(PChar(Buffer))); // получаем данные
...

Вот EXE-шник:  WinApi01.rar ( 9.33 килобайт ) Кол-во скачиваний: 373

(только там теперь по нажатию на кнопку отрабатывает ProgressBar и размер формы меняется, закрывать форму придется "крестиком")...

[Snake_B]

Вот EXE-шник:  WinApi01.rar ( 9.33 килобайт ) Кол-во скачиваний: 373

(только там теперь по нажатию на кнопку отрабатывает ProgressBar и размер формы меняется, закрывать форму придется "крестиком")...

спасибо, по листбоксу...
а прогрессбар в exe не показывает... уже тему поменял на стандартную и всё равно...
он в общем не сильно нужен...
но глюк интересный...

П.С. ещё одни вопросик нарисовался...

   
WM_DESTROY: begin
            if MessageBox(handleW1, 'Подтверждение...', 'хотите выйти ?',  
            MB_OkCancel+MB_IconAsterisk+mb_systemmodal)= idCancel then exit;
       PostQuitMessage(0); 
       Result := 0; 
end; // Ну, или закрыли крестиком или Alt+F4

После показа messageBox'а скрывается основная форма... а это не нужно...
можно это исправить?

Сообщение отредактировано: Snake_B - 12.05.2008 1:25