Самоучитель по Delphi 7 для профессионалов



              

Класс TBitmap - часть 5


var CardsDll : THandle;

BackBitmap : Graphics.TBitmap; 

initialization

CardsDll := LoadLibraryEx('cards.dll',0, LOAD_LIBRARY__AS_DATAFILE) ;

BackBitmap := Graphics.TBitmap.Create;

BackBitmap.LoadFromResourcelD(CardsDll, 64) ;

finalization

BackBitmap.Free;

FreeLibrary(CardsDll); 

end.

 Примечание

В Windows 95/98 эта динамическая библиотека — 16-разрядная, и работать так, как описано, не будет. Используйте библиотеку Cards.dll из состава Windows NT, 2000.

Аналогичным образом можно загрузить битовые карты для всей колоды. При показе карты, в зависимости от того, открыта она или закрыта, отрисовывается один из объектов TBitmap:

if Known then // карта открыта

Canvas.StretchDraw(ClientRect, FaceBitmap) 

else

Canvas.StretchDraw(ClientRect,BackBitmap) 

end;




Содержание  Назад  Вперед