|
#1
|
|||
|
|||
неоновые символы
если тема не сюда, переместите плз!
порекоммендуйте программу, где возможно либо писать такими символами (буквы, цифры и т.д.) или создавать такие символы. =неоновые. |
#2
|
||||
|
||||
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; 3) сорри если запоздал. Ну вроде не так уж и давно вопрос был... 4) сорри если ответ не совсем такой какого ждали. Но это форум программистов, ведь так? Последний раз редактировалось Zander_driver, 10.08.2008 в 04:03. |