VERSION 5.00
Begin VB.Form frmEdytor 
   Caption         =   "MyText  BezNazwy00"
   ClientHeight    =   3465
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4635
   LinkTopic       =   "Form1"
   ScaleHeight     =   3465
   ScaleWidth      =   4635
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.TextBox txtOknoTekstu 
      Height          =   975
      Left            =   1440
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   600
      Width           =   1575
   End
   Begin VB.Menu mnuPlik 
      Caption         =   "&Plik"
      Begin VB.Menu mnuNowy 
         Caption         =   "&Nowy"
      End
      Begin VB.Menu mnuOtworz 
         Caption         =   "&Otworz"
      End
      Begin VB.Menu mnuZapisz 
         Caption         =   "&Zapisz"
      End
      Begin VB.Menu mnuDrukuj 
         Caption         =   "&Drukuj"
      End
      Begin VB.Menu mnuSeperator 
         Caption         =   "-"
      End
      Begin VB.Menu mnuKoniec 
         Caption         =   "&Koniec"
      End
   End
   Begin VB.Menu mnuFormat 
      Caption         =   "&Format"
      Begin VB.Menu mnuWielkosc 
         Caption         =   "&Wielkość czcionki"
      End
      Begin VB.Menu mnuPogrubiony 
         Caption         =   "Po&grubiony"
      End
      Begin VB.Menu mnuKursywa 
         Caption         =   "&Kursywa"
      End
      Begin VB.Menu mnuPodkreslony 
         Caption         =   "Podk&reslony"
      End
   End
End
Attribute VB_Name = "frmEdytor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    txtOknoTekstu.Top = 0
    txtOknoTekstu.Left = 0
    txtOknoTekstu.FontBold = False
    txtOknoTekstu.FontItalic = False
    txtOknoTekstu.FontUnderline = False
    Printer.FontBold = False
   Printer.FontItalic = False
    Printer.FontUnderline = False
End Sub


Private Sub Form_Resize()
    txtOknoTekstu.Width = ScaleWidth
    txtOknoTekstu.Height = ScaleHeight
End Sub

Private Sub mnuDrukuj_Click()
    If txtOknoTekstu.Text = "" Then
        MsgBox "Brak tekstu do drukowania"
        Exit Sub
    End If
    Printer.Print txtOknoTekstu.Text
    Printer.EndDoc
End Sub

Private Sub mnuKoniec_Click()
Hide
End Sub

Private Sub mnuPogrubiony_Click()
    If txtOknoTekstu.FontBold = False Then
        txtOknoTekstu.FontBold = True
        mnuPogrubiony.Checked = True
        Printer.FontBold = True
    Else
        txtOknoTekstu.FontBold = False
        mnuPogrubiony.Checked = False
        Printer.FontBold = False
    End If
End Sub

Private Sub mnuKursywa_Click()
    If txtOknoTekstu.FontItalic = False Then
        txtOknoTekstu.FontItalic = True
        mnuKursywa.Checked = True
        Printer.FontItalic = True
    Else
        txtOknoTekstu.FontItalic = False
        mnuKursywa.Checked = False
        Printer.FontItalic = False
    End If
End Sub

Private Sub mnuNowy_Click()
    txtOknoTekstu.Text = ""
End Sub

Private Sub mnuOtworz_Click()
    frmOtworz.Show vbModal
End Sub

Private Sub mnuWielkosc_Click()
    Dim Wpis As String
    Wpis = InputBox("Podaj wielkość czcionki:", "Wielkość czcionki", "8")
    If Wpis <> "" Then
        txtOknoTekstu.FontSize = Wpis
        Printer.FontSize = txtOknoTekstu.FontSize
    End If
End Sub

Private Sub mnuZapisz_Click()
    Dim NazwaPliku As String
    Dim NumerPliku As Integer
    NazwaPliku = InputBox("Wpisz nazwę pliku", "Zapisz")
    If NazwaPliku <> "" Then
        NumerPliku = FreeFile
        Open NazwaPliku For Output As NumerPliku
        Print #NumerPliku, txtOknoTekstu.Text
        Close NumerPliku
        Caption = "MyText " & NumerPliku
    End If
End Sub

Private Sub mnuPodkreslony_Click()
If txtOknoTekstu.FontUnderline = False Then
        txtOknoTekstu.FontUnderline = True
        mnuPodkreslony.Checked = True
        Printer.FontUnderline = True
    Else
        txtOknoTekstu.FontUnderline = False
        mnuPodkreslony.Checked = False
        Printer.FontUnderline = False
    End If
End Sub
