1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| if NO_RES <> 1 then begin
//libérer les anciens composants crées
for i:=0 to Length(Tabpage) -1 do begin
ListeThemes:=Tabpage[0];
for j := 0 to Length(ListeThemes)- 1 do begin
theme:=tst(ListeThemes[j]);
showMessage(format('%s',[theme.Name]));
theme.Free;
end;
end;
if Frm_searchDoc1.Cbox_ListeId.Items.Count mod 9<>0 then size:= Frm_searchDoc1.Cbox_ListeId.Items.Count div 9 + 1
else size:= Frm_searchDoc1.Cbox_ListeId.Items.Count div 9;
Frm_searchDoc1.lbl_NumPage.caption:=format('1/%d',[size]);
SetLength(Tabpage, size);
//affichage du chemin
Frm_searchDoc1.JvGHP_Path.LabelCaption:=Frm_searchDoc1.JvGHP_Path.LabelCaption+'/'+Theme_Parent;
showMessage('coucou');
Frm_searchDoc1.DrawTheme(Frm_searchDoc1);
//ajouter le shape de retour
if jvShBtn_themeParent<> nil then jvShBtn_themeParent.Free;
W:=Frm_SearchDoc1.pnl_SearchTheme.Width;
H:=Frm_SearchDoc1.pnl_SearchTheme.Height;
jvShBtn_themeParent:=JvShBtn.create(Frm_SearchDoc1.pnl_SearchTheme,W div 2,H div 8,Theme_Parent);
jvShBtn_themeParent.name:=format('ShBtn%s',[id]);
showMessage('coucou2');
end;
end; |
Partager