Главная страница
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.051 c
11-1217255928
andreil
2008-07-28 18:38
2010.08.27
TFileTime -> time_t


15-1266096606
Юрий
2010-02-14 00:30
2010.08.27
С днем рождения ! 14 февраля 2010 воскресенье


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


2-1270365241
Ms-R
2010-04-04 11:14
2010.08.27
поворот RECT


2-1273335534
alexandr
2010-05-08 20:18
2010.08.27
использование потоков для передачи строковой информации