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

Вообще-то когда работаешь с PChar, надо быть осторожнее... Лучше сделай так:

function ChangeDirectory(): String;
var 
  TitleName : string; 
  lpItemID : PItemIDList; 
  BrowseInfo : TBrowseInfo; 
  DisplayName : array[0..MAX_PATH] of char;
  TempName: Array[0 .. MAX_PATH] of char;
begin
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := form1.Handle; // ну, или что там у тебя ...
  BrowseInfo.pszDisplayName := @DisplayName;
  TitleName := 'Please specify a directory';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
        if lpItemId <> nil then begin
            SHGetPathFromIDList(lpItemID, TempName);
            result := strpas(TempName);
            GlobalFreePtr(lpItemID);
        end;
end;

Сообщение отредактировано: volvo - 16.05.2008 22:41

[Snake_B]

Новый вопросик... и мне кажется он где-то близко к progressbar'у...

procedure ChangeLPB(value: integer); 
var 
i: integer; 
s: string; 
begin 
s:=' '; 
for i := 0 to value do s:=s+'|';
s:=s+' '; 
SetWindowText( mS2, PChar(s)); 
end;

................

  // создаю текст...
  mS2:= CreateWindow('STATIC', '', WS_CHILD or WS_VISIBLE or WS_BORDER + es_readonly,
    6, 180, 308, 21, handleW1, 0, hInstance, nil ); 
  SendMessage(mS2, WM_SETFONT, WPARAM(mF3), 0);

   for i := 0 to 99 do begin
   Sleep(50);
   ChangeLPB(i);
   end;

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

как дать команду отрисовать текст пред for...