Changeset 44
- Timestamp:
- Jun 25, 2012, 1:17:58 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 2 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r41 r44 1 1 object MainForm: TMainForm 2 Left = 2 152 Left = 204 3 3 Height = 414 4 Top = 2714 Top = 88 5 5 Width = 665 6 6 Caption = 'LazFuck' 7 ClientHeight = 3 897 ClientHeight = 395 8 8 ClientWidth = 665 9 9 Menu = MainMenu1 … … 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = ' 0.9.31'14 LCLVersion = '1.1' 15 15 WindowState = wsMaximized 16 16 object StatusBarMain: TStatusBar 17 17 Left = 0 18 Height = 2 119 Top = 3 6818 Height = 20 19 Top = 375 20 20 Width = 665 21 21 Panels = < … … 119 119 object PageControlRight: TPageControl 120 120 Left = 272 121 Height = 34 2121 Height = 349 122 122 Top = 26 123 123 Width = 393 … … 129 129 object TabSheetDebug: TTabSheet 130 130 Caption = 'Debug' 131 ClientHeight = 34 0132 ClientWidth = 3 41131 ClientHeight = 341 132 ClientWidth = 365 133 133 object PanelInput: TPanel 134 134 Left = 0 135 135 Height = 64 136 136 Top = 0 137 Width = 3 41137 Width = 365 138 138 Align = alTop 139 139 BevelOuter = bvNone … … 145 145 Height = 5 146 146 Top = 64 147 Width = 3 41147 Width = 365 148 148 Align = alTop 149 149 ResizeAnchor = akTop … … 153 153 Height = 259 154 154 Top = 69 155 Width = 3 41155 Width = 365 156 156 Align = alTop 157 157 BevelOuter = bvNone … … 163 163 Height = 5 164 164 Top = 328 165 Width = 3 41165 Width = 365 166 166 Align = alTop 167 167 ResizeAnchor = akTop … … 171 171 Height = 86 172 172 Top = 333 173 Width = 3 41173 Width = 365 174 174 Align = alTop 175 175 BevelOuter = bvNone … … 180 180 Left = 0 181 181 Height = 5 182 Top = 34 0183 Width = 3 41182 Top = 341 183 Width = 365 184 184 Align = alTop 185 185 ResizeAnchor = akTop … … 187 187 object PanelMemory: TPanel 188 188 Left = 0 189 Height = 1190 Top = 34 0191 Width = 3 41189 Height = 0 190 Top = 341 191 Width = 365 192 192 Align = alClient 193 193 BevelOuter = bvNone … … 198 198 object Splitter1: TSplitter 199 199 Left = 267 200 Height = 34 2200 Height = 349 201 201 Top = 26 202 202 Width = 5 … … 206 206 object PanelLeft: TPanel 207 207 Left = 0 208 Height = 34 2208 Height = 349 209 209 Top = 26 210 210 Width = 267 211 211 Align = alClient 212 212 BevelOuter = bvNone 213 ClientHeight = 34 2213 ClientHeight = 349 214 214 ClientWidth = 267 215 215 TabOrder = 4 216 216 object PageControlMain: TPageControl 217 217 Left = 0 218 Height = 2 19218 Height = 226 219 219 Top = 0 220 220 Width = 267 … … 226 226 object TabSheetSource: TTabSheet 227 227 Caption = 'Source code' 228 ClientHeight = 192229 ClientWidth = 2 65228 ClientHeight = 200 229 ClientWidth = 259 230 230 object MemoSource: TMemo 231 231 Left = 0 232 Height = 192232 Height = 200 233 233 Top = 0 234 Width = 2 65234 Width = 259 235 235 Align = alClient 236 236 Font.Height = -12 … … 267 267 Left = 0 268 268 Height = 118 269 Top = 2 24269 Top = 231 270 270 Width = 267 271 271 ActivePage = TabSheetMessages … … 282 282 Left = 0 283 283 Height = 5 284 Top = 2 19284 Top = 226 285 285 Width = 267 286 286 Align = alBottom -
trunk/Forms/UFormMain.pas
r41 r44 173 173 procedure UpdateToolBarHints; 174 174 procedure DockInit; 175 procedure LastOpenedListChange(Sender: TObject); 175 176 public 176 177 Modified: Boolean; … … 213 214 begin 214 215 PageControlMain.TabIndex := 0; 215 if OpenProjectOnStart and (LastOpenedList. Count > 0) then216 ProjectOpen(LastOpenedList [0])216 if OpenProjectOnStart and (LastOpenedList.Items.Count > 0) then 217 ProjectOpen(LastOpenedList.Items[0]) 217 218 else AProjectNew.Execute; 218 219 UpdateInterface; … … 333 334 PageControlRight.Width := MainForm.Width div 2; 334 335 PageControlBottom.Height := MainForm.Height div 5; 336 end; 337 338 procedure TMainForm.LastOpenedListChange(Sender: TObject); 339 begin 340 LastOpenedList.LoadToMenuItem(MenuItemOpenRecent); 335 341 end; 336 342 … … 438 444 Targets.Add(TTargetJava.Create); 439 445 UpdateTargetList; 440 LastOpenedList := TLastOpenedList.Create ;441 LastOpenedList. MenuItem := MenuItemOpenRecent;446 LastOpenedList := TLastOpenedList.Create(nil); 447 LastOpenedList.OnChange := LastOpenedListChange; 442 448 LastOpenedList.ClickAction := AProjectOpenRecentExecute; 443 449 LoadFromRegistry(RegistryRoot, ApplicationInfo.RegistryKey); … … 681 687 procedure TMainForm.AProjectOpenRecentExecute(Sender: TObject); 682 688 begin 683 ProjectOpen(LastOpenedList [TMenuItem(Sender).MenuIndex]);689 ProjectOpen(LastOpenedList.Items[TMenuItem(Sender).MenuIndex]); 684 690 end; 685 691 … … 698 704 MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName)); 699 705 ProjectFileName := SaveDialog1.FileName; 700 LastOpenedList.Add (SaveDialog1.FileName);706 LastOpenedList.AddItem(SaveDialog1.FileName); 701 707 Modified := False; 702 708 UpdateInterface; -
trunk/UApplicationInfo.pas
r36 r44 53 53 Name := 'LazFuck'; 54 54 Identification := 1; 55 ReleaseDate := EncodeDate(2012, 2, 19);55 ReleaseDate := EncodeDate(2012, 6, 25); 56 56 MajorVersion := 0; 57 57 MinorVersion := 1;
Note:
See TracChangeset
for help on using the changeset viewer.