diff --git a/app/src/gambas3/.src/Editor/Form/CControl.class b/app/src/gambas3/.src/Editor/Form/CControl.class index 0da793efa..1c6b08300 100644 --- a/app/src/gambas3/.src/Editor/Form/CControl.class +++ b/app/src/gambas3/.src/Editor/Form/CControl.class @@ -8,7 +8,7 @@ Static Public WasDefaultValue As Boolean Static Public LastError As String -Static Public COMPLEX_STRING_PROPERTIES As String[] = ["Font[", "Picture[", "Image.Load(", "SvgImage.Load(", "Connections[", "ReportPadding[", "ReportBorder[", "ReportBrush["] +Static Public COMPLEX_STRING_PROPERTIES As String[] = ["Font[", "Picture[", "Image.Load(", "SvgImage.Load(", "Connections[", "ReportPadding[", "ReportMargin[", "ReportBorder[", "ReportBrush["] Public Name As String Public Parent As CControl @@ -717,7 +717,7 @@ Private Function ConvertToString(vVal As Variant, hProp As CPropertyInfo) As Str Return CStr(vVal) - Case "List", "Path", "Picture", "Font", "Table", "Menu", "Image", "SvgImage", "ReportCoord", "ReportPadding", "ReportBorder", "ReportBrush", "Field" + Case "List", "Path", "Picture", "Font", "Table", "Menu", "Image", "SvgImage", "ReportCoord", "ReportPadding", "ReportMargin", "ReportBorder", "ReportBrush", "Field" Return CStr(vVal) @@ -1636,6 +1636,9 @@ Public Function GetEachProperty(DX As Integer, DY As Integer, Optional bNoScale Case "ReportPadding" sLine &= "ReportPadding[" & Quote$(vVal) & "]" + + Case "ReportMargin" + sLine &= "ReportMargin[" & Quote$(vVal) & "]" Case "ReportBorder" sLine &= "ReportBorder[" & Quote$(vVal) & "]" diff --git a/app/src/gambas3/.src/Editor/Form/FProperty.class b/app/src/gambas3/.src/Editor/Form/FProperty.class index 1a8ca29b1..783a3afe7 100644 --- a/app/src/gambas3/.src/Editor/Form/FProperty.class +++ b/app/src/gambas3/.src/Editor/Form/FProperty.class @@ -26,7 +26,7 @@ Private $hWebView As WebView Private $iHighlightColor As Integer Static Private $aFieldUseDelete As String[] = ["Font", "Picture", "String[]", "Path", "Color", "Field", "Fields", "Field[]", - "Image", "SvgImage", "ReportCoord", "ReportPadding", "ReportBorder", "ReportBrush", "Table"] + "Image", "SvgImage", "ReportCoord", "ReportPadding", "ReportMargin", "ReportBorder", "ReportBrush", "Table"] Private Const PADDING As Integer = 6 @@ -408,7 +408,7 @@ Public Function SaveProperty() As Boolean vVal = sVal Endif - Case "s", "Font", "Picture", "Constant", "List", "Path", "Image", "SvgImage", "ReportCoord", "ReportPadding", "ReportBorder", "ReportBrush", "Field", "Menu", "Table" + Case "s", "Font", "Picture", "Constant", "List", "Path", "Image", "SvgImage", "ReportCoord", "ReportPadding", "ReportMargin", "ReportBorder", "ReportBrush", "Field", "Menu", "Table" vVal = sVal @@ -687,7 +687,7 @@ Private Sub ShowProperty(Optional sFocus As String) Case "s" bButton = True - Case "String[]", "Fields", "Field[]", "ReportPadding", "ReportBorder", "ReportBrush" + Case "String[]", "Fields", "Field[]", "ReportPadding", "ReportMargin", "ReportBorder", "ReportBrush" bButton = True txtProperty.ReadOnly = True @@ -720,7 +720,7 @@ Private Sub ShowProperty(Optional sFocus As String) hEditor = cmbProperty InitComboWith(["False", "True"]) - Case "Font", "Picture", "Path", "Color", "Image", "SvgImage", "ReportPadding", "ReportBorder", "ReportBrush" + Case "Font", "Picture", "Path", "Color", "Image", "SvgImage", "ReportPadding", "ReportMargin", "ReportBorder", "ReportBrush" bButton = True txtProperty.ReadOnly = True @@ -1023,7 +1023,12 @@ Public Sub btnProperty_Click() If FReportPaddingChooser.Run($sOldVal) Then Goto _EXIT $hEditor.Text = FReportPaddingChooser.Value - + + Case "ReportMargin" + + If FReportPaddingChooser.Run($sOldVal) Then Goto _EXIT + $hEditor.Text = FReportPaddingChooser.Value + Case "ReportBorder" If FReportBorderChooser.Run($sOldVal) Then Goto _EXIT diff --git a/app/src/gambas3/.src/Family/CFamilyReport.class b/app/src/gambas3/.src/Family/CFamilyReport.class index b5779757c..7203b6ced 100644 --- a/app/src/gambas3/.src/Family/CFamilyReport.class +++ b/app/src/gambas3/.src/Family/CFamilyReport.class @@ -293,7 +293,7 @@ Public Sub DrawControl(hCtrl As CControl) As Boolean Paint.Text(hCtrl["Text"], X, Y, W, H, Classes["Align"][hCtrl["Alignment"]].Value) Else Paint.Translate(X + W / 2, Y + H / 2) - Paint.Rotate(Rad(hCtrl["Rotate"])) + Try Paint.Rotate(Rad(hCtrl["Rotate"])) Paint.Translate(- (X + W / 2), - (Y + H / 2)) Paint.Text(hCtrl["Text"], X, Y, W, H, Classes["Align"][hCtrl["Alignment"]].Value) 'Paint.Text(hCtrl["Text"], X, Y, W, H, Align.Center) diff --git a/app/src/gambas3/.src/Help/FHelpBrowser.form b/app/src/gambas3/.src/Help/FHelpBrowser.form index 6daf3577f..be6993cea 100644 --- a/app/src/gambas3/.src/Help/FHelpBrowser.form +++ b/app/src/gambas3/.src/Help/FHelpBrowser.form @@ -97,8 +97,9 @@ Sorted = True Border = False } - { webHelp HelpView + { !webHelp HelpView MoveScaled(22,2,28,16) + #Public = True } } { movWaiting MovieBox diff --git a/app/src/gambas3/.src/Project/Patch/FPatch.class b/app/src/gambas3/.src/Project/Patch/FPatch.class index 4faf5eebc..4cfe380e4 100644 --- a/app/src/gambas3/.src/Project/Patch/FPatch.class +++ b/app/src/gambas3/.src/Project/Patch/FPatch.class @@ -121,7 +121,7 @@ Private Sub RefreshHunks() If iInd Then sToFile = gvwHunks[iInd - 1, 1].Text Endif gvwHunks[iInd, 1].Text = sToFile - aScan = Scan(.LineInfo, "@@ -* +* @@") + aScan = Scan(RTrim(.LineInfo), "@@ -* +* @@") 'sLineInfo = aScan[0] & "\t--> " & aScan[1] gvwHunks[iInd, 2].Text = aScan[0] gvwHunks[iInd, 3].Text = "--> " & aScan[1] @@ -208,8 +208,8 @@ Public Sub Parse(sFile As String) $hPatch.Parse(sFile) RefreshHunks() - Finally - Dec Application.Busy + 'Finally + 'Dec Application.Busy End diff --git a/app/src/gambas3/.src/Welcome/FAbout.class b/app/src/gambas3/.src/Welcome/FAbout.class index f889f9f88..2de6f2780 100644 --- a/app/src/gambas3/.src/Welcome/FAbout.class +++ b/app/src/gambas3/.src/Welcome/FAbout.class @@ -30,7 +30,7 @@ Public Sub Form_Open() Dim Y As Integer Dim E As Float - Me.Background = &H40FFFFFF& + Me.Background = &HFFFFFFFF& $hWelcome = New CWelcome(dwgWelcome)