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 _Properties
C C
s 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 _Group
C C
s s
@ -1002,6 +1002,10 @@ _DocumentItem
: :
(Page)i(Width)i(Height)i (Page)i(Width)i(Height)i
:Finished
:
:Zoom :Zoom
: :

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

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

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

@ -5,7 +5,7 @@
Export Export
Inherits UserControl 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 _Group As String = "View"
Public Const _Similar As String = "GridView" 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 $fMaxPageWidth As Float ''Largeur du plus grand doc
Private $iMaxPageHeight As Integer Private $iMaxPageHeight As Integer
Private $iMaxPageWidth 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 $iNbreLines As Integer ''Nombre de ligne totale
Private $tmrLoad As New Timer As "tmrLoad" Private $tmrLoad As New Timer As "tmrLoad"
Private $tmrRefresh As New Timer As "tmrRefresh" Private $tmrRefresh As New Timer As "tmrRefresh"
@ -179,7 +179,7 @@ End
Private Sub DrawDoc(Page As Integer, iRow As Integer, iCol As Integer) Private Sub DrawDoc(Page As Integer, iRow As Integer, iCol As Integer)
Dim iDocX, iDocY 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 If $colLayout.Exist(Page) Then
$fScaledDocWidth = $colLayout[Page].Width * $fZoom $fScaledDocWidth = $colLayout[Page].Width * $fZoom