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

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

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

Разноцветные буквы. [D7, XP]

Quattro © (2006-05-10 14:48:00)
Добрый день! подскажите пожалуйста, как можно сделать разноцветные буквы в слове??...

Eraser (2006-05-12 21:07:00) [1]

> Quattro © (10.05.06 16:32) [2]
>
> Ну..обычное слово на буттоне

TJvHTButton из JEDI VCL.

Мефисто (2006-05-12 20:58:00) [2]
S: String; - с данной переменной уже можно рабоать, как с массивом + F1
Данный стринг просто достаточно пргнать в цикле...

>> и меням координаты и букву....верно?

Верно.
В том же цикле координаты меняем еще с учетом ширины символа фонта.

GetCharABC...
GetCharWidth...

Перед выводом новго символа не забываем менять атрибуты фонта канвы на нужные. Canvas.Font

Удачи в пеореваривании алгоритма.

P.S.
Рекомендуем библию которую можно найти в этой ветке:
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1146665803&n=7

Quattro (2006-05-12 16:51:00) [3]
Может быть это делается следующим способом?..допустим слово МИР..делаем цикл с процедурой BtnCnv.TextOut (x,y,string)
Slovo:Array [0..2] of Char = ('М','И','Р');
x=10;y=10 s:String
Begin
BtnCnv.TextOut(x,y,s)
end;
и меням координаты и букву....верно??

Algol (2006-05-12 15:23:00) [4]

> даже не знаю с чего начать...

начать - с наследования TButton...
а лучше книжку почитать ))

Der Nechk@ssoff (2006-05-12 15:22:00) [5]

> неужто это так сложно

Сложно.

Quattro (2006-05-12 15:01:00) [6]
Господа!!....неужто это так сложно?..подскажите , пожалуйста!...даже не знаю с чего начать...

Quattro (2006-05-10 17:10:00) [7]
хм...не могли бы вы подсказать примерный алгоритм...а то я что то не пойму как это "Рисует данную строку на канвасе начиная с координат (x,y) - фон текста заполняется текущим цветом кисти." может помочь в вопросе с разноцветными буквами....

Quattro (2006-05-10 16:32:00) [8]
Ну..обычное слово на буттоне...допустим, чтобы одна буква была белой , а остальные чёрными....и по таймерубелой будет становиться следующая буква, а предыдущая принимать исходный черный цвет...что то вроде бегающего пятна:)....вот пытаюсь понять, с чего вообще начинать....рисовать вручную это как?

Ega23 (2006-05-10 16:32:00) [9]

> рисовать вручную это как?

Это TCanvas.TextOut

Poirot (2006-05-10 14:51:00) [10]
1) RichEdit
2) рисовать самому :)
...
Остальные варианты после уточнений - где? чем пытались? о чём речь?

Наверх

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