Ignore:
Timestamp:
Sep 20, 2010, 8:07:01 AM (14 years ago)
Author:
george
Message:
  • Upraveno: Titulková lišta ukotvených oken přepracována s využitím klasických prvků jako TPanel, TShape, TLabel a TSpeedButton. Zjednodušení kódu díky automatické obsluze velikosti a rozmístění.
Location:
DockManager/Lazarus/Demo
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • DockManager/Lazarus/Demo/Demo.lpi

    r49 r50  
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
    42         <EditorIndex Value="5"/>
     42        <EditorIndex Value="3"/>
    4343        <WindowIndex Value="0"/>
    4444        <TopLine Value="1"/>
    4545        <CursorPos X="7" Y="3"/>
    46         <UsageCount Value="38"/>
     46        <UsageCount Value="39"/>
    4747        <Loaded Value="True"/>
    4848        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    5757        <WindowIndex Value="0"/>
    5858        <TopLine Value="1"/>
    59         <CursorPos X="20" Y="5"/>
    60         <UsageCount Value="38"/>
     59        <CursorPos X="15" Y="21"/>
     60        <UsageCount Value="39"/>
    6161        <Loaded Value="True"/>
    6262        <LoadedDesigner Value="True"/>
    … …  
    6666        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6767        <UnitName Value="Controls"/>
    68         <EditorIndex Value="10"/>
    69         <WindowIndex Value="0"/>
    70         <TopLine Value="3840"/>
     68        <WindowIndex Value="0"/>
     69        <TopLine Value="3846"/>
    7170        <CursorPos X="1" Y="3853"/>
    7271        <UsageCount Value="19"/>
    73         <Loaded Value="True"/>
    7472      </Unit2>
    7573      <Unit3>
    … …  
    8482      <Unit4>
    8583        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    86         <EditorIndex Value="13"/>
    87         <WindowIndex Value="0"/>
    88         <TopLine Value="1035"/>
     84        <WindowIndex Value="0"/>
     85        <TopLine Value="1041"/>
    8986        <CursorPos X="1" Y="1048"/>
    9087        <UsageCount Value="18"/>
    91         <Loaded Value="True"/>
    9288      </Unit4>
    9389      <Unit5>
    9490        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    95         <EditorIndex Value="11"/>
    96         <WindowIndex Value="0"/>
    97         <TopLine Value="7631"/>
     91        <WindowIndex Value="0"/>
     92        <TopLine Value="7637"/>
    9893        <CursorPos X="1" Y="7644"/>
    9994        <UsageCount Value="18"/>
    100         <Loaded Value="True"/>
    10195      </Unit5>
    10296      <Unit6>
    … …  
    174168        <ResourceBaseClass Value="Form"/>
    175169        <UnitName Value="UDockForm"/>
    176         <EditorIndex Value="15"/>
     170        <EditorIndex Value="6"/>
    177171        <WindowIndex Value="0"/>
    178172        <TopLine Value="1"/>
    179173        <CursorPos X="47" Y="8"/>
    180         <UsageCount Value="37"/>
     174        <UsageCount Value="38"/>
    181175        <Loaded Value="True"/>
    182176        <LoadedDesigner Value="True"/>
    … …  
    202196        <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    203197        <UnitName Value="AnchorDocking"/>
    204         <EditorIndex Value="14"/>
    205         <WindowIndex Value="0"/>
    206         <TopLine Value="4754"/>
     198        <EditorIndex Value="5"/>
     199        <WindowIndex Value="0"/>
     200        <TopLine Value="4756"/>
    207201        <CursorPos X="5" Y="4763"/>
    208202        <UsageCount Value="18"/>
    … …  
    224218        <EditorIndex Value="1"/>
    225219        <WindowIndex Value="0"/>
    226         <TopLine Value="216"/>
    227         <CursorPos X="15" Y="218"/>
     220        <TopLine Value="770"/>
     221        <CursorPos X="15" Y="791"/>
    228222        <UsageCount Value="32"/>
    229223        <Loaded Value="True"/>
    … …  
    233227        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    234228        <UnitName Value="ExtCtrls"/>
    235         <EditorIndex Value="3"/>
    236229        <WindowIndex Value="0"/>
    237230        <TopLine Value="1183"/>
    238231        <CursorPos X="24" Y="1199"/>
    239232        <UsageCount Value="11"/>
    240         <Loaded Value="True"/>
    241233      </Unit21>
    242234      <Unit22>
    … …  
    250242      <Unit23>
    251243        <Filename Value="E:\Programy\Lazarus\lcl\include\dragmanager.inc"/>
    252         <EditorIndex Value="8"/>
    253         <WindowIndex Value="0"/>
    254         <TopLine Value="553"/>
    255         <CursorPos X="18" Y="574"/>
     244        <WindowIndex Value="0"/>
     245        <TopLine Value="538"/>
     246        <CursorPos X="20" Y="567"/>
    256247        <UsageCount Value="14"/>
    257         <Loaded Value="True"/>
    258248      </Unit23>
    259249      <Unit24>
    … …  
    267257        <Filename Value="E:\Programy\Lazarus\lcl\widgetset\wscontrols.pp"/>
    268258        <UnitName Value="WSControls"/>
    269         <EditorIndex Value="12"/>
    270259        <WindowIndex Value="0"/>
    271260        <TopLine Value="267"/>
    272261        <CursorPos X="1" Y="269"/>
    273262        <UsageCount Value="16"/>
    274         <Loaded Value="True"/>
    275263      </Unit25>
    276264      <Unit26>
    277265        <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    278266        <UnitName Value="ComCtrls"/>
    279         <EditorIndex Value="4"/>
    280         <WindowIndex Value="0"/>
    281         <TopLine Value="545"/>
     267        <WindowIndex Value="0"/>
     268        <TopLine Value="551"/>
    282269        <CursorPos X="3" Y="558"/>
    283270        <UsageCount Value="16"/>
    284         <Loaded Value="True"/>
    285271      </Unit26>
    286272      <Unit27>
    287273        <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    288274        <UnitName Value="Forms"/>
    289         <EditorIndex Value="9"/>
    290         <WindowIndex Value="0"/>
    291         <TopLine Value="687"/>
     275        <WindowIndex Value="0"/>
     276        <TopLine Value="693"/>
    292277        <CursorPos X="14" Y="700"/>
    293278        <UsageCount Value="15"/>
    294         <Loaded Value="True"/>
    295279      </Unit27>
    296280      <Unit28>
    297281        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    298282        <UnitName Value="Themes"/>
    299         <EditorIndex Value="6"/>
     283        <EditorIndex Value="2"/>
    300284        <WindowIndex Value="0"/>
    301285        <TopLine Value="550"/>
    302         <CursorPos X="31" Y="556"/>
     286        <CursorPos X="1" Y="556"/>
    303287        <UsageCount Value="12"/>
    304288        <Loaded Value="True"/>
    … …  
    315299        <Filename Value="..\..\..\ExceptionLogger\UExceptionLogger.pas"/>
    316300        <UnitName Value="UExceptionLogger"/>
    317         <EditorIndex Value="7"/>
    318         <WindowIndex Value="0"/>
    319         <TopLine Value="34"/>
     301        <EditorIndex Value="4"/>
     302        <WindowIndex Value="0"/>
     303        <TopLine Value="49"/>
    320304        <CursorPos X="1" Y="56"/>
    321305        <UsageCount Value="11"/>
    … …  
    326310        <Filename Value="E:\Programy\Lazarus\lcl\customtimer.pas"/>
    327311        <UnitName Value="CustomTimer"/>
    328         <EditorIndex Value="2"/>
    329312        <WindowIndex Value="0"/>
    330313        <TopLine Value="68"/>
    331314        <CursorPos X="3" Y="77"/>
    332315        <UsageCount Value="10"/>
    333         <Loaded Value="True"/>
    334316      </Unit31>
    335317    </Units>
    336     <JumpHistory Count="30" HistoryIndex="28">
     318    <JumpHistory Count="30" HistoryIndex="29">
    337319      <Position1>
    338320        <Filename Value="..\UCustomDockManager.pas"/>
    339         <Caret Line="242" Column="20" TopLine="224"/>
     321        <Caret Line="499" Column="66" TopLine="486"/>
    340322      </Position1>
    341323      <Position2>
    342         <Filename Value="UMainForm.pas"/>
    343         <Caret Line="61" Column="26" TopLine="47"/>
     324        <Filename Value="..\UCustomDockManager.pas"/>
     325        <Caret Line="56" Column="65" TopLine="32"/>
    344326      </Position2>
    345327      <Position3>
    346         <Filename Value="UMainForm.pas"/>
    347         <Caret Line="17" Column="18" TopLine="1"/>
     328        <Filename Value="..\UCustomDockManager.pas"/>
     329        <Caret Line="108" Column="77" TopLine="88"/>
    348330      </Position3>
    349331      <Position4>
    350         <Filename Value="UMainForm.pas"/>
    351         <Caret Line="18" Column="23" TopLine="1"/>
     332        <Filename Value="..\UCustomDockManager.pas"/>
     333        <Caret Line="83" Column="44" TopLine="65"/>
    352334      </Position4>
    353335      <Position5>
    354         <Filename Value="UMainForm.pas"/>
    355         <Caret Line="17" Column="20" TopLine="1"/>
     336        <Filename Value="..\UCustomDockManager.pas"/>
     337        <Caret Line="108" Column="20" TopLine="94"/>
    356338      </Position5>
    357339      <Position6>
    358340        <Filename Value="..\UCustomDockManager.pas"/>
    359         <Caret Line="167" Column="44" TopLine="157"/>
     341        <Caret Line="515" Column="11" TopLine="501"/>
    360342      </Position6>
    361343      <Position7>
    362344        <Filename Value="..\UCustomDockManager.pas"/>
    363         <Caret Line="2" Column="52" TopLine="1"/>
     345        <Caret Line="112" Column="58" TopLine="91"/>
    364346      </Position7>
    365347      <Position8>
    366         <Filename Value="..\UCustomDockManager.pas"/>
    367         <Caret Line="108" Column="5" TopLine="83"/>
     348        <Filename Value="UMainForm.pas"/>
     349        <Caret Line="5" Column="20" TopLine="1"/>
    368350      </Position8>
    369351      <Position9>
    370352        <Filename Value="..\UCustomDockManager.pas"/>
    371         <Caret Line="106" Column="45" TopLine="90"/>
     353        <Caret Line="175" Column="24" TopLine="165"/>
    372354      </Position9>
    373355      <Position10>
    374356        <Filename Value="..\UCustomDockManager.pas"/>
    375         <Caret Line="635" Column="1" TopLine="626"/>
     357        <Caret Line="229" Column="39" TopLine="216"/>
    376358      </Position10>
    377359      <Position11>
    378360        <Filename Value="..\UCustomDockManager.pas"/>
    379         <Caret Line="100" Column="40" TopLine="97"/>
     361        <Caret Line="37" Column="24" TopLine="31"/>
    380362      </Position11>
    381363      <Position12>
    382364        <Filename Value="..\UCustomDockManager.pas"/>
    383         <Caret Line="11" Column="72" TopLine="1"/>
     365        <Caret Line="48" Column="16" TopLine="42"/>
    384366      </Position12>
    385367      <Position13>
    386         <Filename Value="UMainForm.pas"/>
    387         <Caret Line="17" Column="20" TopLine="1"/>
     368        <Filename Value="..\UCustomDockManager.pas"/>
     369        <Caret Line="801" Column="34" TopLine="780"/>
    388370      </Position13>
    389371      <Position14>
    390         <Filename Value="UMainForm.pas"/>
    391         <Caret Line="5" Column="20" TopLine="1"/>
     372        <Filename Value="..\UCustomDockManager.pas"/>
     373        <Caret Line="686" Column="11" TopLine="673"/>
    392374      </Position14>
    393375      <Position15>
    394376        <Filename Value="..\UCustomDockManager.pas"/>
    395         <Caret Line="22" Column="41" TopLine="13"/>
     377        <Caret Line="781" Column="23" TopLine="768"/>
    396378      </Position15>
    397379      <Position16>
    398380        <Filename Value="..\UCustomDockManager.pas"/>
    399         <Caret Line="155" Column="47" TopLine="141"/>
     381        <Caret Line="808" Column="22" TopLine="786"/>
    400382      </Position16>
    401383      <Position17>
    402384        <Filename Value="..\UCustomDockManager.pas"/>
    403         <Caret Line="158" Column="21" TopLine="145"/>
     385        <Caret Line="810" Column="3" TopLine="792"/>
    404386      </Position17>
    405387      <Position18>
    406388        <Filename Value="..\UCustomDockManager.pas"/>
    407         <Caret Line="152" Column="30" TopLine="145"/>
     389        <Caret Line="67" Column="1" TopLine="54"/>
    408390      </Position18>
    409391      <Position19>
    410392        <Filename Value="..\UCustomDockManager.pas"/>
    411         <Caret Line="72" Column="29" TopLine="60"/>
     393        <Caret Line="689" Column="14" TopLine="675"/>
    412394      </Position19>
    413395      <Position20>
    414396        <Filename Value="..\UCustomDockManager.pas"/>
    415         <Caret Line="586" Column="3" TopLine="584"/>
     397        <Caret Line="801" Column="7" TopLine="795"/>
    416398      </Position20>
    417399      <Position21>
    418400        <Filename Value="..\UCustomDockManager.pas"/>
    419         <Caret Line="499" Column="66" TopLine="486"/>
     401        <Caret Line="807" Column="8" TopLine="794"/>
    420402      </Position21>
    421403      <Position22>
    422404        <Filename Value="..\UCustomDockManager.pas"/>
    423         <Caret Line="56" Column="65" TopLine="32"/>
     405        <Caret Line="635" Column="21" TopLine="628"/>
    424406      </Position22>
    425407      <Position23>
    426408        <Filename Value="..\UCustomDockManager.pas"/>
    427         <Caret Line="108" Column="77" TopLine="88"/>
     409        <Caret Line="810" Column="7" TopLine="799"/>
    428410      </Position23>
    429411      <Position24>
    430412        <Filename Value="..\UCustomDockManager.pas"/>
    431         <Caret Line="83" Column="44" TopLine="65"/>
     413        <Caret Line="790" Column="12" TopLine="770"/>
    432414      </Position24>
    433415      <Position25>
    434416        <Filename Value="..\UCustomDockManager.pas"/>
    435         <Caret Line="108" Column="20" TopLine="94"/>
     417        <Caret Line="786" Column="1" TopLine="770"/>
    436418      </Position25>
    437419      <Position26>
    438420        <Filename Value="..\UCustomDockManager.pas"/>
    439         <Caret Line="515" Column="11" TopLine="501"/>
     421        <Caret Line="787" Column="1" TopLine="770"/>
    440422      </Position26>
    441423      <Position27>
    442424        <Filename Value="..\UCustomDockManager.pas"/>
    443         <Caret Line="112" Column="58" TopLine="91"/>
     425        <Caret Line="788" Column="1" TopLine="770"/>
    444426      </Position27>
    445427      <Position28>
    446         <Filename Value="UMainForm.pas"/>
    447         <Caret Line="5" Column="20" TopLine="1"/>
     428        <Filename Value="..\UCustomDockManager.pas"/>
     429        <Caret Line="789" Column="1" TopLine="770"/>
    448430      </Position28>
    449431      <Position29>
    450432        <Filename Value="..\UCustomDockManager.pas"/>
    451         <Caret Line="175" Column="24" TopLine="165"/>
     433        <Caret Line="790" Column="1" TopLine="770"/>
    452434      </Position29>
    453435      <Position30>
    454         <Filename Value="E:\Programy\Lazarus\lcl\customtimer.pas"/>
    455         <Caret Line="77" Column="3" TopLine="68"/>
     436        <Filename Value="..\UCustomDockManager.pas"/>
     437        <Caret Line="791" Column="1" TopLine="770"/>
    456438      </Position30>
    457439    </JumpHistory>

  • DockManager/Lazarus/Demo/UMainForm.lfm

    r49 r50  
    2727    Align = alBottom
    2828    Anchors = [akTop, akLeft, akRight, akBottom]
    29     ClientHeight = 387
    30     ClientWidth = 576
    3129    DockSite = True
    3230    TabOrder = 1
    33     object TabControl1: TTabControl
    34       Left = 191
    35       Height = 150
    36       Top = 75
    37       Width = 200
    38       TabOrder = 0
    39       TabPosition = tpLeft
    40       TabStop = False
    41     end
    4231  end
    4332  object CustomDockMaster1: TCustomDockMaster

  • DockManager/Lazarus/Demo/UMainForm.pas

    r49 r50  
    1717    CustomDockMaster1: TCustomDockMaster;
    1818    Panel1: TPanel;
    19     TabControl1: TTabControl;
    2019    procedure Button1Click(Sender: TObject);
    2120    procedure FormCreate(Sender: TObject);
Note: See TracChangeset for help on using the changeset viewer.