Не получается воспризвести в статусбаре графику [D5]
Darts © (2003-01-31 15:10:00)
Сам статусбар создается, работает без проблем. Не получается
только вывести графику в нижеприведенном куске кода. Графика
находится в ресурсном файле. Данный файл смотрел просмотрщиком -
картинка там, все ОК. Бьюсь второй день, в чем проблема?
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:00) [1]
VCL:У статус бара есть Style OwnerDraw, там в OnDrawPanel
отлично можно нарисовать какой хочешь, можно и через апи,
но сначало неплохо былобы обьяснить ему, что рисовать будешь
ты,
ниаче рисовать будете вместе, а приоритет у него выше . .
.
Наверх 
ЧАТ |
Орешник |
|
