Changeset 273 for branches


Ignore:
Timestamp:
Jul 2, 2020, 11:24:58 PM (4 years ago)
Author:
chronos
Message:
  • Fixed: Scrollbar position depend on title height.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/highdpi/LocalPlayer/Select.pas

    r269 r273  
    103103  Canvas.Font.Assign(UniFont[ftNormal]);
    104104  sb := TPVScrollbar.Create(Self);
    105   sb.SetBorderSpacing(56, 10, 10);
    106105  sb.OnUpdate := ScrollBarUpdate;
    107106  InitButtons();
     
    15421541    (Kind in [kProject, kAdvance, kFarAdvance]);
    15431542  if (Kind = kAdvance) and (MyData.FarTech <> adNone) or (Kind = kModels) or
    1544     (Kind = kEModels) then
    1545     TitleHeight := WideFrame + 20
    1546   else
     1543    (Kind = kEModels) then begin
     1544    TitleHeight := WideFrame + 20;
     1545    sb.SetBorderSpacing(56, 10, 10);
     1546  end else begin
    15471547    TitleHeight := WideFrame;
     1548    sb.SetBorderSpacing(36, 10, 34);
     1549  end;
    15481550
    15491551  DispLines := Lines[0];
Note: See TracChangeset for help on using the changeset viewer.