Discussion :

[Lia Mircea]

Bonjour,
J'ai cette Uni. Je veux utiliser moins de lignes, l'icône mise en place.

[kanzarih]

Bonjour,

Essaye d'ajouter cette procedure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure do_work(val:string);
var myini : TIniFile;
myIcon: TIcon;
rasp: string;
Filter: Word;
begin
  Filter:= 0;
  myIcon:= TIcon.Create;
  myini:=TIniFile.Create(ExtractFilePath(Application.EXEName) + 'Micoane.ini');
  rasp:=myini.ReadString('Default',val, '');
  myicon.Handle:= ExtractAssociatedIcon(hInstance, PChar(rasp), Filter);
  val.Picture.Icon:= myIcon;
  val.Hint:=ExtractFileName(rasp);
  val.ShowHint:=True;
  myIcon.Free;
  myini.Free;
end;

ton "TForm1.FormShow" devient alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormShow(Sender: TObject);
begin
 
  for i:=1 to 89 do
   begin
    do_work('img'+i);
   end;
 
end;

Bon Codage

[Charly910]

Bonjour,

@Kanzarih :

en ligne 7 tu veux dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   do_work('img'+IntToStr(i));

A+

Charly

[Lia Mircea]

Bonjour,
Procédure do_work(val:string); doit être écrit 89 fois?
FormShow procédure ne fonctionne pas à PageControl avec plus tabsheet

[kanzarih]

Bonjour Charly910,
Effectivement

Lia : Explique un peut! la procédure est utilisé dans une boucle "for" de 1 à 89! donc elle sera exécuté 89 fois.

[Lia Mircea]

Une erreur. Est-ce la vraie Unit.

[Lia Mircea]

Image de l'application

[SergioMaster]

Je pense que quelque chose comme ceci devrait fonctionner (non testé) , j'ai juste ajouté une boucle et un FindComponent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.FormShow(Sender: TObject);
var icolist: TStringList;
    i : word;
    Img : TImage; 
begin
  icolist:=TStringList.Create;
  try
  icolist.LoadFromFile(ExtractFilePath(Application.ExeName) +'icofile.sav');
  for i:=1 to 89 do
   begin 
     Img:=TImage(FindComponent('Img'+inttostr(i))); 
     img.Picture.LoadFromFile(icolist.Strings[i-1]);
     img.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[i-1]),'');
   end;  
  finally
  icolist.Free;
  end;
end;

[Lia Mircea]

M. SergioMaster,
J'ai essaye, et parfait.

Peut-être. comment passer une path icône dans iconfile,sav

[SergioMaster]

Peut-être. comment passer une path icône dans iconfile,sav

Je ne comprends pas la question

[Lia Mircea]

Voici un .pas:

procedure TForm1.btn6Click(Sender: TObject);

ne functionne pas.

[Lia Mircea]

Image de programme.
Botton OK Copiaza Icoana. Ne fonctionne pas

[ShaiLeTroll]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F.Strings[i]:=edt2.Text;

, cela ne provoquerait pas une Indice Hors Limite ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
idx = F.Add(edt2.Text);
if idx >= 0 then
  ShowMessage(F[idx]);

Sinon, je ne vois pas à quoi c'est ce code, tu crée une liste, tu ajoutes un élement puis tu libère la liste, étrange

[Lia Mircea]

Toute la procédure TForm1.btn6Click(Sender: TObject); doivent être supprimé, est erroné. Vouloir un pour copie Edit.Text en Icofile.sav
Parfois, mettre des messages, pour voir où le programme a été.

[SergioMaster]

Si i est ok , alors je pense que la demande c'est de sauvegarder le nouvel intitulé , donc faire un SaveToFile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.btn6Click(Sender: TObject);
var
  F: TStringList;
 i: Integer;
begin
   i:=cbb2.ItemIndex;
//   Clipboard.AsText:=edt2.Text; // inutile
   F:=TStringList.Create;
  try
     F.LoadFromFile(ExtractFilePath(Application.ExeName) + 'icofile.sav');
     F.Strings[i]:=edt2.Text;
     F.SaveToFile(ExtractFilePath(Application.ExeName) + 'icofile.sav');
  finally
     F.Free;
   end;
end;

[Lia Mircea]

Bonjour,
M. SergioMaster, J'ai essaye, et parfait.
Merci.