Class TForm1 (unit Gioco24)

Inherits from

TForm

Constructors



Functions

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);


Properties

Events

Variables

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;



Constructors


Functions


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);


Properties


Events


Variables


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;