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

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

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