Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.007 c
14-100437
dimich1978
2003-03-13 10:44
2003.03.31
Прикол


1-100235
and_sp
2003-03-18 12:11
2003.03.31
Сравнение каталогов


1-100259
Timur_2002
2003-03-18 17:45
2003.03.31
Отладка проекта, исп. компоненты без исходников


14-100385
Andrey
2003-03-11 11:12
2003.03.31
Можно ли считать программу своей


3-100161
Alexxxxx
2003-03-12 17:42
2003.03.31
Диаграммы в Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский