Решил я по быстрому слепить программу которая будет выводить на
битмап текстовую строку. И все бы хорошо, но столкнулся со следующим
глюком(привожу два фрагмента) в первом текст выводится непрозрачным
во втором все нормально, если кто догадался в чем дело, то очень хотелось бы услышать объяснение(компилилось все на D5)
(Фрагмент 1, не работает)
procedure TForm1.SaveAlToBitmapClick(Sender: TObject);
var
i : integer;
FBitmap : TBitmap;
myText : string;
begin
ListBox.Items.LoadFromFile('c:\users\cyril\cards\names.txt');
FBitmap := TBitmap.Create;
try
for i := 0 to ListBox.Items.Count-1 do begin
myText := ListBox.Items[i];
FBitmap.LoadFromFile('c:\users\cyril\cards\template.bmp');
FBitmap.Canvas.Font.Assign(FontDialog.Font);
SetBkMode(FBitmap.Canvas.Handle, TRANSPARENT);
FBitmap.Canvas.TextOut(0,0 , {myText}ListBox.Items[i]);
^^^^^^^^^^^^^^^^
FBitmap.SaveToFile('image'+inttostr(i)+'.bmp');
end;
finally
FBitmap.Free;
end;
end;
(Фрагмент 2, все работает как надо)
procedure TForm1.SaveAlToBitmapClick(Sender: TObject);
var
i : integer;
FBitmap : TBitmap;
myText : string;
begin
ListBox.Items.LoadFromFile('c:\users\cyril\cards\names.txt');
FBitmap := TBitmap.Create;
try
for i := 0 to ListBox.Items.Count-1 do begin
myText := ListBox.Items[i];
FBitmap.LoadFromFile('c:\users\cyril\cards\template.bmp');
FBitmap.Canvas.Font.Assign(FontDialog.Font);
SetBkMode(FBitmap.Canvas.Handle, TRANSPARENT);
FBitmap.Canvas.TextOut(0,0 , myText]);
^^^^^^^^
FBitmap.SaveToFile('image'+inttostr(i)+'.bmp');
end;
finally
FBitmap.Free;
end;
end;
[Win32] Delphi, Вывод прозрачного текста на битмап18.09.03 21:35 Автор: Killer{R} <Dmitry> Статус: Elderman
посмотри в сторону TCanvas::TextFlags и TCanvas::Brush::Style
а эти твои глюки возможно связаны с тем как компилятор генерит код. если уж юзаешь апи тогда и юзай их при выводе текста (TextOut есть и как простая апи ф-я)
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
