プログラムコードの表示のためのスタイルシート編集
uses
Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var
sl:TStringList;
i:integer;
state:Boolean; // true in <pre>
begin
state := false;
sl := TStringList.Create;
try
for i := 0 to Memo1.Lines.Count-1 do
begin
if not state then
begin
if Length(Memo1.Lines[i]) = 0 then
begin
sl.Add('<br>');
continue;
end;
if Memo1.Lines[i][1] = '#' then
begin
sl.Add('<big><pre>');
state := true;
end
else
sl.Add(Memo1.Lines[i]+'<br>');
end
else
if (Length(Memo1.Lines[i])>0) and (Memo1.Lines[i][1] = '#') then
begin
sl.Add('</pre></big>');
state := false;
end
else
sl.Add(Memo1.Lines[i]);
end;
Clipboard.SetTextBuf(PChar(sl.Text));
finally
sl.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
pre タグのためのスタイルシートを設定した。
いろいろ試して、以下のようにした。
/* custom pre */
pre { padding: 1.5em;
color: #eeeeee;
font-size: 85%;
line-height: 97%;
background-color: #445577;
}