Sujet Précédent Sujet Suivant

Une fonctionnalité...

ViB - 1 août 2001 à 13:19
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 16 juil. 2009 à 10:24
salut,

J'ai fais mes armes sur VB6, mais là, je débute sous deplhi.
Je voudrais savoir comment peut-on faire sous D6 pour trouver facilement (outre CRTL+F) la partie implémentation d'une procédure lorsqu'on est dans un projet (pas la partie Déclaration, ça, j'ai trouvé...)

Allez, merci et à bientôt :clown)

1 réponse

Réponse 1 / 1
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
16 juil. 2009 à 10:24
[hr]
  [b]public

    /b// Les méthodes des interfaces supportées

    procedure Execute;

    function GetIDString: string;

    function GetMenuText: string;

    //function GetName: string;

    function GetState: TWizardState;

    procedure Destroyed;

    (*constructor create; overload;*)

    function GetBindingType : TBindingType;

    function GetDisplayName : string;

    function GetName : string;

    procedure BindKeyboard(const BindingServices : IOTAKeyBindingServices);

  end;





[b]implementation

uses /bOTAUtils, Dialogs,

     HighLighters,

     HTMLClipBrd,

     UDialogEnh;



[b]var

  /bslCustomColors: TStrings;





  {external PathRelativePathToA in ShlwApi.dll}

  {http://msdn.microsoft.com/en-us/library/bb773740(VS.85).aspx}

function PathRelativePathTo(

  pszPath: PAnsiChar;  {Buffer de sortie (MAX_PATH (260) de taille minimum}

  pszFrom: PAnsiChar;  {Chemin où fichier de départ (MAX_PATH de taille max}

  dwAttrFrom: DWORD;   [i]{Détermine si pszFrom désigne

                          -un répertoire -> FILE_ATTRIBUTE_DIRECTORY

                          -où un fichier -> 0}/i

  pszTo: PAnsiChar;    {Chemin où fichier de déstination (MAX_PATH de taille max}

  dwAttrTo: DWORD):    {Idem que dwAttrFrom}

  BOOL; stdcall; external 'shlwapi.dll' name 'PathRelativePathToA';





{ retourne le code des touches pressées}

function GetKeyCode: Cardinal;

[b]begin

  /bResult :=  0;

   if  (GetAsyncKeyState(VK_CONTROL) and $8000)  = $8000 [b]then

    /bInc(Result, scCtrl);



  if (GetAsyncKeyState(VK_SHIFT) and $8000) =  $8000 [b]then

    /bInc(Result, scShift);



   if  (GetAsyncKeyState(VK_MENU) and $8000)  = $8000 [b]then

    /bInc(Result, scAlt);



  if (GetAsyncKeyState(VK_OEM_2) and $8000) =  $8000 [b]then

    /bInc(Result, VK_OEM_2);



   if  (GetAsyncKeyState(VK_4) and $8000)  = $8000 [b]then

    /bInc(Result, VK_4);



  if (GetAsyncKeyState(VK_5) and $8000) = $8000 [b]then

    /bInc(Result, VK_5);

end;

[hr]





[hr]@+Cirec

[hr]
                
                

    
        

    
            
        0
        
            
                
    

            



    

        
        
    


        

                

                    

        

    

        

            
        

    

    

    

        

    


    

    
    




    
Discussions similaires

                                                    

                
                    Souci de conf sur PhpMyAdmin
                    

                        
    
    

            

    


                        

                                                                                    syndrael -  

                            
                                                                                    gb66 - 
                        

                    

                    

                    

                        11 réponses
                    

                
            

                                                        

                
                    [PhpMyAdmin] Requêtes en signets: désactivé
                    

                        
    
    

            

    


                        

                                                                                    cs_mfaraday -  

                            
                                                                                    mfaraday - 
                        

                    

                    

                    

                        1 réponse
                    

                
            

                                                        

                
                    problème avec wampserver
                    

                        
    
    

            

    


                        

                                                                                    itslife -  

                            
                                                                                    jordane45 - 
                        

                    

                    

                    

                        6 réponses
                    

                
            

                                                        

                
                    phpMyadmin je n'arrive pas
                    

                        
    
    

            

    


                        

                                                                                    Georges97427 -  

                            
                                                                                    cod57 - 
                        

                    

                    

                    

                        1 réponse
                    

                
            

                                                        

                
                    problème phpmyadmin ?
                    

                        
    
    

            

    


                        

                                                                                    favella -  

                            
                                                                                    favella - 
                        

                    

                    

                    

                        1 réponse
                    

                
            

            
    
    





    

    



    






                        

                    

                


                

    


    







    

        Rejoignez-nous