From d8a0f703d228cea8857050e4babff30fcadcabda Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sat, 20 May 2017 15:39:18 +0000 Subject: [PATCH] tvplanit: Check all examples for HiDPI scaling. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5882 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../examples/datastores/bufdataset/unit1.lfm | 8 +- .../tvplanit/examples/datastores/fb/unit1.lfm | 82 +++-- .../datastores/flex/access/tools/camain.lfm | 162 +++++---- .../datastores/flex/access/tools/camain.pas | 7 + .../examples/datastores/flex/access/unit1.lfm | 54 +-- .../examples/datastores/flex/access/unit1.pas | 3 +- .../datastores/flex/sqlite3/unit1.lfm | 57 ++-- .../examples/datastores/ini/unit1.lfm | 71 ++-- .../examples/datastores/sqlite3/unit1.lfm | 82 +++-- .../examples/datastores/xml/unit1.lfm | 73 ++-- .../examples/datastores/zeos/project1.lpi | 13 +- .../examples/datastores/zeos/unit1.lfm | 73 ++-- .../tvplanit/examples/fulldemo/demomain.lfm | 202 +++++++---- .../tvplanit/examples/fulldemo/demomain.lrt | 1 + .../tvplanit/examples/fulldemo/demomain.pas | 51 +-- .../tvplanit/examples/gadgets/unit1.lfm | 152 ++++++--- .../tvplanit/examples/gadgets/unit1.pas | 18 +- components/tvplanit/examples/navbar/unit1.lfm | 317 ++++++++++++------ components/tvplanit/examples/navbar/unit1.pas | 7 +- .../tvplanit/examples/runtime/unit1.lfm | 2 +- .../tvplanit/examples/runtime/unit1.pas | 6 +- .../tvplanit/examples/tutorial/unit1.lfm | 18 +- components/tvplanit/languages/demo.de.po | 11 + components/tvplanit/languages/demo.fi.po | 10 + components/tvplanit/languages/demo.nl.po | 10 + components/tvplanit/languages/demo.po | 10 + components/tvplanit/languages/demo.ru.po | 10 + components/tvplanit/source/vpclock.pas | 4 + .../tvplanit/source/vpcontactbuttons.pas | 3 + components/tvplanit/source/vpledlabel.pas | 4 + components/tvplanit/source/vpnavbar.pas | 3 + 31 files changed, 1018 insertions(+), 506 deletions(-) diff --git a/components/tvplanit/examples/datastores/bufdataset/unit1.lfm b/components/tvplanit/examples/datastores/bufdataset/unit1.lfm index 3bfe53897..89a395327 100644 --- a/components/tvplanit/examples/datastores/bufdataset/unit1.lfm +++ b/components/tvplanit/examples/datastores/bufdataset/unit1.lfm @@ -41,7 +41,8 @@ object Form1: TForm1 Left = 216 Height = 25 Top = 5 - Width = 99 + Width = 98 + AutoSize = True BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Bottom = 4 @@ -54,10 +55,11 @@ object Form1: TForm1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 AnchorSideTop.Side = asrCenter - Left = 319 + Left = 318 Height = 25 Top = 5 - Width = 96 + Width = 94 + AutoSize = True BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Bottom = 4 diff --git a/components/tvplanit/examples/datastores/fb/unit1.lfm b/components/tvplanit/examples/datastores/fb/unit1.lfm index 2815845c4..f0319553f 100644 --- a/components/tvplanit/examples/datastores/fb/unit1.lfm +++ b/components/tvplanit/examples/datastores/fb/unit1.lfm @@ -1,46 +1,63 @@ object Form1: TForm1 - Left = 225 + Left = 369 Height = 686 - Top = 155 + Top = 169 Width = 895 Caption = 'Form1' ClientHeight = 686 ClientWidth = 895 OnCreate = FormCreate OnDestroy = FormDestroy - LCLVersion = '1.7' + LCLVersion = '1.6.0.4' object Panel1: TPanel Left = 0 - Height = 34 + Height = 43 Top = 0 Width = 895 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 34 + ClientHeight = 43 ClientWidth = 895 TabOrder = 0 object VpResourceCombo1: TVpResourceCombo - Left = 8 - Height = 23 + AnchorSideLeft.Control = Panel1 + Left = 4 + Height = 33 Top = 5 Width = 208 DataStore = VpFirebirdDatastore1 Style = csDropDownList + Borderspacing.Left = 4 + Borderspacing.Top = 4 + Borderspacing.Bottom = 4 end object BtnNewRes: TButton - Left = 222 - Height = 25 + AnchorSideLeft.Control = VpResourceCombo1 + AnchorSideLeft.Side = asrBottom + Left = 216 + Height = 35 Top = 4 - Width = 99 + Width = 133 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'New resource' OnClick = BtnNewResClick TabOrder = 1 end object BtnEditRes: TButton - Left = 328 - Height = 25 + AnchorSideLeft.Control = BtnNewRes + AnchorSideLeft.Side = asrBottom + Left = 353 + Height = 35 Top = 4 - Width = 96 + Width = 128 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Edit resource' OnClick = BtnEditResClick TabOrder = 2 @@ -48,8 +65,8 @@ object Form1: TForm1 end object PageControl1: TPageControl Left = 0 - Height = 652 - Top = 34 + Height = 643 + Top = 43 Width = 895 ActivePage = TabSheet1 Align = alClient @@ -57,11 +74,11 @@ object Form1: TForm1 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Events and tasks' - ClientHeight = 624 + ClientHeight = 605 ClientWidth = 887 object VpDayView1: TVpDayView Left = 0 - Height = 624 + Height = 605 Top = 0 Width = 283 DataStore = VpFirebirdDatastore1 @@ -79,7 +96,6 @@ object Form1: TForm1 TimeSlotColors.Active = clWhite TimeSlotColors.Inactive = 8454143 TimeSlotColors.Holiday = 16744703 - TimeSlotColors.Weekday = clWhite TimeSlotColors.Weekend = 16777088 TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00 @@ -98,18 +114,18 @@ object Form1: TForm1 end object Panel2: TPanel Left = 288 - Height = 624 + Height = 605 Top = 0 Width = 339 Align = alLeft BevelOuter = bvNone Caption = 'Panel2' - ClientHeight = 624 + ClientHeight = 605 ClientWidth = 339 TabOrder = 1 object VpWeekView1: TVpWeekView Left = 0 - Height = 378 + Height = 359 Top = 0 Width = 339 DataStore = VpFirebirdDatastore1 @@ -137,7 +153,7 @@ object Form1: TForm1 object VpMonthView1: TVpMonthView Left = 0 Height = 241 - Top = 383 + Top = 364 Width = 339 DataStore = VpFirebirdDatastore1 ControlLink = VpControlLink1 @@ -147,29 +163,28 @@ object Form1: TForm1 TabOrder = 1 KBNavigation = True DateLabelFormat = 'mmmm yyyy' - DayHeadAttributes.Color = clBtnFace DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Name = 'Tahoma' + DayHeadAttributes.Color = clBtnFace DayNameStyle = dsShort DrawingStyle = dsFlat EventDayStyle = [] HeadAttributes.Color = clBtnFace - LineColor = clGray - TimeFormat = tf12Hour - TodayAttributes.Color = clSilver - TodayAttributes.BorderPen.Color = clRed - TodayAttributes.BorderPen.Width = 3 OffDayColor = clSilver SelectedDayColor = clRed ShowEvents = True ShowEventTime = False + TimeFormat = tf12Hour + TodayAttributes.Color = clSilver + TodayAttributes.BorderPen.Color = clRed + TodayAttributes.BorderPen.Width = 3 WeekStartsOn = dtSunday end object Splitter2: TSplitter Cursor = crVSplit Left = 0 Height = 5 - Top = 378 + Top = 359 Width = 339 Align = alBottom ResizeAnchor = akBottom @@ -177,7 +192,7 @@ object Form1: TForm1 end object VpTaskList1: TVpTaskList Left = 632 - Height = 624 + Height = 605 Top = 0 Width = 255 DataStore = VpFirebirdDatastore1 @@ -205,13 +220,13 @@ object Form1: TForm1 end object Splitter1: TSplitter Left = 627 - Height = 624 + Height = 605 Top = 0 Width = 5 end object Splitter3: TSplitter Left = 283 - Height = 624 + Height = 605 Top = 0 Width = 5 end @@ -265,7 +280,7 @@ object Form1: TForm1 top = 264 end object VpResourceEditDialog1: TVpResourceEditDialog - Version = 'v1.04' + Version = 'v1.05' DataStore = VpFirebirdDatastore1 Options = [] Placement.Position = mpCenter @@ -321,7 +336,6 @@ object Form1: TForm1 LoginPrompt = False KeepConnection = True Transaction = SQLTransaction1 - HostName = 'localhost' Options = [] left = 136 top = 120 diff --git a/components/tvplanit/examples/datastores/flex/access/tools/camain.lfm b/components/tvplanit/examples/datastores/flex/access/tools/camain.lfm index d25cf0c8c..3fa54e228 100644 --- a/components/tvplanit/examples/datastores/flex/access/tools/camain.lfm +++ b/components/tvplanit/examples/datastores/flex/access/tools/camain.lfm @@ -1,76 +1,59 @@ object Form1: TForm1 Left = 262 - Height = 177 + Height = 285 Top = 155 - Width = 314 + Width = 400 + AutoSize = True Caption = 'Access database creator' - ClientHeight = 177 - ClientWidth = 314 - LCLVersion = '1.7' - object FileNameEdit: TFileNameEdit - Left = 16 - Height = 23 - Top = 16 - Width = 280 - FileName = '.\data.mdb' - Filter = 'Access database files (*.mdb; *.accdb)|*.mdb;*.accdb' - FilterIndex = 0 - HideDirectories = False - ButtonWidth = 23 - NumGlyphs = 1 - MaxLength = 0 - TabOrder = 0 - Text = '.\data.mdb' - end - object CbCreateVPFields: TCheckBox - Left = 16 - Height = 19 - Top = 80 - Width = 140 - Caption = 'Add VisualPlanIt tables' - Checked = True - State = cbChecked - TabOrder = 1 - end + ClientHeight = 285 + ClientWidth = 400 + Constraints.MinWidth = 400 + OnCreate = FormCreate + LCLVersion = '1.6.4.0' object StatusBar1: TStatusBar Left = 0 Height = 23 - Top = 154 - Width = 314 + Top = 262 + Width = 400 Panels = <> end - object Label1: TLabel - Left = 16 - Height = 30 - Top = 44 - Width = 285 - Caption = 'Use extension .mdb for old Access 97/2000 file format,'#13#10'.accdb for new Access 2007+ file format.' - ParentColor = False - end object Panel1: TPanel Left = 0 - Height = 44 - Top = 110 - Width = 314 + Height = 43 + Top = 219 + Width = 400 Align = alBottom - Caption = 'Panel1' - ClientHeight = 44 - ClientWidth = 314 - TabOrder = 3 + AutoSize = True + ClientHeight = 43 + ClientWidth = 400 + TabOrder = 1 object BtnCreateDB: TButton - Left = 120 + AnchorSideRight.Control = BtnClose + Left = 246 Height = 25 - Top = 10 - Width = 91 + Top = 9 + Width = 78 + Anchors = [akTop, akRight] + AutoSize = True + BorderSpacing.Top = 8 + BorderSpacing.Right = 8 + BorderSpacing.Bottom = 8 Caption = 'Create DB' OnClick = BtnCreateDBClick TabOrder = 0 end object BtnClose: TButton - Left = 221 + AnchorSideRight.Control = Panel1 + AnchorSideRight.Side = asrBottom + Left = 332 Height = 25 - Top = 10 - Width = 75 + Top = 9 + Width = 55 + Anchors = [akTop, akRight] + AutoSize = True + BorderSpacing.Top = 8 + BorderSpacing.Right = 12 + BorderSpacing.Bottom = 8 Caption = 'Close' OnClick = BtnCloseClick TabOrder = 1 @@ -79,26 +62,93 @@ object Form1: TForm1 Left = 9 Height = 3 Top = 1 - Width = 296 + Width = 382 Align = alTop BorderSpacing.Left = 8 BorderSpacing.Right = 8 Shape = bsTopLine end end + object Panel2: TPanel + Left = 0 + Height = 219 + Top = 0 + Width = 400 + Align = alClient + AutoSize = True + BevelOuter = bvNone + ClientHeight = 219 + ClientWidth = 400 + TabOrder = 2 + object FileNameEdit: TFileNameEdit + AnchorSideLeft.Control = Panel2 + AnchorSideTop.Control = Panel2 + AnchorSideRight.Control = Panel2 + AnchorSideRight.Side = asrBottom + Left = 16 + Height = 23 + Top = 16 + Width = 368 + FileName = '.\data.mdb' + Filter = 'Access database files (*.mdb; *.accdb)|*.mdb;*.accdb' + FilterIndex = 0 + HideDirectories = False + ButtonWidth = 23 + NumGlyphs = 1 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 16 + BorderSpacing.Top = 16 + BorderSpacing.Right = 16 + MaxLength = 0 + TabOrder = 0 + Text = '.\data.mdb' + end + object Label1: TLabel + AnchorSideLeft.Control = FileNameEdit + AnchorSideTop.Control = FileNameEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = FileNameEdit + AnchorSideRight.Side = asrBottom + Left = 16 + Height = 30 + Top = 47 + Width = 368 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 + Caption = 'Use extension .mdb for old Access 97/2000 file format,'#13#10'.accdb for new Access 2007+ file format.' + ParentColor = False + end + object CbCreateVPFields: TCheckBox + AnchorSideLeft.Control = FileNameEdit + AnchorSideTop.Control = Label1 + AnchorSideTop.Side = asrBottom + Left = 16 + Height = 19 + Top = 85 + Width = 140 + BorderSpacing.Top = 8 + BorderSpacing.Bottom = 16 + Caption = 'Add VisualPlanIt tables' + Checked = True + State = cbChecked + TabOrder = 1 + end + end object ODBCConnection1: TODBCConnection Connected = False LoginPrompt = False KeepConnection = False Transaction = SQLTransaction1 Options = [] - left = 104 + left = 48 + top = 168 end object SQLTransaction1: TSQLTransaction Active = False Action = caCommit Database = ODBCConnection1 Options = [] - left = 216 + left = 152 + top = 168 end end diff --git a/components/tvplanit/examples/datastores/flex/access/tools/camain.pas b/components/tvplanit/examples/datastores/flex/access/tools/camain.pas index 903c456ca..4e3e1ce31 100644 --- a/components/tvplanit/examples/datastores/flex/access/tools/camain.pas +++ b/components/tvplanit/examples/datastores/flex/access/tools/camain.pas @@ -21,10 +21,12 @@ type Label1: TLabel; ODBCConnection1: TODBCConnection; Panel1: TPanel; + Panel2: TPanel; SQLTransaction1: TSQLTransaction; StatusBar1: TStatusBar; procedure BtnCreateDBClick(Sender: TObject); procedure BtnCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); private function CreateAccessDatabase(DatabaseFile: string): boolean; procedure CreateContactsTable; @@ -314,6 +316,11 @@ begin StatusMsg('Table "Tasks" created.'); end; +procedure TForm1.FormCreate(Sender: TObject); +begin + FilenameEdit.ButtonWidth := FilenameEdit.Height; +end; + procedure TForm1.StatusMsg(const AText: String); begin Statusbar1.SimpleText := AText; diff --git a/components/tvplanit/examples/datastores/flex/access/unit1.lfm b/components/tvplanit/examples/datastores/flex/access/unit1.lfm index 1bb83ba32..7bdf5af2c 100644 --- a/components/tvplanit/examples/datastores/flex/access/unit1.lfm +++ b/components/tvplanit/examples/datastores/flex/access/unit1.lfm @@ -38,7 +38,8 @@ object Form1: TForm1 Left = 216 Height = 25 Top = 4 - Width = 99 + Width = 98 + AutoSize = True BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Bottom = 4 @@ -49,10 +50,11 @@ object Form1: TForm1 object BtnEditRes: TButton AnchorSideLeft.Control = BtnNewRes AnchorSideLeft.Side = asrBottom - Left = 319 + Left = 318 Height = 25 Top = 4 - Width = 96 + Width = 94 + AutoSize = True BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Bottom = 4 @@ -66,9 +68,9 @@ object Form1: TForm1 Height = 653 Top = 33 Width = 980 - ActivePage = TabSheet1 + ActivePage = TabSheet3 Align = alClient - TabIndex = 0 + TabIndex = 2 TabOrder = 1 OnChange = PageControl1Change object TabSheet1: TTabSheet @@ -265,13 +267,20 @@ object Form1: TForm1 end object TabSheet3: TTabSheet Caption = 'Grids' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 972 object TabControl1: TTabControl + AnchorSideLeft.Control = TabSheet3 + AnchorSideTop.Control = DBNavigator + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = TabSheet3 + AnchorSideBottom.Side = asrBottom Left = 8 - Height = 577 - Top = 39 - Width = 960 + Height = 576 + Top = 41 + Width = 956 OnChange = TabControl1Change TabIndex = 0 Tabs.Strings = ( @@ -285,9 +294,9 @@ object Form1: TForm1 TabOrder = 0 object Grid: TDBGrid Left = 2 - Height = 552 + Height = 551 Top = 23 - Width = 956 + Width = 952 Align = alClient Color = clWindow Columns = <> @@ -297,11 +306,15 @@ object Form1: TForm1 end end object DBNavigator: TDBNavigator + AnchorSideLeft.Control = TabSheet3 + AnchorSideTop.Control = TabSheet3 Left = 8 Height = 25 Top = 8 Width = 241 BevelOuter = bvNone + BorderSpacing.Left = 8 + BorderSpacing.Top = 8 ChildSizing.EnlargeHorizontal = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds @@ -314,10 +327,15 @@ object Form1: TForm1 TabOrder = 1 end object BtnApplyToPlanner: TButton - Left = 264 + AnchorSideLeft.Control = DBNavigator + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = DBNavigator + AnchorSideTop.Side = asrCenter + Left = 257 Height = 25 Top = 8 Width = 120 + BorderSpacing.Left = 8 Caption = 'Apply to planner' OnClick = BtnApplyToPlannerClick TabOrder = 2 @@ -592,7 +610,6 @@ object Form1: TForm1 end object QryResources: TSQLQuery PacketRecords = -1 - IndexName = 'DEFAULT_ORDER' FieldDefs = < item Name = 'ResourceID' @@ -710,7 +727,6 @@ object Form1: TForm1 end object QryContacts: TSQLQuery PacketRecords = -1 - IndexName = 'DEFAULT_ORDER' FieldDefs = < item Name = 'RecordID' @@ -1054,7 +1070,6 @@ object Form1: TForm1 end object QryEvents: TSQLQuery PacketRecords = -1 - IndexName = 'DEFAULT_ORDER' FieldDefs = < item Name = 'RecordID' @@ -1186,7 +1201,6 @@ object Form1: TForm1 end object QryTasks: TSQLQuery PacketRecords = -1 - IndexName = 'DEFAULT_ORDER' FieldDefs = < item Name = 'RecordID' @@ -1273,20 +1287,20 @@ object Form1: TForm1 top = 621 end object ODBCConnection1: TODBCConnection - Connected = True + Connected = False LoginPrompt = False KeepConnection = True Params.Strings = ( - 'DBQ=D:\Prog_Lazarus\svn\lazarus-ccr\components\tvplanit\examples\datastores\flex\access\data.mdb' + '' ) Transaction = SQLTransaction1 Options = [] - Driver = 'Microsoft Access Driver (*.mdb, *.accdb)' + Driver = 'Microsoft Access Driver (*.mdb)' left = 136 top = 304 end object SQLTransaction1: TSQLTransaction - Active = True + Active = False Database = ODBCConnection1 Options = [] left = 136 diff --git a/components/tvplanit/examples/datastores/flex/access/unit1.pas b/components/tvplanit/examples/datastores/flex/access/unit1.pas index 7f8326c43..45df3ec5b 100644 --- a/components/tvplanit/examples/datastores/flex/access/unit1.pas +++ b/components/tvplanit/examples/datastores/flex/access/unit1.pas @@ -138,7 +138,8 @@ begin try // Connection - ODBCConnection1.Driver := 'Microsoft Access Driver (*.mdb, *.accdb)'; + ODBCConnection1.Driver := 'Microsoft Access Driver (*.mdb)'; + ODBCConnection1.Params.Clear; ODBCConnection1.Params.Add('DBQ=.\data.mdb'); ODBCConnection1.Connected := true; ODBCConnection1.KeepConnection := true; diff --git a/components/tvplanit/examples/datastores/flex/sqlite3/unit1.lfm b/components/tvplanit/examples/datastores/flex/sqlite3/unit1.lfm index 342ce6e1d..b4f8c12e5 100644 --- a/components/tvplanit/examples/datastores/flex/sqlite3/unit1.lfm +++ b/components/tvplanit/examples/datastores/flex/sqlite3/unit1.lfm @@ -8,39 +8,56 @@ object Form1: TForm1 ClientWidth = 910 OnCreate = FormCreate OnDestroy = FormDestroy - LCLVersion = '1.7' + LCLVersion = '1.6.4.0' object Panel1: TPanel Left = 0 - Height = 34 + Height = 33 Top = 0 Width = 910 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 34 + ClientHeight = 33 ClientWidth = 910 TabOrder = 0 object VpResourceCombo1: TVpResourceCombo - Left = 8 + AnchorSideLeft.Control = Panel1 + Left = 4 Height = 23 Top = 5 Width = 208 DataStore = VpFlexDataStore1 Style = csDropDownList + Borderspacing.Left = 4 + Borderspacing.Top = 4 + Borderspacing.Bottom = 4 end object BtnNewRes: TButton - Left = 222 + AnchorSideLeft.Control = VpResourceCombo1 + AnchorSideLeft.Side = asrBottom + Left = 216 Height = 25 Top = 4 - Width = 99 + Width = 98 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'New resource' OnClick = BtnNewResClick TabOrder = 1 end object BtnEditRes: TButton - Left = 328 + AnchorSideLeft.Control = BtnNewRes + AnchorSideLeft.Side = asrBottom + Left = 318 Height = 25 Top = 4 - Width = 96 + Width = 94 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Edit resource' OnClick = BtnEditResClick TabOrder = 2 @@ -48,8 +65,8 @@ object Form1: TForm1 end object PageControl1: TPageControl Left = 0 - Height = 652 - Top = 34 + Height = 653 + Top = 33 Width = 910 ActivePage = TabSheet1 Align = alClient @@ -57,11 +74,11 @@ object Form1: TForm1 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Events and tasks' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 902 object VpDayView1: TVpDayView Left = 0 - Height = 624 + Height = 625 Top = 0 Width = 283 DataStore = VpFlexDataStore1 @@ -97,18 +114,18 @@ object Form1: TForm1 end object Panel2: TPanel Left = 288 - Height = 624 + Height = 625 Top = 0 Width = 363 Align = alLeft BevelOuter = bvNone Caption = 'Panel2' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 363 TabOrder = 1 object VpWeekView1: TVpWeekView Left = 0 - Height = 378 + Height = 379 Top = 0 Width = 363 DataStore = VpFlexDataStore1 @@ -136,7 +153,7 @@ object Form1: TForm1 object VpMonthView1: TVpMonthView Left = 0 Height = 241 - Top = 383 + Top = 384 Width = 363 DataStore = VpFlexDataStore1 ControlLink = VpControlLink1 @@ -167,7 +184,7 @@ object Form1: TForm1 Cursor = crVSplit Left = 0 Height = 5 - Top = 378 + Top = 379 Width = 363 Align = alBottom ResizeAnchor = akBottom @@ -175,7 +192,7 @@ object Form1: TForm1 end object VpTaskList1: TVpTaskList Left = 656 - Height = 624 + Height = 625 Top = 0 Width = 246 DataStore = VpFlexDataStore1 @@ -203,13 +220,13 @@ object Form1: TForm1 end object Splitter1: TSplitter Left = 651 - Height = 624 + Height = 625 Top = 0 Width = 5 end object Splitter3: TSplitter Left = 283 - Height = 624 + Height = 625 Top = 0 Width = 5 end diff --git a/components/tvplanit/examples/datastores/ini/unit1.lfm b/components/tvplanit/examples/datastores/ini/unit1.lfm index 3b85490fc..9450746c7 100644 --- a/components/tvplanit/examples/datastores/ini/unit1.lfm +++ b/components/tvplanit/examples/datastores/ini/unit1.lfm @@ -7,39 +7,56 @@ object Form1: TForm1 ClientHeight = 686 ClientWidth = 980 OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '1.6.4.0' object Panel1: TPanel Left = 0 - Height = 34 + Height = 33 Top = 0 Width = 980 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 34 + ClientHeight = 33 ClientWidth = 980 TabOrder = 0 object VpResourceCombo1: TVpResourceCombo - Left = 8 + AnchorSideLeft.Control = Panel1 + Left = 4 Height = 23 Top = 5 Width = 208 DataStore = VpIniDatastore1 Style = csDropDownList + Borderspacing.Left = 4 + Borderspacing.Top = 4 + Borderspacing.Bottom = 4 end object BtnNewRes: TButton - Left = 222 + AnchorSideLeft.Control = VpResourceCombo1 + AnchorSideLeft.Side = asrBottom + Left = 216 Height = 25 Top = 4 - Width = 99 + Width = 98 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'New resource' OnClick = BtnNewResClick TabOrder = 1 end object BtnEditRes: TButton - Left = 328 + AnchorSideLeft.Control = BtnNewRes + AnchorSideLeft.Side = asrBottom + Left = 318 Height = 25 Top = 4 - Width = 96 + Width = 94 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Edit resource' OnClick = BtnEditResClick TabOrder = 2 @@ -47,8 +64,8 @@ object Form1: TForm1 end object PageControl1: TPageControl Left = 0 - Height = 652 - Top = 34 + Height = 653 + Top = 33 Width = 980 ActivePage = TabSheet1 Align = alClient @@ -56,11 +73,11 @@ object Form1: TForm1 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Events and tasks' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 972 object VpDayView1: TVpDayView Left = 0 - Height = 624 + Height = 625 Top = 0 Width = 301 DataStore = VpIniDatastore1 @@ -78,7 +95,6 @@ object Form1: TForm1 TimeSlotColors.Active = clWhite TimeSlotColors.Inactive = 8454143 TimeSlotColors.Holiday = 16744703 - TimeSlotColors.Weekday = clWhite TimeSlotColors.Weekend = 16777088 TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00 @@ -97,18 +113,18 @@ object Form1: TForm1 end object Panel2: TPanel Left = 306 - Height = 624 + Height = 625 Top = 0 Width = 386 Align = alLeft BevelOuter = bvNone Caption = 'Panel2' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 386 TabOrder = 1 object VpWeekView1: TVpWeekView Left = 0 - Height = 378 + Height = 379 Top = 0 Width = 386 DataStore = VpIniDatastore1 @@ -136,7 +152,7 @@ object Form1: TForm1 object VpMonthView1: TVpMonthView Left = 0 Height = 241 - Top = 383 + Top = 384 Width = 386 DataStore = VpIniDatastore1 ControlLink = VpControlLink1 @@ -146,29 +162,28 @@ object Form1: TForm1 TabOrder = 1 KBNavigation = True DateLabelFormat = 'mmmm yyyy' - DayHeadAttributes.Color = clBtnFace DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Name = 'Tahoma' + DayHeadAttributes.Color = clBtnFace DayNameStyle = dsShort DrawingStyle = dsFlat EventDayStyle = [] HeadAttributes.Color = clBtnFace - LineColor = clGray - TimeFormat = tf12Hour - TodayAttributes.Color = clSilver - TodayAttributes.BorderPen.Color = clRed - TodayAttributes.BorderPen.Width = 3 OffDayColor = clSilver SelectedDayColor = clRed ShowEvents = True ShowEventTime = False + TimeFormat = tf12Hour + TodayAttributes.Color = clSilver + TodayAttributes.BorderPen.Color = clRed + TodayAttributes.BorderPen.Width = 3 WeekStartsOn = dtSunday end object Splitter2: TSplitter Cursor = crVSplit Left = 0 Height = 5 - Top = 378 + Top = 379 Width = 386 Align = alBottom ResizeAnchor = akBottom @@ -176,7 +191,7 @@ object Form1: TForm1 end object VpTaskList1: TVpTaskList Left = 697 - Height = 624 + Height = 625 Top = 0 Width = 275 DataStore = VpIniDatastore1 @@ -204,13 +219,13 @@ object Form1: TForm1 end object Splitter1: TSplitter Left = 692 - Height = 624 + Height = 625 Top = 0 Width = 5 end object Splitter3: TSplitter Left = 301 - Height = 624 + Height = 625 Top = 0 Width = 5 end @@ -264,7 +279,7 @@ object Form1: TForm1 top = 264 end object VpResourceEditDialog1: TVpResourceEditDialog - Version = 'v1.04' + Version = 'v1.05' DataStore = VpIniDatastore1 Options = [] Placement.Position = mpCenter diff --git a/components/tvplanit/examples/datastores/sqlite3/unit1.lfm b/components/tvplanit/examples/datastores/sqlite3/unit1.lfm index 186d8018d..ccefe1b4b 100644 --- a/components/tvplanit/examples/datastores/sqlite3/unit1.lfm +++ b/components/tvplanit/examples/datastores/sqlite3/unit1.lfm @@ -7,39 +7,56 @@ object Form1: TForm1 ClientHeight = 686 ClientWidth = 980 OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '1.6.4.0' object Panel1: TPanel Left = 0 - Height = 34 + Height = 33 Top = 0 Width = 980 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 34 + ClientHeight = 33 ClientWidth = 980 TabOrder = 0 object VpResourceCombo1: TVpResourceCombo - Left = 8 + AnchorSideLeft.Control = Panel1 + Left = 4 Height = 23 Top = 5 Width = 208 DataStore = VpSqlite3Datastore1 Style = csDropDownList + Borderspacing.Left = 4 + Borderspacing.Top = 4 + Borderspacing.Bottom = 4 end object BtnNewRes: TButton - Left = 222 + AnchorSideLeft.Control = VpResourceCombo1 + AnchorSideLeft.Side = asrBottom + Left = 216 Height = 25 Top = 4 - Width = 99 + Width = 98 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'New resource' OnClick = BtnNewResClick TabOrder = 1 end object BtnEditRes: TButton - Left = 328 + AnchorSideLeft.Control = BtnNewRes + AnchorSideLeft.Side = asrBottom + Left = 318 Height = 25 Top = 4 - Width = 96 + Width = 94 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Edit resource' OnClick = BtnEditResClick TabOrder = 2 @@ -47,8 +64,8 @@ object Form1: TForm1 end object PageControl1: TPageControl Left = 0 - Height = 652 - Top = 34 + Height = 653 + Top = 33 Width = 980 ActivePage = TabSheet3 Align = alClient @@ -79,7 +96,6 @@ object Form1: TForm1 TimeSlotColors.Active = clWhite TimeSlotColors.Inactive = 8454143 TimeSlotColors.Holiday = 16744703 - TimeSlotColors.Weekday = clWhite TimeSlotColors.Weekend = 16777088 TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00 @@ -147,22 +163,21 @@ object Form1: TForm1 TabOrder = 1 KBNavigation = True DateLabelFormat = 'mmmm yyyy' - DayHeadAttributes.Color = clBtnFace DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Name = 'Tahoma' + DayHeadAttributes.Color = clBtnFace DayNameStyle = dsShort DrawingStyle = dsFlat EventDayStyle = [] HeadAttributes.Color = clBtnFace - LineColor = clGray - TimeFormat = tf12Hour - TodayAttributes.Color = clSilver - TodayAttributes.BorderPen.Color = clRed - TodayAttributes.BorderPen.Width = 3 OffDayColor = clSilver SelectedDayColor = clRed ShowEvents = True ShowEventTime = False + TimeFormat = tf12Hour + TodayAttributes.Color = clSilver + TodayAttributes.BorderPen.Color = clRed + TodayAttributes.BorderPen.Width = 3 WeekStartsOn = dtSunday end object Splitter2: TSplitter @@ -251,14 +266,18 @@ object Form1: TForm1 end object TabSheet3: TTabSheet Caption = 'Grids' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 972 object DBNavigator: TDBNavigator + AnchorSideLeft.Control = TabSheet3 + AnchorSideTop.Control = TabSheet3 Left = 8 Height = 25 Top = 8 Width = 241 BevelOuter = bvNone + BorderSpacing.Left = 8 + BorderSpacing.Top = 8 ChildSizing.EnlargeHorizontal = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds @@ -271,19 +290,32 @@ object Form1: TForm1 TabOrder = 0 end object BtnApplyToPlanner: TButton - Left = 264 + AnchorSideLeft.Control = DBNavigator + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = DBNavigator + AnchorSideTop.Side = asrCenter + Left = 257 Height = 25 Top = 8 - Width = 120 + Width = 114 + AutoSize = True + BorderSpacing.Left = 8 Caption = 'Apply to planner' OnClick = BtnApplyToPlannerClick TabOrder = 1 end object TabControl1: TTabControl + AnchorSideLeft.Control = TabSheet3 + AnchorSideTop.Control = DBNavigator + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet3 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = TabSheet3 + AnchorSideBottom.Side = asrBottom Left = 8 - Height = 577 - Top = 39 - Width = 960 + Height = 576 + Top = 41 + Width = 956 OnChange = TabControl1Change TabIndex = 0 Tabs.Strings = ( @@ -297,9 +329,9 @@ object Form1: TForm1 TabOrder = 2 object Grid: TDBGrid Left = 2 - Height = 552 + Height = 551 Top = 23 - Width = 956 + Width = 952 Align = alClient Color = clWindow Columns = <> diff --git a/components/tvplanit/examples/datastores/xml/unit1.lfm b/components/tvplanit/examples/datastores/xml/unit1.lfm index 4e0f099a6..ed7921745 100644 --- a/components/tvplanit/examples/datastores/xml/unit1.lfm +++ b/components/tvplanit/examples/datastores/xml/unit1.lfm @@ -7,39 +7,56 @@ object Form1: TForm1 ClientHeight = 686 ClientWidth = 980 OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '1.6.4.0' object Panel1: TPanel Left = 0 - Height = 34 + Height = 33 Top = 0 Width = 980 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 34 + ClientHeight = 33 ClientWidth = 980 TabOrder = 0 object VpResourceCombo1: TVpResourceCombo - Left = 8 + AnchorSideLeft.Control = Panel1 + Left = 4 Height = 23 Top = 5 Width = 208 DataStore = VpXmlDatastore1 Style = csDropDownList + Borderspacing.Left = 4 + Borderspacing.Top = 4 + Borderspacing.Bottom = 4 end object BtnNewRes: TButton - Left = 222 + AnchorSideLeft.Control = VpResourceCombo1 + AnchorSideLeft.Side = asrBottom + Left = 216 Height = 25 Top = 4 - Width = 99 + Width = 98 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'New resource' OnClick = BtnNewResClick TabOrder = 1 end object BtnEditRes: TButton - Left = 328 + AnchorSideLeft.Control = BtnNewRes + AnchorSideLeft.Side = asrBottom + Left = 318 Height = 25 Top = 4 - Width = 96 + Width = 94 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Edit resource' OnClick = BtnEditResClick TabOrder = 2 @@ -47,8 +64,8 @@ object Form1: TForm1 end object PageControl1: TPageControl Left = 0 - Height = 652 - Top = 34 + Height = 653 + Top = 33 Width = 980 ActivePage = TabSheet1 Align = alClient @@ -56,11 +73,11 @@ object Form1: TForm1 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Events and tasks' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 972 object VpDayView1: TVpDayView Left = 0 - Height = 624 + Height = 625 Top = 0 Width = 301 DataStore = VpXmlDatastore1 @@ -81,7 +98,6 @@ object Form1: TForm1 TimeSlotColors.Active = clWhite TimeSlotColors.Inactive = 8454143 TimeSlotColors.Holiday = 16744703 - TimeSlotColors.Weekday = clWhite TimeSlotColors.Weekend = 16777088 TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00 @@ -100,18 +116,18 @@ object Form1: TForm1 end object Panel2: TPanel Left = 306 - Height = 624 + Height = 625 Top = 0 Width = 386 Align = alLeft BevelOuter = bvNone Caption = 'Panel2' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 386 TabOrder = 1 object VpWeekView1: TVpWeekView Left = 0 - Height = 378 + Height = 379 Top = 0 Width = 386 DataStore = VpXmlDatastore1 @@ -144,7 +160,7 @@ object Form1: TForm1 object VpMonthView1: TVpMonthView Left = 0 Height = 241 - Top = 383 + Top = 384 Width = 386 DataStore = VpXmlDatastore1 ControlLink = VpControlLink1 @@ -156,31 +172,30 @@ object Form1: TForm1 TabOrder = 1 KBNavigation = True DateLabelFormat = 'mmmm yyyy' - DayHeadAttributes.Color = clBtnFace DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Name = 'Tahoma' + DayHeadAttributes.Color = clBtnFace DayNameStyle = dsShort DayNumberFont.Height = -12 DrawingStyle = dsFlat EventDayStyle = [] EventFont.Height = -12 HeadAttributes.Color = clBtnFace - LineColor = clGray - TimeFormat = tf12Hour - TodayAttributes.Color = clSilver - TodayAttributes.BorderPen.Color = clRed - TodayAttributes.BorderPen.Width = 3 OffDayColor = clSilver SelectedDayColor = clRed ShowEvents = True ShowEventTime = False + TimeFormat = tf12Hour + TodayAttributes.Color = clSilver + TodayAttributes.BorderPen.Color = clRed + TodayAttributes.BorderPen.Width = 3 WeekStartsOn = dtSunday end object Splitter2: TSplitter Cursor = crVSplit Left = 0 Height = 5 - Top = 378 + Top = 379 Width = 386 Align = alBottom ResizeAnchor = akBottom @@ -188,7 +203,7 @@ object Form1: TForm1 end object VpTaskList1: TVpTaskList Left = 697 - Height = 624 + Height = 625 Top = 0 Width = 275 DataStore = VpXmlDatastore1 @@ -217,13 +232,13 @@ object Form1: TForm1 end object Splitter1: TSplitter Left = 692 - Height = 624 + Height = 625 Top = 0 Width = 5 end object Splitter3: TSplitter Left = 301 - Height = 624 + Height = 625 Top = 0 Width = 5 end @@ -280,7 +295,7 @@ object Form1: TForm1 top = 264 end object VpResourceEditDialog1: TVpResourceEditDialog - Version = 'v1.04' + Version = 'v1.05' DataStore = VpXmlDatastore1 Options = [] Placement.Position = mpCenter @@ -316,6 +331,8 @@ object Form1: TForm1 CategoryColorMap.Category8.Description = 'Category 8' CategoryColorMap.Category9.Color = clMaroon CategoryColorMap.Category9.Description = 'Category 9' + HiddenCategories.BackgroundColor = clSilver + HiddenCategories.Color = clGray EnableEventTimer = True PlayEventSounds = True AutoConnect = True diff --git a/components/tvplanit/examples/datastores/zeos/project1.lpi b/components/tvplanit/examples/datastores/zeos/project1.lpi index 456e36ac8..fba2e6663 100644 --- a/components/tvplanit/examples/datastores/zeos/project1.lpi +++ b/components/tvplanit/examples/datastores/zeos/project1.lpi @@ -21,19 +21,22 @@ - + - + - + - + - + + + + diff --git a/components/tvplanit/examples/datastores/zeos/unit1.lfm b/components/tvplanit/examples/datastores/zeos/unit1.lfm index 2f3a5884e..cdbbfed93 100644 --- a/components/tvplanit/examples/datastores/zeos/unit1.lfm +++ b/components/tvplanit/examples/datastores/zeos/unit1.lfm @@ -7,39 +7,56 @@ object Form1: TForm1 ClientHeight = 686 ClientWidth = 980 OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '1.6.4.0' object Panel1: TPanel Left = 0 - Height = 34 + Height = 33 Top = 0 Width = 980 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 34 + ClientHeight = 33 ClientWidth = 980 TabOrder = 0 object VpResourceCombo1: TVpResourceCombo - Left = 8 + AnchorSideLeft.Control = Panel1 + Left = 4 Height = 23 Top = 5 Width = 208 DataStore = VpZeosDatastore1 Style = csDropDownList + Borderspacing.Left = 4 + Borderspacing.Top = 4 + Borderspacing.Bottom = 4 end object BtnNewRes: TButton - Left = 222 + AnchorSideLeft.Control = VpResourceCombo1 + AnchorSideLeft.Side = asrBottom + Left = 216 Height = 25 Top = 4 - Width = 99 + Width = 98 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'New resource' OnClick = BtnNewResClick TabOrder = 1 end object BtnEditRes: TButton - Left = 328 + AnchorSideLeft.Control = BtnNewRes + AnchorSideLeft.Side = asrBottom + Left = 318 Height = 25 Top = 4 - Width = 96 + Width = 94 + AutoSize = True + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Edit resource' OnClick = BtnEditResClick TabOrder = 2 @@ -47,8 +64,8 @@ object Form1: TForm1 end object PageControl1: TPageControl Left = 0 - Height = 652 - Top = 34 + Height = 653 + Top = 33 Width = 980 ActivePage = TabSheet1 Align = alClient @@ -56,11 +73,11 @@ object Form1: TForm1 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Events and tasks' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 972 object VpDayView1: TVpDayView Left = 0 - Height = 624 + Height = 625 Top = 0 Width = 301 DataStore = VpZeosDatastore1 @@ -78,7 +95,6 @@ object Form1: TForm1 TimeSlotColors.Active = clWhite TimeSlotColors.Inactive = 8454143 TimeSlotColors.Holiday = 16744703 - TimeSlotColors.Weekday = clWhite TimeSlotColors.Weekend = 16777088 TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00 @@ -97,18 +113,18 @@ object Form1: TForm1 end object Panel2: TPanel Left = 306 - Height = 624 + Height = 625 Top = 0 Width = 386 Align = alLeft BevelOuter = bvNone Caption = 'Panel2' - ClientHeight = 624 + ClientHeight = 625 ClientWidth = 386 TabOrder = 1 object VpWeekView1: TVpWeekView Left = 0 - Height = 378 + Height = 379 Top = 0 Width = 386 DataStore = VpZeosDatastore1 @@ -136,7 +152,7 @@ object Form1: TForm1 object VpMonthView1: TVpMonthView Left = 0 Height = 241 - Top = 383 + Top = 384 Width = 386 DataStore = VpZeosDatastore1 ControlLink = VpControlLink1 @@ -146,29 +162,28 @@ object Form1: TForm1 TabOrder = 1 KBNavigation = True DateLabelFormat = 'mmmm yyyy' - DayHeadAttributes.Color = clBtnFace DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Name = 'Tahoma' + DayHeadAttributes.Color = clBtnFace DayNameStyle = dsShort DrawingStyle = dsFlat EventDayStyle = [] HeadAttributes.Color = clBtnFace - LineColor = clGray - TimeFormat = tf12Hour - TodayAttributes.Color = clSilver - TodayAttributes.BorderPen.Color = clRed - TodayAttributes.BorderPen.Width = 3 OffDayColor = clSilver SelectedDayColor = clRed ShowEvents = True ShowEventTime = False + TimeFormat = tf12Hour + TodayAttributes.Color = clSilver + TodayAttributes.BorderPen.Color = clRed + TodayAttributes.BorderPen.Width = 3 WeekStartsOn = dtSunday end object Splitter2: TSplitter Cursor = crVSplit Left = 0 Height = 5 - Top = 378 + Top = 379 Width = 386 Align = alBottom ResizeAnchor = akBottom @@ -176,7 +191,7 @@ object Form1: TForm1 end object VpTaskList1: TVpTaskList Left = 697 - Height = 624 + Height = 625 Top = 0 Width = 275 DataStore = VpZeosDatastore1 @@ -204,13 +219,13 @@ object Form1: TForm1 end object Splitter1: TSplitter Left = 692 - Height = 624 + Height = 625 Top = 0 Width = 5 end object Splitter3: TSplitter Left = 301 - Height = 624 + Height = 625 Top = 0 Width = 5 end @@ -251,6 +266,7 @@ object Form1: TForm1 end object ZConnection1: TZConnection ControlsCodePage = cCP_UTF8 + AutoEncodeStrings = False Properties.Strings = ( 'AutoEncodeStrings=ON' ) @@ -283,6 +299,7 @@ object Form1: TForm1 HiddenCategories.Color = clGray EnableEventTimer = True PlayEventSounds = True + AutoCreate = True Daybuffer = 31 left = 136 top = 200 @@ -302,7 +319,7 @@ object Form1: TForm1 top = 264 end object VpResourceEditDialog1: TVpResourceEditDialog - Version = 'v1.04' + Version = 'v1.05' DataStore = VpZeosDatastore1 Options = [] Placement.Position = mpCenter diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm index 34382a38d..f4dad9d46 100644 --- a/components/tvplanit/examples/fulldemo/demomain.lfm +++ b/components/tvplanit/examples/fulldemo/demomain.lfm @@ -9,7 +9,7 @@ object MainForm: TMainForm Menu = MainMenu1 OnCloseQuery = FormCloseQuery OnCreate = FormCreate - LCLVersion = '1.9.0.0' + LCLVersion = '1.6.4.0' object Panel1: TPanel Left = 125 Height = 576 @@ -57,7 +57,7 @@ object MainForm: TMainForm Height = 528 Top = 48 Width = 834 - PageIndex = 0 + PageIndex = 3 Align = alClient TabOrder = 1 TabStop = True @@ -66,17 +66,17 @@ object MainForm: TMainForm Left = 0 Height = 528 Top = 0 - Width = 333 + Width = 357 Align = alLeft BevelOuter = bvNone ClientHeight = 528 - ClientWidth = 333 + ClientWidth = 357 TabOrder = 0 object VpMonthView1: TVpMonthView Left = 0 Height = 197 Top = 331 - Width = 333 + Width = 357 ShowHint = True ControlLink = VpControlLink1 Color = clWindow @@ -111,15 +111,15 @@ object MainForm: TMainForm Left = 0 Height = 5 Top = 326 - Width = 333 + Width = 357 Align = alBottom ResizeAnchor = akBottom end object VpDayView1: TVpDayView Left = 0 - Height = 284 - Top = 42 - Width = 333 + Height = 292 + Top = 34 + Width = 357 ShowHint = True ControlLink = VpControlLink1 Color = clWindow @@ -201,40 +201,61 @@ object MainForm: TMainForm end object DaySelectorPanel: TPanel Left = 0 - Height = 42 + Height = 34 Top = 0 - Width = 333 + Width = 357 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 42 - ClientWidth = 333 + ClientHeight = 34 + ClientWidth = 357 TabOrder = 3 Visible = False object LblVisibleDays: TLabel - Left = 8 + AnchorSideLeft.Control = DaySelectorPanel + AnchorSideTop.Control = DaySelectorPanel + AnchorSideTop.Side = asrCenter + Left = 4 Height = 15 - Top = 12 + Top = 10 Width = 61 + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Visible days' ParentColor = False end object DaysTrackBar: TTrackBar - Left = 56 + AnchorSideLeft.Control = LblVisibleDays + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = DaySelectorPanel + AnchorSideTop.Side = asrCenter + Left = 73 Height = 25 - Top = 8 + Top = 5 Width = 180 Max = 7 Min = 1 OnChange = DaysTrackBarChange PageSize = 1 Position = 1 + BorderSpacing.Left = 8 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 TabOrder = 0 end object CbGranularity: TComboBox - Left = 320 + AnchorSideLeft.Control = LblGranularity + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = DaySelectorPanel + AnchorSideTop.Side = asrCenter + Left = 331 Height = 23 - Top = 8 + Top = 6 Width = 120 + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 ItemHeight = 15 ItemIndex = 5 Items.Strings = ( @@ -252,26 +273,33 @@ object MainForm: TMainForm Text = '30 Min' end object LblGranularity: TLabel - Left = 256 + AnchorSideLeft.Control = DaysTrackBar + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = DaySelectorPanel + AnchorSideTop.Side = asrCenter + Left = 269 Height = 15 - Top = 12 + Top = 10 Width = 58 + BorderSpacing.Left = 16 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Granularity' ParentColor = False end end end object Splitter3: TSplitter - Left = 333 + Left = 357 Height = 528 Top = 0 Width = 5 end object VpWeekView1: TVpWeekView - Left = 338 + Left = 362 Height = 528 Top = 0 - Width = 496 + Width = 472 ShowHint = True ControlLink = VpControlLink1 Color = clWindow @@ -304,21 +332,26 @@ object MainForm: TMainForm end end object Tasks: TPage - object Panel6: TPanel + object TaskControlPanel: TPanel Left = 0 - Height = 36 + Height = 27 Top = 0 - Width = 853 + Width = 834 Align = alTop + AutoSize = True BevelOuter = bvNone - ClientHeight = 36 - ClientWidth = 853 + ClientHeight = 27 + ClientWidth = 834 TabOrder = 0 object RbAllTasks: TRadioButton - Left = 8 + AnchorSideLeft.Control = TaskControlPanel + Left = 4 Height = 19 - Top = 8 + Top = 4 Width = 63 + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'All tasks' Checked = True OnChange = RbAllTasksChange @@ -328,11 +361,13 @@ object MainForm: TMainForm object RbHideCompletedTasks: TRadioButton AnchorSideLeft.Control = RbAllTasks AnchorSideLeft.Side = asrBottom - Left = 101 + Left = 99 Height = 19 - Top = 8 + Top = 4 Width = 134 - BorderSpacing.Left = 30 + BorderSpacing.Left = 32 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Hide completed tasks' OnChange = RbHideCompletedTasksChange TabOrder = 1 @@ -340,9 +375,9 @@ object MainForm: TMainForm end object VpTaskList1: TVpTaskList Left = 0 - Height = 496 - Top = 36 - Width = 853 + Height = 501 + Top = 27 + Width = 834 ControlLink = VpControlLink1 Color = clWindow Font.Height = -12 @@ -417,7 +452,7 @@ object MainForm: TMainForm Left = 96 Height = 25 Top = 64 - Width = 75 + Width = 46 Caption = 'Edit' OnClick = BtnEditResClick TabOrder = 1 @@ -426,7 +461,7 @@ object MainForm: TMainForm Left = 16 Height = 25 Top = 64 - Width = 75 + Width = 50 Caption = 'New' OnClick = BtnNewResClick TabOrder = 2 @@ -443,18 +478,23 @@ object MainForm: TMainForm object LblLanguage: TLabel AnchorSideTop.Control = CbLanguages AnchorSideTop.Side = asrCenter - Left = 16 + AnchorSideRight.Control = CbLanguages + Left = 52 Height = 15 Top = 28 Width = 52 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'Language' ParentColor = False end object CbLanguages: TComboBox + AnchorSideTop.Control = Settings Left = 112 Height = 23 Top = 24 Width = 172 + BorderSpacing.Top = 24 DropDownCount = 24 ItemHeight = 15 OnChange = CbLanguagesChange @@ -462,28 +502,41 @@ object MainForm: TMainForm TabOrder = 0 end object CbDrawingStyle: TComboBox + AnchorSideLeft.Control = CbLanguages + AnchorSideTop.Control = CbAddressBuilder + AnchorSideTop.Side = asrBottom Left = 112 Height = 23 - Top = 184 + Top = 176 Width = 172 + BorderSpacing.Top = 16 ItemHeight = 15 OnChange = CbDrawingStyleChange Style = csDropDownList TabOrder = 4 end object LblDrawingStyle: TLabel - Left = 24 + AnchorSideTop.Control = CbDrawingStyle + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = CbDrawingStyle + Left = 30 Height = 15 - Top = 188 + Top = 180 Width = 74 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'Drawing style:' ParentColor = False end object CbAddressBuilder: TComboBox + AnchorSideLeft.Control = CbLanguages + AnchorSideTop.Control = CbFirstDayOfWeek + AnchorSideTop.Side = asrBottom Left = 112 Height = 23 - Top = 144 + Top = 137 Width = 172 + BorderSpacing.Top = 16 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( @@ -500,18 +553,26 @@ object MainForm: TMainForm object LblAddressBuilder: TLabel AnchorSideTop.Control = CbAddressBuilder AnchorSideTop.Side = asrCenter - Left = 16 + AnchorSideRight.Control = CbAddressBuilder + Left = 22 Height = 15 - Top = 148 + Top = 141 Width = 82 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'Address builder' ParentColor = False end object CbAllowInplaceEditing: TCheckBox - Left = 349 + AnchorSideLeft.Control = CbLanguages + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CbLanguages + AnchorSideTop.Side = asrCenter + Left = 316 Height = 19 - Top = 28 + Top = 26 Width = 131 + BorderSpacing.Left = 32 Caption = 'Allow inplace editing' Checked = True OnChange = CbAllowInplaceEditingChange @@ -519,10 +580,14 @@ object MainForm: TMainForm TabOrder = 5 end object CbFirstDayOfWeek: TComboBox + AnchorSideLeft.Control = CbLanguages + AnchorSideTop.Control = CbTimeFormat + AnchorSideTop.Side = asrBottom Left = 112 Height = 23 - Top = 104 + Top = 98 Width = 172 + BorderSpacing.Top = 16 ItemHeight = 15 OnChange = CbFirstDayOfWeekChange Style = csDropDownList @@ -531,18 +596,25 @@ object MainForm: TMainForm object LblFirstDayOfWeek: TLabel AnchorSideTop.Control = CbFirstDayOfWeek AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = CbFirstDayOfWeek Left = 16 Height = 15 - Top = 108 + Top = 102 Width = 88 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'First day of week' ParentColor = False end object CbTimeFormat: TComboBox + AnchorSideLeft.Control = CbLanguages + AnchorSideTop.Control = LblLanguage + AnchorSideTop.Side = asrBottom Left = 112 Height = 23 - Top = 64 + Top = 59 Width = 172 + BorderSpacing.Top = 16 ItemHeight = 15 OnChange = CbTimeFormatChange Style = csDropDownList @@ -551,35 +623,47 @@ object MainForm: TMainForm object LblTimeFormat: TLabel AnchorSideTop.Control = CbTimeFormat AnchorSideTop.Side = asrCenter - Left = 16 + AnchorSideRight.Control = CbTimeFormat + Left = 38 Height = 15 - Top = 68 + Top = 63 Width = 66 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'Time format' ParentColor = False end object CbAllowDragAndDrop: TCheckBox - Left = 349 + AnchorSideLeft.Control = CbAllowInplaceEditing + AnchorSideTop.Control = CbTimeFormat + AnchorSideTop.Side = asrCenter + Left = 316 Height = 19 - Top = 56 + Top = 61 Width = 179 Caption = 'Allow drag and drop of events' OnChange = CbAllowDragAndDropChange TabOrder = 6 end object CbDragDropTransparent: TCheckBox - Left = 349 + AnchorSideLeft.Control = CbAllowInplaceEditing + AnchorSideTop.Control = CbFirstDayOfWeek + AnchorSideTop.Side = asrCenter + Left = 316 Height = 19 - Top = 86 + Top = 100 Width = 161 Caption = 'Transparent drag and drop' OnChange = CbDragDropTransparentChange TabOrder = 7 end object CbShowEventHints: TCheckBox - Left = 349 + AnchorSideLeft.Control = CbAllowInplaceEditing + AnchorSideTop.Control = CbAddressBuilder + AnchorSideTop.Side = asrCenter + Left = 316 Height = 19 - Top = 117 + Top = 139 Width = 176 Caption = 'Show event and contact hints' Checked = True diff --git a/components/tvplanit/examples/fulldemo/demomain.lrt b/components/tvplanit/examples/fulldemo/demomain.lrt index 630d72238..32290cb63 100644 --- a/components/tvplanit/examples/fulldemo/demomain.lrt +++ b/components/tvplanit/examples/fulldemo/demomain.lrt @@ -17,6 +17,7 @@ TMAINFORM.LBLFIRSTDAYOFWEEK.CAPTION=First day of week TMAINFORM.LBLTIMEFORMAT.CAPTION=Time format TMAINFORM.CBALLOWDRAGANDDROP.CAPTION=Allow drag and drop of events TMAINFORM.CBDRAGDROPTRANSPARENT.CAPTION=Transparent drag and drop +TMAINFORM.CBSHOWEVENTHINTS.CAPTION=Show event and contact hints TMAINFORM.MENUITEM1.CAPTION=File TMAINFORM.MNUEDITPRINTFORMATS.CAPTION=Edit print formats... TMAINFORM.MNULOADPRINTFORMATS.CAPTION=Load print formats... diff --git a/components/tvplanit/examples/fulldemo/demomain.pas b/components/tvplanit/examples/fulldemo/demomain.pas index 3cc2bffd6..0cd702aed 100644 --- a/components/tvplanit/examples/fulldemo/demomain.pas +++ b/components/tvplanit/examples/fulldemo/demomain.pas @@ -69,7 +69,7 @@ type LeftPanel: TPanel; DaySelectorPanel: TPanel; HeaderPanel: TPanel; - Panel6: TPanel; + TaskControlPanel: TPanel; RbAllTasks: TRadioButton; RbHideCompletedTasks: TRadioButton; Splitter2: TSplitter; @@ -729,53 +729,24 @@ procedure TMainForm.PositionControls; var w: Integer; begin - // DayView page - DaySelectorPanel.Height := 2*CbGranularity.Top + CbGranularity.Height; - - // Tasks page - Panel6.ClientHeight := 2*RbAllTasks.Top + ScaleY(RbAllTasks.Height, DesignTimeDPI); - - // Resources page - w := MaxValue([ - GetButtonWidth(BtnNewRes), - GetButtonWidth(BtnEditRes), - GetButtonWidth(BtnDeleteRes) - ]); - BtnNewRes.Width := w; - BtnEditRes.Width := w; - BtnDeleteRes.Width := w; - BtnEditRes.Left := RightOf(BtnNewRes) + 8; - BtnDeleteRes.Left := RightOf(BtnEditRes) + 8; - VpResourceCombo1.Width := RightOf(BtnDeleteRes) - BtnNewRes.Left; - // Settings page w := MaxValue([ GetLabelWidth(LblLanguage), GetLabelWidth(LblTimeFormat), GetLabelWidth(LblFirstDayOfWeek), - GetLabelWidth(LblAddressBuilder) + GetLabelWidth(LblAddressBuilder), + GetLabelWidth(LblDrawingStyle) ]); CbLanguages.Left := 24 + w + 8; - CbTimeFormat.Left := CbLanguages.Left; - CbFirstDayOfWeek.Left := CbLanguages.Left; - CbAddressBuilder.Left := CbLanguages.Left; - CbDrawingStyle.Left := CbLanguages.Left;; - LblLanguage.Left := CbLanguages.Left - 8 - GetLabelWidth(LblLanguage); - LblTimeFormat.Left := CbTimeFormat.Left - 8 - GetLabelWidth(LblTimeFormat); - LblFirstDayOfWeek.Left := CbFirstDayOfWeek.Left - 8 - GetLabelWidth(LblFirstDayOfWeek); - LblAddressBuilder.Left := CbAddressBuilder.Left - 8 - GetLabelWidth(LblAddressBuilder); - LblDrawingStyle.Left := CbDrawingStyle.Left - 8 - GetlabelWidth(LblDrawingStyle); - CbAllowInplaceEditing.Left := CbLanguages.Left + CbLanguages.Width + 32; - CbAllowDragAndDrop.Left := CbAllowInplaceEditing.Left; - CbDragDropTransparent.Left := CbAllowInplaceEditing.Left; - CbShowEventHints.Left := CbAllowInplaceEditing.Left; - - // Planner pages - DaysTrackbar.Left := GetLabelWidth(LblVisibleDays) + LblVisibleDays.Left + 8; - LblGranularity.Left := DaysTrackbar.Left + DaysTrackbar.Width + 32; - CbGranularity.Left := LblGranularity.Left + GetLabelWidth(LblGranularity) + 8; - RbHideCompletedTasks.Left := RbAllTasks.Left + RbAllTasks.Width + 48; + // Resources page + w := MaxValue([BtnNewRes.Width, BtnEditRes.Width, BtnDeleteRes.Width]); + BtnNewRes.AutoSize := false; + BtnEditRes.AutoSize := false; + BtnDeleteRes.AutoSize := false; + BtnNewRes.Width := w; + BtnEditRes.Width := w; + BtnDeleteRes.Width := w; end; procedure TMainForm.RbAllTasksChange(Sender: TObject); diff --git a/components/tvplanit/examples/gadgets/unit1.lfm b/components/tvplanit/examples/gadgets/unit1.lfm index 6b271a611..8998a8016 100644 --- a/components/tvplanit/examples/gadgets/unit1.lfm +++ b/components/tvplanit/examples/gadgets/unit1.lfm @@ -1,30 +1,24 @@ object Form1: TForm1 Left = 320 - Height = 283 + Height = 311 Top = 160 - Width = 461 + Width = 473 + AutoSize = True Caption = 'Form1' - ClientHeight = 283 - ClientWidth = 461 + ClientHeight = 311 + ClientWidth = 473 Font.Color = clWindowText - OnCreate = FormCreate - LCLVersion = '1.7' - object VpLEDLabel1: TVpLEDLabel - Left = 9 - Height = 60 - Top = 6 - Width = 442 - Caption = 'Visual PlanIt' - Columns = 13 - OffColor = 930866 - OnColor = clLime - Size = 3 - end + OnShow = FormShow + LCLVersion = '1.6.4.0' object VpClock1: TVpClock - Left = 11 + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = Panel1 + AnchorSideTop.Side = asrBottom + Left = 0 Height = 200 - Top = 72 + Top = 78 Width = 200 + BorderSpacing.Top = 8 Active = False Color = clForm ClockMode = cmClock @@ -55,20 +49,32 @@ object Form1: TForm1 OnSecondChange = VpClockTimeChange end object BtnStartStop: TButton - Left = 351 + AnchorSideLeft.Control = RgClockMode + AnchorSideLeft.Side = asrBottom + AnchorSideBottom.Control = RgClockMode + AnchorSideBottom.Side = asrBottom + Left = 336 Height = 51 - Top = 189 + Top = 194 Width = 99 + Anchors = [akLeft] + BorderSpacing.Left = 16 + BorderSpacing.Right = 16 Caption = 'Start' OnClick = BtnStartStopClick TabOrder = 6 end object RgClockMode: TRadioGroup - Left = 224 - Height = 89 - Top = 151 - Width = 116 + AnchorSideLeft.Control = RgDisplayMode + AnchorSideTop.Control = RgDisplayMode + AnchorSideTop.Side = asrBottom + Left = 216 + Height = 77 + Top = 168 + Width = 104 AutoFill = True + AutoSize = True + BorderSpacing.Top = 24 Caption = 'Clock mode' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize @@ -77,8 +83,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 69 - ClientWidth = 112 + ClientHeight = 57 + ClientWidth = 100 ItemIndex = 0 Items.Strings = ( 'Clock' @@ -89,38 +95,62 @@ object Form1: TForm1 TabOrder = 2 end object LblCountDownTime: TLabel - Left = 351 + AnchorSideLeft.Control = BtnStartStop + AnchorSideTop.Control = Panel1 + AnchorSideTop.Side = asrBottom + Left = 336 Height = 15 - Top = 72 + Top = 86 Width = 98 + BorderSpacing.Top = 16 + BorderSpacing.Right = 16 Caption = 'Count-down time:' FocusControl = EdCountDownTime ParentColor = False Visible = False end object CbNewClockFace: TCheckBox - Left = 351 + AnchorSideLeft.Control = BtnStartStop + AnchorSideTop.Side = asrBottom + AnchorSideBottom.Control = BtnStartStop + Left = 336 Height = 19 - Top = 141 + Top = 163 Width = 100 + Anchors = [akLeft, akBottom] + BorderSpacing.Top = 4 + BorderSpacing.Right = 16 + BorderSpacing.Bottom = 12 Caption = 'New clock face' OnChange = CbNewClockFaceChange TabOrder = 5 end object LblElapsedTime: TLabel - Left = 224 + AnchorSideLeft.Control = RgDisplayMode + AnchorSideTop.Control = RgClockMode + AnchorSideTop.Side = asrBottom + Left = 216 Height = 15 - Top = 256 + Top = 261 Width = 49 + BorderSpacing.Top = 16 + BorderSpacing.Bottom = 16 Caption = 'Elapsed...' ParentColor = False end object RgDisplayMode: TRadioGroup - Left = 224 - Height = 63 - Top = 72 - Width = 115 + AnchorSideLeft.Control = VpClock1 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Panel1 + AnchorSideTop.Side = asrBottom + Left = 216 + Height = 58 + Top = 86 + Width = 91 AutoFill = True + AutoSize = True + BorderSpacing.Left = 16 + BorderSpacing.Top = 16 Caption = 'Display mode' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize @@ -129,8 +159,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 43 - ClientWidth = 111 + ClientHeight = 38 + ClientWidth = 87 ItemIndex = 0 Items.Strings = ( 'Analog' @@ -140,23 +170,59 @@ object Form1: TForm1 TabOrder = 1 end object CbMilitaryTime: TCheckBox - Left = 351 + AnchorSideLeft.Control = BtnStartStop + AnchorSideTop.Control = Owner + AnchorSideTop.Side = asrBottom + AnchorSideBottom.Control = BtnStartStop + Left = 336 Height = 19 - Top = 128 + Top = 163 Width = 87 + Anchors = [akLeft, akBottom] + BorderSpacing.Top = 12 + BorderSpacing.Right = 16 + BorderSpacing.Bottom = 12 Caption = 'Military time' OnChange = CbMilitaryTimeChange TabOrder = 4 Visible = False end object EdCountDownTime: TEdit - Left = 351 + AnchorSideLeft.Control = BtnStartStop + AnchorSideTop.Control = LblCountDownTime + AnchorSideTop.Side = asrBottom + Left = 336 Height = 23 - Top = 92 + Top = 105 Width = 99 + BorderSpacing.Top = 4 + BorderSpacing.Right = 16 OnChange = EdCountDownTimeChange TabOrder = 3 Text = '00:00:30' Visible = False end + object Panel1: TPanel + Left = 0 + Height = 70 + Top = 0 + Width = 452 + AutoSize = True + Caption = 'Panel1' + ClientHeight = 70 + ClientWidth = 452 + TabOrder = 7 + object VpLEDLabel1: TVpLEDLabel + Left = 5 + Height = 60 + Top = 5 + Width = 442 + BorderSpacing.Around = 4 + Caption = 'Visual PlanIt' + Columns = 13 + OffColor = 930866 + OnColor = clLime + Size = 3 + end + end end diff --git a/components/tvplanit/examples/gadgets/unit1.pas b/components/tvplanit/examples/gadgets/unit1.pas index cd9cd2d7a..be1b031f0 100644 --- a/components/tvplanit/examples/gadgets/unit1.pas +++ b/components/tvplanit/examples/gadgets/unit1.pas @@ -19,6 +19,7 @@ type EdCountDownTime: TEdit; LblCountDownTime: TLabel; LblElapsedTime: TLabel; + Panel1: TPanel; RgDisplayMode: TRadioGroup; RgClockMode: TRadioGroup; VpClock1: TVpClock; @@ -29,7 +30,7 @@ type procedure BtnStartStopClick(Sender: TObject); procedure CbNewClockFaceChange(Sender: TObject); procedure EdCountDownTimeChange(Sender: TObject); - procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); procedure RgClockModeClick(Sender: TObject); procedure RgDisplayModeClick(Sender: TObject); procedure VpClock1CountdownDone(Sender: TObject); @@ -46,6 +47,9 @@ implementation {$R *.lfm} +uses + Math; + { TForm1 } procedure TForm1.AnalogClockCountdownDone(Sender: TObject); @@ -117,9 +121,17 @@ begin VpClock1.Time := t; end; -procedure TForm1.FormCreate(Sender: TObject); +procedure TForm1.FormShow(Sender: TObject); +var + w: Integer; begin - CbMilitaryTime.Top := CbNewClockFace.Top; + RgDisplayMode.AutoSize := false; + RgClockMode.AutoSize := false; + w := Max(RgDisplayMode.Width, RgClockMode.Width); + RgDisplayMode.Width := w; + RgClockMode.Width := w; + + AutoSize := true; end; procedure TForm1.RgClockModeClick(Sender: TObject); diff --git a/components/tvplanit/examples/navbar/unit1.lfm b/components/tvplanit/examples/navbar/unit1.lfm index 1102225ad..9b62514cc 100644 --- a/components/tvplanit/examples/navbar/unit1.lfm +++ b/components/tvplanit/examples/navbar/unit1.lfm @@ -1,18 +1,20 @@ object Form1: TForm1 - Left = 262 - Height = 406 - Top = 155 + Left = 274 + Height = 422 + Top = 168 Width = 567 + AutoSize = True Caption = 'Form1' - ClientHeight = 406 + ClientHeight = 422 ClientWidth = 567 OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '1.6.4.0' object VpNavBar1: TVpNavBar Left = 0 - Height = 376 + Height = 397 Top = 0 Width = 128 + BorderSpacing.Right = 24 ActiveFolder = 0 AllowInplaceEdit = True AllowRearrange = True @@ -151,11 +153,17 @@ object Form1: TForm1 end end object RgDrawingStyle: TRadioGroup - Left = 141 - Height = 116 - Top = 32 - Width = 139 + AnchorSideLeft.Control = VpNavBar1 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Label1 + AnchorSideTop.Side = asrBottom + Left = 152 + Height = 96 + Top = 39 + Width = 120 AutoFill = True + AutoSize = True + BorderSpacing.Top = 16 Caption = 'DrawingStyle' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize @@ -164,8 +172,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 - ClientWidth = 135 + ClientHeight = 76 + ClientWidth = 116 ItemIndex = 0 Items.Strings = ( 'dsDefButton' @@ -177,20 +185,25 @@ object Form1: TForm1 TabOrder = 1 end object Label1: TLabel - Left = 141 + AnchorSideLeft.Control = VpNavBar1 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Owner + Left = 152 Height = 15 Top = 8 Width = 34 + BorderSpacing.Top = 8 Caption = 'Label1' ParentColor = False end object Panel1: TPanel Left = 0 - Height = 30 - Top = 376 + Height = 25 + Top = 397 Width = 567 Align = alBottom - ClientHeight = 30 + AutoSize = True + ClientHeight = 25 ClientWidth = 567 TabOrder = 2 object Bevel1: TBevel @@ -202,19 +215,28 @@ object Form1: TForm1 Shape = bsTopLine end object IconsLbl: TLabel - Left = 8 + AnchorSideLeft.Control = Panel1 + Left = 9 Height = 15 - Top = 8 + Top = 5 Width = 132 + BorderSpacing.Left = 8 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 4 Caption = 'Icons kindly provided by ' ParentColor = False end object IconsLink: TLabel + AnchorSideLeft.Control = IconsLbl + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = IconsLbl + AnchorSideTop.Side = asrCenter Cursor = crHandPoint - Left = 180 + Left = 149 Height = 15 - Top = 8 + Top = 5 Width = 186 + BorderSpacing.Left = 8 Caption = 'http://www.fatcow.com/free-icons' Font.Color = clBlue ParentColor = False @@ -225,29 +247,45 @@ object Form1: TForm1 end end object BtnAddFolder: TButton + AnchorSideLeft.Control = RgIconSize + AnchorSideBottom.Control = RgDrawingStyle + AnchorSideBottom.Side = asrBottom Left = 296 Height = 25 - Top = 112 - Width = 83 + Top = 110 + Width = 91 + Anchors = [akLeft, akBottom] + AutoSize = True Caption = 'Add folder...' OnClick = BtnAddFolderClick TabOrder = 3 end object BtnAddItem: TButton - Left = 392 + AnchorSideLeft.Control = BtnAddFolder + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = BtnAddFolder + Left = 395 Height = 25 - Top = 112 - Width = 83 + Top = 110 + Width = 84 + AutoSize = True + BorderSpacing.Left = 8 + BorderSpacing.Right = 24 Caption = 'Add item...' OnClick = BtnAddItemClick TabOrder = 4 end object RgIconSize: TRadioGroup + AnchorSideLeft.Control = RgDrawingStyle + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = RgDrawingStyle Left = 296 - Height = 49 - Top = 32 - Width = 139 + Height = 39 + Top = 39 + Width = 110 AutoFill = True + AutoSize = True + BorderSpacing.Left = 24 Caption = 'Icons' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize @@ -256,8 +294,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 - ClientHeight = 29 - ClientWidth = 135 + ClientHeight = 19 + ClientWidth = 106 Columns = 2 ItemIndex = 0 Items.Strings = ( @@ -267,92 +305,154 @@ object Form1: TForm1 OnClick = RgIconSizeClick TabOrder = 5 end - object GroupBox1: TGroupBox - Left = 141 - Height = 112 - Top = 168 - Width = 411 + object GbBackgroud: TGroupBox + AnchorSideLeft.Control = VpNavBar1 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = RgDrawingStyle + AnchorSideTop.Side = asrBottom + AnchorSideRight.Side = asrBottom + Left = 152 + Height = 114 + Top = 151 + Width = 367 + AutoSize = True + BorderSpacing.Top = 16 + BorderSpacing.Right = 24 Caption = 'Background' - ClientHeight = 92 - ClientWidth = 407 + ClientHeight = 94 + ClientWidth = 363 TabOrder = 6 object BkColor: TColorBox - Left = 88 + AnchorSideLeft.Control = RbBkColor + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = RbBkColor + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = BtnLoadBkImage + AnchorSideRight.Side = asrBottom + Left = 85 Height = 22 - Top = 3 - Width = 272 + Top = 0 + Width = 266 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColors] + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 24 ItemHeight = 16 OnChange = BackgroundColorChange TabOrder = 0 end object RbBkColor: TRadioButton - Left = 14 + AnchorSideLeft.Control = GbBackgroud + Left = 12 Height = 19 - Top = 3 + Top = 2 Width = 49 + BorderSpacing.Left = 12 Caption = 'Color' - Checked = True OnChange = RbBkColorChange TabOrder = 3 - TabStop = True end object RbBkImage: TRadioButton - Left = 16 + AnchorSideLeft.Control = RbBkColor + AnchorSideTop.Control = EdBkImage + AnchorSideTop.Side = asrCenter + Left = 12 Height = 19 - Top = 34 + Top = 32 Width = 53 Caption = 'Image' OnChange = RbBkColorChange TabOrder = 1 end object EdBkImage: TFileNameEdit - Left = 88 + AnchorSideLeft.Control = RbBkColor + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = BkColor + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = GbBackgroud + AnchorSideRight.Side = asrBottom + Left = 85 Height = 23 - Top = 33 - Width = 299 + Top = 30 + Width = 270 FileName = 'bkimg.jpg' Filter = 'BMP files (*.bmp)|*.bmp|PNG files (*.png)|*.png|JPEG files (*.jpg; *.jpeg)|*.jpg;*.jpeg' FilterIndex = 0 HideDirectories = False ButtonWidth = 23 NumGlyphs = 1 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 24 + BorderSpacing.Top = 8 + BorderSpacing.Right = 8 MaxLength = 0 TabOrder = 2 Text = 'bkimg.jpg' end - object Panel2: TPanel - Left = 80 - Height = 26 - Top = 62 - Width = 229 - BevelOuter = bvNone - ClientHeight = 26 - ClientWidth = 229 + object BtnLoadBkImage: TButton + AnchorSideLeft.Control = Panel2 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = EdBkImage + AnchorSideTop.Side = asrBottom + AnchorSideRight.Side = asrBottom + Left = 299 + Height = 25 + Top = 61 + Width = 52 + AutoSize = True + BorderSpacing.Left = 32 + BorderSpacing.Top = 8 + BorderSpacing.Right = 12 + BorderSpacing.Bottom = 8 + Caption = 'Load' + OnClick = BtnLoadBkImageClick TabOrder = 4 + end + object Panel2: TPanel + AnchorSideLeft.Control = EdBkImage + AnchorSideTop.Control = BtnLoadBkImage + AnchorSideTop.Side = asrCenter + Left = 85 + Height = 19 + Top = 64 + Width = 182 + AutoSize = True + BevelOuter = bvNone + ClientHeight = 19 + ClientWidth = 182 + TabOrder = 5 object RbBkImageNormal: TRadioButton - Left = 8 + AnchorSideLeft.Control = Panel2 + AnchorSideTop.Control = Panel2 + Left = 0 Height = 19 - Top = 4 + Top = 0 Width = 58 Caption = 'normal' OnChange = RbBkColorChange - TabOrder = 1 - end - object RbBkImageStretch: TRadioButton - Left = 88 - Height = 19 - Top = 4 - Width = 56 - Caption = 'stretch' - OnChange = RbBkColorChange TabOrder = 0 end - object RbBkImageTile: TRadioButton - Left = 168 + object RbBkImageStretch: TRadioButton + AnchorSideLeft.Control = RbBkImageNormal + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Panel2 + Left = 74 Height = 19 - Top = 4 + Top = 0 + Width = 56 + BorderSpacing.Left = 16 + Caption = 'stretch' + OnChange = RbBkColorChange + TabOrder = 1 + end + object RbBkImageTile: TRadioButton + AnchorSideLeft.Control = RbBkImageStretch + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Panel2 + Left = 146 + Height = 19 + Top = 0 Width = 36 + BorderSpacing.Left = 16 Caption = 'tile' Checked = True OnChange = RbBkColorChange @@ -360,22 +460,20 @@ object Form1: TForm1 TabStop = True end end - object BtnLoadBkImage: TButton - Left = 304 - Height = 25 - Top = 62 - Width = 56 - Caption = 'Load' - OnClick = BtnLoadBkImageClick - TabOrder = 5 - end end object RgBorderStyle: TRadioGroup - Left = 141 - Height = 66 - Top = 288 - Width = 139 + AnchorSideLeft.Control = VpNavBar1 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = GbSounds + AnchorSideBottom.Control = GbSounds + AnchorSideBottom.Side = asrBottom + Left = 152 + Height = 78 + Top = 281 + Width = 81 + Anchors = [akTop, akLeft, akBottom] AutoFill = True + AutoSize = True Caption = 'Border style' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize @@ -384,8 +482,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 46 - ClientWidth = 135 + ClientHeight = 58 + ClientWidth = 77 ItemIndex = 1 Items.Strings = ( 'bsNone' @@ -394,34 +492,57 @@ object Form1: TForm1 OnClick = RgBorderStyleClick TabOrder = 7 end - object GroupBox2: TGroupBox - Left = 292 - Height = 66 - Top = 288 - Width = 259 + object GbSounds: TGroupBox + AnchorSideLeft.Control = RgBorderStyle + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = GbBackgroud + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = GbBackgroud + AnchorSideRight.Side = asrBottom + Left = 249 + Height = 78 + Top = 281 + Width = 270 + Anchors = [akTop, akLeft, akRight] + AutoSize = True + BorderSpacing.Left = 16 + BorderSpacing.Top = 16 + BorderSpacing.Bottom = 48 Caption = 'Sounds' - ClientHeight = 46 - ClientWidth = 255 + ClientHeight = 58 + ClientWidth = 266 TabOrder = 8 object CbPlaySounds: TCheckBox - Left = 9 + AnchorSideLeft.Control = GbSounds + AnchorSideTop.Control = GbSounds + Left = 12 Height = 19 Top = 0 Width = 83 + BorderSpacing.Left = 12 Caption = 'Play sounds' OnChange = CbPlaySoundsChange TabOrder = 0 end object EdSoundFile: TFileNameEdit - Left = 9 + AnchorSideLeft.Control = CbPlaySounds + AnchorSideTop.Control = CbPlaySounds + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = GbSounds + AnchorSideRight.Side = asrBottom + Left = 12 Height = 23 Top = 23 - Width = 239 + Width = 246 OnAcceptFileName = EdSoundFileAcceptFileName FilterIndex = 0 HideDirectories = False ButtonWidth = 23 NumGlyphs = 1 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 4 + BorderSpacing.Right = 8 + BorderSpacing.Bottom = 12 MaxLength = 0 TabOrder = 1 OnEditingDone = EdSoundFileEditingDone @@ -430,8 +551,8 @@ object Form1: TForm1 object Images: TImageList Height = 32 Width = 32 - left = 488 - top = 32 + left = 480 + top = 16 Bitmap = { 4C690A0000002000000020000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF diff --git a/components/tvplanit/examples/navbar/unit1.pas b/components/tvplanit/examples/navbar/unit1.pas index e92f318d0..e2d5e1e6a 100644 --- a/components/tvplanit/examples/navbar/unit1.pas +++ b/components/tvplanit/examples/navbar/unit1.pas @@ -21,8 +21,8 @@ type CbPlaySounds: TCheckBox; EdBkImage: TFileNameEdit; EdSoundFile: TFileNameEdit; - GroupBox1: TGroupBox; - GroupBox2: TGroupBox; + GbBackgroud: TGroupBox; + GbSounds: TGroupBox; IconsLbl: TLabel; IconsLink: TLabel; Panel2: TPanel; @@ -203,6 +203,9 @@ begin EdSoundFile.InitialDir := ExtractFileDir(VpNavBar1.SoundAlias); EdSoundFile.FileName := VpNavBar1.SoundAlias; CbPlaySounds.Checked := VpNavBar1.PlaySounds; + + EdBkImage.ButtonWidth := EdBkImage.Height; + EdSoundFile.ButtonWidth := EdSoundFile.Height; end; procedure TForm1.IconsLinkClick(Sender: TObject); diff --git a/components/tvplanit/examples/runtime/unit1.lfm b/components/tvplanit/examples/runtime/unit1.lfm index e20e19d24..8c24ba99a 100644 --- a/components/tvplanit/examples/runtime/unit1.lfm +++ b/components/tvplanit/examples/runtime/unit1.lfm @@ -7,7 +7,7 @@ object Form1: TForm1 ClientHeight = 441 ClientWidth = 934 OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '1.9.0.0' object Panel1: TPanel Left = 0 Height = 42 diff --git a/components/tvplanit/examples/runtime/unit1.pas b/components/tvplanit/examples/runtime/unit1.pas index 839ae640e..a0700afc8 100644 --- a/components/tvplanit/examples/runtime/unit1.pas +++ b/components/tvplanit/examples/runtime/unit1.pas @@ -57,9 +57,9 @@ begin Combo := TVpResourceCombo.Create(Self); Combo.Parent := Panel1; - Combo.Left := 8; - Combo.Top := 8; - Combo.Width := 200; + Combo.Width := 300; + Combo.BorderSpacing.Around := 4; + Panel1.AutoSize := true; ControlLink := TVpControlLink.Create(self); ControlLink.Datastore := Datastore; diff --git a/components/tvplanit/examples/tutorial/unit1.lfm b/components/tvplanit/examples/tutorial/unit1.lfm index 653a522aa..92d21907d 100644 --- a/components/tvplanit/examples/tutorial/unit1.lfm +++ b/components/tvplanit/examples/tutorial/unit1.lfm @@ -7,15 +7,15 @@ object Form1: TForm1 ClientHeight = 559 ClientWidth = 804 OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '1.6.4.0' object PageControl1: TPageControl Left = 0 Height = 559 Top = 0 Width = 804 - ActivePage = TabSheet1 + ActivePage = TabSheet3 Align = alClient - TabIndex = 0 + TabIndex = 2 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Events' @@ -41,7 +41,6 @@ object Form1: TForm1 TimeSlotColors.Active = clWhite TimeSlotColors.Inactive = 8454143 TimeSlotColors.Holiday = 16744703 - TimeSlotColors.Weekday = clWhite TimeSlotColors.Weekend = 16777088 TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00 @@ -103,15 +102,14 @@ object Form1: TForm1 DrawingStyle = dsFlat EventDayStyle = [] HeadAttributes.Color = clBtnFace - LineColor = clGray - TimeFormat = tf24Hour - TodayAttributes.Color = clSilver - TodayAttributes.BorderPen.Color = clRed - TodayAttributes.BorderPen.Width = 3 OffDayColor = clSilver SelectedDayColor = clRed ShowEvents = True ShowEventTime = False + TimeFormat = tf24Hour + TodayAttributes.Color = clSilver + TodayAttributes.BorderPen.Color = clRed + TodayAttributes.BorderPen.Width = 3 WeekStartsOn = dtMonday end end @@ -219,6 +217,8 @@ object Form1: TForm1 CategoryColorMap.Category8.Description = 'Category 8' CategoryColorMap.Category9.Color = clMaroon CategoryColorMap.Category9.Description = 'Category 9' + HiddenCategories.BackgroundColor = clSilver + HiddenCategories.Color = clGray EnableEventTimer = True PlayEventSounds = True left = 143 diff --git a/components/tvplanit/languages/demo.de.po b/components/tvplanit/languages/demo.de.po index 8dbed5f39..69b42ca07 100644 --- a/components/tvplanit/languages/demo.de.po +++ b/components/tvplanit/languages/demo.de.po @@ -251,6 +251,16 @@ msgstr "Datei" msgid "Help" msgstr "Hilfe" +#: tmainform.menuitem3.caption +msgctxt "tmainform.menuitem3.caption" +msgid "-" +msgstr "" + +#: tmainform.menuitem4.caption +msgctxt "tmainform.menuitem4.caption" +msgid "-" +msgstr "" + #: tmainform.mnuabout.caption msgid "About Visual PlanIt" msgstr "Über Visual PlanIt" @@ -302,3 +312,4 @@ msgstr "Fertiggestellte Aufgaben ausblenden" #: tmainform.titlelbl.caption msgid "TitleLbl" msgstr "" + diff --git a/components/tvplanit/languages/demo.fi.po b/components/tvplanit/languages/demo.fi.po index c0aa490ee..261843be2 100644 --- a/components/tvplanit/languages/demo.fi.po +++ b/components/tvplanit/languages/demo.fi.po @@ -240,6 +240,16 @@ msgstr "Tiedosto" msgid "Help" msgstr "Ohje" +#: tmainform.menuitem3.caption +msgctxt "tmainform.menuitem3.caption" +msgid "-" +msgstr "" + +#: tmainform.menuitem4.caption +msgctxt "tmainform.menuitem4.caption" +msgid "-" +msgstr "" + #: tmainform.mnuabout.caption msgid "About Visual PlanIt" msgstr "Tietoja Visual PlanIt:stä" diff --git a/components/tvplanit/languages/demo.nl.po b/components/tvplanit/languages/demo.nl.po index 8434b35b2..fdeafd4b8 100644 --- a/components/tvplanit/languages/demo.nl.po +++ b/components/tvplanit/languages/demo.nl.po @@ -245,6 +245,16 @@ msgstr "Bestand" msgid "Help" msgstr "Help" +#: tmainform.menuitem3.caption +msgctxt "tmainform.menuitem3.caption" +msgid "-" +msgstr "" + +#: tmainform.menuitem4.caption +msgctxt "tmainform.menuitem4.caption" +msgid "-" +msgstr "" + #: tmainform.mnuabout.caption msgid "About Visual PlanIt" msgstr "Over Visual PlanIt" diff --git a/components/tvplanit/languages/demo.po b/components/tvplanit/languages/demo.po index c0e6df9f9..7c0261176 100644 --- a/components/tvplanit/languages/demo.po +++ b/components/tvplanit/languages/demo.po @@ -240,6 +240,16 @@ msgstr "" msgid "Help" msgstr "" +#: tmainform.menuitem3.caption +msgctxt "TMAINFORM.MENUITEM3.CAPTION" +msgid "-" +msgstr "" + +#: tmainform.menuitem4.caption +msgctxt "tmainform.menuitem4.caption" +msgid "-" +msgstr "" + #: tmainform.mnuabout.caption msgid "About Visual PlanIt" msgstr "" diff --git a/components/tvplanit/languages/demo.ru.po b/components/tvplanit/languages/demo.ru.po index 2a66c13f5..1574cb7dd 100644 --- a/components/tvplanit/languages/demo.ru.po +++ b/components/tvplanit/languages/demo.ru.po @@ -254,6 +254,16 @@ msgstr "Файл" msgid "Help" msgstr "Справка" +#: tmainform.menuitem3.caption +msgctxt "tmainform.menuitem3.caption" +msgid "-" +msgstr "" + +#: tmainform.menuitem4.caption +msgctxt "tmainform.menuitem4.caption" +msgid "-" +msgstr "" + #: tmainform.mnuabout.caption msgid "About Visual PlanIt" msgstr "О Visual PlanIt" diff --git a/components/tvplanit/source/vpclock.pas b/components/tvplanit/source/vpclock.pas index c04f062dc..5a01f85d4 100644 --- a/components/tvplanit/source/vpclock.pas +++ b/components/tvplanit/source/vpclock.pas @@ -277,6 +277,10 @@ type property Anchors; property Constraints; {$ENDIF} + {$IFDEF LCL} + property BorderSpacing; + property ChildSizing; + {$ENDIF} property Active; property Align; property Color; diff --git a/components/tvplanit/source/vpcontactbuttons.pas b/components/tvplanit/source/vpcontactbuttons.pas index 273f190e9..badea435a 100644 --- a/components/tvplanit/source/vpcontactbuttons.pas +++ b/components/tvplanit/source/vpcontactbuttons.pas @@ -137,6 +137,9 @@ type property Align; property Anchors; property BiDiMode; + {$IFDEF LCL} + property BorderSpacing; + {$ENDIF} property Color; property Constraints; property Cursor; diff --git a/components/tvplanit/source/vpledlabel.pas b/components/tvplanit/source/vpledlabel.pas index 2e0ac858c..99fdf457a 100644 --- a/components/tvplanit/source/vpledlabel.pas +++ b/components/tvplanit/source/vpledlabel.pas @@ -108,7 +108,11 @@ type TVpLEDLabel = class(TVpCustomLEDLabel) published + {$IFDEF LCL} + property BorderSpacing; + {$ENDIF} property Version; + property Align; property Caption; property Columns; property Rows; diff --git a/components/tvplanit/source/vpnavbar.pas b/components/tvplanit/source/vpnavbar.pas index 25323f77e..f51074dce 100644 --- a/components/tvplanit/source/vpnavbar.pas +++ b/components/tvplanit/source/vpnavbar.pas @@ -395,6 +395,9 @@ type TVpNavBar = class(TVpCustomNavBar) published + {$IFDEF LCL} + property BorderSpacing; + {$ENDIF} property ActiveFolder; property AllowInplaceEdit; property AllowRearrange;