luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.FORM]

Browse source 
* BUG: Correction on the shadow display (more large and related to the spacing)
* OPT: Now the Padding and Spacing properties are setting to 10 by default.



git-svn-id: svn://localhost/gambas/trunk@6825 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2015-01-11 17:51:42 +00:00
parent ffd4569d01
commit 43afe0e35f
3 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
comp/src/gb.form/.info
View file

@ -913,7 +913,7 @@ C
_Properties
C
s
*,Mode{Select.None;Single;Multiple}=None,Arrangement{Arrange.Row;Column;Vertical;Horizontal;Fill}=Row,Padding,Spacing,ShowShadow
*,Mode{Select.None;Single;Multiple}=None,Arrangement{Arrange.Row;Column;Vertical;Horizontal;Fill}=Row,Padding=10,Spacing=10,ShowShadow
_Group
C
s
@ -1002,6 +1002,10 @@ _DocumentItem
:
(Page)i(Width)i(Height)i
:Finished
:
:Zoom
:

2
comp/src/gb.form/.project
View file

@ -1,7 +1,7 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.6.90
Title=More controls for graphical components
Startup=FTestColorChooser
Startup=FDocumentView
Version=3.6.90
VersionFile=1
Component=gb.image

6
comp/src/gb.form/.src/DocumentView/DocumentView.class
View file

@ -5,7 +5,7 @@
Export
Inherits UserControl
Public Const _Properties As String = "*,Mode{Select.None;Single;Multiple}=None,Arrangement{Arrange.Row;Column;Vertical;Horizontal;Fill}=Row,Padding,Spacing,ShowShadow"
Public Const _Properties As String = "*,Mode{Select.None;Single;Multiple}=None,Arrangement{Arrange.Row;Column;Vertical;Horizontal;Fill}=Row,Padding=10,Spacing=10,ShowShadow"
Public Const _Group As String = "View"
Public Const _Similar As String = "GridView"
@ -65,7 +65,7 @@ Private $fMaxPageHeight As Float ''Hauteur du plus grand doc
Private $fMaxPageWidth As Float ''Largeur du plus grand doc
Private $iMaxPageHeight As Integer
Private $iMaxPageWidth As Integer
Private $iSpace As Integer = 30 ''Taille de l'espacement
Private $iSpace As Integer = 10 ''Taille de l'espacement
Private $iNbreLines As Integer ''Nombre de ligne totale
Private $tmrLoad As New Timer As "tmrLoad"
Private $tmrRefresh As New Timer As "tmrRefresh"
@ -179,7 +179,7 @@ End
Private Sub DrawDoc(Page As Integer, iRow As Integer, iCol As Integer)
Dim iDocX, iDocY As Integer
Dim fShad As Float = 5 * $fZoom
Dim fShad As Float = $fZoom * ($iSpace / 4)
If $colLayout.Exist(Page) Then
$fScaledDocWidth = $colLayout[Page].Width * $fZoom