Changeset 57
- Timestamp:
- Mar 4, 2013, 11:15:36 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r53 r57 150 150 procedure LastOpenedListChange(Sender: TObject); 151 151 public 152 LastFileName: string; 152 153 procedure LoadFromRegistry(Root: HKEY; Key: string); 153 154 procedure SaveToRegistry(Root: HKEY; Key: string); … … 302 303 OpenKey(Key, True); 303 304 TargetName := ReadStringWithDefault('TargetName', 'Interpretter'); 305 LastFileName := ReadStringWithDefault('LastFileName', 306 ExtractFileDir(Application.ExeName) + DirectorySeparator + 'Examples'); 304 307 CurrentTarget := Core.Targets.FindByName(TargetName); 305 308 if not Assigned(CurrentTarget) then CurrentTarget := TTarget(Core.Targets[0]); … … 316 319 OpenKey(Key, True); 317 320 WriteString('TargetName', CurrentTarget.Name); 321 WriteString('LastFileName', LastFileName); 318 322 finally 319 323 Free; … … 565 569 begin 566 570 AProjectClose.Execute; 567 OpenDialog1.FileName := Core.ProjectFileName; 571 OpenDialog1.FileName := LastFileName; 572 OpenDialog1.InitialDir := ExtractFileDir(LastFileName); 568 573 if OpenDialog1.Execute then begin 574 LastFileName := OpenDialog1.FileName; 569 575 ProjectOpen(OpenDialog1.FileName); 570 576 end;
Note:
See TracChangeset
for help on using the changeset viewer.