HTML редактор на Delhpi7.

[Alex2009]

Да ты не понял у меня ошибка Undeclared identifier: 'GetHTMLColor';
извени я просто еще не все знаю но учусь с охотой.

[Neeter]

А ты куда вставил эту функцию?
В самое начало программы, после {$R *.dfm}?
Так вот, если не туда, то поставь туда.

[Alex2009]

Нифига ее в var наверное нужно обьявить.

[Neeter]

Я ее там не объявлял, и это не обязательно для этой функции.
Посмотри весь код, который я написал у себя:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListBox1: TListBox;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    ColorDialog1: TColorDialog;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    FilePath: string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetHTMLColor(cl: TColor; IsBackColor: Boolean): string;
var
  rgbColor: TColorRef;
begin
  if IsBackColor then
    Result := 'bg'
  else
    Result := '';
  rgbColor := ColorToRGB(cl);
  Result := Result + 'color="#' +
  Format('%.2x%.2x%.2x',
  [GetRValue(rgbColor),
  GetGValue(rgbColor),
  GetBValue(rgbColor)]) + '"';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
  FilePath := ExtractFilePath(OpenDialog1.FileName);
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 cl: TColor;
 clFormat: string;
begin
 if ColorDialog1.Execute then
 begin
  cl := ColorDialog1.Color;
  clFormat := GetHTMLColor(cl, true);
  Memo1.SelText := clFormat;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 F: TextFile;
 tag: string;
begin
 AssignFile(F, ExtractFilePath(ParamStr(0)) + 'tag.ini');
 Reset(F);
 while Not Eof(F) do
 begin
  readln(F, tag);
  ListBox1.Items.Add(tag);
 end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 if ListBox1.ItemIndex <> -1 then
  Memo1.SelText := ListBox1.Items[ListBox1.ItemIndex];
end;

end.

Все работает.

[Alex2009]

Заработало а можно зделать чтобы вместо bgcolor или color был просто код цвета?

[Neeter]

Измени код функции на этот:

function GetHTMLColor(cl: TColor): string;
var
  rgbColor: TColorRef;
begin
  rgbColor := ColorToRGB(cl);
  Result := Result + '#' +
  Format('%.2x%.2x%.2x',
  [GetRValue(rgbColor),
  GetGValue(rgbColor),
  GetBValue(rgbColor)]);
end;

И замени код при нажатии кнопки выбора цвета на этот:

procedure TForm1.Button2Click(Sender: TObject);
var
 cl: TColor;
 clFormat: string;
begin
 if ColorDialog1.Execute then
 begin
  cl := ColorDialog1.Color;
  clFormat := GetHTMLColor(cl);
  Memo1.SelText := clFormat;
 end;
end;

[Alex2009]

Спасибо!!!Но ище последний вопрос а как сделать вот у меня есть меню ну к примеру нажымаю F2 и открывается Диалог открыть короче нужно зделать горячие клавишы.

[Neeter]

Там где создается меню(дизайнер), надо выбрать пункт меню, которому ты хочешь присвоить горячую клавишу, и изменить свойство ShortCut у этого пункта меню на то, которое тебе нравится, например F2.

[uberchel]

Вот! сделал пример небольшого HTML-редактора.
На комментарии не было времени, зато там есть всё, что тебе надо!

Горячие клавиши ставятся так:

procedure TMainForm.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F5 then 
{Твой код}
end;

Помог? если да, то нажмите на весы с лева =)

[Neeter]

В итоге ты сделал все то, что мы тут понаписали(даже подсветка синтаксиса с той ссылки, которую я выложил)
Только с сохранением большие баги.