Class TForm1 (unit Gioco24) |
Inherits from
TForm
procedure About1Click(Sender:TObject);
cioè Up
procedure Addhowever1Click(Sender:TObject);
procedure Addrandomconfig1Click(Sender:TObject);
procedure Asbitmap1Click(Sender:TObject);
procedure Askforconfirmation1Click(Sender:TObject);
procedure Astext1Click(Sender:TObject);
procedure AutosolvitiClick(Sender:TObject);
arresta la prosecuzione degli algoritmi nella DLL
procedure Cancella1Click(Sender:TObject);
evita che venga cancellata la riga che indica quale soluzione è attualmente scelta
procedure Caos1Click(Sender:TObject);
if salvaconf(Pbyte(SaveDialog1.
procedure Carica1Click(Sender:TObject);
configurazione da risolvere
procedure Copy1Click(Sender:TObject);
procedure Cut1Click(Sender:TObject);
procedure Edit1OnClick(Sender:TObject);
ora Items.
procedure FineButtonClick(Sender:TObject);
quando viene attivato controlla la clipboard
procedure Forget1Click(Sender:TObject);
procedure FormCreate(Sender:TObject);
ora è il primo elemento
procedure FormKeyDown(Sender:TObject; var Key:Word;
Shift:TShiftState);
primo elemento selezionato
procedure Gestionepianodigioco1Click(Sender:TObject);
procedure Immetti1Click(Sender:TObject);
procedure Informazioni1Click(Sender:TObject);
procedure Initrandomconfigs1Click(Sender:TObject);
procedure InterrompiClick(Sender:TObject);
Format('%.
procedure Label0Click(Sender:TObject);
procedure LabelDragDrop(Sender,Source:TObject; X,Y:Integer);
procedure Labeldragover(Sender,Source:TObject; X,Y:Integer;
State:TDragState; var Accept:Boolean);
procedure LabelMouseDown(Sender:TObject; Button:TMouseButton;
Shift:TShiftState; X,Y:Integer);
procedure List1DbClick(Sender:TObject);
cioè Up
procedure menuFineClick(Sender:TObject);
Hey ! You can change tile position now
procedure menuNuovoclick(Sender:TObject);
azzera le mosse di cui ho effettuato l'undo
procedure menuProssimaClick(Sender:TObject);
procedure OnPopup(Sender:TObject);
procedure OnPopup1(Sender:TObject);
procedure Paste1Click(Sender:TObject);
procedure PastetoClipClick(Sender:TObject);
centra il testo verticalmente
procedure Precedente1Click(Sender:TObject);
procedure Provatu1Click(Sender:TObject);
azzera il buffer di undone
procedure Redo1Click(Sender:TObject);
procedure Ripristinaconfusuale1Click(Sender:TObject);
configurazione finale
procedure Risolutore1Click(Sender:TObject);
Up perchè la mossa era Down
procedure Risolvi1Click(Sender:TObject);
procedure Salva1Click(Sender:TObject);
actual none finisce al primo posto
procedure Scambia1Click(Sender:TObject);
gli altri parametri sono stati inizializzati durante la precedente chiamata
procedure SettaConfFinaleClick(Sender:TObject);
evidenzia questo stato
procedure Show1Click(Sender:TObject);
procedure Timer1Timer(Sender:TObject);
WARNING questa procedura può generare anche
configurazioni di gioco impossibili da risolvere
procedure TreeViewExpanding(Sender:TObject; Node:TTreeNode;
var AllowExpansion:Boolean);
procedure UndoLM1Click(Sender:TObject);
procedure resettareversal(var messaggio:Tmessage);
la conf.
procedure tessereinreversal(var messaggio:Tmessage);
procedure azzeraTreeView;
del for
procedure finito(Sender:TObject);
procedure gestisceImage;
procedure gestiscetreeviewclip;
procedure Timer2Timer(Sender:TObject);
1st pos.
procedure Timer3Timer(Sender:TObject);
About1 : TMenuItem;
Addhowever1 : TMenuItem;
Addrandomconfig1 : TMenuItem;
Asbitmap1 : TMenuItem;
Askforconfirmation1 : TMenuItem;
Astext1 : TMenuItem;
Autosolviti : TMenuItem;
Bevel1 : TBevel;
Button3D1 : TButton3D;
Cancella1 : TMenuItem;
Carica1 : TMenuItem;
Copy1 : TMenuItem;
Cut1 : TMenuItem;
Edit : TMenuItem;
File1 : TMenuItem;
Fine1 : TMenuItem;
Forget1 : TMenuItem;
Generaacaso1 : TMenuItem;
Gestionepianodigioco1 : TMenuItem;
HandleYoursol1 : TMenuItem;
Help1 : TMenuItem;
Image1 : TImage;
ImageList1 : TImageList;
Immetti2 : TMenuItem;
Informazioni1 : TMenuItem;
Initrandomconfigs1 : TMenuItem;
Interrompi : TButton3D;
Label0 : TLabel3DBorder;
Label1 : TLabel3DBorder;
Label10 : TLabel3DBorder;
Label11 : TLabel3DBorder;
Label116 : TLabel3D;
Label117 : TLabel3D;
Label118 : TLabel3D;
Label12 : TLabel3DBorder;
Label13 : TLabel3DBorder;
Label14 : TLabel3DBorder;
Label15 : TLabel3DBorder;
Label16 : TLabel3DBorder;
Label17 : TLabel3DBorder;
Label18 : TLabel3DBorder;
Label19 : TLabel3DBorder;
Label2 : TLabel3DBorder;
Label20 : TLabel3DBorder;
Label21 : TLabel3DBorder;
Label22 : TLabel3DBorder;
Label23 : TLabel3DBorder;
Label24 : TLabel3DBorder;
Label3 : TLabel3DBorder;
Label4 : TLabel3DBorder;
Label5 : TLabel3DBorder;
Label6 : TLabel3DBorder;
Label7 : TLabel3DBorder;
Label8 : TLabel3DBorder;
Label9 : TLabel3DBorder;
List1 : TListBox;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
N6 : TMenuItem;
N7 : TMenuItem;
N8 : TMenuItem;
Obbiettivo1 : TMenuItem;
Obbiettivousuale1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Opzioni1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Paste1 : TMenuItem;
PastetoClip : TMenuItem;
Popup1 : TPopupMenu;
Popup2 : TPopupMenu;
Precedente1 : TMenuItem;
Prossima1 : TMenuItem;
Provatu1 : TMenuItem;
Redo1 : TMenuItem;
Risolutore1 : TMenuItem;
Risolvi1 : TMenuItem;
Salva1 : TMenuItem;
SaveDialog1 : TSaveDialog;
Scambia1 : TMenuItem;
SettaObbiettivo1 : TMenuItem;
Show1 : TMenuItem;
Timer1 : TTimer;
TreeView1 : TTreeView;
UndoLM1 : TMenuItem;
ViewGoalConfig1 : TMenuItem;
procedure About1Click(Sender:TObject);
cioè Up
procedure Addhowever1Click(Sender:TObject);
procedure Addrandomconfig1Click(Sender:TObject);
procedure Asbitmap1Click(Sender:TObject);
procedure Askforconfirmation1Click(Sender:TObject);
procedure Astext1Click(Sender:TObject);
procedure AutosolvitiClick(Sender:TObject);
arresta la prosecuzione degli algoritmi nella DLL
procedure Cancella1Click(Sender:TObject);
evita che venga cancellata la riga che indica quale soluzione è attualmente scelta
procedure Caos1Click(Sender:TObject);
if salvaconf(Pbyte(SaveDialog1.FileName),@matrice[0,0],@commento[0],
procedure Carica1Click(Sender:TObject);
configurazione da risolvere
procedure Copy1Click(Sender:TObject);
procedure Cut1Click(Sender:TObject);
procedure Edit1OnClick(Sender:TObject);
ora Items.Count è diminuito
procedure FineButtonClick(Sender:TObject);
quando viene attivato controlla la clipboard
procedure Forget1Click(Sender:TObject);
procedure FormCreate(Sender:TObject);
ora è il primo elemento
procedure FormKeyDown(Sender:TObject; var Key:Word;
Shift:TShiftState);
primo elemento selezionato
procedure Gestionepianodigioco1Click(Sender:TObject);
procedure Immetti1Click(Sender:TObject);
procedure Informazioni1Click(Sender:TObject);
procedure Initrandomconfigs1Click(Sender:TObject);
procedure InterrompiClick(Sender:TObject);
Format('%.2d:%.2d:%.2d.%.3d',[tempo,min,sec,msec]);
procedure Label0Click(Sender:TObject);
procedure LabelDragDrop(Sender,Source:TObject; X,Y:Integer);
procedure Labeldragover(Sender,Source:TObject; X,Y:Integer;
State:TDragState; var Accept:Boolean);
procedure LabelMouseDown(Sender:TObject; Button:TMouseButton;
Shift:TShiftState; X,Y:Integer);
procedure List1DbClick(Sender:TObject);
cioè Up
procedure menuFineClick(Sender:TObject);
Hey ! You can change tile position now
procedure menuNuovoclick(Sender:TObject);
azzera le mosse di cui ho effettuato l'undo
procedure menuProssimaClick(Sender:TObject);
procedure OnPopup(Sender:TObject);
procedure OnPopup1(Sender:TObject);
procedure Paste1Click(Sender:TObject);
procedure PastetoClipClick(Sender:TObject);
centra il testo verticalmente
procedure Precedente1Click(Sender:TObject);
procedure Provatu1Click(Sender:TObject);
azzera il buffer di undone
procedure Redo1Click(Sender:TObject);
procedure Ripristinaconfusuale1Click(Sender:TObject);
configurazione finale
procedure Risolutore1Click(Sender:TObject);
Up perchè la mossa era Down
procedure Risolvi1Click(Sender:TObject);
procedure Salva1Click(Sender:TObject);
actual none finisce al primo posto
procedure Scambia1Click(Sender:TObject);
gli altri parametri sono stati inizializzati durante la precedente chiamata
procedure SettaConfFinaleClick(Sender:TObject);
evidenzia questo stato
procedure Show1Click(Sender:TObject);
procedure Timer1Timer(Sender:TObject);
WARNING questa procedura può generare anche
configurazioni di gioco impossibili da risolvere
procedure TreeViewExpanding(Sender:TObject; Node:TTreeNode;
var AllowExpansion:Boolean);
procedure UndoLM1Click(Sender:TObject);
procedure resettareversal(var messaggio:Tmessage);
la conf. usuale ha un numero di inversioni pari
procedure tessereinreversal(var messaggio:Tmessage);
procedure azzeraTreeView;
del for
procedure finito(Sender:TObject);
procedure gestisceImage;
procedure gestiscetreeviewclip;
procedure Timer2Timer(Sender:TObject);
1st pos. now
procedure Timer3Timer(Sender:TObject);
About1 : TMenuItem;
Addhowever1 : TMenuItem;
Addrandomconfig1 : TMenuItem;
Asbitmap1 : TMenuItem;
Askforconfirmation1 : TMenuItem;
Astext1 : TMenuItem;
Autosolviti : TMenuItem;
Bevel1 : TBevel;
Button3D1 : TButton3D;
Cancella1 : TMenuItem;
Carica1 : TMenuItem;
Copy1 : TMenuItem;
Cut1 : TMenuItem;
Edit : TMenuItem;
File1 : TMenuItem;
Fine1 : TMenuItem;
Forget1 : TMenuItem;
Generaacaso1 : TMenuItem;
Gestionepianodigioco1 : TMenuItem;
HandleYoursol1 : TMenuItem;
Help1 : TMenuItem;
Image1 : TImage;
ImageList1 : TImageList;
Immetti2 : TMenuItem;
Informazioni1 : TMenuItem;
Initrandomconfigs1 : TMenuItem;
Interrompi : TButton3D;
Label0 : TLabel3DBorder;
Label1 : TLabel3DBorder;
Label10 : TLabel3DBorder;
Label11 : TLabel3DBorder;
Label116 : TLabel3D;
Label117 : TLabel3D;
Label118 : TLabel3D;
Label12 : TLabel3DBorder;
Label13 : TLabel3DBorder;
Label14 : TLabel3DBorder;
Label15 : TLabel3DBorder;
Label16 : TLabel3DBorder;
Label17 : TLabel3DBorder;
Label18 : TLabel3DBorder;
Label19 : TLabel3DBorder;
Label2 : TLabel3DBorder;
Label20 : TLabel3DBorder;
Label21 : TLabel3DBorder;
Label22 : TLabel3DBorder;
Label23 : TLabel3DBorder;
Label24 : TLabel3DBorder;
Label3 : TLabel3DBorder;
Label4 : TLabel3DBorder;
Label5 : TLabel3DBorder;
Label6 : TLabel3DBorder;
Label7 : TLabel3DBorder;
Label8 : TLabel3DBorder;
Label9 : TLabel3DBorder;
List1 : TListBox;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
N6 : TMenuItem;
N7 : TMenuItem;
N8 : TMenuItem;
Obbiettivo1 : TMenuItem;
Obbiettivousuale1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Opzioni1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Paste1 : TMenuItem;
PastetoClip : TMenuItem;
Popup1 : TPopupMenu;
Popup2 : TPopupMenu;
Precedente1 : TMenuItem;
Prossima1 : TMenuItem;
Provatu1 : TMenuItem;
Redo1 : TMenuItem;
Risolutore1 : TMenuItem;
Risolvi1 : TMenuItem;
Salva1 : TMenuItem;
SaveDialog1 : TSaveDialog;
Scambia1 : TMenuItem;
SettaObbiettivo1 : TMenuItem;
Show1 : TMenuItem;
Timer1 : TTimer;
TreeView1 : TTreeView;
UndoLM1 : TMenuItem;
ViewGoalConfig1 : TMenuItem;