Discussion :

[agh]

Bonjour ou bonsoir à tous,

Une image vaut mieux que de grands mots :



Le rectangle rouge est un TShape.
Je souhaiterai pouvoir le redimensioner à la souris au niveau des deux barres verticales (qui ne sont là que pour illustrer).

Quand c'est la barre de gauche, on change Shape.Left
quand c'est à droite, on change Shape.Width

Est-ce possible ? Si oui, comment faire ?

Merci

[Frederic]

Est-ce possible ?

Oui, tout est possible...

Quand c'est la barre de gauche, on change Shape.Left

Donc, on bouge la Shape a gauche ou a droite ?

quand c'est à droite, on change Shape.Width

Donc, on change sa taille ?

C'est ca que tu veux faire???


Frederic

PS: une question precise recoit des reponses precises...

[FWS]

Ce n'est qu'un idée mais bon..

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
var
  Form1: TForm1;
  AuthorizedReSize: Boolean;
  wX, yH: Integer;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 
  if (X >= Shape1.Width - (1)) or  (Y >= Shape1.Height - (1)) then begin
          Shape1.pen.color := $00A900E7;
          Cursor := crHSplit;
          AuthorizedReSize := True;
  end
  else begin
         Shape1.pen.color := clBlack;
         Cursor := crDefault;
         AuthorizedReSize := False;
       end;
 
  if (AuthorizedReSize) then begin
     Shape1.Width  := Shape1.Width  + (X) - (wX);
     Shape1.Height := Shape1.Height + (Y) - (yH);
  end;
 
end;
 
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  wX := X;
  yH := Y;
end;

Bon continuation.