Guidance
指路人
g.yi.org

software / rapidq / Examples / QObject / Object / QTextEdit.html

Software

Upload

回顶部

⇑

2002-09-03 18:53

Appendix A: QTextEdit

Documentation component by D.Glodt (c)2000-2001	Appendix A: QTextEdit

QTextEdit Component

QTextEdit is an extension of QRichEdit component with more functions.

QTextEdit Properties

Field	Type	R/W	Default

UsePopup	BOOLEAN	RW	True
	To use a popup menu with the right mouse button.
UndoCaption	STRING	RW	Undo
	Label of item Undo of popup menu.
CutCaption	STRING	RW	Cut
	Label of item Cut of popup menu.
CopyCaption	STRING	RW	Copy
	Label of item Copy of popup menu.
PasteCaption	STRING	RW	Paste
	Label of item Paste of popup menu.
SelectAllCaption	STRING	RW	SelectAll
	Label of item SelectAll of popup menu.

QTextEdit Methods

Method	Type	Description	Params

Undo	SUB	Undo command.
Cut	SUB	Cut command
Copy	SUB	Copy to clipboard.
Paste	SUB	Paste from clipboard.
Limit	SUB(Value%)	Limit the size text (number of char)	1
ReplaceSell	SUB(Text$)	Replace the selection by the Text$ parameter.	1
Find	FUNCTION(start%,text$,case%) AS BOOLEAN	Search the string into the text,start is the start of search,case is to respect the format of char (upper,lower)	3
LinesScroll	SUB(Number)	Place the cursor to the line number	1
CanUndo	FUNCTION AS BOOLEAN	Return if undo is possible

QTextEdit Events

Event	Type	Occurs when...	Params

QTextEdit Examples

$OPTION ICON "edit.ico"
$TYPECHECK ON
$INCLUDE "Rapidq.inc"
$INCLUDE "Object/QTextEdit.inc"
$INCLUDE "Object/QColorDialog.inc"
$INCLUDE "Object/QFormEx.inc"

declare sub menuEdit
declare sub menuAnnul
declare sub menuCouper
declare sub menuCopier
declare sub menuColler
declare sub menuSelection
declare sub menuNouveau
declare sub menuOuvrir
declare sub menuSauver
declare sub menuSauverSous
declare sub menuQuitter
declare sub menuRecherche
declare sub menuPoursuivre
declare sub menuRemplacer
declare sub ShowLC
declare sub ChangePolice
declare sub ChangeFond
declare sub ChangeTextRecherche
declare sub ChangeTextRemplacer
declare sub AnnulerRecherche
declare sub AnnulerRemplacer
declare sub PoursuivreRecherche
declare sub PoursuivreRemplacer
declare sub Remplacer
declare sub RemplacerTout
declare sub Show

dim FontDialog as QFONTDIALOG
dim cd as QcolorDialog
cd.caption="Couleur de fond"
dim FileName as string
FileName="Sans Titre"
dim start as long

