Jetzt im jeden Forum über 100 Smilies einbinden

[TimonWorld]

aktualisiert nicht autom., deswegen sind ein paar rubriken leer und deswegen ist es noch ncht fertig: es fehlen nur ein paar smilies!!!

[vlees91]

Zitat:

Zitat von vlees91

gibts den qc gratis?

und was ist damit?

[TimonWorld]

ich weiß ja net was qc heißt :roll:

[S2B]

QuellCode! :wink:

[alcaeus]

Das soll Quellcode heißen. Einige Leute hier haben gern den Quellcode einiger Projekte, damit sie sich die nach ihren eigenen Wünschen umbauen können.

Greetz
alcaeus

[TimonWorld]

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! :-D

[TimonWorld]

Die restlichen sachen musst man selber können, das ganze Projekt kann ich per E-Mail in ZIP verschicken wer also will muss mir pn schreiben!

[TimonWorld]

JETZT IST VERSION BETA 0.4 DA: Version Beta 0.4 (Setup) (0,8 MB): http://www.timonworld.de/sp-setup.exe

Einige Smilies wurden erweitert und ein Setup ist bei!

[fkerber]

Hi!

Wofür brauchst du das Setup?
Werden Einträge in der Registry vorgenommen?
Wird alles wieder sauber deinstalliert?

Ciao fkerber

[TimonWorld]

registry dinger werden erstellt!!! ist doch inno :wink: ! Ich glaube die werden auch wieder entfernt!´aba eigene von mir kommen nicht drinne vor nur die von inno!