constructor TMyWin.Init(aParent: PWindowsObject; aTitle: PChar); var tmpButton : PButton; begin TWindow.Init(aParent, aTitle); myFontBig := CreateFont(36,0,0,0,700,0,0,0,0,0,0,0,0,'Helv'); myFontSml := CreateFont(18,0,0,0,700,0,0,0,0,0,0,0,0,'Helv'); myBrush := CreateSolidBrush(RGB(128,0,0)); isDirty := false; isSaved := false; isNewFile := true; Attr.X := 10; Attr.Y := 10; Attr.W := 400; Attr.H := 400; Attr.Menu := loadMenu(HInstance, 'MyMenu'); LB := New(PListBox, Init(@self, id_ListBox, 20,40,340,240)); LB^.Attr.Style := LB^.Attr.Style - LBS_Sort; tmpButton := New(PButton,Init(@self, id_Button_insert,'Insert',35,300,60,30,true)); tmpButton := New(PButton,Init(@self, id_Button_delete,'Delete',110,300,60,30,false)); tmpButton := New(PButton,Init(@self, id_Button_edit, 'Edit',185,300,60,30,false)); tmpButton := New(PButton,Init(@self, id_Button_find, 'Find',260,300,60,30,false)); end;