Haegwang/Epole_Class
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

글꼴 기울임 속성 적용

Browse Source
This commit is contained in:
tindevil
2021-01-18 22:27:50 +09:00
parent 38f3d4a51e
commit 888ed0f1bc
6 changed files with 293 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Project_fp13/CEpole_fp13.vbproj
View File

@@ -240,7 +240,7 @@
<Folder Include="코드백업\" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\Z_Epole_통신%28FP5%29\SubProject\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
<ProjectReference Include="..\..\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
<Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
<Name>ArinClassV2</Name>
</ProjectReference>

52
Project_fp13/Defalut_PrintForm.vb
View File

@@ -882,9 +882,16 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) '//장평
TOBJ.WordHeight = CTLFONT(6) '//장높이
End If
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "VISIBLE'")
@@ -1009,7 +1016,13 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) '//장평
TOBJ.WordHeight = CTLFONT(6) '//장높이
End If
@@ -1088,7 +1101,11 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5)
TOBJ.WordHeight = CTLFONT(6)
'MsgBox(CTLFONT(0))
@@ -2115,7 +2132,14 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1))
Tobj.Size = New Size(pos(2), pos(3))
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6)
Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0)
@@ -2136,7 +2160,13 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1))
Tobj.Size = New Size(pos(2), pos(3))
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6)
Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0)
@@ -2393,9 +2423,13 @@ Public Class Defalut_PrintForm
DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = 'STYLE" & Tobj.Name.ToUpper & "FONT'")
If DR.GetUpperBound(0) = 0 Then
font = DR(0)(1).ToString.Split(",")
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6)
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
' MsgBox(font(0))
End If
@@ -2454,7 +2488,11 @@ Public Class Defalut_PrintForm
font = DR(0)(1).ToString.Split(",")
Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6)
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
' MsgBox(font(0))
End If