Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Знову питання пов'язаний з RichEdit! Знайти схожі гілки


Man In Red   (2001-12-16 14:31) [0]

Допоможіть, pleaaasse!
Коротше, на формі лежать: RichEdit1 і RichEdit2 і Timer.
У RichEdit1 є текст, а таймер кожну секунду виділяє по порядку по одному символу в тексті, копіює і вставляє в RichEdit2.
Як зробити, щоб коли виділився останній символ в рядку, таймер автоматично перекладав каретку на новий рядок в RichEdit1 і також ставив каретку на новий рядок в RichEdite2, і знову виділяв по одному символу по порядку до тих пір, поки символи не закінчаться?
Дякую заздалегідь!



KilkennyCat   (2001-12-17 01:48) [1]

було
Form1: TForm1;
a: longint;

реалізація

{$ R * .DFM}

procedure TForm1.Timer1Timer (Sender: TObject);
було
b: longint;
починати
inc (a);
b: = rxrichedit1.SelStart;
rxrichedit1.SelStart: = a;
rxrichedit1.SelLength: = 1;
if b = rxrichedit1.SelStart then БАСТАМАНЬЯНА!
end;

procedure TForm1.Button1Click (Sender: TObject);
починати
rxrichedit1.SelStart: = 0; // встановлюємо каретку в початок
rxrichedit1.SetFocus; // забираємо фокус у кнопки
timer1.Enabled: = true // запускаємо!
end;

Або я знову неправильно зрозумів? тоді питання поставлене некоректно.
У цього коду глюк - виділяє символ перекладу рядка. Щоб усунути, треба перевірити, чи не є следущий символ перекладом рядка і якщо так, то два рази інк (а)



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.03 c
4-22482
PONTIY
2001-11-01 10:06
2002.01.08
WinExec або ShellExecute


14-22356
дрімучий
2001-11-06 20:00
2002.01.08
Перешкоди в програмуванні .... Зубний біль!


1-22240
creepster
2001-12-16 19:20
2002.01.08
TButton


4-22496
Wic
2001-10-29 18:54
2002.01.08
Як дізнатися, що З'єднання встановлено?


4-22463
Dmitry Alferev
2001-11-01 23:38
2002.01.08
FindResource не знаходить ресурс





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська