Changeset 18


Ignore:
Timestamp:
Jun 13, 2011, 2:41:33 PM (13 years ago)
Author:
george
Message:
  • Fixed: Do not show RelationMany items in Add and Edit form.
Location:
trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UItemAdd.pas

    r15 r18  
    129129
    130130      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);
    139140
    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;
    142144    end else ControlList.Add(nil);
    143145end;

  • trunk/Forms/UItemEdit.pas

    r15 r18  
    123123  if Report.Count = 1 then
    124124    for I := 0 to Report.Columns.Count - 1 do
    125     if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
     125    if (TReportColumn(Report.Columns[I]).ColumnName <> 'Id') then begin
    126126
    127127      NewLabel := TLabel.Create(Panel1);
    … …  
    132132
    133133      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);
    142143
    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;
    145147   end else ControlList.Add(nil);
    146148end;

  • trunk/Forms/USettingForm.lfm

    r12 r18  
    6060    ItemHeight = 13
    6161    TabOrder = 3
    62     Text = 'ComboBoxLanguage'
    6362  end
    6463end

  • trunk/Forms/USettingForm.lrt

    r12 r18  
    44TSETTINGFORM.BUTTONCANCEL.CAPTION=Cancel
    55TSETTINGFORM.LABEL2.CAPTION=Language:
    6 TSETTINGFORM.COMBOBOXLANGUAGE.TEXT=ComboBoxLanguage

  • trunk/chronis.lpi

    r17 r18  
    202202        <EditorIndex Value="4"/>
    203203        <WindowIndex Value="0"/>
    204         <TopLine Value="44"/>
    205         <CursorPos X="46" Y="64"/>
     204        <TopLine Value="89"/>
     205        <CursorPos X="1" Y="101"/>
    206206        <UsageCount Value="318"/>
    207207        <Loaded Value="True"/>
    … …  
    232232        <ResourceBaseClass Value="Form"/>
    233233        <UnitName Value="UMainForm"/>
    234         <IsVisibleTab Value="True"/>
    235234        <EditorIndex Value="6"/>
    236235        <WindowIndex Value="0"/>
    … …  
    262261        <EditorIndex Value="5"/>
    263262        <WindowIndex Value="0"/>
    264         <TopLine Value="124"/>
    265         <CursorPos X="78" Y="63"/>
     263        <TopLine Value="120"/>
     264        <CursorPos X="34" Y="137"/>
    266265        <UsageCount Value="313"/>
    267266        <Loaded Value="True"/>
    … …  
    385384        <ResourceBaseClass Value="Form"/>
    386385        <UnitName Value="USettingForm"/>
     386        <IsVisibleTab Value="True"/>
    387387        <EditorIndex Value="8"/>
    388388        <WindowIndex Value="0"/>
    389389        <TopLine Value="40"/>
    390         <CursorPos X="45" Y="15"/>
     390        <CursorPos X="43" Y="41"/>
    391391        <UsageCount Value="94"/>
    392392        <Loaded Value="True"/>
    … …  
    683683        <TopLine Value="120"/>
    684684        <CursorPos X="1" Y="132"/>
    685         <UsageCount Value="10"/>
     685        <UsageCount Value="11"/>
    686686        <Loaded Value="True"/>
    687687      </Unit58>
    … …  
    696696      </Unit59>
    697697    </Units>
    698     <JumpHistory Count="28" HistoryIndex="25">
     698    <JumpHistory Count="30" HistoryIndex="29">
    699699      <Position1>
    700         <Filename Value="Forms/UItemView.pas"/>
    701         <Caret Line="86" Column="23" TopLine="84"/>
     700        <Filename Value="Forms/UItemEdit.pas"/>
     701        <Caret Line="128" Column="1" TopLine="121"/>
    702702      </Position1>
    703703      <Position2>
    704         <Filename Value="Forms/UItemView.pas"/>
    705         <Caret Line="186" Column="13" TopLine="176"/>
     704        <Filename Value="Forms/UItemEdit.pas"/>
     705        <Caret Line="129" Column="1" TopLine="121"/>
    706706      </Position2>
    707707      <Position3>
    708         <Filename Value="Forms/UMainForm.pas"/>
    709         <Caret Line="603" Column="37" TopLine="592"/>
     708        <Filename Value="Forms/UItemEdit.pas"/>
     709        <Caret Line="130" Column="1" TopLine="121"/>
    710710      </Position3>
    711711      <Position4>
    712         <Filename Value="Forms/UMainForm.pas"/>
    713         <Caret Line="598" Column="1" TopLine="592"/>
     712        <Filename Value="Forms/UItemEdit.pas"/>
     713        <Caret Line="131" Column="1" TopLine="121"/>
    714714      </Position4>
    715715      <Position5>
    716         <Filename Value="Forms/UMainForm.pas"/>
    717         <Caret Line="599" Column="1" TopLine="592"/>
     716        <Filename Value="Forms/UItemEdit.pas"/>
     717        <Caret Line="133" Column="1" TopLine="121"/>
    718718      </Position5>
    719719      <Position6>
    720         <Filename Value="Forms/UMainForm.pas"/>
    721         <Caret Line="600" Column="1" TopLine="592"/>
     720        <Filename Value="Forms/UItemEdit.pas"/>
     721        <Caret Line="134" Column="1" TopLine="121"/>
    722722      </Position6>
    723723      <Position7>
    724         <Filename Value="Forms/UMainForm.pas"/>
    725         <Caret Line="599" Column="19" TopLine="592"/>
     724        <Filename Value="Forms/UItemEdit.pas"/>
     725        <Caret Line="135" Column="1" TopLine="121"/>
    726726      </Position7>
    727727      <Position8>
    728         <Filename Value="Forms/UMainForm.pas"/>
    729         <Caret Line="600" Column="1" TopLine="592"/>
     728        <Filename Value="Forms/UItemEdit.pas"/>
     729        <Caret Line="136" Column="1" TopLine="121"/>
    730730      </Position8>
    731731      <Position9>
    732         <Filename Value="Forms/UMainForm.pas"/>
    733         <Caret Line="601" Column="1" TopLine="592"/>
     732        <Filename Value="Forms/UItemEdit.pas"/>
     733        <Caret Line="137" Column="1" TopLine="121"/>
    734734      </Position9>
    735735      <Position10>
    736         <Filename Value="Forms/UMainForm.pas"/>
    737         <Caret Line="600" Column="1" TopLine="592"/>
     736        <Filename Value="Forms/UItemEdit.pas"/>
     737        <Caret Line="138" Column="1" TopLine="121"/>
    738738      </Position10>
    739739      <Position11>
    740         <Filename Value="Forms/UMainForm.pas"/>
    741         <Caret Line="601" Column="1" TopLine="592"/>
     740        <Filename Value="Forms/UItemEdit.pas"/>
     741        <Caret Line="139" Column="1" TopLine="121"/>
    742742      </Position11>
    743743      <Position12>
    744         <Filename Value="Forms/UMainForm.pas"/>
    745         <Caret Line="600" Column="1" TopLine="592"/>
     744        <Filename Value="Forms/UItemEdit.pas"/>
     745        <Caret Line="140" Column="1" TopLine="121"/>
    746746      </Position12>
    747747      <Position13>
    748         <Filename Value="Forms/UMainForm.pas"/>
    749         <Caret Line="601" Column="1" TopLine="592"/>
     748        <Filename Value="Forms/UItemEdit.pas"/>
     749        <Caret Line="141" Column="1" TopLine="121"/>
    750750      </Position13>
    751751      <Position14>
    752         <Filename Value="Forms/UMainForm.pas"/>
    753         <Caret Line="600" Column="1" TopLine="592"/>
     752        <Filename Value="Forms/UItemEdit.pas"/>
     753        <Caret Line="143" Column="1" TopLine="123"/>
    754754      </Position14>
    755755      <Position15>
    756         <Filename Value="Forms/UMainForm.pas"/>
    757         <Caret Line="601" Column="1" TopLine="592"/>
     756        <Filename Value="Forms/UItemEdit.pas"/>
     757        <Caret Line="144" Column="1" TopLine="124"/>
    758758      </Position15>
    759759      <Position16>
    760         <Filename Value="Forms/UMainForm.pas"/>
    761         <Caret Line="600" Column="1" TopLine="592"/>
     760        <Filename Value="Forms/UItemEdit.pas"/>
     761        <Caret Line="125" Column="1" TopLine="121"/>
    762762      </Position16>
    763763      <Position17>
    764         <Filename Value="Forms/UMainForm.pas"/>
    765         <Caret Line="601" Column="1" TopLine="592"/>
     764        <Filename Value="Forms/UItemEdit.pas"/>
     765        <Caret Line="127" Column="1" TopLine="121"/>
    766766      </Position17>
    767767      <Position18>
    768         <Filename Value="Forms/UMainForm.pas"/>
    769         <Caret Line="600" Column="1" TopLine="592"/>
     768        <Filename Value="Forms/UItemEdit.pas"/>
     769        <Caret Line="128" Column="1" TopLine="121"/>
    770770      </Position18>
    771771      <Position19>
    772         <Filename Value="Forms/UMainForm.pas"/>
    773         <Caret Line="603" Column="1" TopLine="592"/>
     772        <Filename Value="Forms/UItemEdit.pas"/>
     773        <Caret Line="129" Column="1" TopLine="121"/>
    774774      </Position19>
    775775      <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"/>
    778778      </Position20>
    779779      <Position21>
    780         <Filename Value="Forms/UMainForm.pas"/>
    781         <Caret Line="602" Column="9" TopLine="592"/>
     780        <Filename Value="Forms/UItemEdit.pas"/>
     781        <Caret Line="131" Column="1" TopLine="121"/>
    782782      </Position21>
    783783      <Position22>
    784         <Filename Value="Forms/UMainForm.pas"/>
    785         <Caret Line="599" Column="1" TopLine="592"/>
     784        <Filename Value="Forms/UItemEdit.pas"/>
     785        <Caret Line="133" Column="1" TopLine="121"/>
    786786      </Position22>
    787787      <Position23>
    788         <Filename Value="Forms/UMainForm.pas"/>
    789         <Caret Line="600" Column="1" TopLine="592"/>
     788        <Filename Value="Forms/UItemEdit.pas"/>
     789        <Caret Line="134" Column="1" TopLine="121"/>
    790790      </Position23>
    791791      <Position24>
    792         <Filename Value="Forms/UMainForm.pas"/>
    793         <Caret Line="601" Column="1" TopLine="592"/>
     792        <Filename Value="Forms/UItemEdit.pas"/>
     793        <Caret Line="135" Column="1" TopLine="121"/>
    794794      </Position24>
    795795      <Position25>
    796         <Filename Value="Forms/UMainForm.pas"/>
    797         <Caret Line="706" Column="15" TopLine="696"/>
     796        <Filename Value="Forms/UItemEdit.pas"/>
     797        <Caret Line="136" Column="1" TopLine="121"/>
    798798      </Position25>
    799799      <Position26>
    800         <Filename Value="Forms/UMainForm.pas"/>
    801         <Caret Line="599" Column="23" TopLine="592"/>
     800        <Filename Value="Forms/UItemEdit.pas"/>
     801        <Caret Line="137" Column="1" TopLine="121"/>
    802802      </Position26>
    803803      <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"/>
    806806      </Position27>
    807807      <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"/>
    810810      </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>
    811819    </JumpHistory>
    812820  </ProjectOptions>

  • trunk/languages/chronis.cs.po

    r17 r18  
    227227msgstr "Nastavení"
    228228
    229 #: TSETTINGFORM.COMBOBOXLANGUAGE.TEXT
    230 msgid "ComboBoxLanguage"
    231 msgstr ""
    232 
    233229#: TSETTINGFORM.LABEL1.CAPTION
    234230msgid "Server address:"

  • trunk/languages/chronis.po

    r15 r18  
    200200msgstr ""
    201201
    202 #: TSETTINGFORM.COMBOBOXLANGUAGE.TEXT
    203 msgid "ComboBoxLanguage"
    204 msgstr ""
    205 
    206202#: TSETTINGFORM.LABEL1.CAPTION
    207203msgid "Server address:"
Note: See TracChangeset for help on using the changeset viewer.