Composants palette de couleurs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.PipetteBtnClick(Sender: TObject);
begin
   Hide;
   Panel1.Hide;
   Alphablend:= true;
   WindowState:= wsMaximized; // non pris en compte sous Xfce (ça se voit au curseur qui reste en "pipette" dans une zone wsNormal)
   Show;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
// prélèvement d'une couleur écran par la pipette
begin
   Hide;
   FCanvas.Handle := LCLIntf.GetDC(0);
   ColorCreator.SelectedColor:= FCanvas.Pixels[Mouse.CursorPos.X, Mouse.CursorPos.Y];
   ReleaseDC(0, FCanvas.Handle); // obligatoire ?
   Panel1.Show;
   WindowState:= wsNormal; // non pris en compte sous Lxde : reste wsMaximized
   AlphaBlend:= false;
   Show; // ne fonctionne pas sous Xfce : une fois la form cachée, elle le reste ! :-(
end;