1) нарисуй каждую цифру и букву нужного тебе шрифта (удобнее всего имхо в фотошопе), думаю нетрудно будет.
2) дальше надо писать программу... создаем тип
Код:
type
NeonFont = record
Symbol: Char;
View: TBitmap;end;
end;
var
Symbols: array [1..256] of NeonFont; //ну или сколько тебе символов
нуно...
Str: string;
// надо будет для массива по циклу картинки загрузить из файлов или откуда
// и надо Symbol: Char; каждому элементу массива назначить, ну это все цифры+буквы+другие символы которые в этом шрифте должны быть.
//и дальше пишем процедуру на событие On_Change компонента Edit:
procedure TForm1.Edit1Change(Sender: TObject);
var
a,b: integer;
begin
b:= 1;
while not (b > Length(Edit1.Text)) do
begin
a:= 1;
while a < 257 do
begin
If Symbols[a].Symbol = Edit1.Text[b] then
begin
Form1.Canvas.Draw(0,(b - 1) * 60,Symbols[a].View); { тут вместо 60
пишем ширину символов в пикселах. Поидее они должны быть все
одинаковой ширины.}
a:= 256;
end;
a:= a + 1;
end;
b:= b + 1;
end;
end;
Теперь тот текст который будешь вводить в Edit будет изображаться как раз таким шрифтом как ты хочешь на форме.
3) сорри если запоздал. Ну вроде не так уж и давно вопрос был...
4) сорри если ответ не совсем такой какого ждали. Но это форум программистов, ведь так?