Приложение "Сотовый телефон"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
gt;TextOutA (232 - Buf->Canvas->TextWidth (Назад), 321, Назад);
tmp;= CALENDAR;
}
// -__fastcall TMainFm:clkPictures()
{>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 (Назад), 321, Назад);
delete tmp;= PICTURES;
}
// -__fastcall TMainFm:clkAlarm()
{>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 (Назад), 321, Назад);
(newAlarmEnabled)
{>Canvas->TextOutA (126 - Buf->Canvas->TextWidth(alarmTime) / 2, 150, alarmTime);>Canvas->TextOutA (126 - Buf->Canvas->TextWidth (Вкл.) / 2, 132, Вкл.);(FileExists (ExtractFilePath(Application->ExeName)+\\pic\\digits.bmp))>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\digits.bmp);>Canvas->Draw (0, 260, tmp);
}Buf->Canvas->TextOutA (126 - Buf->Canvas->TextWidth (Выкл.) / 2, 132, Выкл.);
tmp;= ALARM;
}
// -__fastcall TMainFm:clkCalc()
{>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 (Назад), 321, Назад);
tmp;= CALC;
}
// -__fastcall TMainFm:clkNodes()
{>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 (Назад), 321, Назад);
tmp;= NODES;
}
// -контакты-__fastcall TMainFm:clkMap()
{
>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, Назад);
tmp;= MAP;
}
// -__fastcall TMainFm:clkSettings()
{>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()TextOutA (50, 180, Мелодия и вибро);
if (newRezhim == 0)
{>Canvas->Brush->Style = bsClear;>Canvas->Brush->Color = TColor(0x555555);>Canvas->Font->Color = clWhite;>Canvas->TextOutA (50, 140, Мелодия);
}(newRezhim == 1)
{>Canvas->Brush->Style = bsClear;>Canvas->Brush->Color = TColor(0x555555);>Canvas->Font->Color = clWhite;>Canvas->TextOutA (50, 160, Вибро);
}(newRezhim == 2)
{>Canvas->Brush->Style = bsClear;>Canvas->Brush->Color = TColor(0x555555);>Canvas->Font->Color = clWhite;>Canvas->TextOutA (50, 180, Мелодия и вибро);
}
tmp;= SETTINGS;
}
// -__fastcall TMainFm:clkCall()
{>Canvas->Brush->Color = clWhite;>Canvas->FillRect (TRect(0, 0, Buf->Width, Buf->Height));
Graphics: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);
delete tmp;= CALL;
}
// -__fastcall TMainFm: TimerCallTimer (TObject *Sender)
{>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()<<