Zadania - zestaw 2

1. Utworzyć menu główne aplikacji; zademonstrować użycie dwóch rodzajów skrótów klawiaturowych:

      PLIK       EDYCJA    OKNO 
        otwórz     kopiuj    sąsiadująco
        zachowaj   wytnij    kaskada
        koniec     wklej     zamknij
   

   Każda opcja menu ma wywoływać widoczną (dowolną) akcję.

   Każda pozycja ma mieć działający skrót klawiaturowy typu "Alt+Litera".

   Opcje w okienkach mają mieć działające skróty klawiaturowe (właściwość "ShortCut").

2. Umieścić komponenty TEdit (2), TMemo (1) i TButton (x) na formularzu. Przyciskom przypisać następujące działania:
   • czyszczenie Memo1
   • dopisanie tekstu z Edit1 na koniec Memo1
   • wstawienie tekstu z Edit1 na początek Memo1
   • usuwanie ostatniej linii Memo1
   • usuwanie linii Memo1 o numerze odczytywanym z Edit2 (wprowadzic kontrolę poprawności odczytywanego numeru)
   • przenoszenie ostatniej linii Memo1 na początek
   • numerowanie linii w Memo1
3. Umieścić komponenty TEdit, TMemo, TListBox i TPopupMenu na formularzu (wpisać kilka pozycji do ListBox'a). Oprogramować następujące czynności:
   • wybranie pozycji w ListBox1 ma powodować przepisanie na koniec Memo1 podświetlonej pozycji z ListBox1
   • w menu podręcznym ListBox1 ma być opcja powodująca sortowanie pozycji LisBox1
   • Naciśnięcie klawisza ENTER (#13) podczas edycji tekstu w Edit1 ma powodować załadowaie do Memo1 tekstu z pliku, którego nazwę (ze ścieżką dostępu wpisano do Edit1). Wykorzystać funkcję FileExists
4. Umieścić na formularzu komponent TComboBox.
   • Zdefiniować obsługę zdarzenia OnKeyPress: dopisanie do listy ComboBox'a łańcucha z jego pola edycyjnego jeśli naciśnięto ENTER (#13) i wyczyszczenie pola edycji jeśli naciśnięto Esc (#27).
   • Wybór pozycji z listy ComboBox'a ma powodować wyświetlenie komunikatu (ShowMessage) z informacją co wybrano.
5. Na formularzu:
   • umieścić komponent TRadioGroup;
   • wpisać w Items nazwy kolorów (min. 5);
   • zdefiniować obsługę OnClick:-zmiana koloru RadioGroup1 odpowiednia do zaznaczenia.
   • Zrobić to samo z użyciem komponentów TRadioButton i TGroupBox.

Funkcje

function FileExists(FileName:string):Boolean;

Funkcja sprawdza czy plik o nazwie podanej w FileName istnieje; jeśli tak funkcja zwraca wartość True; jeśli nie - False.

FileName może zawierać nazwę z pełną lub skróconą ścieżką dostępu

 if FileExists('c:\Program Files\test.exe') then
   ShowMessage('Plik test.exe istnieje')
 else
   ShowMessage('Pliku test.exe nie odnaleziono!')

KOMPONENTY VCL CD. (notatki)

TMainMenu - menu główne

Property:

  Items
  (prawy klawisz myszy -> Menu designer)

TEdit - okno edycyjne

Property:

  Text:string; -odczyt, zapis tekstu,

  PasswordChar:Char; -ukrycie tekstu jeśli #0,

TLabel - etykieta

Property:

 Caption:String; {tekst napisu}

 AutoSize:Boolean;{automatyczne dopasowanie
                          rozmiaru do zawartości}

TStrings - kolekcja łańcuchów (to nie kontrolka!)

Property

 Count: Integer; {ilość w kolekcji}

 Strings[Index: Integer]: string; {tablica łańcuchów}

Metody

 function Add(const S: string): Integer; virtual;
 {dodaje łańcuch S na końcu kolekcji zwraca index -> 0=1 1=2 itd. }
 
 procedure Insert(I: Integer; const S: string); virtual; abstract;
 {dodaje łańcuch S na (i-1)-tej pozycji}
  
 procedure LoadFromFile(const FileName: string); virtual;
 {ładuje linie z pliku}

 procedure SaveToFile(const FileName: string); virtual;
 {zapis łańcuchów do pliku}

 procedure Clear; virtual; abstract; 
 {Czyści kolekcję}

 procedure Delete(I: Integer); virtual; abstract;
 {usuwa I-ty}

TMemo - "mały" edytor

Property

  Lines: TStrings;{jak wyżej}

  ScrollBars: TScrollStyle;{typ pasków przewijania}
  type TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth);

  WordWrap: Boolean;{zawijanie linii}

  ReadOnly: Boolean;{no comment}

TListBox - lista wybory (przewijalna)

Property

  Items: TStrings;{no comment}

  ItemIndex: Integer;{nr bież. pozycji}

  Sorted: Boolean;{czy posortowane alfab.}

Metody

  procedure Clear; {czyści}

TComboBox - połączenie TEdit i TListBox

TGroupBox - grupowanie kontrolek

TCheckBox - pole wyboru

Property:

  Checked: Boolean;{czy pole jest zaznaczone}
  !!! Każde niezależne od pozostałych!!!

TRadioButton - pole opcjonalne

Property:

  Checked: Boolean;{czy pole jest zaznaczone}
  !!!Tylko jedno ze wszystkich w grupie

  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  grupowanie -> TGroupBox
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TRadioGroup {=TRadioButton+TGroupBox}

Property:

  Items: TStrings {kolekcja Captionów do TRadioButtonów  }

  ItemIndex: Integer {nr wybranego : 0=1,1=2, itd.}

  Columns: Integer {ilo¶ć kolumn}

TPanel - panel-grupujący ozdobnik

Property:

  BevelInner: TPanelBevel;{typ obramowania wewn.}

  BevelInner: TPanelBevel;{typ obramowania zewn.}
  type TPanelBevel = (bvNone, bvLowered, bvRaised);