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

jvcllaz: Adjust size of image in JvTabBar_NotebookPages demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6994 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-01 22:58:02 +00:00
parent 66e1872319
commit b29a66f612
2 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/jvcllaz/examples/JvTabBar_NotebookPages/main.lfm
View File

@ -1065,8 +1065,8 @@ object Form1: TForm1
CompilerMode = pcmDelphi CompilerMode = pcmDelphi
NestedComments = False NestedComments = False
TypeHelpers = True TypeHelpers = True
Left = 157 left = 157
Top = 111 top = 111
end end
object JvModernTabBarPainter1: TJvModernTabBarPainter object JvModernTabBarPainter1: TJvModernTabBarPainter
Color = clGradientInactiveCaption Color = clGradientInactiveCaption
@ -1077,22 +1077,22 @@ object Form1: TForm1
DisabledFont.Color = clGrayText DisabledFont.Color = clGrayText
SelectedFont.Color = clWindowText SelectedFont.Color = clWindowText
SelectedFont.Style = [fsBold] SelectedFont.Style = [fsBold]
Left = 155 left = 155
Top = 209 top = 209
end end
object JvTabBarXPPainter1: TJvTabBarXPPainter object JvTabBarXPPainter1: TJvTabBarXPPainter
Font.Color = clWindowText Font.Color = clWindowText
DisabledFont.Color = clGrayText DisabledFont.Color = clGrayText
SelectedFont.Color = clWindowText SelectedFont.Color = clWindowText
FixedTabSize = 0 FixedTabSize = 0
Left = 312 left = 312
Top = 209 top = 209
end end
object SynXMLSyn1: TSynXMLSyn object SynXMLSyn1: TSynXMLSyn
DefaultFilter = 'XML Document (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd' DefaultFilter = 'XML Document (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
Enabled = False Enabled = False
WantBracesParsed = False WantBracesParsed = False
Left = 241 left = 241
Top = 111 top = 111
end end
end end

2
components/jvcllaz/examples/JvTabBar_NotebookPages/main.pas
View File

@ -54,6 +54,8 @@ begin
PasSynEdit.Lines.LoadfromFile(dir + 'main.pas'); PasSynEdit.Lines.LoadfromFile(dir + 'main.pas');
XMLSynEdit.Lines.LoadFromFile(dir + 'JvTabBarDemo_NotebookPages.lpi'); XMLSynEdit.Lines.LoadFromFile(dir + 'JvTabBarDemo_NotebookPages.lpi');
Image1.Picture.LoadFromFile(dir + 'JvTabBarDemo_NotebookPages.ico'); Image1.Picture.LoadFromFile(dir + 'JvTabBarDemo_NotebookPages.ico');
Image1.Width := Image1.Picture.Width;
Image1.Height := Image1.Picture.Height;
end; end;
procedure TForm1.JvTabBar1TabCloseQuery(Sender: TObject; Item: TJvTabBarItem; procedure TForm1.JvTabBar1TabCloseQuery(Sender: TObject; Item: TJvTabBarItem;