Changeset 205 for trunk/Forms
- Timestamp:
- May 20, 2018, 11:19:57 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormClient.pas
r203 r205 82 82 procedure DoMove(CellFrom, CellTo: TCell; var CountOnce, 83 83 CountRepeat: Integer; Update: Boolean; var Confirm: Boolean); 84 procedure SetToolbarHints; 85 procedure DoClientDestroy(Sender: TObject); 84 86 public 85 87 procedure LoadConfig(Config: TXmlConfig; Path: string); … … 104 106 105 107 { TFormClient } 108 109 procedure TFormClient.SetToolbarHints; 110 var 111 I: Integer; 112 begin 113 for I := 0 to ToolBar1.ButtonCount - 1 do begin 114 ToolBar1.Buttons[I].ShowHint := True; 115 ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption; 116 end; 117 end; 118 119 procedure TFormClient.DoClientDestroy(Sender: TObject); 120 begin 121 Client := nil; 122 end; 106 123 107 124 procedure TFormClient.DoMove(CellFrom, CellTo: TCell; var CountOnce, … … 213 230 FClient.OnChange := DoClientChange; 214 231 FClient.OnMove := DoMove; 215 FClient.OnTurnStart := DoTurnStart(); 232 FClient.OnTurnStart := DoTurnStart; 233 FClient.OnDestroy := DoClientDestroy; 216 234 end; 217 235 Redraw; … … 375 393 procedure TFormClient.FormShow(Sender: TObject); 376 394 begin 395 SetToolbarHints; 377 396 LoadConfig(Core.XMLConfig1, 'FormClient'); 378 397 Core.PersistentForm.Load(Self);
Note:
See TracChangeset
for help on using the changeset viewer.