Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

А как нарисовать в rxDBGrid TitleButton? [D7, WinXP]


AndrewVolkov ©   (2002-11-22 22:40:00) 

Уважаемые мастера. Помогите разобраться.

у него есть событие GetBtnParams(Sender: TObject; Field: TField;
AFont: TFont; var Background: TColor; var SortMarker: TSortMarker;
IsDown: Boolean);
где TSortMarker в 3 вариантах
TSortMarker = (smNone, smDown, smUp);

а как возможно туда вставить свои рисунки

Вот что я по этому нашел в unit RxDBCtrl

smUp: Bmp := GetGridBitmap(gpMarkUp);


function GetGridBitmap(BmpType: TGridPicture): TBitmap;
begin
if GridBitmaps[BmpType] = nil then begin
GridBitmaps[BmpType] := TBitmap.Create;
GridBitmaps[BmpType].Handle := LoadBitmap(HInstance, GridBmpNames[BmpType]);
end;
Result := GridBitmaps[BmpType];
end;

TGridPicture = (gpBlob, gpMemo, gpPicture, gpOle, gpObject, gpData,
gpNotEmpty, gpMarkDown, gpMarkUp);

const
GridBitmaps: array[TGridPicture] of TBitmap =
(nil, nil, nil, nil, nil, nil, nil, nil, nil);



Откуда он их подгружает???
Или как можно самому нарисовать то что хочешь, там где хочешь.


AndrewVolkov   (2002-11-23 12:24:00) [1]

в чьем ресурсном?
У этого модуля ресурсника нету :0
Я б рад подправить, не пойму откуда он берет эти рисунки.


Johnmen   (2002-11-23 02:09:00) [2]

Ройся в исходниках, найдешь ! Там несложно...Подправить еще проще...
А картинки лежат в ресурсном файле.


Наверх

Титульная страница Поиск, карта сайта Написать письмо