[D7] Checkbox dans un Timage

Version imprimable

Bonjour,

j'ai créé une Classe THorlogeGraph dérivée d'un Timage sur laquelle je dessine dans un timer et je voudrais y afficher aussi un TCheckBox (et un TEdit ensuite). Je précise que je ne dessine pas dans la partie ou je veux afficher le CheckBox. :
Code:

1 2 3 4 5 6 7 Type THorlogeGraph = Class( TImage ) Private { Déclarations privées } FTimer : TTimer; FAlarm : TCheckBox ; ...
Dans le create, je créé la CheckBox, mais elle n'apparait pas à l'écran (je n'arrive pas à affecter le parent car Delphi veux un TWinControl et non un THorlogeGraph ) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 { ==================================================================== } Constructor THorlogeGraph.Create( Aower : TComponent ); Begin Inherited; FTimer := TTimer.Create( self ); FTimer.OnTimer := Affiche; // Dessine sur le Canvas de THorlogeGraph ... FAlarm := TCheckBox.Create(Self); // FAlarm.Parent := Self ; // Fonctionne pas Falarm.Caption := 'Set Alarm' ; FAlarm.Checked := True ; FAlarm.visible := True ; FAlarm.Top := 120 ; FAlarm.Left := 20 ; FAlarm.Width := 60 ; FAlarm.Height := 20 ;
merci pour vos lumières !

A+
Charly

01/09/2023, 15h50
ShaiLeTroll

Un GraphicControl ne peut pas être parent d'un TWinControl
Il te faut un container
plusieurs approches possibles
Si c'est un composant visuel réutilisable que tu veux utiliser sur la palette, change l'ancêtre en Panel par exemple, avec le Timage et le reste
Si c'est un composant one shot, tu peux tout simplement faire, attention, le Left\Top sont à décaler manuellement entre le Parent et le Timage.

Code:

FAlarm.Parent := Self.Parent ;

Merci Shai pour ta réponse.

J'ai fait :
Code:

1 2 3 4 5 6 7 8 9 FAlarm := TCheckBox.Create(Self); FAlarm.Parent := Self.parent ; FAlarm.Width := 60 ; FAlarm.Height := 20 ; FAlarm.Top := 290 ; FAlarm.Left := 20 ; Falarm.Caption := 'Set Alarm' ; FAlarm.Checked := True ; FAlarm.visible := True ;
Cette fois ça compile, mais la CheckBox reste invisible ?
Qu'est ce que j'ai raté ?

je n'ai pas compris le décalage ? Le Timage est le parent du CheckBox ?

Citation:

le Left\Top sont à décaler manuellement entre le Parent et le Timage.

A+
Charly

salut

remplace

Code:

FAlarm.Parent := Self.parent ;

par

Code:

FAlarm.Parent := Self

a mon avis ce serais deja mieux
le parent doit etre le panel sous jaccent

essai de faire un truc du genre

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
 
  TMyBoxSelect = class(TCustomGroupBox)
  private
      FAlarm: TCheckBox;
 
   ...
  protected
    procedure OnAlarmClick(Sender: TObject);
  ...
 end;
... 
constructor TMyBoxSelect.Create(AOwner: TComponent);
Begin 
   inherited Create(AOwner)
   ...
   FAlarm := TCheckBox.Create(Self);
   FAlarm.Parent := Self;
   FAlarm.ParentFont := False;
   FAlarm.Font.Style := [];
   FAlarm.Caption := 'Tous';
   FAlarm.Alignment := taLeftJustify;
   FAlarm.OnClick := OnAlarmClick;
   FAlarm.Visible := True;
End;
 
 
procedure TMyBoxSelect.OnAlarmClick(Sender: TObject);
begin
  ...
end;

01/09/2023, 17h07
Charly910

Non, c'est ce que j'avais avant. ça ne compile pas car comme dit ShaiLeTroll un TWinControl ne peut pas descendre d'un TComponent

Je pense qu'il faut que je parte d'un TPanel, pour poser dessus mon TImage et mon TCheckBox ?

A+
Charly
01/09/2023, 17h20
anapurna

salut

justement dans le cas d'un TPanel le contenant c'est

Code:

self

et non

Code:

self.parent

regarde l'exemple que j'ai mis plus haut

salut

ou alors tu gere toi meme l'affichage et les evenement de la check box

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
procedure TMYDrawCheckBox.DrawCheck(R: TRect; AState: TCheckBoxState; Enabled: Boolean);
var
  DrawState: Integer;
  DrawRect: TRect;
  OldBrushColor: TColor;
  OldBrushStyle: TBrushStyle;
  OldPenColor: TColor;
  Rgn, SaveRgn: HRgn;
begin
  SaveRgn := 0;
  DrawRect.Left := R.Left + (R.Right - R.Left - FCheckWidth) div 2;
  DrawRect.Top := R.Top + (R.Bottom - R.Top - FCheckWidth) div 2;
  DrawRect.Right := DrawRect.Left + FCheckWidth;
  DrawRect.Bottom := DrawRect.Top + FCheckHeight;
 
  case AState of
    cbChecked     :    DrawState := DFCS_BUTTONCHECK or DFCS_CHECKED;
    cbUnchecked  :    DrawState := DFCS_BUTTONCHECK;
   // cbGrayed
    else   DrawState := DFCS_BUTTON3STATE or DFCS_CHECKED;
  end;
 
  if not Enabled then
    DrawState := DrawState or DFCS_INACTIVE;
 
  with Canvas do
  begin
    if Flat then
    begin
      { Remember current clipping region }
      SaveRgn := CreateRectRgn(0,0,0,0);
      GetClipRgn(Handle, SaveRgn);
      { Clip 3d-style checkbox to prevent flicker }
      with DrawRect do
        Rgn := CreateRectRgn(Left + 2, Top + 2, Right - 2, Bottom - 2);
      SelectClipRgn(Handle, Rgn);
      DeleteObject(Rgn);
    end;
    DrawFrameControl(Handle, DrawRect, DFC_BUTTON, DrawState);
    if Flat then
    begin
      SelectClipRgn(Handle, SaveRgn);
      DeleteObject(SaveRgn);
      { Draw flat rectangle in-place of clipped 3d checkbox above }
      OldBrushStyle := Brush.Style;
      OldBrushColor := Brush.Color;
      OldPenColor := Pen.Color;
      Brush.Style := bsClear;
      Pen.Color := clBtnShadow;
      with DrawRect do
        Rectangle(Left + 1, Top + 1, Right - 1, Bottom - 1);
      Brush.Style := OldBrushStyle;
      Brush.Color := OldBrushColor;
      Pen.Color := OldPenColor;
    end;
  end;
end;

01/09/2023, 18h16
Charly910

Merci Anapurna,

je vais regarder, mais je crois que je vais transformer ma Class THorlogeGraph en Class(TPanel) et que je vais y mettre un Timage dans lequel je dessine (qui remplace mon ancien THorlogeGraph) et un CheckBox. Je ferai des creates dans le create du THorlogeGraph. Ainsi les parents du Timage et du TCheckBox seront un Tpanel

Je vais essayer ça

A+
Charly
02/09/2023, 13h24
Charly910

J'ai transformé en TPanel avec un TPaintBox et un TCheckBox et ça marche bien

Merci à ShaiLeTroll et Anapurna

A+
Charly
02/09/2023, 16h03
Paul TOTH
si tu ne veux pas t'embêter tu crées
Code:

1 2 3 4 5 6 7 8 type THorlogeGraph = Class( TWinControl ) private FImage: TImage; FCheckBox: TCheckBox; FTimer: TTimer; ...
avec un TWinControl comme ancêtre tu peux coller tout ce que tu veux dedans, dont un TImage en alClient

NB: avec DrawFrameControl tu peux aussi dessiner une CheckBox sans créer le composant
02/09/2023, 18h11
Charly910

Merci Paul,

Ok, au lieu d'un TWinControl j'ai pris un TPanel, et ça marche bien.

Je vais mettre un TWinControl si c'est mieux ?

A+
Charly
02/09/2023, 20h35
Paul TOTH

Citation:

Envoyé par Charly910

Merci Paul,

Ok, au lieu d'un TWinControl j'ai pris un TPanel, et ça marche bien.

Je vais mettre un TWinControl si c'est mieux ?

A+
Charly

tout dépend de ton besoin...TWinControl c'est juste un...TWinControl :D, alors que TPanel TPanel => TCustomPanel => TCustomControl => TWinControl si tu as besoin d'un Canvas tu peux prendre TCustomControl, si tu as besoin des "Bevel" tu peux prendre TCustomPanel, et si tu as besoin de toutes les propriétés de TPanel tu prend TPanel :) à chaque niveau tu as des ajouts, j'ai pour habitude de prendre le niveau le plus bas possible.