Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Я работаю над написанием простого html-редактора. Редактор дописан, все работает, хотелось бы еще прикрутить к нему среди прочих функций быстрой вставки тегов функцию вставки шестнадцатеричного кода выбранного цвета, как это реализовано во многих коммерческих редакторах, например, в Blumental's HTML Pad (скриншот для примера в приложении).
Можно ли (и как) реализовать что-то подобное средствами Делфи? TColorDialog подойдет ли для этого? И как тогда заставить выполнять его именно эту функцию? Нужна только вставка кода в поле редактора в формате "#HHHHHH" и ничего более. Если это возможно, помогите каким-нибудь примером или исходником, пожалуйста.

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задала: Roxanne (статус: Посетитель) Вопрос отправлен: 26 мая 2009, 20:12 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Roxanne!
Можно, всё можно. К сожалению, Вы не написали, что вы используете для редактора, поэтому я применяю мемо. Но для других компонентов это будет работать с минимальными переделками. Для начала понадобиться функция для вставки текста в редактор. Она будет выглядеть так

procedure TForm1.InsText(s: string);
var i:integer;
begin
  i := Memo1.SelStart;//запомним где курсор
  Memo1.SelText:= s;//собственно вставка
  Memo1.SelStart:= length(s)+i;//разместим курсор за тектом
  Memo1.SetFocus;//и передадим фокус в мемо
end;

procedure TForm1.decorate(start, stop: string);
var i:integer;
    s:string;
    b:boolean;
begin
  b := Memo1.SelLength <> 0;
  i := Memo1.SelStart;
  s := start + Memo1.SelText + stop;
  Memo1.SelText := s;
  if b then
     Memo1.SelStart:= length(s)+i
  else
     Memo1.SelStart := i + length(start);
  Memo1.SetFocus;
end;
 
procedure TForm1.addtag(atag: string);
begin
  decorate('<'+atag+'>','</'+atag+'>');
end;

if ColorDialog1.Execute then
    InsText('#'+IntToHex(ColorDialog1.Color, 6));

Ответ отправил: Вадим К (статус: Академик) Время отправки: 26 мая 2009, 23:31 Оценка за ответ: 5 Комментарий к оценке: Спасибо, Вы мне очень помогли!

Мини-форум вопроса

Roxanne (статус: Посетитель), 27 мая 2009, 00:01 [#1]: Благодарю Вас, Вадим! Для написания я использовала SynEdit, но ничего, постараюсь это перекроить под него. Спасибо за подробное объяснение!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.