diff options
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -13,12 +13,12 @@ type { tForm1 } tForm1 = class(tForm) - procedure FormCreate(Sender: TObject); - procedure FormDestroy(Sender: TObject); - procedure FormShow(Sender: TObject); + procedure formCreate(sender: tObject); + procedure formDestroy(sender: tObject); + procedure formShow(sender: tObject); private { private declarations } - procedure WMGetDlgCode(var msg: tMessage); message WM_GETDLGCODE; + procedure wMGetDlgCode(var msg: tMessage); message wM_GETDLGCODE; procedure onSetCaption(c: string); public { public declarations } @@ -26,7 +26,7 @@ type end; var - Form1: TForm1; + form1: tForm1; implementation @@ -37,7 +37,7 @@ uses // tForm1 ********************************************************************** -procedure tForm1.WMGetDlgCode(var msg: tMessage);// message WM_GETDLGCODE; +procedure tForm1.wMGetDlgCode(var msg: tMessage);// message wM_GETDLGCODE; begin inherited; msg.result := msg.result or DLGC_WANTARROWS; @@ -64,12 +64,12 @@ begin form1.caption:=c; end; -procedure tForm1.FormDestroy(Sender: TObject); +procedure tForm1.formDestroy(sender: tObject); begin raetsel.free; end; -procedure tForm1.FormShow(Sender: TObject); +procedure tForm1.formShow(sender: tObject); begin if assigned(raetsel) then raetsel.zeichnen; |