CREATE Form AS QFORMEX
    Caption=Application.title+" - "+FileName
    Width=715
    Height=508
    Center
    OnClose=MenuQuitter
    OnShow=Show
    CREATE Menu as QMAINMENU
      CREATE Fichier as QMENUITEM
        Caption="&Fichier"
        CREATE Nouveau as QMENUITEM
          Caption="&Nouveau"
          OnClick=MenuNouveau
        END CREATE
        CREATE Ouvrir as QMENUITEM
          Caption="&Ouvrir"
          OnClick=MenuOuvrir
        END CREATE
        CREATE Sauver as QMENUITEM
          Caption="&Sauver"
          OnClick=MenuSauver
        END CREATE
        CREATE SauverSous as QMENUITEM
          Caption="&Sauver Sous..."
          OnClick=MenuSauverSous
        END CREATE
        CREATE Sep3 as QMENUITEM
          Caption="-"
        END CREATE
        CREATE Quitter as QMENUITEM
          Caption="&Quitter"
          OnClick=MenuQuitter
        END CREATE
      END CREATE
      CREATE Edition as QMENUITEM
        Caption="&Edition"
        OnClick=menuEdit
        CREATE Annul as QMENUITEM
          Caption="&Annuler"
          Enabled=false
          ShortCut="CTRL+Z"
          OnClick=MenuAnnul
        END CREATE
        CREATE Sep1 as QMENUITEM
          Caption="-"
        END CREATE
        CREATE Couper as QMENUITEM
          Caption="&Couper"
          Enabled=false
          ShortCut="CTRL+X"
          OnClick=MenuCouper
        END CREATE
        CREATE Copier as QMENUITEM
          Caption="&Copier"
          Enabled=false
          ShortCut="CTRL+C"
          OnClick=MenuCopier
        END CREATE
        CREATE Coller as QMENUITEM
          Caption="&Coller"
          Enabled=false
          ShortCut="CTRL+V"
          OnClick=MenuColler
        END CREATE
        CREATE Sep2 as QMENUITEM
          Caption="-"
        END CREATE
        CREATE Selection as QMENUITEM
          Caption="&Selectionner tout"
          Enabled=false
          ShortCut="CTRL+A"
          OnClick=MenuSelection
        END CREATE
      END CREATE
      CREATE Recherche as QMENUITEM
        Caption="&Recherche"
        CREATE Rechercher as QMENUITEM
          Caption="&Rechercher"
          OnClick=MenuRecherche
        END CREATE
        CREATE Poursuivre as QMENUITEM
          Caption="&Poursuivre la recherche"
          OnClick=MenuPoursuivre
        END CREATE
        CREATE Remplace as QMENUITEM
          Caption="&Remplacer"
          OnClick=MenuRemplacer
        END CREATE
      END CREATE
      CREATE Format as QMENUITEM
        Caption="&Format"
        CREATE Police as QMENUITEM
          Caption="&Police"
          OnClick=ChangePolice
        END CREATE
        CREATE CouleurFond as QMENUITEM
          Caption="&Couleur fond"
          OnClick=ChangeFond
        END CREATE
      END CREATE
    END CREATE
    CREATE infos AS QSTATUSBAR
       AddPanels "Li:","Col:","Taille:"
       Panel(0).width=80
       Panel(1).width=80
    END CREATE
    CREATE Edit AS QTEXTEDIT
        Align=5
        PlainText=1
        ScrollBars=3
        WordWrap=false
        UndoCaption="&Annuler"
        CutCaption="&Couper"
        CopyCaption="&Copier"
        PasteCaption="&Coller"
        SelectAllCaption="&Selectionner tout"
        OnMouseDown=ShowLC
        OnKeyUp=ShowLC
    END CREATE
END CREATE

CREATE Form2 AS QFORM
    Caption="Rechercher"
    Width=326
    Height=119
    borderStyle=bsDialog
    Center
    CREATE LabRech AS QLABEL
        Caption="Rechercher:"
        Left=8
        Top=12
        Width=64
        Height=21
    END CREATE
    CREATE EditRech AS QEDIT
        Left=74
        Top=9
        Width=145
        ShowHint=1
        Hint="Mot recherché"
        OnChange=ChangeTextRecherche
        TabOrder=1
    END CREATE
    CREATE BtRech1 AS QBUTTON
        Caption="Poursuivre"
        Left=229
        Top=9
        Width=80
        TabOrder=2
        Enabled=false
        OnClick=PoursuivreRecherche
    END CREATE
    CREATE BtRech2 AS QBUTTON
        Caption="Annuler"
        Left=229
        Top=41
        Width=80
        TabOrder=3
        OnClick=AnnulerRecherche
    END CREATE
    CREATE CheckRech AS QCHECKBOX
        Caption="Respecter la casse"
        Left=8
        Top=57
        Width=113
        ShowHint=1
        Hint="Respect majuscule et minuscule si coché"
        TabOrder=4
    END CREATE
END CREATE

