probleme de skin

Question

Bonjour voila j'aimerai realiser un programme ki kand on passe sur le coter gauche sa ouvre un panneau . Pour cela j'ai tester la fonction suivant mais le probleme c'est qua chake fois tt les bouton ,.. sur ma form passe en dessou il faut repasser sur par exemple le speedbutton pour qu'il s'affiche et se cache de nouveau apres .

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if x<35 then
       begin
       panel1.Top:=135;
       panel1.Visible:=true;
       panel1.Left:=1;
       form3.show;
       bmp.LoadFromFile(extractfilepath(application.exename)+'fond1.bmp');


       form1.Canvas.Draw(0,0,bmp);
      //showmessage('ok');
      end else
              begin
              panel1.Visible:=false;
              form3.hide;
              bmp.LoadFromFile(extractfilepath(application.exename)+'fond.bmp');
              form1.Canvas.Draw(0,0,bmp);
               end;
end;

merci

ni69 · Answer

Le probl&#232;me ne se posera plus si tu mets ce code :
              bmp.LoadFromFile(extractfilepath(application.exename)+'fond.bmp');
              form1.Canvas.Draw(0,0,bmp);
non pas dans l'&#233;v&#233;nement OnMouseMove comme tu l'as fait, mais dans l'&#233;v&#233;nement OnPaint comme ceci :
procedure TForm1.FormPaint(Sender: TObject);
begin
 form1.Canvas.Draw(0,0,bmp);
end; 
(tu remarqueras que bmp.LoadFromFile(extractfilepath(application.exename)+'fond.bmp'); n'est pas pr&#233;sent dans cette procedure : je trouve pr&#233;f&#233;rable de charger simplement le bmp une fois au d&#233;but de l'appli, parce que le recharger &#224; chaque fois, &#231;a te fait perdre du temps...)


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

thone08 · Answer

heu j'ai du mla m'expliker . Pour le on paint j'avais effectivement deja effectuer cette tecnik mais ce ke je veux c'est que lorsque l'ont passe sur el coter gauche d ela fiche( c la qu'intervient le onmousemove ,...)  et bien l'image de fond change et devien la meme sans la partie qui est senser s'ouvrir( le fond.bmp ) puis si on kitte la partie geuche de la form il recharge l'image de fond d'origine (fond1.bmp) mais avec al tecnik draw a chake draw sa ecri par dessus.

J'ai essayer avec 
form1.brush.bitmap:=bmp; cependant l'image est bien charger mais elle ne change plus :(

Merci d'avance

JulioDelphi · Answer

as tu regarde mon lien ? c'est un composant de Spatul qui gere un panel ki se retracte ! il est genial =) esssaie le !

thone08 · Answer

Oui j'ai effectivement esssayer se matin mais il ma di kil manke un composant (je pense kil fo declarer celui joint ;) mais j'ai aps eu le tps de le faire j'essayerai surement ce soir) sinon pour mon probleme j'ai trouver uen maniere encore plsu simple je met une timage par dessu al forme que je fais disparaitre ou apparaitre ,.. Meric encore pour vos reponse et poru el composant sa a l'air pas mal ;)

Probleme de skin

4 réponses

Votre réponse

Discussions similaires