Приложение "Сотовый телефон"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



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()<<