Added Extract Number on Button DBLClick

Author: maxm74

tombolamax_main.lfm

@@ -30,7 +30,7 @@ object FormTombola: TFormTombola
     end
     object ToolButton1: TToolButton
       Left = 100
-      Height = 40
+      Height = 8
       Top = 2
       Caption = 'ToolButton1'
       Style = tbsSeparator
@@ -43,7 +43,7 @@ object FormTombola: TFormTombola
     end
     object ToolButton2: TToolButton
       Left = 219
-      Height = 40
+      Height = 8
       Top = 2
       Caption = 'ToolButton2'
       Style = tbsSeparator
@@ -335,6 +335,7 @@ object FormTombola: TFormTombola
       Font.Height = 20
       Visible = False
       ParentFont = False
+      OnMouseUp = buttonMouseUp
       TextAutoSize = True
       Toggle = False
       Pressed = False

tombolamax_main.pas

@@ -63,6 +63,8 @@   TFormTombola = class(TForm)
     procedure btGioca2DblClick(Sender: TObject);
     procedure btRipetoClick(Sender: TObject);
     procedure btSelTab1Click(Sender: TObject);
+    procedure buttonMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
     procedure FormCreate(Sender: TObject);
     procedure FormResize(Sender: TObject);
     procedure lbEstrattoClick(Sender: TObject);
@@ -144,7 +146,12 @@ procedure TFormTombola.tbInfoClick(Sender: TObject);
 end;
 
 procedure TFormTombola.Estrai(ANumero: Integer);
+var
+   strNumero: String;
+
 begin
+  strNumero:=IntToStr(ANumero);
+
   if (buttons[ANumero].Tag = 0) then
   begin
     Inc(cEstratti);
@@ -164,14 +171,15 @@ procedure TFormTombola.Estrai(ANumero: Integer);
     end;
     Estratti[0] :=ANumero;
 
-    buttons[edEstratto.Value].StateNormal.Color :=clRed;
-    buttons[edEstratto.Value].Tag := 1;
+    buttons[ANumero].StateNormal.Color :=clRed;
+    buttons[ANumero].Tag := 1;
+    edEstratto.Value:=ANumero;
     lbEstrattoUltimo.Visible :=True;
-    lbEstratto.Caption :=IntToStr(ANumero);
+    lbEstratto.Caption :=strNumero;
 
-    PlayFile(IntToStr(ANumero));
+    PlayFile(strNumero);
   end
-  else MessageDlg('Numero '+IntToStr(ANumero)+' già estratto', mtError, [mbOk], 0);
+  else MessageDlg('Numero '+strNumero+' già estratto', mtError, [mbOk], 0);
 end;
 
 procedure TFormTombola.PlayFile(AName: String);
@@ -206,6 +214,7 @@ procedure TFormTombola.FormCreate(Sender: TObject);
     buttons[i].ParentFont:=False;
     buttons[i].Tag:=0;  //Non estratto
     buttons[i].Parent :=bcTabellone;
+    buttons[i].OnMouseUp:= @buttonMouseUp;
     inc(i);
   end;
 end;
@@ -295,6 +304,14 @@ procedure TFormTombola.btSelTab1Click(Sender: TObject);
   else lastDown :=nil;
 end;
 
+procedure TFormTombola.buttonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if (TColorSpeedButton(Sender).Tag = 0) and (ssDouble in Shift) then
+  begin
+    Estrai(StrToInt(TColorSpeedButton(Sender).Caption));
+  end;
+end;
+
 procedure TFormTombola.btEstraiClick(Sender: TObject);
 begin
   Estrai(edEstratto.Value);