* Make it usable on HighDPI

This commit is contained in:
Michael Van Canneyt 2023-10-08 10:56:56 +02:00
parent e38a298110
commit 18eae18d53
4 changed files with 1965 additions and 1025 deletions

View File

@ -1,32 +1,35 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="8"/>
<Version Value="12"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<Title Value="FPC/Lazarus debug message server"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<VersionInfo>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<Item1>
@ -37,19 +40,19 @@
<Unit0>
<Filename Value="debugserver.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="debugserver"/>
</Unit0>
<Unit1>
<Filename Value="frmmain.pp"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmmain"/>
</Unit1>
<Unit2>
<Filename Value="frmoptions.pp"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="OptionsForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmOptions"/>
</Unit2>
@ -60,9 +63,9 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="9"/>
<Version Value="11"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/>
<IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
@ -70,17 +73,14 @@
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

Binary file not shown.

File diff suppressed because it is too large Load Diff

View File

@ -1,83 +1,89 @@
object OptionsForm: TOptionsForm
Left = 390
Height = 275
Height = 548
Top = 239
Width = 390
Width = 841
Caption = 'Options'
ClientHeight = 275
ClientWidth = 390
ClientHeight = 548
ClientWidth = 841
DesignTimePPI = 192
Position = poMainFormCenter
LCLVersion = '0.9.29'
LCLVersion = '3.99.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 35
Top = 234
Width = 378
Left = 12
Height = 67
Top = 469
Width = 817
BorderSpacing.Around = 12
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.Enabled = False
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbOK, pbCancel]
end
object GBWindow: TGroupBox
Left = 16
Height = 81
Top = 16
Width = 300
Left = 32
Height = 162
Top = 32
Width = 600
Caption = 'Show message window'
ClientHeight = 59
ClientWidth = 296
ClientHeight = 118
ClientWidth = 598
TabOrder = 1
object CBShowOnStartUp: TCheckBox
Left = 14
Height = 21
Top = 9
Width = 126
Left = 28
Height = 47
Top = 18
Width = 302
Caption = 'Show on startup'
TabOrder = 0
end
object CBShowOnMessage: TCheckBox
Left = 13
Height = 21
Top = 37
Width = 164
Left = 26
Height = 47
Top = 74
Width = 408
Caption = 'Show on new message'
TabOrder = 1
end
end
object GBMessages: TGroupBox
Left = 16
Height = 115
Top = 109
Width = 300
Left = 32
Height = 230
Top = 218
Width = 600
Caption = 'Messages'
ClientHeight = 93
ClientWidth = 296
ClientHeight = 186
ClientWidth = 598
TabOrder = 2
object CBNewAtBottom: TCheckBox
Left = 13
Height = 21
Top = 5
Width = 216
Left = 26
Height = 47
Top = 10
Width = 552
Caption = 'Show new messages at bottom'
TabOrder = 0
end
object CBNewVisible: TCheckBox
Left = 14
Height = 21
Top = 29
Width = 206
Left = 28
Height = 47
Top = 58
Width = 536
Caption = 'Scroll new messages into view'
TabOrder = 1
end
object CBCleanLogOnNewProcess: TCheckBox
Left = 14
Height = 21
Top = 55
Width = 179
Left = 28
Height = 47
Top = 110
Width = 454
Caption = 'Clean log on new process'
TabOrder = 2
end