Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

текст на TBitmap невыводится . . .

CiD © (2003-06-26 08:27:00)

точнее выводится но одной сплошной черной полосой, если вывод делать на канву image.canvas то все нормально, на TBitmap.canvas - все черной полосой
фрагмент проги:
BMP:= TBitmap.Create;
BMP.Width:=...
BMP.Height:=...
BMP.PixelFormat:=pf8bit;
....
BMP.Canvas.TextOut(0, 20, Str);
imgBMP.Canvas.Draw( 0, 0, BMP);
imgBMP.Canvas.TextOut(0, 10, Str);
BMP.Free;
так вод первый вывод дает черную полосу, установка размеров фонта названия, цвета - ничегго недают

Mihey (2003-06-27 22:26:00) [1]

>it`s work . . .

it work s:)

CiD (2003-06-27 08:00:00) [2]

thanks to ALL !

it`s work . . .

Mihey (2003-06-26 11:27:00) [3]

Ну да, в принципе, начальный цвет не предопределён и нужно залить это дело каким-нить цветом.

Fenik (2003-06-26 11:18:00) [4]

Ну я точно не выспался :))

Думкин © (26.06.03 09:15) - это я и имел в виду :))

Mihey (2003-06-26 11:18:00) [5]

2 Fenik:

>так вод первый вывод дает черную полосу, установка размеров фонта названия, цвета - ничегго недают

Гм...

Думкин (2003-06-26 09:15:00) [6]

Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.FillRect(.....);
Bitmap.Canvas.Font.Color := clGreen;
Bitmap.Canvas.TextOut(2,2,"dsfdsfsd");

Fenik (2003-06-26 08:54:00) [7]

> Fenik © (26.06.03 08:48)

Иди проспись, Колян.

Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.Pen.Color := clWhite;

Fenik (2003-06-26 08:54:00) [8]

> Fenik © (26.06.03 08:48)

Иди проспись, Колян.

Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.Pen.Color := clBlack;

Fenik (2003-06-26 08:48:00) [9]

Битмап изначально чёрный. И цвет текста чёрный.

Pen.Color := clWhite;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »