'===========================================================================
' Subject: Text Cleaner                       Date: 06-15-01 (19:34)       
'  Author: Mesut Akcan                        Code: RAPIDQ                 
'  Origin: makcan@softhome.net              Packet: RAPIDQ.ABC
'===========================================================================
' Text Cleaner v1.0
' Updated : 30 June 2000
' Programmed by Mesut Akcan
' Compile this codes with Rapid-Q
' RapidQ URL : http://www.basicguru.com/abc/rapidq

' Metin Temizleyici v1.0
' Güncelleme : 10 Haziran 2000
' Programlayan : Mesut Akcan
' Bu kodları derlemek için Rapid-Q kullanın

' http://makcan.virtualave.net
' makcan@softhome.net

$optimize  on
$typecheck on
$apptype   gui
$option icon "temizle.ico"
$include   "rapidq.inc"

application.Title = "Metin Temizleyici v1.1"

$RESOURCE resYeni 	AS  "new.bmp"
$RESOURCE resAc 		AS  "open.bmp"
$RESOURCE resKaydet 	AS  "save.bmp"
$RESOURCE resKes		AS  "cut.bmp"
$RESOURCE resKopyala 	AS  "copy.bmp"
$RESOURCE resYapistir 	AS  "paste.bmp"
$RESOURCE resKaydet 	AS  "save.bmp"
$RESOURCE resTemizle	AS  "cls.bmp"
$RESOURCE resHakkinda 	AS  "help.bmp"
$RESOURCE resKapat 	AS  "exit.bmp"
'$RESOURCE resFrmIco 	AS  "temizle.ico"

DECLARE SUB Yeni (Sender AS QBUTTON)
DECLARE SUB DosyaAc (Sender AS QBUTTON)
DECLARE SUB DosyaKaydet (Sender AS QBUTTON)
DECLARE SUB Kopyala (Sender AS QBUTTON)
DECLARE SUB Temizle (Sender AS QBUTTON)
DECLARE SUB Hakkinda (Sender AS QBUTTON)
DECLARE SUB Yapistir (Sender AS QBUTTON)
DECLARE SUB Kes (Sender AS QBUTTON)
DECLARE SUB Kapat (Sender AS QBUTTON)
DECLARE SUB frmResize
DECLARE SUB tSec

'declare SUB DummyProc

CREATE Form AS QFORM
    Caption = application.Title
    'IcoHandle = resFrmIco
    Width = 344
    Height = 455
    OnResize = frmResize		
    AutoScroll = 0
    Center
'    WndProc = DummyProc	
    CREATE mainmenu as qmainmenu
	create mnuDosya as qmenuitem
		caption = "&Dosya"
		create mnuYeni as qmenuitem
			Caption = "&Yeni"
			OnClick = Yeni
		end create
		create mnuAc as qmenuitem
			Caption = "&Aç"
			OnClick = DosyaAc
		end create
		create mnuKaydet as qmenuitem
			Caption = "&Kaydet"
			OnClick = DosyaKaydet
		end create