CREATE Form3 AS QFORM
    Caption="Remplacer"
    Width=362
    Height=177
    borderStyle=bsDialog
    Center
    CREATE Lab1Repl AS QLABEL
        Caption="Rechercher:"
        Left=8
        Top=11
        Width=64
    END CREATE
    CREATE Lab2Repl AS QLABEL
        Caption="Remplacer par:"
        Left=8
        Top=43
        Width=75
    END CREATE
    CREATE Edit1Repl AS QEDIT
        Left=82
        Top=8
        Width=145
        TabOrder=1
        OnChange=ChangeTextRemplacer
    END CREATE
    CREATE Edit2Repl AS QEDIT
        Left=82
        Top=40
        Width=145
        TabOrder=2
    END CREATE
    CREATE Bt1Repl AS QBUTTON
        Caption="Poursuivre"
        Left=237
        Top=8
        Width=107
        TabOrder=3
        Enabled=false
        OnClick=PoursuivreRemplacer
    END CREATE
    CREATE Bt2Repl AS QBUTTON
        Caption="Remplacer"
        Left=237
        Top=40
        Width=107
        TabOrder=4
        Enabled=false
        OnClick=Remplacer
    END CREATE
    CREATE Bt3Repl AS QBUTTON
        Caption="Remplacer tout"
        Left=237
        Top=72
        Width=107
        TabOrder=5
        Enabled=false
        OnClick=RemplacerTout
    END CREATE
    CREATE Bt4Repl AS QBUTTON
        Caption="Annuler"
        Left=237
        Top=104
        Width=107
        TabOrder=6
        OnClick=AnnulerRemplacer
    END CREATE
    CREATE CheckRepl AS QCHECKBOX
        Caption="Respecter la casse"
        Left=8
        Top=114
        Width=121
        TabOrder=7
    END CREATE
END CREATE

form.DeskBar=true

Form.ShowModal

sub Show
dim font as Qfont

edit.limit(100000)
font.Name="Courier New"
font.size=10
edit.font=font
FontDialog.GetFont(font)
end sub

sub menuEdit
Annul.Enabled=Edit.CanUndo
if LEN(ClipBoard.Text)>0 then
    Coller.Enabled=true
else
    Coller.Enabled=false
end if
if len(edit.text)>0 then
    selection.enabled=true
else
    selection.enabled=false
end if
if len(edit.seltext)>0 then
    couper.enabled=true
    copier.enabled=true
else
    couper.enabled=false
    copier.enabled=false
end if
end sub

sub menuAnnul
edit.undo
ShowLC
end sub

sub menuCouper
edit.cut
ShowLC
end sub

sub menuCopier
edit.copy
end sub

sub menuColler
edit.paste
ShowLC
end sub

sub menuSelection
edit.selectAll
end sub

sub ShowLC
infos.panel(0).caption="Li:"+str$(edit.wherey+1)
infos.panel(1).caption="Col:"+str$(edit.wherex+1)
infos.panel(2).caption="Taille:"+str$(len(edit.text))
end sub

sub ChangePolice
dim font as qfont

if FontDialog.execute then
FontDialog.SetFont(font)
edit.font=font
end if
end sub

sub changeFond
if cd.execute then
edit.color=cd.color
end if
end sub

sub menuNouveau
Dim msgButton as integer

if edit.modified then
    msgButton=MessageBox("Sauver fichier?",application.title,35)
    if msgButton<>mrCancel then
      if msgButton=mrYes then
        menuSauver
      end if
      edit.Modified=false
      edit.clear
      filename="Sans Titre"
      form.caption=application.title+" - "+filename
    end if
else
    edit.clear
    filename="Sans Titre"
    form.caption=application.title+" - "+filename
end if
ShowLC
end sub

sub menuOuvrir
Dim OpenDialog as QOpenDialog
Dim msgButton as integer

