Приложение "Сотовый телефон"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
321 && Y < 357)
{ // Кнопка Отправить
callNumber = ;();
} else clkSMS();
} // if (state == 1) SMS -
(state == 9)
{ //SMSNUM Набор номера SMS(X > 25 && X 0)
{ // Кнопка Отправить>Enabled = true;= 0;
}(X > 96 && X 0)
{ // Кнопка Стереть. Delete (callNumber. Length(), 1);();
}(X > 26 && X 260 && Y < 305 && callNumber. Length() < 11)
{ // Ввод цифр 1 2 3 4 5 6 7 8 9 0n = 0;(X > 26 && X 191 && X < 211) n = 9;+= IntToStr(n);();
} // Ввод цифр 1 2 3 4 5 6 7 8 9 0
} //if (state == 9) SMSNUM Набор номера SMS -
(state == 6)
{ // Будильник(X > 25 && X 321 && Y < 337)
{ // Кнопка OK= StrToInt (alarmTime. SubString (1, 2));= StrToInt (alarmTime. SubString (4, 2));= newAlarmEnabled;= MAINMENU;();
}(X > 106 && X 132 && Y < 148)
{ // Выкл-вкл= 1;=! newAlarmEnabled;();
}(X > 26 && X 260 && Y < 305 && newAlarmEnabled)
{ // Ввод цифр 1 2 3 4 5 6 7 8 9 0n = 0;(X > 26 && X 191 && X < 211) n = 9;(alarmNInput == 5)
{[alarmNInput] = char (n + 48);++;
}(alarmNInput == 4 && n < 6)
{[alarmNInput] = char (n + 48);++;
}(alarmNInput == 2)
{(StrToInt (alarmTime[1]) == 2)
{(n < 4)
{[alarmNInput] = char (n + 48);++;
}
} else
{[alarmNInput] = char (n + 48);++;
}
}(alarmNInput == 1 && n < 3)
{[alarmNInput] = char (n + 48);++;
}
(alarmNInput == 3) alarmNInput++;(alarmNInput > 5) alarmNInput = 1;();
} // Ввод цифр 1 2 3 4 5 6 7 8 9 0
} //if (state == 6) Будильник -
(state == 199)
{ // Настройки
// Мелодия(X > 50 && X 140 && Y < 155) newRezhim = 0;
// Вибро(X > 50 && X 160 && Y < 175) newRezhim = 1;
// Мелодия и вибро(X > 50 && X 321 && Y < 337)
{ // Кнопка OK= newRezhim;= MAINMENU;();
} else clkSettings();
} //if (state == 199) Настройки -
if (state == 8)
{ // Вызов((X > 25 && X 0)
{ // Кнопка Вызов>Enabled = true;= 0;
}(X > 96 && X 0)
{ // Кнопка Стереть. Delete (callNumber. Length(), 1);();
}(X > 26 && X 260 && Y < 305 && callNumber. Length() < 11)
{ // Ввод цифр 1 2 3 4 5 6 7 8 9 0n = 0;(X > 26 && X 191 && X < 211) n = 9;+= IntToStr(n);();
} // Ввод цифр 1 2 3 4 5 6 7 8 9 0
} //if (state == 8) Вызов -
(state == 0)
{ // Главное меню(X > 38 && X 103 && Y < 137)
{ // Выбран пункт СМС= ;();
}(X > 86 && X 103 && Y < 137) clkPictures();
if (X > 185 && X 103 && Y < 137)
{ // Выбран будильник - Открыть установки будильника
alarmTime = IntToStr(alarmTimeH);(alarmTimeH < 10) alarmTime. Insert (0, 1);+=: + IntToStr(alarmTimeM);(alarmTimeM < 10) alarmTime. Insert (0, 4);= alarmEnabled;= 1;();
}(X > 38 && X 161 && Y < 197)
{= rezhim;();
}(X > 38 && X 345 && Y < 381)
{= ;();
}
} //if (state == 0) Главное меню -();
}
// -__fastcall TMainFm:clkSMS()
{>Canvas->Brush->Color = clWhite;>Canvas->FillRect (TRect(0, 0, Buf->Width, Buf->Height));
:TBitmap *tmp = new Graphics:TBitmap;>Transparent = true;>TransparentColor = clWhite;(FileExists (ExtractFilePath(Application->ExeName)+\\pic\\iPhone_bg.bmp))>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\iPhone_bg.bmp);>Canvas->Draw (0, 0, tmp);>TransparentColor = clBlack;(FileExists (ExtractFilePath(Application->ExeName)+\\pic\\key.bmp))>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\key.bmp);>Canvas->Draw (0, 200, tmp);
>Canvas->Brush->Color = TColor(0xaaaaaa);>Canvas->FillRect (TRect(26, 95, 238, 170));>Canvas->Brush->Style = bsClear;>Canvas->Font->Size = 8;>Canvas->Font->Style = TFontStyles() 0)
{out = ;(Buf->Canvas->TextWidth(out) TextWidth (W))
{(tempS. Length() < 1) break;+= tempS[1];. Delete (1, 1);
}>Canvas->TextOutA (26, 95 + n, out);+= Buf->Canvas->TextHeight() + 2;(n + 95 > 160) break;
}
>Canvas->Brush->Style = bsClear;>Canvas->Font->Size = 8;>Canvas->Font->Style = TFontStyles()TextWidth (Назад), 321, Назад);
delete tmp;= SMS;
}
// -__fastcall TMainFm:clkSMSNUM()
{>Canvas->Brush->Color = clWhite;>Canvas->FillRect (TRect(0, 0, Buf->Width, Buf->Height));
:TBitmap *tmp = new Graphics:TBitmap;>Transparent = true;>TransparentColor = clWhite;(FileExists (ExtractFilePath(Application->ExeName)+\\pic\\iPhone_bg.bmp))>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\iPhone_bg.bmp);>Canvas->Draw (0, 0, tmp);
>Canvas->Brush->Style = bsClear;>Canvas->Font->Size = 8;>Canvas->Font->Style = TFontStyles()TextWidth (Стереть) / 2, 321, Стереть);
tm = Buf->Canvas->Font->Name;>Canvas->Font->Name = Arial;>Canvas->Font->Color = clGreen;>Canvas->Font->Size = 20;>Canvas->TextOutA (40, 180, callNumber);>Canvas->Font->Name = tm;(FileExists (ExtractFilePath(Application->ExeName)+\\pic\\digits.bmp))>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\digits.bmp);>Canvas->Draw (0, 260, tmp);
tmp;= SMSNUM;
}
// -__fastcall TMainFm:clkCalendar()
{>Canvas->Brush->Color = clWhite;>Canvas->FillRect (TRect(0, 0, Buf->Width, Buf->Height));
:TBitmap *tmp = new Graphics:TBitmap;>Transparent = true;>TransparentColor = clWhite;(FileExists (ExtractFilePath(Application->ExeName)+\\pic\\iPhone_bg.bmp))>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\iPhone_bg.bmp);>Canvas->Draw (0, 0, tmp);
>Canvas->Brush->Style = bsClear;>Canvas->Font->Size = 8;>Canvas->Font->Style = TFontStyles()Canvas-&