INI-файлының   ішінде   қате   бар,   мысалы,  Database

d. INI-файлының   ішінде   қате   бар,   мысалы,  Database  секциясы   жоқ,
немесе   PathBase кілті, немесе МҚ – на жол дұрыс көрсетілмеген.
Қандай   да   жағдайда   бағдарлама   жоғарыда   жазылған   алгоритмге   сай
жұмыс істеуі қажет.
Тәжірибелік  жұмыс
Тәжірибелік  жұмыс
№
№
5
5
.
.
  
  
 «
 «
MyWorld
MyWorld
»
»
 МҚ құру.
 МҚ құру.
Работа с графическими изображениями и буфером обмена
Работа с графическими изображениями и буфером обмена
BDMyWorld.mdb  жобасы   бар   папканы   қайтарыңыз.Мәліметтер
қорында   маңызды   ролді  Memo-   өрісі   атқарады.   Бұл   өріс   құрамында
өлшемі анықталмаған көпжолды  мәтін болады.
 1 –қадам    Жаңа өріс құру және бастапқы форманы баптау.
 1 –қадам    Жаңа өріс құру және бастапқы форманы баптау.
1. Ms-Access-те  BDMyWorld.mdb  файлын  ашыңыз   және   содан   кейін
конструктор режимінде «Страны» кестесін ашыңыз.  Осы кестеде жаңа өріс
құрып, суретте көрсетілгендей етіп толтырыңыз:
2. Ms-Access-ті жауып,  Delphi-ге оралыңыз. Щелкните дважды мышью
по компоненту ADOQuery1 компононтін екі рет шертіп, содан кейін пайда
болған   өрісті   редактрлеу   терезесінде   тышқанның   оң   жағын   шертіңіз.
Қалқып шығатын менюден    «Add Fields»  пунктін таңдаңыз.  Жаңа өрістер
тізімде болуы керек.Редактор өрісін жабыңыз.
3. DataControls 
бетінен  
  біздің   бастапқы   формамыздың
проектісіндегі  DBImage-дің   3     компонентіне    paLeft    панелін   ретпен
жоғарыдан төмен  орналастырыңыз.
4. Инспекторе   объектте   барлық   жаңа   компоненттердің  DataSource
қасиетіне    DataSource1 мағынасын орнатыңыз.    ShowHint  және  Stretch
қасиеттеріне    True   мағынасын   орнатыңыз.   Сонымен   қатар   төмендегі
кестеде көрсетілген қасиеттерді де кестедегідей етіп орнатыңыз:
 
Имя
Имя
компонен
компонен
та
та
Значения свойств
Значения свойств
DataFild
DataFild
Align
Align
Hint
Hint
DBImage1
Flag
alTop
ФЛАГ
DBImage2
Map
alTop
КАРТА
DBImage3
FOTO
alClient
ФОТОГРА
ФИЯ
5. Қалқып шығатын көмек беруші   тез қалқып шығуы үшін бастапқы
формадағы  OnCreate  өңдеушісінің   соңына   төменде   қалың   қаріппен
белгіленген процедураны жазыңыз:
procedure TfmMain.FormCreate(Sender: TObject);
var sbase:string;

begin
  sbase:=FindFileBD('BDMyWorld.mdb','MyWorld.INI',ConStr,dlgBD);
  if sbase<>'' then begin
   ADOQuery1.Active :=False;
   ADOQuery1.ConnectionString :=ConStr;
   ADOQuery1.Active :=True;
   NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;
   NewQuerySQL;
  end else Application.Terminate;
  Application.HintPause :=0;
end;
6. DBImage  компонентінің   формасының   өлшемін   өзгерткенкезде
әрқашан   бірдей   биіктікте   болуы   үшін,  OnResize  формасының     төменде
көрсетілген процедурасын жазыңыз:  
7. procedure TfmMain.FormResize(Sender: TObject);
begin
     DBImage1.Height:=paLeft.Height div 3;
     DBImage2.Height:=paLeft.Height div 3;   
end;
8. Жаңа   өріске   суретті   графикалық   файлдарды   ашу   жолы   арқылы
орналастырамыз,   сонымен   қатар   алмасу   буферінің   көмегі   арқылы   .   Әрбір
компонент үшін кнопка құру ыңғайсыз болғандықтан, керек командаларды
орындайтын қалқымалы меню құрамыз.
9.  Win32 бетінен ImageList компонентін формаға орналастырамыз 
және Name қасиетіне imClip мағынасын  таңдаймыз, ал Width және 
Height қасиеттеріне  16 деген мән беріңіз. Содан кейін осы объектке екі 
рет шертіп, пайда болған Add кнопкасын басу арқылы  
../STUDENT/Заготовки/Buttons  папкасынан табуға болатын керек 
суреттерді қосыңыз :
Төменде көрсетілгендей етіп 12 суретті ретімен орналастырыңыз:
Имя файла с картинкой
№ (индекс) в

наборе
penEnabled.bmp
0
OpenDisabled.bmp
1
PasteEnabled.bmp
2
PasteDisabled.bmp
3
CopyEnabled.bmp
4
CopyDisabled.bmp
5
CutEnabled.bmp
6
CutDisabled.bmp
7
SaveEnabled.bmp
8
SaveDisabled.bmp
9
ClearEnabled.bmp
10
ClearDisabled.bmp
11
10. Формаға  PopupMenu компонентін орналастырыңыз және    оның
Name қасиетіне  MenuClip мағынасын беріңіз. Кейін оған екі рет шертіп,
дизайнер менюінде төменде көрсетілген пункттерді формалап оған төмендегі
кестеде көрсетілген қасиеттерді беріңіз: 
N
ame
Caption
Imag
eIndex
Sho
rtCut
c
mOpen
Открыть
0
F3
c
mPaste
Вставить
2
Ctrl
+V
c
mCopy
Копировать
4
Ctrl
+C
c
mCut
Вырезать
6
Ctrl
+X
c
mSave
Сохранить 
как …
8
Shif
t+F2
c
mClear
Очистить
10
Ctrl
+Del
11. DBImage1,  DBImage2  және  DBImage3  компоненттерінің
PopupMenu қасиетіне MenuClip мағынасын беріңіз.