![]() | | | ![img]() |
|
 | DRKB online - TXT ---> GIF |
|
|
| |
|
TXT ---> GIF
| delphi | procedure TxtToGif(txt, FileName: string);
var
temp: TBitmap;
GIF: TGIFImage;
begin
temp := TBitmap.Create;
try
temp.Height := 400;
temp.Width := 60;
temp.Transparent := True;
temp.Canvas.Brush.Color := colFondo.ColorValue;
temp.Canvas.Font.Name := Fuente.FontName;
temp.Canvas.Font.Color := colFuente.ColorValue;
temp.Canvas.TextOut(10, 10, txt);
Imagen.Picture.Assign(nil);
GIF := TGIFImage.Create;
try
// Convert the bitmap to a GIF
GIF.Assign(Temp);
// Save the GIF
GIF.SaveToFile(FileName);
// Display the GIF
Imagen.Picture.Assign(GIF);
finally
GIF.Free;
end;
finally
temp.Destroy;
end;
end; |
@Drkb::04281
Взято с Delphi Knowledge Base: http://www.baltsoft.com/ |
|
| | Количество статей: 4366 |
|
|
| |
|
| Статистика |
| | Сегодня | Всего |
| Посетителей | 424 | 10022316 |
| Запросов | 2458 | 449162074 |
| Online |
| Пользователей | 0 |
| Гостей | 12 |
|
|
|
Пуск
