Ich könnte ja per PN rübertun, aber eigentlich ist da nichts großes bei zu programmieren, denn am aufwendigsten war den TreeView zu bearbeiten:
Hier der Source (nur die wichtigsten Teile!):
Delphi-Quellcode:
uses Clipbrd;
type
procedure Button1Click(Sender: TObject);
function HoleKlammer(s1:string):string;
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
//Der Button kopiert den ausgewählten Beitrag:
procedure TForm1.Button1Click(Sender: TObject);
var copytext : string;
begin
copytext:='[IMG]'+holeklammer(treeview1.Selected.Text)+'[/IMG]';
Clipboard.AsText:=copytext;
end;
//Wenn ich was aus dem TreeView anklicke:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
webbrowser1.Navigate(holeklammer(treeview1.Selected.Text)); //Für die Vorschau!
end;
//Diese Funktion ist zum auslesen der '(' & ')' da!
function Tform1.HoleKlammer(s1:string):string;
var i,Lesen:integer;
s2:String;
begin
Lesen:=0;
for i:=1 to length(s1) do
begin
if s1[i]=')' then Lesen:=0;
if Lesen=1 then s2:=s2+s1[i];
if s1[i]='(' then Lesen:=1;
end;
result:=s2;
end;
Im TreeView musst du in den Klammern dann die Bildadresse eingeben!
