MINI WORDPAD
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
-
16 avril 2006 à 15:12
Delphi_Beginer - 5 déc. 2015 à 17:31
Delphi_Beginer - 5 déc. 2015 à 17:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37079-mini-wordpad
https://codes-sources.commentcamarche.net/source/37079-mini-wordpad
5 déc. 2015 à 17:31
21 avril 2006 à 18:47
sur son disque..
21 avril 2006 à 18:39
tien je vais tenvoyer un lien vers un tuto comment créer un texteditor avec delphi faut que je le cherche !
16 avril 2006 à 23:06
la messe est dite..
16 avril 2006 à 17:22
Idem comme f0xi l'a dit:
trop de fichiers inutiles.
Mais par dessus tout ce n'est pas une source en .NET
C'est encore une source en Pascal Objet qui est faussement marqué comme étant une source en .Net :-(
Et le niveau Initié est peut être un peut élevé ?
@+
Cirec
16 avril 2006 à 15:42
var s : string;
Reg : TRegistry;
begin
if ParamCount <> 0 then begin
S := ParamStr(1);
if FileExists(S) then begin
Richedit1.Lines.LoadFromFile(s);
statusbar1.SimpleText := s;
end;
end;
Reg := TRegistry.Create;
with Reg do begin
RootKey := HKEY_LOCAL_MACHINE;
if not KeyExists('SOFTWARE\CLASSES\.dje\Shell\Open\command') then
if OpenKey('SOFTWARE\CLASSES\.dje\Shell\Open\command',true) then
WriteString('',Application.ExeName + ' %1');
end;
Reg.Free;
with ComboBox2 do begin
Clear;
Items.Assign(Screen.Fonts);
end;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt,
StartPos,
ToEnd : Integer;
begin
with RichEdit1 do begin
if SelLength <>0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then begin
SetFocus;
SelStart :=FoundAt;
SelLength :=Length(FindDialog1.FindText);
end;
end;
end;
16 avril 2006 à 15:12
pas trés original tout ça ... c'est dommage.
de plus pense a regarder dans les tutos comment faire un zip pour codes-sources... parce que la y'a 11 fichiers inutiles.