- Timestamp:
- Jun 13, 2011, 2:41:33 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UItemAdd.pas
r15 r18 129 129 130 130 DataType := TReportColumn(Report.Columns[I]).CustomType; 131 NewControl := DataType.CreateControl(Panel1); 132 DataType.SetDefault; 133 DataType.SetupControl(NewControl); 134 NewControl.Parent := Panel1; 135 NewControl.Top := LastTop; 136 NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2; 137 NewControl.Width := (Width div ColumnCount) div 2 - 20; 138 ControlList.Add(NewControl); 131 if not (DataType is TDataTypeRelationMany) then begin 132 NewControl := DataType.CreateControl(Panel1); 133 DataType.SetDefault; 134 DataType.SetupControl(NewControl); 135 NewControl.Parent := Panel1; 136 NewControl.Top := LastTop; 137 NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2; 138 NewControl.Width := (Width div ColumnCount) div 2 - 20; 139 ControlList.Add(NewControl); 139 140 140 Column := (Column + 1) mod 2; 141 if Column = 0 then LastTop := LastTop + NewControl.Height + 4; 141 Column := (Column + 1) mod 2; 142 if Column = 0 then LastTop := LastTop + NewControl.Height + 4; 143 end; 142 144 end else ControlList.Add(nil); 143 145 end; -
trunk/Forms/UItemEdit.pas
r15 r18 123 123 if Report.Count = 1 then 124 124 for I := 0 to Report.Columns.Count - 1 do 125 if TReportColumn(Report.Columns[I]).ColumnName <> 'Id'then begin125 if (TReportColumn(Report.Columns[I]).ColumnName <> 'Id') then begin 126 126 127 127 NewLabel := TLabel.Create(Panel1); … … 132 132 133 133 DataType := TReportColumn(Report.Columns[I]).CustomType; 134 NewControl := DataType.CreateControl(Panel1); 135 DataType.Load(TReportLine(Report[0]).Items[I]); 136 DataType.SetupControl(NewControl); 137 NewControl.Parent := Panel1; 138 NewControl.Top := LastTop; 139 NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2; 140 NewControl.Width := (Width div ColumnCount) div 2 - 20; 141 ControlList.Add(NewControl); 134 if not (DataType is TDataTypeRelationMany) then begin 135 NewControl := DataType.CreateControl(Panel1); 136 DataType.Load(TReportLine(Report[0]).Items[I]); 137 DataType.SetupControl(NewControl); 138 NewControl.Parent := Panel1; 139 NewControl.Top := LastTop; 140 NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2; 141 NewControl.Width := (Width div ColumnCount) div 2 - 20; 142 ControlList.Add(NewControl); 142 143 143 Column := (Column + 1) mod 2; 144 if Column = 0 then LastTop := LastTop + NewControl.Height + 4; 144 Column := (Column + 1) mod 2; 145 if Column = 0 then LastTop := LastTop + NewControl.Height + 4; 146 end; 145 147 end else ControlList.Add(nil); 146 148 end; -
trunk/Forms/USettingForm.lfm
r12 r18 60 60 ItemHeight = 13 61 61 TabOrder = 3 62 Text = 'ComboBoxLanguage'63 62 end 64 63 end -
trunk/Forms/USettingForm.lrt
r12 r18 4 4 TSETTINGFORM.BUTTONCANCEL.CAPTION=Cancel 5 5 TSETTINGFORM.LABEL2.CAPTION=Language: 6 TSETTINGFORM.COMBOBOXLANGUAGE.TEXT=ComboBoxLanguage -
trunk/chronis.lpi
r17 r18 202 202 <EditorIndex Value="4"/> 203 203 <WindowIndex Value="0"/> 204 <TopLine Value=" 44"/>205 <CursorPos X=" 46" Y="64"/>204 <TopLine Value="89"/> 205 <CursorPos X="1" Y="101"/> 206 206 <UsageCount Value="318"/> 207 207 <Loaded Value="True"/> … … 232 232 <ResourceBaseClass Value="Form"/> 233 233 <UnitName Value="UMainForm"/> 234 <IsVisibleTab Value="True"/>235 234 <EditorIndex Value="6"/> 236 235 <WindowIndex Value="0"/> … … 262 261 <EditorIndex Value="5"/> 263 262 <WindowIndex Value="0"/> 264 <TopLine Value="12 4"/>265 <CursorPos X=" 78" Y="63"/>263 <TopLine Value="120"/> 264 <CursorPos X="34" Y="137"/> 266 265 <UsageCount Value="313"/> 267 266 <Loaded Value="True"/> … … 385 384 <ResourceBaseClass Value="Form"/> 386 385 <UnitName Value="USettingForm"/> 386 <IsVisibleTab Value="True"/> 387 387 <EditorIndex Value="8"/> 388 388 <WindowIndex Value="0"/> 389 389 <TopLine Value="40"/> 390 <CursorPos X="4 5" Y="15"/>390 <CursorPos X="43" Y="41"/> 391 391 <UsageCount Value="94"/> 392 392 <Loaded Value="True"/> … … 683 683 <TopLine Value="120"/> 684 684 <CursorPos X="1" Y="132"/> 685 <UsageCount Value="1 0"/>685 <UsageCount Value="11"/> 686 686 <Loaded Value="True"/> 687 687 </Unit58> … … 696 696 </Unit59> 697 697 </Units> 698 <JumpHistory Count=" 28" HistoryIndex="25">698 <JumpHistory Count="30" HistoryIndex="29"> 699 699 <Position1> 700 <Filename Value="Forms/UItem View.pas"/>701 <Caret Line=" 86" Column="23" TopLine="84"/>700 <Filename Value="Forms/UItemEdit.pas"/> 701 <Caret Line="128" Column="1" TopLine="121"/> 702 702 </Position1> 703 703 <Position2> 704 <Filename Value="Forms/UItem View.pas"/>705 <Caret Line="1 86" Column="13" TopLine="176"/>704 <Filename Value="Forms/UItemEdit.pas"/> 705 <Caret Line="129" Column="1" TopLine="121"/> 706 706 </Position2> 707 707 <Position3> 708 <Filename Value="Forms/U MainForm.pas"/>709 <Caret Line=" 603" Column="37" TopLine="592"/>708 <Filename Value="Forms/UItemEdit.pas"/> 709 <Caret Line="130" Column="1" TopLine="121"/> 710 710 </Position3> 711 711 <Position4> 712 <Filename Value="Forms/U MainForm.pas"/>713 <Caret Line=" 598" Column="1" TopLine="592"/>712 <Filename Value="Forms/UItemEdit.pas"/> 713 <Caret Line="131" Column="1" TopLine="121"/> 714 714 </Position4> 715 715 <Position5> 716 <Filename Value="Forms/U MainForm.pas"/>717 <Caret Line=" 599" Column="1" TopLine="592"/>716 <Filename Value="Forms/UItemEdit.pas"/> 717 <Caret Line="133" Column="1" TopLine="121"/> 718 718 </Position5> 719 719 <Position6> 720 <Filename Value="Forms/U MainForm.pas"/>721 <Caret Line=" 600" Column="1" TopLine="592"/>720 <Filename Value="Forms/UItemEdit.pas"/> 721 <Caret Line="134" Column="1" TopLine="121"/> 722 722 </Position6> 723 723 <Position7> 724 <Filename Value="Forms/U MainForm.pas"/>725 <Caret Line=" 599" Column="19" TopLine="592"/>724 <Filename Value="Forms/UItemEdit.pas"/> 725 <Caret Line="135" Column="1" TopLine="121"/> 726 726 </Position7> 727 727 <Position8> 728 <Filename Value="Forms/U MainForm.pas"/>729 <Caret Line=" 600" Column="1" TopLine="592"/>728 <Filename Value="Forms/UItemEdit.pas"/> 729 <Caret Line="136" Column="1" TopLine="121"/> 730 730 </Position8> 731 731 <Position9> 732 <Filename Value="Forms/U MainForm.pas"/>733 <Caret Line=" 601" Column="1" TopLine="592"/>732 <Filename Value="Forms/UItemEdit.pas"/> 733 <Caret Line="137" Column="1" TopLine="121"/> 734 734 </Position9> 735 735 <Position10> 736 <Filename Value="Forms/U MainForm.pas"/>737 <Caret Line=" 600" Column="1" TopLine="592"/>736 <Filename Value="Forms/UItemEdit.pas"/> 737 <Caret Line="138" Column="1" TopLine="121"/> 738 738 </Position10> 739 739 <Position11> 740 <Filename Value="Forms/U MainForm.pas"/>741 <Caret Line=" 601" Column="1" TopLine="592"/>740 <Filename Value="Forms/UItemEdit.pas"/> 741 <Caret Line="139" Column="1" TopLine="121"/> 742 742 </Position11> 743 743 <Position12> 744 <Filename Value="Forms/U MainForm.pas"/>745 <Caret Line=" 600" Column="1" TopLine="592"/>744 <Filename Value="Forms/UItemEdit.pas"/> 745 <Caret Line="140" Column="1" TopLine="121"/> 746 746 </Position12> 747 747 <Position13> 748 <Filename Value="Forms/U MainForm.pas"/>749 <Caret Line=" 601" Column="1" TopLine="592"/>748 <Filename Value="Forms/UItemEdit.pas"/> 749 <Caret Line="141" Column="1" TopLine="121"/> 750 750 </Position13> 751 751 <Position14> 752 <Filename Value="Forms/U MainForm.pas"/>753 <Caret Line=" 600" Column="1" TopLine="592"/>752 <Filename Value="Forms/UItemEdit.pas"/> 753 <Caret Line="143" Column="1" TopLine="123"/> 754 754 </Position14> 755 755 <Position15> 756 <Filename Value="Forms/U MainForm.pas"/>757 <Caret Line=" 601" Column="1" TopLine="592"/>756 <Filename Value="Forms/UItemEdit.pas"/> 757 <Caret Line="144" Column="1" TopLine="124"/> 758 758 </Position15> 759 759 <Position16> 760 <Filename Value="Forms/U MainForm.pas"/>761 <Caret Line=" 600" Column="1" TopLine="592"/>760 <Filename Value="Forms/UItemEdit.pas"/> 761 <Caret Line="125" Column="1" TopLine="121"/> 762 762 </Position16> 763 763 <Position17> 764 <Filename Value="Forms/U MainForm.pas"/>765 <Caret Line=" 601" Column="1" TopLine="592"/>764 <Filename Value="Forms/UItemEdit.pas"/> 765 <Caret Line="127" Column="1" TopLine="121"/> 766 766 </Position17> 767 767 <Position18> 768 <Filename Value="Forms/U MainForm.pas"/>769 <Caret Line=" 600" Column="1" TopLine="592"/>768 <Filename Value="Forms/UItemEdit.pas"/> 769 <Caret Line="128" Column="1" TopLine="121"/> 770 770 </Position18> 771 771 <Position19> 772 <Filename Value="Forms/U MainForm.pas"/>773 <Caret Line=" 603" Column="1" TopLine="592"/>772 <Filename Value="Forms/UItemEdit.pas"/> 773 <Caret Line="129" Column="1" TopLine="121"/> 774 774 </Position19> 775 775 <Position20> 776 <Filename Value=" H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>777 <Caret Line=" 562" Column="1" TopLine="550"/>776 <Filename Value="Forms/UItemEdit.pas"/> 777 <Caret Line="130" Column="1" TopLine="121"/> 778 778 </Position20> 779 779 <Position21> 780 <Filename Value="Forms/U MainForm.pas"/>781 <Caret Line=" 602" Column="9" TopLine="592"/>780 <Filename Value="Forms/UItemEdit.pas"/> 781 <Caret Line="131" Column="1" TopLine="121"/> 782 782 </Position21> 783 783 <Position22> 784 <Filename Value="Forms/U MainForm.pas"/>785 <Caret Line=" 599" Column="1" TopLine="592"/>784 <Filename Value="Forms/UItemEdit.pas"/> 785 <Caret Line="133" Column="1" TopLine="121"/> 786 786 </Position22> 787 787 <Position23> 788 <Filename Value="Forms/U MainForm.pas"/>789 <Caret Line=" 600" Column="1" TopLine="592"/>788 <Filename Value="Forms/UItemEdit.pas"/> 789 <Caret Line="134" Column="1" TopLine="121"/> 790 790 </Position23> 791 791 <Position24> 792 <Filename Value="Forms/U MainForm.pas"/>793 <Caret Line=" 601" Column="1" TopLine="592"/>792 <Filename Value="Forms/UItemEdit.pas"/> 793 <Caret Line="135" Column="1" TopLine="121"/> 794 794 </Position24> 795 795 <Position25> 796 <Filename Value="Forms/U MainForm.pas"/>797 <Caret Line=" 706" Column="15" TopLine="696"/>796 <Filename Value="Forms/UItemEdit.pas"/> 797 <Caret Line="136" Column="1" TopLine="121"/> 798 798 </Position25> 799 799 <Position26> 800 <Filename Value="Forms/U MainForm.pas"/>801 <Caret Line=" 599" Column="23" TopLine="592"/>800 <Filename Value="Forms/UItemEdit.pas"/> 801 <Caret Line="137" Column="1" TopLine="121"/> 802 802 </Position26> 803 803 <Position27> 804 <Filename Value=" USystem.pas"/>805 <Caret Line=" 214" Column="67" TopLine="202"/>804 <Filename Value="Forms/UItemEdit.pas"/> 805 <Caret Line="134" Column="15" TopLine="123"/> 806 806 </Position27> 807 807 <Position28> 808 <Filename Value=" H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>809 <Caret Line=" 635" Column="58" TopLine="623"/>808 <Filename Value="Forms/UItemEdit.pas"/> 809 <Caret Line="114" Column="1" TopLine="102"/> 810 810 </Position28> 811 <Position29> 812 <Filename Value="Forms/UItemEdit.pas"/> 813 <Caret Line="101" Column="1" TopLine="89"/> 814 </Position29> 815 <Position30> 816 <Filename Value="Forms/UItemAdd.pas"/> 817 <Caret Line="96" Column="12" TopLine="84"/> 818 </Position30> 811 819 </JumpHistory> 812 820 </ProjectOptions> -
trunk/languages/chronis.cs.po
r17 r18 227 227 msgstr "NastavenÃ" 228 228 229 #: TSETTINGFORM.COMBOBOXLANGUAGE.TEXT230 msgid "ComboBoxLanguage"231 msgstr ""232 233 229 #: TSETTINGFORM.LABEL1.CAPTION 234 230 msgid "Server address:" -
trunk/languages/chronis.po
r15 r18 200 200 msgstr "" 201 201 202 #: TSETTINGFORM.COMBOBOXLANGUAGE.TEXT203 msgid "ComboBoxLanguage"204 msgstr ""205 206 202 #: TSETTINGFORM.LABEL1.CAPTION 207 203 msgid "Server address:"
Note:
See TracChangeset
for help on using the changeset viewer.