Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Changed main form. |
---|---|
Timelines: | family | ancestors | descendants | both | projectit-laz |
Files: | files | file ages | folders |
SHA1: |
8f1211f175bf2d1d46a8169107bafe4b |
User & Date: | tinus 2015-11-29 16:13:47.263 |
Context
2015-11-29
| ||
20:05 | Add some class prototypes to be used. check-in: 3cb52dd6ea user: tinus tags: projectit-laz | |
16:13 | Changed main form. check-in: 8f1211f175 user: tinus tags: projectit-laz | |
2015-11-28
| ||
15:58 | Added form to display current project. check-in: 986c810718 user: tinus tags: projectit-laz | |
Changes
Changes to ProjectIt/src/f_main.lfm.
1 2 3 4 5 | object frmMain: TfrmMain Left = 438 Height = 346 Top = 178 Width = 439 | | > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | object frmMain: TfrmMain Left = 438 Height = 346 Top = 178 Width = 439 Caption = 'Projects' ClientHeight = 346 ClientWidth = 439 LCLVersion = '1.4.4.0' object tvwProjects: TTreeView Left = 0 Height = 296 Top = 0 Width = 439 Align = alClient AutoExpand = True DefaultItemHeight = 32 HideSelection = False Images = modMain.imlApplication Indent = 24 MultiSelect = True MultiSelectStyle = [msControlSelect, msVisibleOnly] ReadOnly = True RightClickSelect = True RowSelect = True ShowRoot = False TabOrder = 0 Options = [tvoAllowMultiselect, tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw] Items.Data = { F9FFFFFF020001000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF010000000000 0000010900000028416677657A6967290000000000000000FFFFFFFFFFFFFFFF 00000000000000000007000000285061757A6529 } end object pnlButtons: TPanel |
︙ | ︙ |
Changes to ProjectIt/src/f_project.lfm.
︙ | ︙ | |||
844 845 846 847 848 849 850 | 0000FE00000000FF0000FE00000000FF0000FE00000000FF0000FE00000000FF 0000FE00000000FF0000FE00000000FF0000FE000000007F0000FE000000007F 0000FF000000007F0000FFC00000007F0000FFF80000007F0000FFFF8000007F 0000FFFFF000007F0000FFFFFE000CFF0000FFFFFFC07FFF0000FFFFFFF8FFFF 0000FFFFFFFFFFFF0000 } LCLVersion = '1.4.4.0' | | | > | | 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 | 0000FE00000000FF0000FE00000000FF0000FE00000000FF0000FE00000000FF 0000FE00000000FF0000FE00000000FF0000FE000000007F0000FE000000007F 0000FF000000007F0000FFC00000007F0000FFF80000007F0000FFFF8000007F 0000FFFFF000007F0000FFFFFE000CFF0000FFFFFFC07FFF0000FFFFFFF8FFFF 0000FFFFFFFFFFFF0000 } LCLVersion = '1.4.4.0' object btnProject: TSpeedButton Left = 0 Height = 106 Top = 0 Width = 373 Align = alClient Caption = '(Pauze)' Font.Height = -40 OnClick = btnProjectClick ParentFont = False end end |
Changes to ProjectIt/src/f_project.pas.
1 2 3 4 5 6 7 | unit f_project; {$mode objfpc}{$H+} interface uses | | > | > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | unit f_project; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, Buttons; type { TfrmCurrentProject } TfrmCurrentProject = class(TForm) btnProject: TSpeedButton; procedure btnProjectClick(Sender: TObject); private { private declarations } public { public declarations } end; var frmCurrentProject: TfrmCurrentProject; implementation uses f_main; {$R *.lfm} { TfrmCurrentProject } procedure TfrmCurrentProject.btnProjectClick(Sender: TObject); begin frmMain.ShowModal; end; end. |
Changes to ProjectIt/src/lazarus/projectit.lpr.
︙ | ︙ | |||
14 15 16 17 18 19 20 | {$R *.res} begin Application.Title:='ProjectIt!'; RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TmodMain, modMain); | | | | 14 15 16 17 18 19 20 21 22 23 24 25 | {$R *.res} begin Application.Title:='ProjectIt!'; RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TmodMain, modMain); Application.CreateForm(TfrmCurrentProject, frmCurrentProject); Application.CreateForm(TfrmMain, frmMain); Application.Run; end. |