Canvas

....fremkommer der en \"listbox\". (rettelse: Dialogbox)

Er det Disabled det hele skal være eller vil du tegne selv ??

Hvis du skal rundt på hele formen kan du bruge

ComponentCount
Components[Cnt]

Tegne Selv er sådan evt.:


Procedure Paint; override;


Procedure Form1.Paint;
begin
  Inherited;
  Canvas.DrawText(10,10,\'Hej Du !!\');
end;

/Martin

Alt hvad der er på Form1 skal nedtones, uanset hvilke komponenter der måtte være.
Altså noget i retningen af

Tæller:
  Form1.canvas.pixels[x, y] := Form1.canvas.pixels[x, y]-40;

Men det ville nok være lidt gøg og gokke på denne måde.
Joan.

procedure ToggleCmp;
begin
for Cnt := Componentcount-1 do
Components[Cnt].Enabled := not Components[Cnt].Enabled;
end;

/Martin

Det var nu ikke rigtigt det jeg efterlyste.

Effekten jeg vil have svarer til at man skruer ned for lyset på skærmen (men dialogboxen forbliver med samme lysstyrke)
Ved du hvordan man gør det ?

Override Paint på din form, og leg med brush\'en på canvas\'en;

Procedure Paint;
begin
  inherited; 
  if aFlag then Canavs.Brush.Color := clDarkGray
  else Canavs.Brush.Color := clBtnFace;
end;

procedure ShowDlg;
begin
  aFlag := TRUE;
  Invalidate;
  <ShowDlg>
  aFlag := FALSE;
  Invalidate;
end;

Du kan også lave en masse mønster med din brush, så prøv at leg lidt med det.

/Martin

Jeg prøver, og takker. Opretter spørgsmålet igen hvis jeg ikke får det til at virke.