Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.31;
Скачать: CL | DM;

Вниз

Не получается воспризвести в статусбаре графику   Найти похожие ветки 

 
Darts   (2003-01-31 15:10) [0]

Сам статусбар создается, работает без проблем. Не получается только вывести графику в нижеприведенном куске кода. Графика находится в ресурсном файле. Данный файл смотрел просмотрщиком - картинка там, все ОК. Бьюсь второй день, в чем проблема?


hBmp := LoadBitmap(HInstance, "ID_BITMAP1");
SendMessage(HWndSB, SB_SETTEXT, 2 or SBT_OWNERDRAW, Longint @hBmp));
DeleteObject(hBmp);


Вот полный код. Все ненужное выброшено.

function WindowProc(Window: HWnd; AMessage, WParam,
LParam: Longint): Longint; stdcall; export;
var
aWidths: array[0..3] of Longint;
hBmp: HBitmap;
begin

WindowProc := 0;

case AMessage of
wm_Create:
begin
// Create StatusBar
HWndSB := CreateStatusWindow(WS_CHILD or WS_VISIBLE or WS_BORDER or SBARS_SIZEGRIP,
"


 
Nick_N_A ©   (2003-02-01 07:15) [1]

VCL:У статус бара есть Style OwnerDraw, там в OnDrawPanel
отлично можно нарисовать какой хочешь, можно и через апи,
но сначало неплохо былобы обьяснить ему, что рисовать будешь ты,
ниаче рисовать будете вместе, а приоритет у него выше . . .



Страницы: 1 вся ветка

Текущий архив: 2003.03.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
3-100194
v.topalov
2003-03-13 15:58
2003.03.31
Подключение к БД


9-100133
Fog
2002-10-29 15:20
2003.03.31
Бэкгроунд


4-100507
diks
2003-02-02 08:08
2003.03.31
Отключение и включение клавы


1-100284
dimod
2003-03-19 12:50
2003.03.31
TListView видимость ItemFocused


4-100513
Rouse_
2003-02-02 16:56
2003.03.31
Закрытие приложения