Changeset 400


Ignore:
Timestamp:
Jan 6, 2025, 11:00:03 AM (3 days ago)
Author:
chronos
Message:
  • Fixed: Scale charts line width.
  • Fixed: Item form made bigger to avoid showing scrollbars.
  • Fixed: Item form string control made shorter.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormCharts.pas

    r396 r400  
    7373    NewSeries := TLineSeries.Create(nil);
    7474    NewSeries.LinePen.Color := Color;
     75    NewSeries.LinePen.Width := Scale96ToScreen(1);
    7576    for X := 0 to TurnStats.Count - 1 do begin
    7677      if ComboBox1.ItemIndex = 0 then NewSeries.AddXY(X, TurnStats[X].OccupiedCells)

  • trunk/Packages/Common/Forms/FormItem.lfm

    r365 r400  
    11object FormItem: TFormItem
    2   Left = 1040
    3   Height = 397
    4   Top = 540
    5   Width = 469
     2  Left = 441
     3  Height = 446
     4  Top = 395
     5  Width = 577
    66  Caption = 'Item'
    7   ClientHeight = 397
    8   ClientWidth = 469
     7  ClientHeight = 446
     8  ClientWidth = 577
    99  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    … …  
    1212  LCLVersion = '3.6.0.0'
    1313  object ButtonOk: TButton
    14     Left = 224
     14    Left = 332
    1515    Height = 38
    16     Top = 353
     16    Top = 402
    1717    Width = 113
    1818    Anchors = [akRight, akBottom]
    … …  
    2424  end
    2525  object ButtonCancel: TButton
    26     Left = 348
     26    Left = 456
    2727    Height = 38
    28     Top = 353
     28    Top = 402
    2929    Width = 113
    3030    Anchors = [akRight, akBottom]
    … …  
    3636  object ScrollBox1: TScrollBox
    3737    Left = 8
    38     Height = 334
     38    Height = 383
    3939    Top = 8
    40     Width = 453
     40    Width = 561
    4141    HorzScrollBar.Page = 1
    4242    VertScrollBar.Page = 1

  • trunk/Packages/Common/Forms/FormItem.pas

    r355 r400  
    176176    if DataType = dtString then begin
    177177      NewControl := TEdit.Create(nil);
    178       NewControl.Width := Scale96ToScreen(300);
     178      NewControl.Width := Scale96ToScreen(200);
    179179    end else
    180180    if DataType = dtColor then begin
Note: See TracChangeset for help on using the changeset viewer.