Ignore:
Timestamp:
Mar 7, 2011, 1:32:07 PM (14 years ago)
Author:
george
Message:
  • Fixed: Docking popupmenu action Close and Rename.
  • Added: Partialy implemented tab hiding.
Location:
Docking/CoolDocking/Demo
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/Demo.lpi

    r103 r176  
    3030      </local>
    3131    </RunParams>
    32     <RequiredPackages Count="2">
     32    <RequiredPackages Count="3">
    3333      <Item1>
    34         <PackageName Value="CoolDocking"/>
     34        <PackageName Value="LCLBase"/>
     35        <MinVersion Major="1" Release="1" Valid="True"/>
    3536      </Item1>
    3637      <Item2>
     38        <PackageName Value="CoolDocking"/>
     39      </Item2>
     40      <Item3>
    3741        <PackageName Value="LCL"/>
    38       </Item2>
     42      </Item3>
    3943    </RequiredPackages>
    40     <Units Count="64">
     44    <Units Count="80">
    4145      <Unit0>
    4246        <Filename Value="Demo.lpr"/>
    4347        <IsPartOfProject Value="True"/>
    4448        <UnitName Value="Demo"/>
    45         <EditorIndex Value="2"/>
    46         <WindowIndex Value="0"/>
    47         <TopLine Value="4"/>
    48         <CursorPos X="34" Y="15"/>
    49         <UsageCount Value="195"/>
    50         <Loaded Value="True"/>
     49        <WindowIndex Value="0"/>
     50        <TopLine Value="3"/>
     51        <CursorPos X="49" Y="5"/>
     52        <UsageCount Value="201"/>
    5153        <DefaultSyntaxHighlighter Value="Delphi"/>
    5254      </Unit0>
    … …  
    5759        <ResourceBaseClass Value="Form"/>
    5860        <UnitName Value="UMainForm"/>
    59         <EditorIndex Value="14"/>
    60         <WindowIndex Value="0"/>
    61         <TopLine Value="59"/>
    62         <CursorPos X="3" Y="75"/>
    63         <UsageCount Value="195"/>
     61        <EditorIndex Value="11"/>
     62        <WindowIndex Value="0"/>
     63        <TopLine Value="19"/>
     64        <CursorPos X="25" Y="28"/>
     65        <UsageCount Value="201"/>
    6466        <Loaded Value="True"/>
    6567        <LoadedDesigner Value="True"/>
    … …  
    7274        <TopLine Value="1191"/>
    7375        <CursorPos X="15" Y="1203"/>
    74         <UsageCount Value="60"/>
     76        <UsageCount Value="59"/>
     77        <DefaultSyntaxHighlighter Value="Delphi"/>
    7578      </Unit2>
    7679      <Unit3>
    … …  
    8083        <TopLine Value="98"/>
    8184        <CursorPos X="27" Y="110"/>
    82         <UsageCount Value="10"/>
     85        <UsageCount Value="9"/>
    8386        <DefaultSyntaxHighlighter Value="Delphi"/>
    8487      </Unit3>
    8588      <Unit4>
    8689        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    87         <EditorIndex Value="7"/>
    8890        <WindowIndex Value="0"/>
    8991        <TopLine Value="3709"/>
    9092        <CursorPos X="1" Y="3726"/>
    91         <UsageCount Value="53"/>
    92         <Loaded Value="True"/>
     93        <UsageCount Value="52"/>
     94        <DefaultSyntaxHighlighter Value="Delphi"/>
    9395      </Unit4>
    9496      <Unit5>
    9597        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    96         <EditorIndex Value="8"/>
    9798        <WindowIndex Value="0"/>
    9899        <TopLine Value="6352"/>
    99100        <CursorPos X="42" Y="6355"/>
    100         <UsageCount Value="58"/>
    101         <Loaded Value="True"/>
     101        <UsageCount Value="57"/>
     102        <DefaultSyntaxHighlighter Value="Delphi"/>
    102103      </Unit5>
    103104      <Unit6>
    … …  
    106107        <TopLine Value="490"/>
    107108        <CursorPos X="3" Y="497"/>
    108         <UsageCount Value="23"/>
     109        <UsageCount Value="22"/>
     110        <DefaultSyntaxHighlighter Value="Delphi"/>
    109111      </Unit6>
    110112      <Unit7>
    … …  
    113115        <TopLine Value="206"/>
    114116        <CursorPos X="8" Y="219"/>
    115         <UsageCount Value="10"/>
     117        <UsageCount Value="9"/>
     118        <DefaultSyntaxHighlighter Value="Delphi"/>
    116119      </Unit7>
    117120      <Unit8>
    118121        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    119122        <UnitName Value="LCLProc"/>
    120         <EditorIndex Value="6"/>
    121123        <WindowIndex Value="0"/>
    122124        <TopLine Value="1516"/>
    123125        <CursorPos X="1" Y="1528"/>
    124         <UsageCount Value="23"/>
    125         <Loaded Value="True"/>
     126        <UsageCount Value="22"/>
     127        <DefaultSyntaxHighlighter Value="Delphi"/>
    126128      </Unit8>
    127129      <Unit9>
    … …  
    132134        <ResourceBaseClass Value="Form"/>
    133135        <UnitName Value="UDockForm"/>
    134         <EditorIndex Value="3"/>
    135         <WindowIndex Value="0"/>
    136         <TopLine Value="18"/>
    137         <CursorPos X="1" Y="39"/>
    138         <UsageCount Value="194"/>
    139         <Loaded Value="True"/>
     136        <EditorIndex Value="8"/>
     137        <WindowIndex Value="0"/>
     138        <TopLine Value="2"/>
     139        <CursorPos X="23" Y="15"/>
     140        <UsageCount Value="200"/>
     141        <Loaded Value="True"/>
     142        <LoadedDesigner Value="True"/>
    140143        <DefaultSyntaxHighlighter Value="Delphi"/>
    141144      </Unit9>
    … …  
    146149        <TopLine Value="971"/>
    147150        <CursorPos X="3" Y="984"/>
    148         <UsageCount Value="9"/>
     151        <UsageCount Value="8"/>
     152        <DefaultSyntaxHighlighter Value="Delphi"/>
    149153      </Unit10>
    150154      <Unit11>
    … …  
    154158        <TopLine Value="819"/>
    155159        <CursorPos X="28" Y="826"/>
    156         <UsageCount Value="24"/>
     160        <UsageCount Value="23"/>
     161        <DefaultSyntaxHighlighter Value="Delphi"/>
    157162      </Unit11>
    158163      <Unit12>
    … …  
    162167        <TopLine Value="4756"/>
    163168        <CursorPos X="5" Y="4763"/>
    164         <UsageCount Value="5"/>
     169        <UsageCount Value="4"/>
    165170        <DefaultSyntaxHighlighter Value="Delphi"/>
    166171      </Unit12>
    … …  
    171176        <TopLine Value="702"/>
    172177        <CursorPos X="10" Y="719"/>
    173         <UsageCount Value="19"/>
     178        <UsageCount Value="18"/>
    174179        <DefaultSyntaxHighlighter Value="Delphi"/>
    175180      </Unit13>
    … …  
    180185        <TopLine Value="1245"/>
    181186        <CursorPos X="14" Y="1258"/>
    182         <UsageCount Value="55"/>
     187        <UsageCount Value="54"/>
     188        <DefaultSyntaxHighlighter Value="Delphi"/>
    183189      </Unit14>
    184190      <Unit15>
    … …  
    188194        <TopLine Value="480"/>
    189195        <CursorPos X="37" Y="496"/>
    190         <UsageCount Value="5"/>
     196        <UsageCount Value="4"/>
     197        <DefaultSyntaxHighlighter Value="Delphi"/>
    191198      </Unit15>
    192199      <Unit16>
    … …  
    195202        <TopLine Value="52"/>
    196203        <CursorPos X="30" Y="65"/>
    197         <UsageCount Value="5"/>
     204        <UsageCount Value="4"/>
     205        <DefaultSyntaxHighlighter Value="Delphi"/>
    198206      </Unit16>
    199207      <Unit17>
    200208        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    201         <EditorIndex Value="10"/>
    202209        <WindowIndex Value="0"/>
    203210        <TopLine Value="85"/>
    204211        <CursorPos X="24" Y="94"/>
    205         <UsageCount Value="11"/>
    206         <Loaded Value="True"/>
     212        <UsageCount Value="10"/>
     213        <DefaultSyntaxHighlighter Value="Delphi"/>
    207214      </Unit17>
    208215      <Unit18>
    … …  
    212219        <TopLine Value="267"/>
    213220        <CursorPos X="1" Y="269"/>
    214         <UsageCount Value="2"/>
     221        <UsageCount Value="1"/>
     222        <DefaultSyntaxHighlighter Value="Delphi"/>
    215223      </Unit18>
    216224      <Unit19>
    … …  
    220228        <TopLine Value="553"/>
    221229        <CursorPos X="44" Y="560"/>
    222         <UsageCount Value="7"/>
     230        <UsageCount Value="6"/>
     231        <DefaultSyntaxHighlighter Value="Delphi"/>
    223232      </Unit19>
    224233      <Unit20>
    … …  
    228237        <TopLine Value="492"/>
    229238        <CursorPos X="14" Y="505"/>
    230         <UsageCount Value="30"/>
     239        <UsageCount Value="29"/>
     240        <DefaultSyntaxHighlighter Value="Delphi"/>
    231241      </Unit20>
    232242      <Unit21>
    … …  
    236246        <TopLine Value="2148"/>
    237247        <CursorPos X="21" Y="2148"/>
    238         <UsageCount Value="26"/>
     248        <UsageCount Value="25"/>
     249        <DefaultSyntaxHighlighter Value="Delphi"/>
    239250      </Unit21>
    240251      <Unit22>
    … …  
    244255        <TopLine Value="391"/>
    245256        <CursorPos X="17" Y="404"/>
    246         <UsageCount Value="11"/>
     257        <UsageCount Value="10"/>
     258        <DefaultSyntaxHighlighter Value="Delphi"/>
    247259      </Unit22>
    248260      <Unit23>
    249261        <Filename Value="..\UCoolDocking.pas"/>
    250262        <UnitName Value="UCoolDocking"/>
    251         <IsVisibleTab Value="True"/>
    252         <EditorIndex Value="5"/>
    253         <WindowIndex Value="0"/>
    254         <TopLine Value="438"/>
    255         <CursorPos X="1" Y="450"/>
    256         <UsageCount Value="87"/>
     263        <EditorIndex Value="9"/>
     264        <WindowIndex Value="0"/>
     265        <TopLine Value="835"/>
     266        <CursorPos X="6" Y="858"/>
     267        <UsageCount Value="90"/>
    257268        <Loaded Value="True"/>
    258269        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    260271      <Unit24>
    261272        <Filename Value="..\ReadMe.txt"/>
    262         <EditorIndex Value="4"/>
    263273        <WindowIndex Value="0"/>
    264274        <TopLine Value="1"/>
    265275        <CursorPos X="18" Y="11"/>
    266276        <UsageCount Value="19"/>
    267         <Loaded Value="True"/>
    268277        <DefaultSyntaxHighlighter Value="None"/>
    269278      </Unit24>
    … …  
    273282        <TopLine Value="619"/>
    274283        <CursorPos X="22" Y="621"/>
    275         <UsageCount Value="19"/>
     284        <UsageCount Value="18"/>
     285        <DefaultSyntaxHighlighter Value="Delphi"/>
    276286      </Unit25>
    277287      <Unit26>
    … …  
    280290        <TopLine Value="27"/>
    281291        <CursorPos X="3" Y="32"/>
    282         <UsageCount Value="19"/>
     292        <UsageCount Value="18"/>
     293        <DefaultSyntaxHighlighter Value="Delphi"/>
    283294      </Unit26>
    284295      <Unit27>
    … …  
    287298        <TopLine Value="50"/>
    288299        <CursorPos X="14" Y="59"/>
    289         <UsageCount Value="20"/>
     300        <UsageCount Value="19"/>
     301        <DefaultSyntaxHighlighter Value="Delphi"/>
    290302      </Unit27>
    291303      <Unit28>
    … …  
    294306        <TopLine Value="84"/>
    295307        <CursorPos X="45" Y="90"/>
    296         <UsageCount Value="19"/>
     308        <UsageCount Value="18"/>
     309        <DefaultSyntaxHighlighter Value="Delphi"/>
    297310      </Unit28>
    298311      <Unit29>
    … …  
    305318        <TopLine Value="9"/>
    306319        <CursorPos X="19" Y="17"/>
    307         <UsageCount Value="46"/>
     320        <UsageCount Value="45"/>
    308321        <DefaultSyntaxHighlighter Value="Delphi"/>
    309322      </Unit29>
    … …  
    314327        <ResourceBaseClass Value="Form"/>
    315328        <UnitName Value="UCoolDockWindowList"/>
    316         <WindowIndex Value="0"/>
    317         <TopLine Value="73"/>
    318         <CursorPos X="42" Y="90"/>
    319         <UsageCount Value="11"/>
     329        <EditorIndex Value="1"/>
     330        <WindowIndex Value="0"/>
     331        <TopLine Value="53"/>
     332        <CursorPos X="1" Y="66"/>
     333        <UsageCount Value="14"/>
     334        <Loaded Value="True"/>
     335        <LoadedDesigner Value="True"/>
    320336        <DefaultSyntaxHighlighter Value="Delphi"/>
    321337      </Unit30>
    … …  
    323339        <Filename Value="SampleDockableForm.pas"/>
    324340        <IsPartOfProject Value="True"/>
    325         <ComponentName Value="Form1"/>
     341        <ComponentName Value="DockableForm"/>
    326342        <ResourceBaseClass Value="Form"/>
    327343        <UnitName Value="SampleDockableForm"/>
    328344        <WindowIndex Value="0"/>
    329345        <TopLine Value="1"/>
    330         <CursorPos X="53" Y="2"/>
    331         <UsageCount Value="137"/>
     346        <CursorPos X="34" Y="12"/>
     347        <UsageCount Value="144"/>
    332348        <DefaultSyntaxHighlighter Value="Delphi"/>
    333349      </Unit31>
    … …  
    337353        <TopLine Value="223"/>
    338354        <CursorPos X="3" Y="226"/>
    339         <UsageCount Value="3"/>
     355        <UsageCount Value="2"/>
     356        <DefaultSyntaxHighlighter Value="Delphi"/>
    340357      </Unit32>
    341358      <Unit33>
    … …  
    344361        <TopLine Value="59"/>
    345362        <CursorPos X="4" Y="66"/>
    346         <UsageCount Value="3"/>
     363        <UsageCount Value="2"/>
     364        <DefaultSyntaxHighlighter Value="Delphi"/>
    347365      </Unit33>
    348366      <Unit34>
    … …  
    352370        <TopLine Value="3034"/>
    353371        <CursorPos X="1" Y="3047"/>
    354         <UsageCount Value="10"/>
     372        <UsageCount Value="9"/>
     373        <DefaultSyntaxHighlighter Value="Delphi"/>
    355374      </Unit34>
    356375      <Unit35>
    … …  
    359378        <TopLine Value="233"/>
    360379        <CursorPos X="45" Y="239"/>
    361         <UsageCount Value="7"/>
     380        <UsageCount Value="6"/>
     381        <DefaultSyntaxHighlighter Value="Delphi"/>
    362382      </Unit35>
    363383      <Unit36>
    … …  
    366386        <TopLine Value="98"/>
    367387        <CursorPos X="3" Y="103"/>
    368         <UsageCount Value="6"/>
     388        <UsageCount Value="5"/>
     389        <DefaultSyntaxHighlighter Value="Delphi"/>
    369390      </Unit36>
    370391      <Unit37>
    … …  
    373394        <TopLine Value="885"/>
    374395        <CursorPos X="3" Y="853"/>
    375         <UsageCount Value="6"/>
     396        <UsageCount Value="5"/>
     397        <DefaultSyntaxHighlighter Value="Delphi"/>
    376398      </Unit37>
    377399      <Unit38>
    … …  
    380402        <TopLine Value="1555"/>
    381403        <CursorPos X="1" Y="1568"/>
    382         <UsageCount Value="6"/>
     404        <UsageCount Value="5"/>
     405        <DefaultSyntaxHighlighter Value="Delphi"/>
    383406      </Unit38>
    384407      <Unit39>
    … …  
    387410        <TopLine Value="33"/>
    388411        <CursorPos X="10" Y="40"/>
    389         <UsageCount Value="6"/>
     412        <UsageCount Value="5"/>
     413        <DefaultSyntaxHighlighter Value="Delphi"/>
    390414      </Unit39>
    391415      <Unit40>
    … …  
    394418        <TopLine Value="29"/>
    395419        <CursorPos X="3" Y="32"/>
    396         <UsageCount Value="6"/>
     420        <UsageCount Value="5"/>
     421        <DefaultSyntaxHighlighter Value="Delphi"/>
    397422      </Unit40>
    398423      <Unit41>
    … …  
    401426        <TopLine Value="312"/>
    402427        <CursorPos X="10" Y="319"/>
    403         <UsageCount Value="6"/>
     428        <UsageCount Value="5"/>
     429        <DefaultSyntaxHighlighter Value="Delphi"/>
    404430      </Unit41>
    405431      <Unit42>
    … …  
    408434        <TopLine Value="85"/>
    409435        <CursorPos X="1" Y="92"/>
    410         <UsageCount Value="5"/>
     436        <UsageCount Value="4"/>
     437        <DefaultSyntaxHighlighter Value="Delphi"/>
    411438      </Unit42>
    412439      <Unit43>
    … …  
    415442        <TopLine Value="126"/>
    416443        <CursorPos X="89" Y="147"/>
    417         <UsageCount Value="5"/>
     444        <UsageCount Value="4"/>
     445        <DefaultSyntaxHighlighter Value="Delphi"/>
    418446      </Unit43>
    419447      <Unit44>
    … …  
    426454        <TopLine Value="35"/>
    427455        <CursorPos X="44" Y="45"/>
    428         <UsageCount Value="89"/>
     456        <UsageCount Value="96"/>
    429457        <DefaultSyntaxHighlighter Value="Delphi"/>
    430458      </Unit44>
    … …  
    434462        <TopLine Value="311"/>
    435463        <CursorPos X="3" Y="332"/>
    436         <UsageCount Value="6"/>
     464        <UsageCount Value="5"/>
     465        <DefaultSyntaxHighlighter Value="Delphi"/>
    437466      </Unit45>
    438467      <Unit46>
    439468        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
    440         <EditorIndex Value="11"/>
    441469        <WindowIndex Value="0"/>
    442470        <TopLine Value="1638"/>
    443471        <CursorPos X="15" Y="1650"/>
    444         <UsageCount Value="14"/>
    445         <Loaded Value="True"/>
     472        <UsageCount Value="13"/>
     473        <DefaultSyntaxHighlighter Value="Delphi"/>
    446474      </Unit46>
    447475      <Unit47>
    … …  
    450478        <TopLine Value="1"/>
    451479        <CursorPos X="1" Y="4"/>
    452         <UsageCount Value="4"/>
     480        <UsageCount Value="3"/>
    453481        <DefaultSyntaxHighlighter Value="Delphi"/>
    454482      </Unit47>
    … …  
    458486        <EditorIndex Value="0"/>
    459487        <WindowIndex Value="0"/>
    460         <TopLine Value="171"/>
    461         <CursorPos X="3" Y="173"/>
    462         <UsageCount Value="43"/>
     488        <TopLine Value="61"/>
     489        <CursorPos X="1" Y="74"/>
     490        <UsageCount Value="46"/>
    463491        <Loaded Value="True"/>
    464492        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    467495        <Filename Value="..\UCoolDockStylePopupTabs.pas"/>
    468496        <UnitName Value="UCoolDockStylePopupTabs"/>
    469         <WindowIndex Value="0"/>
    470         <TopLine Value="39"/>
    471         <CursorPos X="1" Y="55"/>
    472         <UsageCount Value="13"/>
     497        <EditorIndex Value="15"/>
     498        <WindowIndex Value="0"/>
     499        <TopLine Value="33"/>
     500        <CursorPos X="33" Y="52"/>
     501        <UsageCount Value="16"/>
     502        <Loaded Value="True"/>
    473503        <DefaultSyntaxHighlighter Value="Delphi"/>
    474504      </Unit49>
    … …  
    476506        <Filename Value="..\UCoolDockStyle.pas"/>
    477507        <UnitName Value="UCoolDockStyle"/>
    478         <WindowIndex Value="0"/>
    479         <TopLine Value="12"/>
    480         <CursorPos X="29" Y="24"/>
    481         <UsageCount Value="43"/>
     508        <EditorIndex Value="4"/>
     509        <WindowIndex Value="0"/>
     510        <TopLine Value="11"/>
     511        <CursorPos X="15" Y="24"/>
     512        <UsageCount Value="45"/>
     513        <Loaded Value="True"/>
    482514        <DefaultSyntaxHighlighter Value="Delphi"/>
    483515      </Unit50>
    … …  
    488520        <TopLine Value="64"/>
    489521        <CursorPos X="1" Y="85"/>
    490         <UsageCount Value="41"/>
     522        <UsageCount Value="40"/>
    491523        <DefaultSyntaxHighlighter Value="Delphi"/>
    492524      </Unit51>
    … …  
    497529        <TopLine Value="1"/>
    498530        <CursorPos X="44" Y="11"/>
    499         <UsageCount Value="13"/>
     531        <UsageCount Value="12"/>
    500532        <DefaultSyntaxHighlighter Value="Delphi"/>
    501533      </Unit52>
    … …  
    505537        <TopLine Value="164"/>
    506538        <CursorPos X="8" Y="176"/>
    507         <UsageCount Value="11"/>
     539        <UsageCount Value="10"/>
     540        <DefaultSyntaxHighlighter Value="Delphi"/>
    508541      </Unit53>
    509542      <Unit54>
    510543        <Filename Value="..\UCoolDockClientPanel.pas"/>
    511544        <UnitName Value="UCoolDockClientPanel"/>
    512         <EditorIndex Value="1"/>
    513         <WindowIndex Value="0"/>
    514         <TopLine Value="78"/>
    515         <CursorPos X="1" Y="90"/>
    516         <UsageCount Value="42"/>
     545        <EditorIndex Value="3"/>
     546        <WindowIndex Value="0"/>
     547        <TopLine Value="84"/>
     548        <CursorPos X="1" Y="105"/>
     549        <UsageCount Value="45"/>
    517550        <Loaded Value="True"/>
    518551        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    521554        <Filename Value="..\UCoolDockPopupMenu.pas"/>
    522555        <UnitName Value="UCoolDockPopupMenu"/>
    523         <EditorIndex Value="13"/>
     556        <EditorIndex Value="10"/>
    524557        <WindowIndex Value="0"/>
    525558        <TopLine Value="5"/>
    526559        <CursorPos X="17" Y="17"/>
    527         <UsageCount Value="15"/>
     560        <UsageCount Value="18"/>
    528561        <Loaded Value="True"/>
    529562        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    534567        <TopLine Value="392"/>
    535568        <CursorPos X="1" Y="405"/>
    536         <UsageCount Value="11"/>
     569        <UsageCount Value="10"/>
     570        <DefaultSyntaxHighlighter Value="Delphi"/>
    537571      </Unit56>
    538572      <Unit57>
    … …  
    541575        <TopLine Value="115"/>
    542576        <CursorPos X="1" Y="128"/>
    543         <UsageCount Value="10"/>
     577        <UsageCount Value="9"/>
     578        <DefaultSyntaxHighlighter Value="Delphi"/>
    544579      </Unit57>
    545580      <Unit58>
    546581        <Filename Value="E:\Programy\Lazarus\lcl\lclclasses.pp"/>
    547582        <UnitName Value="LCLClasses"/>
    548         <EditorIndex Value="9"/>
    549583        <WindowIndex Value="0"/>
    550584        <TopLine Value="92"/>
    551585        <CursorPos X="1" Y="112"/>
    552         <UsageCount Value="11"/>
    553         <Loaded Value="True"/>
     586        <UsageCount Value="10"/>
     587        <DefaultSyntaxHighlighter Value="Delphi"/>
    554588      </Unit58>
    555589      <Unit59>
    … …  
    559593        <TopLine Value="66"/>
    560594        <CursorPos X="3" Y="72"/>
    561         <UsageCount Value="11"/>
     595        <UsageCount Value="10"/>
     596        <DefaultSyntaxHighlighter Value="Delphi"/>
    562597      </Unit59>
    563598      <Unit60>
    … …  
    566601        <TopLine Value="239"/>
    567602        <CursorPos X="1" Y="261"/>
    568         <UsageCount Value="11"/>
     603        <UsageCount Value="10"/>
     604        <DefaultSyntaxHighlighter Value="Delphi"/>
    569605      </Unit60>
    570606      <Unit61>
    … …  
    573609        <TopLine Value="4"/>
    574610        <CursorPos X="4" Y="16"/>
    575         <UsageCount Value="11"/>
     611        <UsageCount Value="10"/>
     612        <DefaultSyntaxHighlighter Value="Delphi"/>
    576613      </Unit61>
    577614      <Unit62>
    … …  
    580617        <TopLine Value="1038"/>
    581618        <CursorPos X="1" Y="1050"/>
    582         <UsageCount Value="11"/>
     619        <UsageCount Value="10"/>
     620        <DefaultSyntaxHighlighter Value="Delphi"/>
    583621      </Unit62>
    584622      <Unit63>
    585623        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\compon.inc"/>
    586         <EditorIndex Value="12"/>
    587624        <WindowIndex Value="0"/>
    588625        <TopLine Value="514"/>
    589626        <CursorPos X="13" Y="520"/>
    590         <UsageCount Value="10"/>
    591         <Loaded Value="True"/>
     627        <UsageCount Value="9"/>
     628        <DefaultSyntaxHighlighter Value="Delphi"/>
    592629      </Unit63>
     630      <Unit64>
     631        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
     632        <UnitName Value="ComCtrls"/>
     633        <EditorIndex Value="12"/>
     634        <WindowIndex Value="0"/>
     635        <TopLine Value="264"/>
     636        <CursorPos X="31" Y="271"/>
     637        <UsageCount Value="10"/>
     638        <Loaded Value="True"/>
     639      </Unit64>
     640      <Unit65>
     641        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\forms.pp"/>
     642        <UnitName Value="Forms"/>
     643        <WindowIndex Value="0"/>
     644        <TopLine Value="170"/>
     645        <CursorPos X="17" Y="183"/>
     646        <UsageCount Value="10"/>
     647      </Unit65>
     648      <Unit66>
     649        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customform.inc"/>
     650        <EditorIndex Value="7"/>
     651        <WindowIndex Value="0"/>
     652        <TopLine Value="391"/>
     653        <CursorPos X="1" Y="404"/>
     654        <UsageCount Value="12"/>
     655        <Loaded Value="True"/>
     656      </Unit66>
     657      <Unit67>
     658        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\classesh.inc"/>
     659        <WindowIndex Value="0"/>
     660        <TopLine Value="1917"/>
     661        <CursorPos X="30" Y="1930"/>
     662        <UsageCount Value="10"/>
     663      </Unit67>
     664      <Unit68>
     665        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\sysutils\systhrdh.inc"/>
     666        <WindowIndex Value="0"/>
     667        <TopLine Value="5"/>
     668        <CursorPos X="16" Y="18"/>
     669        <UsageCount Value="10"/>
     670      </Unit68>
     671      <Unit69>
     672        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\scrollingwincontrol.inc"/>
     673        <WindowIndex Value="0"/>
     674        <TopLine Value="233"/>
     675        <CursorPos X="16" Y="238"/>
     676        <UsageCount Value="10"/>
     677      </Unit69>
     678      <Unit70>
     679        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
     680        <UnitName Value="Controls"/>
     681        <WindowIndex Value="0"/>
     682        <TopLine Value="1296"/>
     683        <CursorPos X="17" Y="1309"/>
     684        <UsageCount Value="10"/>
     685      </Unit70>
     686      <Unit71>
     687        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcontrol.inc"/>
     688        <WindowIndex Value="0"/>
     689        <TopLine Value="27"/>
     690        <CursorPos X="14" Y="30"/>
     691        <UsageCount Value="10"/>
     692      </Unit71>
     693      <Unit72>
     694        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
     695        <WindowIndex Value="0"/>
     696        <TopLine Value="6295"/>
     697        <CursorPos X="36" Y="6298"/>
     698        <UsageCount Value="10"/>
     699      </Unit72>
     700      <Unit73>
     701        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
     702        <EditorIndex Value="6"/>
     703        <WindowIndex Value="0"/>
     704        <TopLine Value="1378"/>
     705        <CursorPos X="1" Y="1391"/>
     706        <UsageCount Value="12"/>
     707        <Loaded Value="True"/>
     708      </Unit73>
     709      <Unit74>
     710        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\tabcontrol.inc"/>
     711        <EditorIndex Value="2"/>
     712        <WindowIndex Value="0"/>
     713        <TopLine Value="464"/>
     714        <CursorPos X="1" Y="477"/>
     715        <UsageCount Value="13"/>
     716        <Loaded Value="True"/>
     717      </Unit74>
     718      <Unit75>
     719        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
     720        <UnitName Value="LCLProc"/>
     721        <EditorIndex Value="5"/>
     722        <WindowIndex Value="0"/>
     723        <TopLine Value="1515"/>
     724        <CursorPos X="1" Y="1527"/>
     725        <UsageCount Value="13"/>
     726        <Loaded Value="True"/>
     727      </Unit75>
     728      <Unit76>
     729        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\imglist.pp"/>
     730        <UnitName Value="ImgList"/>
     731        <WindowIndex Value="0"/>
     732        <TopLine Value="171"/>
     733        <CursorPos X="15" Y="184"/>
     734        <UsageCount Value="10"/>
     735      </Unit76>
     736      <Unit77>
     737        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\imglist.inc"/>
     738        <WindowIndex Value="0"/>
     739        <TopLine Value="717"/>
     740        <CursorPos X="25" Y="730"/>
     741        <UsageCount Value="10"/>
     742      </Unit77>
     743      <Unit78>
     744        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     745        <UnitName Value="ExtCtrls"/>
     746        <IsVisibleTab Value="True"/>
     747        <EditorIndex Value="13"/>
     748        <WindowIndex Value="0"/>
     749        <TopLine Value="214"/>
     750        <CursorPos X="34" Y="231"/>
     751        <UsageCount Value="10"/>
     752        <Loaded Value="True"/>
     753      </Unit78>
     754      <Unit79>
     755        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\custompage.inc"/>
     756        <EditorIndex Value="14"/>
     757        <WindowIndex Value="0"/>
     758        <TopLine Value="56"/>
     759        <CursorPos X="3" Y="69"/>
     760        <UsageCount Value="10"/>
     761        <Loaded Value="True"/>
     762      </Unit79>
    593763    </Units>
    594     <JumpHistory Count="30" HistoryIndex="29">
     764    <JumpHistory Count="30" HistoryIndex="27">
    595765      <Position1>
    596         <Filename Value="..\UCoolDockClientPanel.pas"/>
    597         <Caret Line="110" Column="1" TopLine="98"/>
     766        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     767        <Caret Line="76" Column="1" TopLine="63"/>
    598768      </Position1>
    599769      <Position2>
    600         <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    601         <Caret Line="1528" Column="1" TopLine="1516"/>
     770        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     771        <Caret Line="238" Column="1" TopLine="237"/>
    602772      </Position2>
    603773      <Position3>
    604         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    605         <Caret Line="1411" Column="1" TopLine="1399"/>
     774        <Filename Value="..\UCoolDockClientPanel.pas"/>
     775        <Caret Line="105" Column="1" TopLine="83"/>
    606776      </Position3>
    607777      <Position4>
    608         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    609         <Caret Line="1392" Column="1" TopLine="1380"/>
     778        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     779        <Caret Line="258" Column="1" TopLine="237"/>
    610780      </Position4>
    611781      <Position5>
    612         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    613         <Caret Line="1262" Column="1" TopLine="1250"/>
     782        <Filename Value="..\UCoolDockClientPanel.pas"/>
     783        <Caret Line="105" Column="1" TopLine="84"/>
    614784      </Position5>
    615785      <Position6>
    616         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    617         <Caret Line="1263" Column="1" TopLine="1250"/>
     786        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     787        <Caret Line="258" Column="1" TopLine="237"/>
    618788      </Position6>
    619789      <Position7>
    620         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    621         <Caret Line="1264" Column="1" TopLine="1250"/>
     790        <Filename Value="..\UCoolDockClientPanel.pas"/>
     791        <Caret Line="105" Column="1" TopLine="84"/>
    622792      </Position7>
    623793      <Position8>
    624         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    625         <Caret Line="3721" Column="1" TopLine="3709"/>
     794        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     795        <Caret Line="258" Column="1" TopLine="237"/>
    626796      </Position8>
    627797      <Position9>
    628         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    629         <Caret Line="3724" Column="1" TopLine="3709"/>
     798        <Filename Value="..\UCoolDockClientPanel.pas"/>
     799        <Caret Line="105" Column="1" TopLine="84"/>
    630800      </Position9>
    631801      <Position10>
    632         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    633         <Caret Line="3726" Column="1" TopLine="3709"/>
     802        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     803        <Caret Line="258" Column="1" TopLine="237"/>
    634804      </Position10>
    635805      <Position11>
    636         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    637         <Caret Line="405" Column="1" TopLine="393"/>
     806        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     807        <Caret Line="93" Column="1" TopLine="73"/>
    638808      </Position11>
    639809      <Position12>
    640         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    641         <Caret Line="408" Column="1" TopLine="393"/>
     810        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     811        <Caret Line="258" Column="22" TopLine="245"/>
    642812      </Position12>
    643813      <Position13>
    644         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    645         <Caret Line="2102" Column="1" TopLine="2090"/>
     814        <Filename Value="..\UCoolDockClientPanel.pas"/>
     815        <Caret Line="105" Column="1" TopLine="84"/>
    646816      </Position13>
    647817      <Position14>
    648         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    649         <Caret Line="101" Column="1" TopLine="89"/>
     818        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     819        <Caret Line="5" Column="75" TopLine="1"/>
    650820      </Position14>
    651821      <Position15>
    652         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    653         <Caret Line="912" Column="1" TopLine="900"/>
     822        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     823        <Caret Line="52" Column="25" TopLine="31"/>
    654824      </Position15>
    655825      <Position16>
    656         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    657         <Caret Line="913" Column="1" TopLine="900"/>
     826        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     827        <Caret Line="260" Column="25" TopLine="239"/>
    658828      </Position16>
    659829      <Position17>
    660         <Filename Value="UDockForm.pas"/>
    661         <Caret Line="37" Column="1" TopLine="18"/>
     830        <Filename Value="UMainForm.pas"/>
     831        <Caret Line="76" Column="44" TopLine="59"/>
    662832      </Position17>
    663833      <Position18>
    664         <Filename Value="UDockForm.pas"/>
    665         <Caret Line="38" Column="1" TopLine="18"/>
     834        <Filename Value="UMainForm.pas"/>
     835        <Caret Line="77" Column="44" TopLine="60"/>
    666836      </Position18>
    667837      <Position19>
    668         <Filename Value="UDockForm.pas"/>
    669         <Caret Line="39" Column="1" TopLine="18"/>
     838        <Filename Value="UMainForm.pas"/>
     839        <Caret Line="78" Column="44" TopLine="61"/>
    670840      </Position19>
    671841      <Position20>
    672         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    673         <Caret Line="918" Column="1" TopLine="900"/>
     842        <Filename Value="UMainForm.pas"/>
     843        <Caret Line="79" Column="44" TopLine="62"/>
    674844      </Position20>
    675845      <Position21>
    676         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    677         <Caret Line="103" Column="1" TopLine="91"/>
     846        <Filename Value="UMainForm.pas"/>
     847        <Caret Line="80" Column="44" TopLine="63"/>
    678848      </Position21>
    679849      <Position22>
    680         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    681         <Caret Line="94" Column="24" TopLine="85"/>
     850        <Filename Value="UMainForm.pas"/>
     851        <Caret Line="82" Column="44" TopLine="65"/>
    682852      </Position22>
    683853      <Position23>
    684         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\compon.inc"/>
    685         <Caret Line="496" Column="14" TopLine="493"/>
     854        <Filename Value="UMainForm.pas"/>
     855        <Caret Line="110" Column="43" TopLine="99"/>
    686856      </Position23>
    687857      <Position24>
    688         <Filename Value="..\UCoolDockClientPanel.pas"/>
    689         <Caret Line="109" Column="67" TopLine="87"/>
     858        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     859        <Caret Line="251" Column="22" TopLine="239"/>
    690860      </Position24>
    691861      <Position25>
    692         <Filename Value="..\UCoolDocking.pas"/>
    693         <Caret Line="219" Column="1" TopLine="207"/>
     862        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     863        <Caret Line="260" Column="20" TopLine="247"/>
    694864      </Position25>
    695865      <Position26>
    696         <Filename Value="..\UCoolDockClientPanel.pas"/>
    697         <Caret Line="109" Column="1" TopLine="92"/>
     866        <Filename Value="UMainForm.pas"/>
     867        <Caret Line="28" Column="25" TopLine="19"/>
    698868      </Position26>
    699869      <Position27>
    700         <Filename Value="..\UCoolDockClientPanel.pas"/>
    701         <Caret Line="111" Column="1" TopLine="92"/>
     870        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
     871        <Caret Line="271" Column="31" TopLine="264"/>
    702872      </Position27>
    703873      <Position28>
    704         <Filename Value="..\UCoolDockClientPanel.pas"/>
    705         <Caret Line="186" Column="1" TopLine="174"/>
     874        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     875        <Caret Line="225" Column="44" TopLine="214"/>
    706876      </Position28>
    707877      <Position29>
    708         <Filename Value="..\UCoolDockClientPanel.pas"/>
    709         <Caret Line="191" Column="1" TopLine="174"/>
     878        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     879        <Caret Line="82" Column="62" TopLine="68"/>
    710880      </Position29>
    711881      <Position30>
    712         <Filename Value="UMainForm.pas"/>
    713         <Caret Line="75" Column="3" TopLine="59"/>
     882        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\custompage.inc"/>
     883        <Caret Line="69" Column="3" TopLine="56"/>
    714884      </Position30>
    715885    </JumpHistory>
    716886  </ProjectOptions>
    717887  <CompilerOptions>
    718     <Version Value="9"/>
     888    <Version Value="10"/>
    719889    <PathDelim Value="\"/>
    720890    <Target>
    … …  
    746916        <UseHeaptrc Value="True"/>
    747917      </Debugging>
     918      <Options>
     919        <Win32>
     920          <GraphicApplication Value="True"/>
     921        </Win32>
     922      </Options>
    748923    </Linking>
    749924    <Other>

  • Docking/CoolDocking/Demo/Demo.lpr

    r98 r176  
    2222  Application.Initialize;
    2323  Application.CreateForm(TMainForm, MainForm);
    24   Application.CreateForm(TForm1, Form1);
     24  Application.CreateForm(TDockableForm, DockableForm);
    2525  Application.CreateForm(TComponentTree, ComponentTree);
    2626  Application.Run;

  • Docking/CoolDocking/Demo/SampleDockableForm.lfm

    r59 r176  
    1 object Form1: TForm1
     1object DockableForm: TDockableForm
    22  Left = 335
    33  Height = 240
    44  Top = 167
    55  Width = 320
    6   Caption = 'Form1'
     6  Caption = 'DockableForm'
    77  ClientHeight = 240
    88  ClientWidth = 320
    … …  
    1111  DragMode = dmAutomatic
    1212  UseDockManager = True
    13   LCLVersion = '0.9.29'
     13  LCLVersion = '0.9.31'
    1414  object Memo1: TMemo
    1515    Left = 82
    … …  
    2323  end
    2424  object CoolDockClient1: TCoolDockClient
    25     Dockable = True
     25    Floatable = False
    2626    Master = MainForm.CoolDockMaster1
    2727    left = 104

  • Docking/CoolDocking/Demo/SampleDockableForm.pas

    r58 r176  
    1111type
    1212
    13   { TForm1 }
     13  { TDockableForm }
    1414
    15   TForm1 = class(TForm)
     15  TDockableForm = class(TForm)
    1616    CoolDockClient1: TCoolDockClient;
    1717    ImageList1: TImageList;
    … …  
    2424
    2525var
    26   Form1: TForm1;
     26  DockableForm: TDockableForm;
    2727
    2828implementation

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r103 r176  
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   LCLVersion = '0.9.29'
     13  LCLVersion = '0.9.31'
    1414  object Button1: TButton
    1515    Left = 10
    … …  
    2828    Align = alBottom
    2929    Anchors = [akTop, akLeft, akRight, akBottom]
     30    ClientHeight = 368
     31    ClientWidth = 576
    3032    DockSite = True
    3133    TabOrder = 1
     34    object PageControl1: TPageControl
     35      Left = 80
     36      Height = 160
     37      Top = 50
     38      Width = 256
     39      ActivePage = TabSheet2
     40      MultiLine = True
     41      TabIndex = 1
     42      TabOrder = 0
     43      OnChange = PageControl1Change
     44      Options = [nboMultiLine]
     45      object TabSheet1: TTabSheet
     46        Caption = 'TabSheet1'
     47      end
     48      object TabSheet2: TTabSheet
     49        Caption = 'TabSheet2'
     50      end
     51      object TabSheet3: TTabSheet
     52        Caption = 'TabSheet3'
     53      end
     54      object TabSheet4: TTabSheet
     55        Caption = 'TabSheet4'
     56      end
     57    end
     58    object TabControl1: TTabControl
     59      Left = 344
     60      Height = 150
     61      Top = 144
     62      Width = 200
     63      MultiLine = True
     64      TabIndex = 2
     65      TabOrder = 1
     66      Tabs.Strings = (
     67        'ggdfg'
     68        'gfgdfgfdgd'
     69        'gdfgdfgdf'
     70        'dfsdfs'
     71        'dd'
     72        'dddd'
     73        'ddd'
     74      )
     75      TabStop = False
     76    end
    3277  end
    3378  object Button2: TButton

  • Docking/CoolDocking/Demo/UMainForm.pas

    r103 r176  
    2626    MenuItem3: TMenuItem;
    2727    MenuItem4: TMenuItem;
     28    PageControl1: TPageControl;
    2829    Panel1: TPanel;
     30    TabControl1: TTabControl;
     31    TabSheet1: TTabSheet;
     32    TabSheet2: TTabSheet;
     33    TabSheet3: TTabSheet;
     34    TabSheet4: TTabSheet;
    2935    procedure Button1Click(Sender: TObject);
    3036    procedure Button2Click(Sender: TObject);
    … …  
    3440    procedure MenuItem2Click(Sender: TObject);
    3541    procedure MenuItem4Click(Sender: TObject);
     42    procedure PageControl1Change(Sender: TObject);
    3643  private
    3744  public
    … …  
    7481  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7582  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
     83  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7684  //NewDockForm.ManualDock(TForm(DockForms[0]));
    7785  //NewDockForm.ManualDock(TForm(DockForms[0]));
    … …  
    9098end;
    9199
     100procedure TMainForm.PageControl1Change(Sender: TObject);
     101begin
     102
     103end;
     104
    92105function TMainForm.NewDockForm: TDockForm;
    93106begin
    94   Result := TDockForm.Create(Self);
     107  Application.CreateForm(TDockForm, Result);
     108//  Result := TDockForm.Create(Self);
    95109  Result.Name := 'Form' + IntToStr(FormIndex);
     110  Result.CoolDockClient1.Name := 'CoolDockClient' + IntToStr(FormIndex);
    96111  Result.Caption := Result.Name;
    97112  Result.Memo1.Text := Result.Name;
Note: See TracChangeset for help on using the changeset viewer.