VR
Virtual Reality On-line   Hack-FAQ
Новости   |     Журнал    |    Хаkер   |     Магазин   |   Проекты
[   Вход    ]
[Kарта сайтa]
[ Download  ]
[  Конкурс  ]
[  Анекдоты ]
[  Ссылки   ]
[  Реклама  ]
[ Почтальон ]
[ О проекте ]






TopList
???: Как мне быстро очистить Canvas у Bitmap?

Очень даже просто, просто закрасить белым или другим цветом.

Canvas.Brush.Color := ClWhite;
Canvas.FillRect(Canvas.ClipRect);

???: Как написать тест внутри Bitmap с прозрачным фоном?

Для этого нужно просто выставить у Bitmap стиль закраски Brush.Style в bsClear

begin
 //Выставляем цвет текста
  Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;
//Выставляем прозрачную закраску
 Image1.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
 Image1.Picture.Bitmap.Canvas.TextOut(1, 1, 'Прозрачная надпись');

???: Как из иконки сделать Bitmap?

Вот тебе работающая процедура. Все функции используемые здесь мы уже проходили, поэтому я даже не буду приводить комментарии.

var
 Icon : TIcon;
begin
 Icon := TIcon.Create;
 Icon.LoadFromFile('Имя файла с исонкой');
 Bitmap.Height := Icon.Height;
 Bitmap.Width := Icon.Width;
 Bitmap.Canvas.Draw(0, 0, Icon);
 Icon.Free;
end;

???: Как можно рисовать картинку с прозрачным фоном?

Если ты хочешь нарисовать поверх картинки другую, в которой будет прозрачный фон, то можно написать так.

with Canvas do begin
//Устанавливаем режим копирования маски
    CopyMode := cmSrcAnd;
//Рисуем маску картинки. Пример маски смотри на рис 1.
    Draw(0, 0, FBitmask);
//Устанавливаем режим копирования картинки
    CopyMode := cmSrcPaint;
//Рисуем картинку. Пример картинки смотри на рис 2.
    Draw(0, 0, FBitmap);
  end;

Маска должна быть чёрно-белой. Белый цвет показывает прозрачность, а чёрный - непрозрачность. После копирования маски по методу cmSrcAnd можно рисовать картинку, и там где в маске белый цвет ничего копироваться не будет.
Logo
Рис 1. Маска
Logo
Рис 2. Картинка

Всё очень просто, нужно только знать, что происходит при бинарных операциях.



Copyright©: Horrific aka Флёнов Михаил
Design by FMk group©