'		create mnuFarkli as qmenuitem
'			Caption = "&Farklı Kaydet"
'			OnClick = DosyaKaydet
'		end create
		create mnuCzg as qmenuitem
			Caption = "-"
		end create
		create mnuKapat as qmenuitem
			Caption = "Ka&pat"
			OnClick = Kapat
		end create
	end create
	CREATE mnuDuzen as QMENUITEM   
		Caption = "Dü&zen"
		CREATE mnuDuzenKes as QMENUITEM   
			Caption = "&Kes"
			OnClick = Kes
		END CREATE 
		CREATE mDuzenKopyala as QMENUITEM   
			Caption = "K&opyala"
			OnClick = Kopyala
		END CREATE 
		CREATE mnuDuzenYapistir as QMENUITEM   
			Caption = "&Yapıştır"
			OnClick = Yapistir
		END CREATE 
		CREATE mnuDuzenCzg as QMENUITEM   
			Caption = "-"
		END CREATE 
		CREATE mnuDuzenTsec as QMENUITEM   
			Caption = "Tümünü &seç"
			OnClick = tSec
		END CREATE 
		CREATE mnuDuzenCzg2 as QMENUITEM   
			Caption = "-"
		END CREATE 
		CREATE mnuDuzenTemizle as QMENUITEM   
			Caption = "&Temizle"
			OnClick = Temizle
		END CREATE 
	END CREATE 
    end create
    CREATE Label1 AS QLABEL
        Caption = "Harfler :"
        Left = 3
        Top = 40
        Width = 37
    END CREATE
    CREATE Label2 AS QLABEL
        Caption = "Özel karakterler:"
        Left = 3
        Top = 66
        Width = 77
    END CREATE
    CREATE Edit1 AS QEDIT
        Text = ""
        Left = 47
        Top = 36
        Width = 280
        ShowHint = 1
        Hint = "Silinecek harfleri yazın"
    END CREATE
    CREATE RichEdit1 AS QRICHEDIT
        Left = 0 
        Top = 88
        Width = 330
        Height = 337
        ScrollBars = 3
        TabOrder = 1
	  WordWrap = 0
	    Plaintext = True
	    font.size=12
    END CREATE
    CREATE CheckBox1 AS QCHECKBOX
        Caption = "&Enter"
        Left = 91
        Top = 64
        Width = 52
        ShowHint = 1
        Hint = "Satır sonları"
        TabOrder = 2
    END CREATE
    CREATE CheckBox2 AS QCHECKBOX
        Caption = "TAB"
        Left = 147
        Top = 64
        Width = 55
        ShowHint = 1
        Hint = "Tab karakteri"
        TabOrder = 3
    END CREATE
    CREATE Panel1 AS QPANEL
        Left = 0
        Top = 0
        Width = 336
        Height = 32
        Align = 1
        TabOrder = 4
        CREATE Button1 AS QBUTTON
            BMPhandle = resYeni
            Left = 2
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Yeni"
            OnClick = Yeni
        END CREATE
        CREATE Button2 AS QBUTTON
            BMPhandle = resAc
            Left = 29
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Aç"
            TabOrder = 1
            OnClick = DosyaAc
        END CREATE
        CREATE Button3 AS QBUTTON
            BMPhandle = resKaydet
            Left = 56
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Kaydet"
            TabOrder = 2
            OnClick = DosyaKaydet
        END CREATE
        CREATE Button4 AS QBUTTON
		BMPhandle = resKes
            Left = 95
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Kes"
            TabOrder = 7
            OnClick = Kes
        END CREATE
        CREATE Button5 AS QBUTTON
		BMPhandle = resKopyala
            Left = 122
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Kopyala"
            TabOrder = 3
            OnClick = Kopyala
        END CREATE
        CREATE Button6 AS QBUTTON
		BMPhandle = resYapistir
            Left = 149
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Yapıştır"
            TabOrder = 6
            OnClick = Yapistir
        END CREATE
        CREATE Button7 AS QBUTTON
		BMPhandle = resTemizle
            Left = 189
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Temizle"
            TabOrder = 4
            OnClick = Temizle
        END CREATE
        CREATE Button8 AS QBUTTON
		BMPhandle = resHakkinda
            Left = 225
            Top = 3
            Width = 25
            ShowHint = 1
            Hint = "Hakkında"
            TabOrder = 5
            OnClick = Hakkinda
        END CREATE
        CREATE Button9 AS QBUTTON
		BMPhandle = resKapat
        	Left = 257
        	Top = 3
        	Width = 25
        	ShowHint = 1
        	Hint = "Kapat"
        	TabOrder = 5
        	OnClick = Kapat
	  END CREATE 
    END CREATE
END CREATE

Form.ShowModal

SUB Yeni (Sender AS QBUTTON):	RichEdit1.Clear:form.caption = application.Title:END SUB
SUB DosyaAc (Sender AS QBUTTON)
	DIM OpenDialog AS QOpenDialog
	with OpenDialog
	.Filter = "Tüm dosyalar|*.*"
	if .Execute then 
		RichEdit1.LoadFromFile .FileName
		form.caption = application.Title + " - " + .FileName
	end if
	end with
END SUB
SUB DosyaKaydet (Sender AS QBUTTON)
	DIM SaveDialog AS QSaveDialog
	with SaveDialog
	IF .Execute THEN
		RichEdit1.SaveToFile .FileName
		form.caption = application.Title + " - " + .FileName
	END IF
	end with
END SUB
SUB Temizle (Sender AS QBUTTON)
	dim txt as string , harfler as string
	dim n as byte
	dim cEnter as string , cTab as string
	cEnter = chr$(13) + chr$(10)
	cTab = chr$(9)
	txt = RichEdit1.text
	harfler = edit1.text
	for  n = 1 to len(harfler)
		txt = txt - mid$(harfler,n,1)
	next 
	if checkbox1.checked then txt = txt - cEnter
	if checkbox2.checked then txt = txt - cTab
	RichEdit1.text = txt
END SUB
SUB Hakkinda (Sender AS QBUTTON)
	dim mesaj as string , cr as string
	cr = chr$(13)
	mesaj = "Program : " + application.Title 
	mesaj =  mesaj + cr + "Programlayan : Mesut Akcan"
	mesaj = mesaj + cr + "http://kaynak.cjb.net"
	mesaj	= mesaj + cr + "makcan@softhome.net"
	showmessage mesaj
END SUB
sub frmResize
	RichEdit1.width = form.clientwidth 
	RichEdit1.height = form.clientheight - RichEdit1.top
end sub  
SUB Kes (Sender AS QBUTTON):Richedit1.CutToClipBoard:END SUB
SUB Kopyala (Sender AS QBUTTON):RichEdit1.CopytoClipboard:END SUB
SUB Yapistir (Sender AS QBUTTON):RichEdit1.PasteFromClipBoard:END SUB
sub tSec :RichEdit1.selectall:end sub  
SUB Kapat (Sender AS QBUTTON) :form.close:END SUB

'SUB DummyProc:END SUB