OpenDialog.Filter="Fichier texte|*.txt|"
OpenDialog.Caption= "Ouvrir fichier"
if edit.modified then
    msgButton=MessageBox("Sauver fichier?",application.title,35)
    if msgButton<>mrCancel then
      if msgButton=mrYes then
        menuSauver
      end if
      OpenDialog.InitialDir=CurDir$
      if openDialog.execute then
        FileName=OpenDialog.fileName
        screen.cursor=crHourGlass
        edit.loadfromfile(filename)
        screen.cursor=crDefault
        edit.modified=false
        form.caption=application.title+" - "+right$(FileName,Len(FileName)-RINSTR(FileName,"\"))
      end if
    end if
else
    OpenDialog.InitialDir=CurDir$
    if openDialog.execute then
      FileName=OpenDialog.fileName
      screen.cursor=crHourGlass
      edit.loadfromfile(filename)
      screen.cursor=crDefault
      edit.modified=false
      form.caption=application.title+" - "+right$(FileName,Len(FileName)-RINSTR(FileName,"\"))
    end if
end if
ShowLC
end sub

sub menuSauver
if FileName="Sans Titre" then
    menuSauverSous
else
    screen.cursor=crHourGlass
    edit.SaveToFile(filename)
    screen.cursor=crDefault
end if
end sub

sub menuSauverSous
Dim SaveDialog as QSaveDialog

SaveDialog.Filter="Fichier texte|*.txt|"
SaveDialog.Caption= "Sauver fichier"
SaveDialog.InitialDir=CurDir$
if saveDialog.execute then
    FileName=SaveDialog.FileName
    if instr(LCASE$(FileName),".txt")=0 then
      FileName=FileName+".txt"
    end if
    form.caption=application.title+" - "+right$(FileName,Len(FileName)-RINSTR(FileName,"\"))
    screen.cursor=crHourGlass
    edit.SaveToFile(filename)
    screen.cursor=crDefault
end if
end sub

sub menuQuitter
Dim msgButton as integer

if edit.modified then
    msgButton=MessageBox("Sauver fichier?",application.title,35)
    if msgButton<>mrCancel then
      if msgButton=mrYes then
        menuSauver
      end if
      edit.clear
      application.terminate
    end if
else
    edit.clear
    application.terminate
end if
end sub

sub ChangeTextRecherche
if len(editRech.text)>0 then
BtRech1.enabled=true
else
BtRech1.enabled=false
end if
end sub

sub menuRecherche
form2.show
end sub

sub menuRemplacer
form3.show
end sub

sub AnnulerRecherche
form2.close
end sub

sub PoursuivreRecherche
dim flag as integer

flag=checkRech.checked
if edit.seltext="" then start=edit.selstart
if edit.find(start,editRech.text,flag)>0 then
    form.show
    start=edit.find(start,editRech.text,flag)
    start=start+len(editRech.text)
else
    messageDlg("Impossible de trouver "+chr$(34)+editRech.text+chr$(34),mtInformation,mbOk,0)
end if
end sub

sub MenuPoursuivre
dim flag as integer

flag=checkRech.checked
if edit.seltext="" then start=edit.selstart
if edit.find(start,editRech.text,flag)>0 then
    start=edit.find(start,editRech.text,flag)
    start=start+len(editRech.text)
else
    messageDlg("Impossible de trouver "+chr$(34)+editRech.text+chr$(34),mtInformation,mbOk,0)
end if
end sub

sub ChangeTextRemplacer
if len(edit1Repl.text)>0 then
    Bt1Repl.enabled=true
    Bt2Repl.enabled=true
    Bt3Repl.enabled=true
else
    Bt1Repl.enabled=false
    Bt2Repl.enabled=false
    Bt3Repl.enabled=false
end if
end sub

sub AnnulerRemplacer
form3.close
end sub

sub PoursuivreRemplacer
dim flag as integer

flag=checkRepl.checked
if edit.seltext="" then start=edit.selstart
if edit.find(start,edit1Repl.text,flag)>0 then
    form.show
    start=edit.find(start,edit1Repl.text,flag)
    start=start+len(edit1Repl.text)
else
    messageDlg("Impossible de trouver "+chr$(34)+edit1Repl.text+chr$(34),mtInformation,mbOk,0)
end if
end sub

sub Remplacer
if edit.sellength>0 then
edit.seltext=edit2repl.text
end if
PoursuivreRemplacer
end sub

sub RemplacerTout
dim flag as integer

form3.close
flag=checkRepl.checked
if edit.seltext="" then start=edit.selstart
while edit.find(start,edit1Repl.text,flag)>0
    start=edit.find(start,edit1Repl.text,flag)
    start=start+len(edit1Repl.text)
    edit.seltext=edit2repl.text
wend
end sub

2002-09-03 18:53

掌柜推荐

¥860.00 ·

¥900.00 ·

¥810.00 ·

¥317.00 ·

¥1,370.00 ·

¥660.00 ·

g.yi.org Hits:0 Last modified:2002-09-03 18:53:24