[Overview][Classes][Index] |
Sets a custom stream as the underlying stream for BitmapData
Source position: bitmapresource.pp line 46
public procedure TBitmapResource.SetCustomBitmapDataStream( |
aStream: TStream |
); |
aStream |
|
The custom stream to use as the underlying BitmapData stream |
This method allows the user to use a custom stream as the underlying stream for BitmapData. This is useful when you want a TBitmapResource to be created from a bmp file for which you have a stream.
Sample code
This code creates a resource containing a bitmap
var aName : TResourceDesc; aRes : TBitmapResource; aFile : TFileStream; Resources : TResources; begin Resources:=TResources.Create; aName:=TResourceDesc.Create('MYBITMAP'); aRes:=TBitmapResource.Create(nil,aName); //type is always RT_BITMAP aName.Free; //not needed anymore aFile:=TFileStream.Create('mybitmap.bmp',fmOpenRead or fmShareDenyNone); aRes.SetCustomBitmapDataStream(aFile); Resources.Add(aRes); Resources.WriteToFile('myresource.res'); Resources.Free; //it destroys aRes as well. aFile.Free; end;
|
Resource data as a BMP stream |
|
|
Updates RawData stream. |