From 9b37754aadb4d48965db20b171b01a737e79f8a6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?M=C3=A1rk=20Vitarius?= Date: Wed, 11 Jun 2025 17:06:42 +0200 Subject: [PATCH] teszt --- Dokumentáció Készítő 3/Application.xaml | 2 + Dokumentáció Készítő 3/MainWindow.xaml | 201 +++++++++++++--------- Dokumentáció Készítő 3/MainWindow.xaml.vb | 89 +--------- 3 files changed, 127 insertions(+), 165 deletions(-) diff --git a/Dokumentáció Készítő 3/Application.xaml b/Dokumentáció Készítő 3/Application.xaml index 0515c55..9983453 100644 --- a/Dokumentáció Készítő 3/Application.xaml +++ b/Dokumentáció Készítő 3/Application.xaml @@ -8,6 +8,8 @@ + + diff --git a/Dokumentáció Készítő 3/MainWindow.xaml b/Dokumentáció Készítő 3/MainWindow.xaml index 268ec6e..d98873e 100644 --- a/Dokumentáció Készítő 3/MainWindow.xaml +++ b/Dokumentáció Készítő 3/MainWindow.xaml @@ -1,85 +1,104 @@  - + xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" + xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" + xmlns:d="http://schemas.microsoft.com/expression/blend/2008" + xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" + xmlns:materialDesign="http://materialdesigninxaml.net/winfx/xaml/themes" + x:Name="MainWindow" + x:Class="MainWindow" + TextElement.Foreground="{DynamicResource MaterialDesignBody}" + TextElement.FontWeight="Regular" + TextElement.FontSize="13" + TextOptions.TextFormattingMode="Ideal" + TextOptions.TextRenderingMode="Auto" + Background="{DynamicResource MaterialDesignPaper}" + FontFamily="{DynamicResource MaterialDesignFont}" + mc:Ignorable="d" + Title="Dokumentáció készítő" + Height="417" + Width="614" + FontSize="13" + WindowStyle="None" + ResizeMode="NoResize" + WindowStartupLocation="CenterScreen" + SizeToContent="WidthAndHeight" + MinHeight="370" + MaxHeight="370"> + + + + + + + + diff --git a/Dokumentáció Készítő 3/MainWindow.xaml.vb b/Dokumentáció Készítő 3/MainWindow.xaml.vb index 5b4664e..993b710 100644 --- a/Dokumentáció Készítő 3/MainWindow.xaml.vb +++ b/Dokumentáció Készítő 3/MainWindow.xaml.vb @@ -118,8 +118,7 @@ Public Class MainWindow NamingSyntaxStefani.IsChecked = True namingsyntax = "stefani" AktualisRajzRadioButton.IsChecked = True - MainWindow.MinHeight = 270 - MainWindow.MaxHeight = 270 + @@ -138,11 +137,6 @@ Public Class MainWindow XLSCheckbox.IsChecked = False - If params.Contains("-lapszam") Then - SheetCheckBox.IsChecked = True - - End If - If params.Contains("-pdf") Then PDFCheckBox.IsChecked = True End If @@ -178,7 +172,6 @@ Public Class MainWindow DWGCheckBox.IsChecked = True XLSCheckbox.IsChecked = True - NamingSyntaxHanon.IsChecked = True NamingSyntaxStefani.IsChecked = False @@ -341,9 +334,6 @@ Public Class MainWindow ElseIf NamingSyntaxAudi.IsChecked Then namingsyntax = "audi" xlstype = "" - ElseIf NamingSyntaxHanon.IsChecked Then - namingsyntax = "stefani" - xlstype = "hanon" End If @@ -440,8 +430,6 @@ Public Class MainWindow ListBox1.IsEnabled = True Files_Browse.IsEnabled = True PDFOsszeCheckBox.IsEnabled = True - SheetCheckBox.IsEnabled = False - SheetCheckBox.IsChecked = False End Sub Private Sub MaterialRadioButton3_CheckedChanged(sender As Object, e As EventArgs) @@ -452,7 +440,6 @@ Public Class MainWindow PDFOsszeCheckBox.IsChecked = False 'XLSCheckBox.Enabled = True ' XLSCheckBox.Checked = True - SheetCheckBox.IsEnabled = True ListBox1.Items.Clear() FilesList.Clear() @@ -497,15 +484,6 @@ Public Class MainWindow NeedTiff = False End If - End Sub - Private Sub PdfTypeStroke_CheckedChanged(sender As Object, e As EventArgs) - - If NeedPdfStroke.IsChecked = True Then - NeedStroke = True - Else - NeedStroke = False - End If - End Sub Private Sub PDFOsszeCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles PDFCheckBox.Checked, PDFCheckBox.Unchecked @@ -519,14 +497,6 @@ Public Class MainWindow End Sub Private Sub PdfCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles PDFCheckBox.Checked, PDFCheckBox.Unchecked - If PDFCheckBox.IsChecked = True Then - NeedPdf = True - NeedPdfStroke.IsEnabled = True - Else - NeedPdf = False - NeedPdfStroke.IsEnabled = False - NeedPdfStroke.IsChecked = False - End If If KulonAloRajzok.IsChecked = True Then If PDFCheckBox.IsChecked = True Then @@ -540,15 +510,7 @@ Public Class MainWindow End Sub - Private Sub SheetCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SheetCheckBox.Checked, SheetCheckBox.Unchecked - If SheetCheckBox.IsChecked = True Then - NeedSheetNumbers = True - Else - NeedSheetNumbers = False - End If - - End Sub 'Document creation subs Private Sub CreateDocuments() xlsCreated.Clear() @@ -2480,14 +2442,7 @@ Public Class MainWindow End If End Sub - Private Sub EllenorzesCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles EllenorzesCheckBox.Checked - If EllenorzesCheckBox.IsChecked = True Then - isEllNeeded = True - Else - isEllNeeded = False - End If - End Sub Private Sub Label_MouseDown(sender As Object, e As MouseButtonEventArgs) If e.ChangedButton = MouseButton.Left Then @@ -2499,23 +2454,6 @@ Public Class MainWindow Environment.Exit(0) End Sub - Private Sub SheetCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles SheetCheckBox.Checked - If SheetCheckBox.IsChecked = True Then - sheetParamNeeded = True - Else - sheetParamNeeded = False - - End If - End Sub - - Private Sub PrintCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles PrintCheckBox.Checked - If PrintCheckBox.IsChecked = True Then - printNeeded = True - Else - printNeeded = False - End If - End Sub - Private Sub AutomaticFolderSelect_Checked(sender As Object, e As RoutedEventArgs) Handles AutomaticFolderSelect.Checked If AutomaticFolderSelect.IsChecked = True Then @@ -2525,9 +2463,6 @@ Public Class MainWindow End If End Sub - Private Sub NeedPdfStroke_Checked(sender As Object, e As RoutedEventArgs) Handles NeedPdfStroke.Checked - - End Sub Private Sub Subdirctories_Checked(sender As Object, e As RoutedEventArgs) Handles subdirctories.Checked @@ -2572,20 +2507,7 @@ Public Class MainWindow End Sub - Private Sub CreateDocument_XLS_Click(sender As Object, e As RoutedEventArgs) Handles CreateDocument_XLS.Click - Dim session As IpfcBaseSession = Nothing - Dim conn As IpfcAsyncConnection = Nothing - Dim model1 As IpfcModel - Dim FileNameMod As String - Connect(session, conn) - model1 = session.CurrentModel - folderpicked = Path.GetTempPath - FileNameMod = model1.FileName - FileNames.Add(FileNameMod) - conn.Disconnect(1) - - End Sub Private Sub PrintExcel(FileNameMod As String) xlApp = New Excel.Application @@ -2606,15 +2528,6 @@ Public Class MainWindow End Sub - Private Sub PrintExcelCheckBox_Checked(sender As Object, e As RoutedEventArgs) Handles PrintExcelCheckBox.Checked - - If PrintExcelCheckBox.IsChecked = True Then - excelPrintNeeded = True - Else - excelPrintNeeded = False - End If - End Sub - Private Sub Test_Click(sender As Object, e As RoutedEventArgs) Handles test.Click Dim session As IpfcBaseSession = Nothing Dim conn As IpfcAsyncConnection = Nothing