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

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

@ -9,14 +9,6 @@ unit AlignDemo;
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
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ComCtrls, ExtCtrls, Menus, LResources;
@ -83,9 +75,7 @@ var
implementation
uses
Main, States, vtlogger, ipcchannel;
{.$R *.DFM}
Main, States;
//----------------------------------------------------------------------------------------------------------------------
@ -277,8 +267,6 @@ var
NewItem: TMenuItem;
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.
// 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