Показать сообщение отдельно
  #9  
Старый 22.05.2015, 11:01
Аватар для Vayrus
Vayrus Vayrus вне форума
Исполняемый Ретровирус
 
Регистрация: 09.08.2008
Адрес: Umbrella Corporation
Сообщения: 743
Репутация: 1293
По умолчанию

Цитата:
Сообщение от angvelem
Ещё раз.
1. Имеем два битмапа. В первом картинка, второй буферный.
2. С первого копируем во второй.
3. После копирования выводим текст (во второй!).
4. Второй выводим на канву формы.
5. Возвращаемся к пункту 2.

Код:
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  S: string;
begin
  bm := TBitmap.Create; // создаем объект TBitmap
  fon := TBitmap.Create; 
  InitDraw;
  bm.Canvas.Font.Size := fontsize;
  bm.Canvas.Brush.Style := bsClear;
//
//********************************* ADDED
//Loading Background From File
  fon.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'bg.bmp');
//Draw Background To BM.Canvas
  bm.Canvas.Draw(0, 0, fon);
  //
//*********************************
  Timer1.Enabled := True; // включаем таймер
end;

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