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

jvlcllaz: Layout fixes for JvComboListboxDemo and JvHTCtrlsDemo for Linux.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6877 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-27 23:12:23 +00:00
parent 6b1e91198c
commit dc58a75c15
5 changed files with 81 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
components/jvcllaz/examples/JvComboListBox/jvcombolistboxdemoform.lfm
View File

@ -43,6 +43,7 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
AnchorSideTop.Control = Memo1
Left = 416 Left = 416
Height = 15 Height = 15
Top = 32 Top = 32
@ -52,36 +53,48 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
AnchorSideTop.Control = btnCopyText
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 15 Height = 15
Top = 200 Top = 197
Width = 58 Width = 58
BorderSpacing.Top = 4
Caption = 'Draw &Type:' Caption = 'Draw &Type:'
ParentColor = False ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
AnchorSideTop.Control = edItemHeight
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 15 Height = 15
Top = 72 Top = 74
Width = 74 Width = 74
BorderSpacing.Top = 4
Caption = 'Button &Width:' Caption = 'Button &Width:'
FocusControl = edButtonWidth FocusControl = edButtonWidth
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
AnchorSideTop.Control = cbPopupAlign
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 15 Height = 15
Top = 280 Top = 281
Width = 51 Width = 51
BorderSpacing.Top = 4
Caption = 'Col&umns:' Caption = 'Col&umns:'
FocusControl = edColumns FocusControl = edColumns
ParentColor = False ParentColor = False
end end
object Label6: TLabel object Label6: TLabel
AnchorSideTop.Control = cbDrawStyle
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 15 Height = 15
Top = 240 Top = 239
Width = 90 Width = 90
BorderSpacing.Top = 4
Caption = 'Dro&pdown Align:' Caption = 'Dro&pdown Align:'
FocusControl = cbPopupAlign FocusControl = cbPopupAlign
ParentColor = False ParentColor = False
@ -1659,36 +1672,47 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
end end
end end
object btnLoadImage: TButton object btnLoadImage: TButton
AnchorSideTop.Control = chkInsert
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 25 Height = 25
Top = 372 Top = 365
Width = 87 Width = 87
BorderSpacing.Top = 4
Caption = 'L&oad image...' Caption = 'L&oad image...'
OnClick = btnLoadImageClick OnClick = btnLoadImageClick
TabOrder = 15 TabOrder = 15
end end
object btnCopyImage: TButton object btnCopyImage: TButton
AnchorSideTop.Control = btnLoadImage
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 25 Height = 25
Top = 400 Top = 394
Width = 87 Width = 87
BorderSpacing.Top = 4
Caption = 'Cop&y Image' Caption = 'Cop&y Image'
OnClick = btnCopyImageClick OnClick = btnCopyImageClick
TabOrder = 16 TabOrder = 16
end end
object btnCopyText: TButton object btnCopyText: TButton
AnchorSideTop.Control = btnLoadText
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 25 Height = 25
Top = 168 Top = 168
Width = 87 Width = 87
BorderSpacing.Top = 4
Caption = '&Copy text' Caption = '&Copy text'
OnClick = btnCopyTextClick OnClick = btnCopyTextClick
TabOrder = 7 TabOrder = 7
end end
object edItemHeight: TEdit object edItemHeight: TEdit
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 23 Height = 23
Top = 48 Top = 47
Width = 96 Width = 96
TabOrder = 1 TabOrder = 1
Text = '48' Text = '48'
@ -1696,7 +1720,7 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
object udItemHeight: TUpDown object udItemHeight: TUpDown
Left = 512 Left = 512
Height = 23 Height = 23
Top = 48 Top = 47
Width = 15 Width = 15
Associate = edItemHeight Associate = edItemHeight
Max = 32767 Max = 32767
@ -1706,9 +1730,11 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
TabOrder = 2 TabOrder = 2
end end
object cbDrawStyle: TComboBox object cbDrawStyle: TComboBox
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 23 Height = 23
Top = 216 Top = 212
Width = 110 Width = 110
ItemHeight = 15 ItemHeight = 15
Items.Strings = ( Items.Strings = (
@ -1721,9 +1747,11 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
TabOrder = 9 TabOrder = 9
end end
object edButtonWidth: TEdit object edButtonWidth: TEdit
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 23 Height = 23
Top = 88 Top = 89
Width = 96 Width = 96
TabOrder = 3 TabOrder = 3
Text = '26' Text = '26'
@ -1731,7 +1759,7 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
object udButtonWidth: TUpDown object udButtonWidth: TUpDown
Left = 512 Left = 512
Height = 23 Height = 23
Top = 88 Top = 89
Width = 15 Width = 15
Associate = edButtonWidth Associate = edButtonWidth
Max = 32767 Max = 32767
@ -1741,24 +1769,32 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
TabOrder = 4 TabOrder = 4
end end
object btnLoadText: TButton object btnLoadText: TButton
AnchorSideTop.Control = chkCustomDrop
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 25 Height = 25
Top = 140 Top = 139
Width = 87 Width = 87
BorderSpacing.Top = 4
Caption = '&Load text...' Caption = '&Load text...'
OnClick = btnLoadTextClick OnClick = btnLoadTextClick
TabOrder = 6 TabOrder = 6
end end
object chkHotTrackCombo: TCheckBox object chkHotTrackCombo: TCheckBox
AnchorSideTop.Control = edColumns
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 19 Height = 19
Top = 328 Top = 323
Width = 109 Width = 109
BorderSpacing.Top = 4
Caption = 'Hot&TrackCombo' Caption = 'Hot&TrackCombo'
OnClick = chkHotTrackComboClick OnClick = chkHotTrackComboClick
TabOrder = 13 TabOrder = 13
end end
object edColumns: TEdit object edColumns: TEdit
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 23 Height = 23
Top = 296 Top = 296
@ -1779,18 +1815,22 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
TabOrder = 12 TabOrder = 12
end end
object chkInsert: TCheckBox object chkInsert: TCheckBox
AnchorSideTop.Control = chkHotTrackCombo
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 19 Height = 19
Top = 344 Top = 342
Width = 83 Width = 83
Caption = 'Ins&ert at top' Caption = 'Ins&ert at top'
OnClick = chkHotTrackComboClick OnClick = chkHotTrackComboClick
TabOrder = 14 TabOrder = 14
end end
object cbPopupAlign: TComboBox object cbPopupAlign: TComboBox
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 23 Height = 23
Top = 256 Top = 254
Width = 110 Width = 110
DropDownCount = 100 DropDownCount = 100
ItemHeight = 15 ItemHeight = 15
@ -1804,10 +1844,13 @@ object JvComboListBoxDemoFrm: TJvComboListBoxDemoFrm
TabOrder = 10 TabOrder = 10
end end
object chkCustomDrop: TCheckBox object chkCustomDrop: TCheckBox
AnchorSideTop.Control = edButtonWidth
AnchorSideTop.Side = asrBottom
Left = 416 Left = 416
Height = 19 Height = 19
Top = 120 Top = 116
Width = 91 Width = 91
BorderSpacing.Top = 4
Caption = 'Custom &Drop' Caption = 'Custom &Drop'
TabOrder = 5 TabOrder = 5
end end

1
components/jvcllaz/examples/JvComboListBox/jvcombolistboxdemoform.pas
View File

@ -196,6 +196,7 @@ begin
if Memo1.SelLength = 0 then if Memo1.SelLength = 0 then
Memo1.SelectAll; Memo1.SelectAll;
Memo1.CopyToClipboard; Memo1.CopyToClipboard;
UpdateFromClipboardText;
end; end;
procedure TJvComboListBoxDemoFrm.btnCopyImageClick(Sender: TObject); procedure TJvComboListBoxDemoFrm.btnCopyImageClick(Sender: TObject);

6
components/jvcllaz/examples/JvHTControls/JvHTCtrlsDemo.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvHTCtrlsDemo"/> <Title Value="JvHTCtrlsDemo"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>

19
components/jvcllaz/examples/JvHTControls/unit1.lfm
View File

@ -109,11 +109,13 @@ object Form1: TForm1
Width = 5 Width = 5
end end
object Memo2: TMemo object Memo2: TMemo
Left = 160 AnchorSideLeft.Control = Splitter2
AnchorSideLeft.Side = asrBottom
Left = 157
Height = 90 Height = 90
Hint = '<b>New item content</b><br><i>Enter new item contnent</i>' Hint = '<b>New item content</b><br><i>Enter new item contnent</i>'
Top = 8 Top = 8
Width = 406 Width = 409
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Lines.Strings = ( Lines.Strings = (
'new item...' 'new item...'
@ -123,7 +125,9 @@ object Form1: TForm1
TabOrder = 2 TabOrder = 2
end end
object Button1: TButton object Button1: TButton
Left = 160 AnchorSideLeft.Control = Splitter2
AnchorSideLeft.Side = asrBottom
Left = 157
Height = 25 Height = 25
Hint = '<b>Add item</b><br>'#13#10'<i>Add item to ListBox and ComboBox</i>' Hint = '<b>Add item</b><br>'#13#10'<i>Add item to ListBox and ComboBox</i>'
Top = 112 Top = 112
@ -136,7 +140,9 @@ object Form1: TForm1
TabOrder = 3 TabOrder = 3
end end
object JvHTComboBox1: TJvHTComboBox object JvHTComboBox1: TJvHTComboBox
Left = 160 AnchorSideLeft.Control = Splitter2
AnchorSideLeft.Side = asrBottom
Left = 157
Height = 24 Height = 24
Hint = '<b>TJvHTComboBox</b><br>'#13#10'<i>ComboBox with HT items</i>' Hint = '<b>TJvHTComboBox</b><br>'#13#10'<i>ComboBox with HT items</i>'
Top = 160 Top = 160
@ -164,11 +170,14 @@ object Form1: TForm1
TabOrder = 4 TabOrder = 4
end end
object Button2: TButton object Button2: TButton
Left = 264 AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
Left = 256
Height = 25 Height = 25
Top = 112 Top = 112
Width = 53 Width = 53
AutoSize = True AutoSize = True
BorderSpacing.Left = 24
Caption = 'Clear' Caption = 'Clear'
OnClick = Button2Click OnClick = Button2Click
TabOrder = 5 TabOrder = 5

3
components/jvcllaz/examples/JvHTControls/unit1.pas
View File

@ -112,3 +112,6 @@ end;
end. end.
// Text on tab 3:
//Numeric field: <b><field="Num"></b><br>Field 1: <b><font color="clRed"><field="fld1"></font></b><br><i>Field 2:</i> <b><font color="clGreen"><field="fld2"></font></b><br>And some link: <a href="url"><field="Fld1"></a><br><a href="qwe">#<field="num"></a> - <b><field="fld1"> <field="fld2"></b>