Discussion :

[castorcharly]

Bonjour à tous,

Il me semble avoir vu une propriété ou une méthode permettant de savoir si un control est totalement ou partiellement visible.
Par exemple dans un Tscrollbox, en mode exécution, pas en conception, si le composant dépasse la largeur de la fiche ...

J'espère être clair ?

C'est peut être aussi une API Windows, je ne sais plus. Pourtant il me semble bien avoir vu ça,

merci pour votre aide,

[ShaiLeTroll]

Sur le TTreeView, il y a une API pour rendre un élément visible, ou MakeFullyVisible sur une TForm, sur un TControl en général c'est moins sûr

Déjà, il faut récupérer la fenêtre au premier plan, si c'est ta fenêtre, il suffit de comparer la Position des ScrollBars par rapport au TControl
Si c'est une autre fenêtre, il faut en plus vérifier qu'elle ne recouvre pas partiellement le TControl

[castorcharly]

Bonjour Shai,

Oui, merci, mais ce n'est pas de ça que ma mémoire faisait état.
Mais, bon en 40 ans de dev et les neurones qui pètent au fur et à mesure, je fais peut être erreur.

En fait c'est plutôt un event qu'il me faudrait, je n'ai plus qu'a l'écrire pour gérer les contrôles, c'est pas compliqué.
Comme c'est balot de réécrire ce qui existe déjà, je demandais à tout hasard.

merci

[Paul TOTH]

Salut, cela ne me dit rien...le truc qui s'en approcherait le plus c'est peut-être IntersectRect() entre le BoundsRect du composant et le ClientRect de son parent

[castorcharly]

Bonjour Paul,

Oui, je vais regarder cette fonction, et voir si elle m'aide à détecter un chevauchement de région,

merci

[ShaiLeTroll]

Ah les régions, donc c'est GetClipBox qui fourni le rectangle contenant toute la zone devant être dessiné, la zone visible, donc si plus petite que la BoundRect, c'est qu'il n'est pas complèment visible.

[Andnotor]

Peut-être faisais-tu allusion à UIAutomation IsOffscreen.

J'ai fait un essai mais ce n'est pas concluant dans une ScrollBox.

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
uses UIAutomationClient_TLB;
 
function TForm1.IsOffScreen(aControl :TWinControl): boolean;
var
  Element :IUIAUtomationElement;
  RetVal  :integer;
begin
  with TCUIAutomation8.Create(nil) do
  try
    ElementFromHandle(pointer(aControl.Handle), Element);
    Element.Get_CurrentIsOffscreen(RetVal);
    Result := boolean(RetVal);
  finally
    Free;
  end;
end;

Sinon :

Code :

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

1
2
3
4
5
6
7
8
9
type
  TVisibility = (tvHidden, tvPartial, tvFull);
 
function GetVisibility(aControl, aContainer :TControl) :TVisibility;
begin
  if aContainer.ClientRect.Contains(aControl.BoundsRect) then Exit(tvFull);
  if aContainer.ClientRect.IntersectsWith(aControl.BoundsRect) then Exit(tvPartial);
  Result := tvHidden;
end;

[castorcharly]

Voilà des idées intéressantes, je vais potasser et tester de mon coté, avec vos propositions, je vais bien trouver un moyen de m'en sortir.

Merci