Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Прозрачный bmp в RXdbgrid   Найти похожие ветки 

 
Spot   (2010-02-15 09:25) [0]

Как вывести прозрачный bmp в RXDbgrid
Рисую так:procedure TfMain.GrtekDrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 Im1: TBitmap;
 grsndr:trxdbgrid;
begin
 grsndr:=sender as trxdbgrid;
 Im1 := TBitmap.Create;
With grsndr.Canvas do
 begin
   case DM.DSzakazy.DataSet.FieldByName("sost").AsInteger of
     40: Font.Color:=CLred;
     41,42: Font.Color:=CLblue;
     43,44,45,46: Font.Color:=clgreen;
   end;
   if (gdSelected in State)
   then Brush.Color:=$ccffff
   else brush.Color:=clWindow;
   if (Column.FieldName = "vid") and (Column.Field.Text<>"")then
   begin
     FillRect(Rect);
     ILicons.GetBitmap(DM.DSzakazy.DataSet.FieldByName("imageindex").AsInteger, Im1);
     BrushCopy(Bounds(Rect.Left, Rect.Top, Im1.Width,
       Im1.Height), Im1, bounds(0, 0, Im1.width, Im1.height), clWhite);
     TextOut(Rect.Left+Im1.Width, Rect.Top+2, Column.Field.Text);
   end
   else
   begin
     FillRect(Rect);
     TextOut(rect.Left+2,rect.Top+2,Column.Field.Text)
   end;
 end;
end;


 
KilkennyCat ©   (2010-02-15 23:08) [1]

такая куча кода, а цвет прозрачности не устанавливается.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.087 c
15-1275769777
Юрий
2010-06-06 00:29
2010.08.27
С днем рождения ! 6 июня 2010 воскресенье


8-1204132089
AntonUSAnoV
2008-02-27 20:08
2010.08.27
Хочу сделать не знаю как ...


2-1273239423
Алексей 123
2010-05-07 17:37
2010.08.27
Как переопределить DoMouseLeave у потомка TCustomControl?


15-1265835502
Petr V. Abramov
2010-02-10 23:58
2010.08.27
реклама в инете


2-1265831068
сало-масло-колбаса
2010-02-10 22:44
2010.08.27
Как отобразить не свызанные записи в таблице