J'ai des soucis avec Delphi8 ShellExecute...

Version imprimable

20/07/2004, 23h41
manu00

J'ai des soucis avec Delphi8 ShellExecute...

Bonjour les gens :D

comment ca va ?
Moi je continue mon bonhomme de chemin sur Delphi 8 .net
mais la j'ai qqles petits soucis.

D'abord avec :

Le ShellExecute... comme a mon habitude, je faisais:
ShellExecute(Handle,'Open',PChar('http://www.yahoo.fr'),nil,nil,SW_SHOW);

mais comme les pchar ne passent plus, j'ai adapté ça:
ShellExecute(handle,'Open','http://www.yahoo.fr','','',SW_SHOW);

A la compilation ca fonctionne... Mais par contre, lorsque je clique sur mon bouton qui doit m'ouvrir mon navigateur avec l'url, je n'obtiens RIEN du tout...

Donc mystere...

===============
Ensuite, le seconde mystere vient de la progressbar... Impossible d'en changer la couleur de fond...
Progressbar.color:=clWhite;
ca ne donne rien

Et dernier pépin:
===============
Les tabsheet... J'ai changé la couleur du pagecontrol, mais les tabs des tabsheets sont tjrs en gris... Alors j'ai lu toute la doc possible et inimaginable sur ce sujet et j'ai decouvert les OwnerDraw. en les mettant a TRUE et en mettant Tabsheet.canvas.color:=clwhite; je reste tjrs en gris...

Bref, Ze desespoir...

Alors pkoi est ce que j'ai toutes ces galères et comment les résoudre ?

Merci a vous tous !

M.

salut

les tabsheet prenne la couleur de fond du panel sur lequel il est posé
tu peut modifier les couleur mais c'est un compliqué si tu joue avec
les tabvisible

dans la version 6 de delphi
j'ete passe par un subterfuge afin de palier a cette erreur
je pense que celui-ci n'as pas ete modifier
ne pouvant pas le verifier a toi de me dire si le probleme
peut etre regle de cette facon
Code:

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 //cette declaration permet d'acceder a des propriete "Friends" du //TPageControl Implementation uses ... .... Type TMPageControl = class(TPageControl) End ; .... procedure Tform1.pagecontrole1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var TabText: string; P: TPageControl; OutRect : TRect; begin p := Control as TPageControl ; TabText := TMPageControl(P).Tabs[TabIndex]; // TabText := P.Pages[TabIndex].Caption; OutRect := Rect; InflateRect (OutRect, -3, -3); OutRect.Left := OutRect.Left + 3; if Active Then begin P.Canvas.Font.Color := clred ; end else begin P.Canvas.Font.Color := clBlack; end; DrawText (Control.Canvas.Handle, PChar (ExtractFileName (TabText)), Length (ExtractFileName (TabText)), OutRect, dt_Left or dt_SingleLine or dt_VCenter); end;
PS mon exemple ne change que la couleur de la fonte mais
cela n est pas compliqué de le modifié pour la couleur de
fond

@+ Phil

J'utilise ceci pour mettre en gras le caption et changer sa couleur de fond du TTabSheet actif.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.OngletsDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  S : String;
begin
  S := TPageControl(Control).Pages[TabIndex].Caption;
 
  with TPageControl(Control).Canvas do
    begin
      Font.Color := clBlack;
 
      if Active then
        begin
          Font.Style := [fsBold];
          Brush.Color := clWhite;
        end;
 
      FillRect(Rect);
 
      TextRect(Rect,Rect.Left + ((Rect.Right - Rect.Left) div 2 - TextWidth(S) div 2),Rect.Top + ((Rect.Bottom - Rect.Top) div 2 - TextHeight(S) div 2),S);
 
    end;
end;

:wink:

21/07/2004, 17h28
anapurna

salut

j'avait esaye cela mais tu as un soucis si tu utilise
la posibilite de cacher des onglet d'ou ma solution

@+ Phil
21/07/2004, 17h45
PyRoFlo

Ah ok je ne savais pas.

Dans mon cas je ne le permets pas donc je garde mon code :P
24/07/2004, 09h20
manu00

Merci pour vos reponses;

Malheureusement j'ai testé vos methodes et aucune ne fonctionne sous delphi 8..

Je pense que je v devoir repasser sous delphi 7

:( :( :(

M.
25/07/2004, 08h38
manu00

Bon, je suis repassé a Delphi 7 et tout fonctionne...

Merci 8)