pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* AlignDemo: cleanup and fix some alignment issues

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1090 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-26 21:30:58 +00:00
parent ba56534b9d
commit 505346740a
2 changed files with 9 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/virtualtreeview-new/trunk/demos/advanced/AlignDemo.lfm
View File

@@ -45,7 +45,7 @@ object AlignForm: TAlignForm
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 338 Left = 360
Height = 17 Height = 17
Top = 346 Top = 346
Width = 108 Width = 108
@@ -177,7 +177,7 @@ object AlignForm: TAlignForm
end end
object AlignCombo1: TComboBox object AlignCombo1: TComboBox
Tag = 1 Tag = 1
Left = 327 Left = 360
Height = 24 Height = 24
Top = 368 Top = 368
Width = 130 Width = 130
@@ -236,7 +236,7 @@ object AlignForm: TAlignForm
end end
object BidiGroup1: TRadioGroup object BidiGroup1: TRadioGroup
Tag = 1 Tag = 1
Left = 327 Left = 360
Height = 61 Height = 61
Top = 400 Top = 400
Width = 130 Width = 130
@@ -300,7 +300,7 @@ object AlignForm: TAlignForm
Left = 12 Left = 12
Height = 20 Height = 20
Top = 4 Top = 4
Width = 94 Width = 92
Caption = 'Show glyphs' Caption = 'Show glyphs'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 0 TabOrder = 0
@@ -310,7 +310,7 @@ object AlignForm: TAlignForm
Left = 12 Left = 12
Height = 20 Height = 20
Top = 25 Top = 25
Width = 73 Width = 71
Caption = 'Hot track' Caption = 'Hot track'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 1 TabOrder = 1
@@ -320,7 +320,7 @@ object AlignForm: TAlignForm
Left = 12 Left = 12
Height = 20 Height = 20
Top = 46 Top = 46
Width = 78 Width = 76
Caption = 'Show text' Caption = 'Show text'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 2 TabOrder = 2
@@ -330,7 +330,7 @@ object AlignForm: TAlignForm
Left = 12 Left = 12
Height = 20 Height = 20
Top = 67 Top = 67
Width = 59 Width = 57
Caption = 'Visible' Caption = 'Visible'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 3 TabOrder = 3
@@ -340,7 +340,7 @@ object AlignForm: TAlignForm
Left = 12 Left = 12
Height = 20 Height = 20
Top = 88 Top = 88
Width = 67 Width = 65
Caption = 'Enabled' Caption = 'Enabled'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 4 TabOrder = 4

14
components/virtualtreeview-new/trunk/demos/advanced/AlignDemo.pas
View File

@@ -9,14 +9,6 @@ unit AlignDemo;
interface interface
{$ifdef COMPILER_7_UP}
// For some things to work we need code, which is classified as being unsafe for .NET.
{$warn UNSAFE_TYPE off}
{$warn UNSAFE_CAST off}
{$warn UNSAFE_CODE off}
{$endif COMPILER_7_UP}
uses uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ComCtrls, ExtCtrls, Menus, LResources; StdCtrls, VirtualTrees, ComCtrls, ExtCtrls, Menus, LResources;
@@ -83,9 +75,7 @@ var
implementation implementation
uses uses
Main, States, vtlogger, ipcchannel; Main, States;
{.$R *.DFM}
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@@ -277,8 +267,6 @@ var
NewItem: TMenuItem; NewItem: TMenuItem;
begin begin
Logger.Channels.Add(TIPCChannel.Create);
Logger.ActiveClasses := [lcWarning];
// To display the various texts in a nice manner we use some specialized fonts of the system. // To display the various texts in a nice manner we use some specialized fonts of the system.
// We could directly assign the font names used here in the OnPaintText event, but since this // We could directly assign the font names used here in the OnPaintText event, but since this
// would then be the only reference for the font it would cause the font to be recreated every // would then be the only reference for the font it would cause the font to be recreated every