blob: 8788580722e49047fca47b7af8bd21f6ba7409bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "versesel.h"
#include <versekey.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TVerseSelFrm *VerseSelFrm;
//---------------------------------------------------------------------------
__fastcall TVerseSelFrm::TVerseSelFrm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TVerseSelFrm::Edit1Change(TObject *Sender)
{
VerseKey trykey = Edit1->Text.c_str();
Panel2->Caption = (const char *)trykey;
}
//---------------------------------------------------------------------------
|
