G787
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как загрузить картинку в Image cxGrid-a ?
И опять сам себе помогу 
Процедура устанавливает транспарентную Png из cxImageList-а в колонку с cxImage
Код:
uses dxGDIPlusClasses, cxGeometry, cxGraphics ...
procedure SetRecordPictureFromImageList( ADataController: TcxCustomDataController;
AImageList : TcxImageList;
AImageIndex : Integer;
ARecordIndex : Integer;
AColumnIndex : Integer);
procedure Picture2Text(APNGImage: TdxPNGImage; var AValue: AnsiString);
var AStream: TMemoryStream;
begin
AStream := TMemoryStream.Create;
try
APNGImage.SaveToStream(AStream);
AStream.Position := 0;
SetLength(AValue, AStream.Size);
AStream.ReadBuffer(AValue[1], AStream.Size);
finally
AStream.Free;
end;
end;
procedure ExportBitmap(ABitmap: TBitmap);
var APNGImage: TdxPNGImage; AValue: Ansistring;
begin
APNGImage := TdxPNGImage.Create;
try
APNGImage.SetBitmap(ABitmap);
Picture2Text(APNGImage, AValue);
finally
APNGImage.Free;
end;
ADataController.Values[ARecordIndex, AColumnIndex] := AValue;
end;
var AExportImage: TcxBitmap;
begin
AExportImage := TcxBitmap.CreateSize(AImageList.Width, AImageList.Height, pf32bit);
AExportImage.Transparent := True;
try
AImageList.GetImage( AImageIndex, AExportImage );
ExportBitmap(AExportImage);
finally
AExportImage.Free;
end;
end;
|
|
Всего записей: 1035 | Зарегистр. 04-12-2005 | Отправлено: 12:49 02-08-2013 | Исправлено: G787, 21:00 02-08-2013 |
|
