Changeset 176


Ignore:
Timestamp:
Aug 21, 2024, 11:30:27 AM (4 weeks ago)
Author:
chronos
Message:
  • Modified: Use monospace font.
  • Modified: Do not extra scale controls dimensions.
Location:
trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/Core.pas

    r161 r176  
    271271    if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
    272272      //ApplyToAll(DesignDPI);
    273       for I := 0 to Screen.FormCount - 1 do
     273      {for I := 0 to Screen.FormCount - 1 do
    274274      if (Screen.Forms[I].WindowState = wsNormal) or
    275275        (Screen.Forms[I].WindowState = wsMinimized) then begin
    … …  
    277277        ScaleDimensions(Screen.Forms[I], StoredDimension);
    278278      end;
     279      }
    279280      ScaleImageList(ImageListMain, DesignDPI);
    280281    end;

  • trunk/Forms/FormConsole.lfm

    r153 r176  
    2222    Anchors = [akTop, akLeft, akRight, akBottom]
    2323    BorderSpacing.Around = 3
    24     Font.Name = 'Courier New'
     24    Font.Height = 20
     25    Font.Name = 'Liberation Mono'
     26    Font.Pitch = fpFixed
    2527    ParentFont = False
    2628    ReadOnly = True

  • trunk/Forms/FormInput.lfm

    r153 r176  
    1616    Align = alClient
    1717    BorderSpacing.Around = 6
    18     Font.Name = 'Courier New'
     18    Font.Height = 20
     19    Font.Name = 'Libertation Mono'
     20    Font.Pitch = fpFixed
    1921    ParentFont = False
    2022    ScrollBars = ssAutoBoth

  • trunk/Forms/FormMemory.lfm

    r153 r176  
    4040        Width = 508
    4141      end>
    42     Font.Name = 'Courier New'
     42    Font.Height = 20
     43    Font.Name = 'Liberation Mono'
     44    Font.Pitch = fpFixed
    4345    OwnerData = True
    4446    ParentFont = False

  • trunk/Forms/FormOutput.lfm

    r153 r176  
    2626    Align = alClient
    2727    BorderSpacing.Around = 4
    28     Font.Name = 'Courier New'
     28    Font.Height = 20
     29    Font.Name = 'Liberation Mono'
     30    Font.Pitch = fpFixed
    2931    ParentFont = False
    3032    ScrollBars = ssAutoBoth

  • trunk/Forms/FormSourceCode.lfm

    r154 r176  
    1717    Width = 672
    1818    Align = alClient
    19     Font.Height = 13
    20     Font.Name = 'Courier New'
     19    Font.Height = 20
     20    Font.Name = 'Liberation Mono'
    2121    Font.Pitch = fpFixed
    22     Font.Quality = fqNonAntialiased
     22    Font.Quality = fqAntialiased
    2323    ParentColor = False
    2424    ParentFont = False
    … …  
    2727    OnKeyUp = MemoSourceKeyUp
    2828    OnMouseDown = MemoSourceMouseDown
    29     Gutter.Width = 76
     29    Gutter.Width = 84
    3030    Gutter.MouseActions = <>
    3131    RightGutter.Width = 0
    … …  
    481481      end
    482482      object SynGutterLineNumber1: TSynGutterLineNumber
    483         Width = 17
     483        Width = 25
    484484        MouseActions = <>
    485485        MarkupInfo.Background = clBtnFace

  • trunk/Forms/FormTargetCode.lfm

    r157 r176  
    1616    Width = 734
    1717    Align = alClient
    18     Font.Height = 13
    19     Font.Name = 'Courier New'
     18    Font.Height = 20
     19    Font.Name = 'Liberation Mono'
    2020    Font.Pitch = fpFixed
    21     Font.Quality = fqNonAntialiased
     21    Font.Quality = fqAntialiased
    2222    ParentColor = False
    2323    ParentFont = False
    2424    PopupMenu = PopupMenuTarget
    2525    TabOrder = 0
    26     Gutter.Width = 77
     26    Gutter.Width = 85
    2727    Gutter.MouseActions = <>
    2828    RightGutter.Width = 0
    … …  
    477477      end
    478478      object SynGutterLineNumber1: TSynGutterLineNumber
    479         Width = 17
     479        Width = 25
    480480        MouseActions = <>
    481481        MarkupInfo.Background = clBtnFace

  • trunk/Packages/Common/Common.pas

    r161 r176  
    597597
    598598    if (ExitCode <> 0) or (Error <> '') then
    599       raise Exception.Create(Format(SExecutionError, [Error, ExitCode]));
     599      raise Exception.Create(Format(SExecutionError, [Output + Error, ExitCode]));
    600600  finally
    601601    Process.Free;
Note: See TracChangeset for help on using the changeset viewer.