Discussion :

[alheuredudejeuner]

bonjour

j'ai un soucis, mes forms enfants ne s'affiche pas complétement sous XP, si je masque la form par une autre alors le contenu apparait.

pour activer les theme

Code :

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

1
2
3
4
5
  {$IFDEF TG}
    TStyleManager.TrySetStyle('Lavender Classico');
    {$ELSE}
    TStyleManager.TrySetStyle('Iceberg Classico');
  {$ENDIF}

pour désactiver les thèmes

Code :

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

1
2
  if Pos(uppercase('XP'),uppercase(TOSVersion.ToString))>0 then
    TStyleManager.TrySetStyle('Windows');

themes desactivésn j'ai un page contrôle dans les onglets sont tronqués et les captions invisibles
pour lancer la form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  with TfEntreprises1.Create(Application) do
  begin
    cbTypeComptes.ItemIndex:=0 ;
    Caption := 'Fiche Entreprises ' +cbTypeComptes.Text;
    with CDSEntreprises1 do
    begin
      TypeCompte:=cbTypeComptes.Text;
      FiltreEntreprises('',fSelectBase );
    end;
    bExploitation.Visible:=true;
    dbeCpteExterne.Hint:='N° de compte chez le Client';
    Show;
  end;

dans le oncreate de la form

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TfEntreprises1.FormCreate(Sender: TObject);
var
  sl : TStringList;
  i: Integer;
begin
  with cdsEntreprisesFacturation1 do
  begin
    if UpdateBase then
    begin
      //mettre l'aide aux pays à jour
      sl := GetPays(dmVulcain.UIBdbVulcain);
      try
        DBcbPaysfacture.Items.Clear;
        DBcbPaysfacture.Items.Assign(sl);
      finally
        sl.Free;
      end;
    end;
  end;
  tsEntreprise.PageIndex:=0;
  tsAdresse.PageIndex:=1;
  tsFacturation.PageIndex:=2;
  tsContacts.PageIndex:=3;
  tsDocuments.PageIndex:=4;
  tsTaxes.PageIndex:=5;
  tsCommentaires.PageIndex:=6;
  tsCategories.PageIndex:=7;
 
  pgEntreprises.Pages[7].TabVisible := False;
  cbTypeComptes.ItemIndex:=0 ;
  tsEntreprise.Show;
 
{$IFDEF ChargeurCommun}
  pgEntreprises.Pages[2].TabVisible := False;
{$ENDIF}
 
end;

Une idée de ou est mon erreur

Cordialement

André Manin

Je développe sous seven et je n'ai ce problème que sous XP, je ne peux pas visualiser immédiatement mes tests.

[alheuredudejeuner]

j'avais mis la propriété OwnerDraw du page control à True, c'est réglé en déssactivant complétement les thèmes pour XP,
si quelqu'un à une ébauche de solution pour mon problème de fom je reste preneur.

merci de votre attention

André