[TimonWorld]

Smiley-PASTE!

Jetzt könnt ihr in jedem Forum über 100 SMLILIES einbinden.

Download:

ZIP (0,3 MB): http://www.timonworld.de/smileypaste.zip
EXE (0,8 MB): http://www.timonworld.de/smileypaste.exe



http://www.delphi-forum.de/viewtopic.php?t=27239

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

Zitat von vlees91:

gibts den qc gratis?

und was ist damit?

ich weiß ja net was qc heißt

QuellCode!

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

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

zusammenfalten · markieren

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!

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!

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!

Hi!

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

Ciao fkerber

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