A mellékelt példaprogram használatához a Blocks.dpk Package állomány tartalmát telepítenie kell.
Delphi 5 feletti verziók használata esetében a Package fordítása hibát fog okozni, hiányzó unit-ok miatt. A fordításhoz szükséges unit-ok megtalálhatóak a delphiX\Source\ToolsAPI könyvtárban.
Az IOTASourceEditor interfész osztálynál már találkoztunk olyan lehetőséggel, amely a forráskód szerkesztőben kijelölt blokk kezelésére szolgál. Az IOTAEditBlock interfész azonban sokkal több lehetőséget biztosít, és talán használata is egyszerűbb.
Mint a bevezetőben is szó volt róla, ezt az interfészt az IOTAEditView osztály Block property-jén keresztül érhetjük el.
Property-k
EndingColumn
Osztály: IOTAEditBlock
property EndingColumn: Integer;
A kijelölés utolsó karakterének oszlop pozícióját adja vissza. A kijelölés utolsó karakterének a legutolsó látható karakter számít.
EndingRow
Osztály: IOTAEditBlock
property EndingRow: Integer;
A kijelölés utolsó karakterének sor pozícióját adja vissza.
IsValid
Osztály: IOTAEditBlock
property IsValid: Boolean;
Igaz érték esetén van létező kijelölés, hamis értéke esetén nincs.
Size
Osztály: IOTAEditBlock
property Size: Integer;
A kijelölt blokk mérete. A méret tartalmazza a sorvége karaktereket is.
StartingColumn
Osztály: IOTAEditBlock
property StartingColumn: Integer;
A kijelölt blokk első karakterének oszlop pozíciója. A kijelölés első látható karaktere.
StartingRow
Osztály: IOTAEditBlock
property StartingRow: Integer;
A kijelölt blokk első karakterének sor pozíciója.
Style
Osztály: IOTAEditBlock
property Style: TOTABlockType;
A kijelölés típusa.
type TOTABlockType = (btInclusive, btLine, btColumn, btNonInclusive, btUnknown);
Text
Osztály: IOTAEditBlock
property Text: string;
A kijelölés tartalma, sztringként.
Visible
Osztály: IOTAEditBlock
property Visible: Boolean;
Igaz érték esetén a kijelölés látható, hamis érték esetén nem. A kijelölés a láthatóságtól függetlenül létezik. Nem látszik egészen addig, amíg meg nem hívjuk a az IOTAEditView osztály Paint metódusát.
Metódusok
BeginBlock
Osztály: IOTAEditBlock
procedure BeginBlock;
Az aktuális kurzorpozíciótól kezdődően elkezd egy új kijelölést. A kijelölés végének meghatározásához ismét pozícionálnunk kell a kurzort, majd meg kell hívnunk az EndBlock metódust.
Copy
Osztály: IOTAEditBlock
procedure Copy(
Append: Boolean
);
A kijelölt kódrészletet a vágólapra másolja.
Paraméterek
Append: Boolean
Igaz érték esetén a kijelölt blokk a vágólapon lévő szöveg végére kerül.
Cut
Osztály: IOTAEditBlock
procedure Cut(
Append: Boolean
);
A kijelölt kódrészletet kivágja, majd elhelyezi a vágólapon.
Paraméterek
Append: Boolean
Igaz érték esetén a kijelölt blokk a vágólapon lévő szöveg végére kerül.
Delete
Osztály: IOTAEditBlock
function Delete: Boolean;
Törli a kijelölt blokkot.
Visszatérési érték
Igaz, ha a törlés sikeres volt. Hamis, ha nem volt kijelölt blokk.
EndBlock
Osztály: IOTAEditBlock
procedure EndBlock;
Beállítja a kijelölés végét, melyet az aktuális kurzorpozíció határoz meg.
Extend
Osztály: IOTAEditBlock
function Extend(
NewRow,
NewCol: Integer
): Boolean;
A kurzort a megadott pozícióra mozdítja, és módosítja kijelölés egyik végét. A kijelölés másik vége a helyén marad.
Paraméterek
NewRow
Új sor koordináta.
NewCol: Integer
Új oszlop koordináta.
Visszatérési érték
Igaz, ha a művelet sikeres volt, ellenkező esetben hamis.
ExtendPageDown
Osztály: IOTAEditBlock
function ExtendPageDown: Boolean;
A kijelölést bővíti egy oldallal lefelé.
Visszatérési érték
Igaz, ha a művelet sikeres volt, ellenkező esetben hamis.
ExtendPageUp
Osztály: IOTAEditBlock
function ExtendPageUp: Boolean;
Bővíti a kijelölést egy oldallal felfelé.
Visszatérési érték
Igaz, ha a művelet sikeres volt, ellenkező esetben hamis.
ExtendReal
Osztály: IOTAEditBlock
function ExtendReal(
NewRow,
NewCol: Integer
): Boolean;
A kurzort a megadott pozícióra mozdítja, és módosítja kijelölés egyik végét. A kijelölés másik vége a helyén marad. A függvény csak akkor tér el az Extend metódustól, amikor a felhasználó az alkalmazás futtatása közben végez műveleteket. Az Extend metódus olyankor a felhasználó által látható kódot használja, míg az ExtendReal azt a háttérben lévő kódot, ami a program futtatásának pillanatában volt.
Paraméterek
NewRow
Új sor koordináta.
NewCol: Integer
Új oszlop koordináta.
Visszatérési érték
Igaz, ha a művelet sikeres volt, ellenkező esetben hamis.
ExtendRelative
Osztály: IOTAEditBlock
function ExtendRelative(
DeltaRow,
DeltaCol: Integer
): Boolean;
Kiterjeszti a kijelölést, a kurzor aktuális pozíciójához képest, +/- irányban.
Paraméterek
DeltaRow
Viszonyított sor.
DeltaCol: Integer
Viszonyított oszlop.
Visszatérési érték
Igaz, ha a művelet sikeres volt, ellenkező esetben hamis.
LowerCase
Osztály: IOTAEditBlock
procedure LowerCase;
A kijelölt kódrészletet csupa kisbetűssé alakítja.
Print
Osztály: IOTAEditBlock
function Print: Boolean;
Kinyomtatja a kijelölt szövegrészt.
Visszatérési érték
Igaz, ha a művelet sikeres volt, ellenkező esetben hamis.
Reset
Osztály: IOTAEditBlock
procedure Reset;
Megszünteti a kijelölést.
Restore
Osztály: IOTAEditBlock
procedure Restore;
A Save metódussal a verembe mentett, legfelső blokkot visszaállítja.
Save
Osztály: IOTAEditBlock
procedure Save;
Az aktuális blokkot elhelyezi a verem tetején.
SaveToFile
Osztály: IOTAEditBlock
function SaveToFile(
const FileName: string
): Boolean;
A kijelölt szöveget elmenti egy állományba.
Paraméterek
const FileName: string
Az állomány neve.
Visszatérési érték
Igaz, ha a művelet sikeres, hamis, ha nem volt kijelölt blokk. Ha az állományt nem lehetett létrehozni, akkor az IDE az EFCreateError hibát generálja.
ToggleCase
Osztály: IOTAEditBlock
procedure ToggleCase;
A kijelölt szövegrész betűméretét az ellenkezőre váltja. Kisbetűkből nagybetűk lesznek és fordítva.
UpperCase
Osztály: IOTAEditBlock
procedure UpperCase;
A kijelölt szövegrészt csupa nagybetűssé alakítja.