Приложение "Сотовый телефон"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
; fsBold;>Canvas->Font->Color = clGray;>Canvas->TextOutA (232 - Buf->Canvas->TextWidth (Отмена), 321, Отмена);
tm = Buf->Canvas->Font->Name;>Canvas->Font->Name = Arial;>Canvas->Font->Color = clGreen;
Buf->Canvas->Font->Size = 20;
Buf->Canvas->TextOutA (126 - Buf->Canvas->TextWidth(callNumber) / 2, 180, callNumber);>Canvas->Font->Name = tm;
tmp->TransparentColor = clBlack;
if (FileExists (ExtractFilePath(Application->ExeName)+\\pic\\call.bmp))>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\call.bmp);>Canvas->Draw (30 + (callPos% 7) * 30, 240, tmp);
callPos++;(callPos > 41)
{>Enabled = false;
state = MAINMENU;();
}
tmp;();
}
// -__fastcall TMainFm: TimerSendTimer (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);
Buf->Canvas->Draw (0, 0, tmp);
if (callPos < 10)
{>Canvas->Brush->Style = bsClear;>Canvas->Font->Size = 8;>Canvas->Font->Style = TFontStyles()Color = clGreen;
Buf->Canvas->Font->Size = 20;
Buf->Canvas->TextOutA (126 - Buf->Canvas->TextWidth (ОтправкатАж) / 2, 180, ОтправкатАж);>Canvas->Font->Name = tm;>TransparentColor = clBlack;(FileExists (ExtractFilePath(Application->ExeName)+\\pic\\send.bmp))
{>LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\send.bmp);>Canvas->Draw (30 + (callPos% 6) * 20, 240, tmp);
}
} else
{>Canvas->Brush->Style = bsClear;>Canvas->Font->Size = 8;>Canvas->Font->Style = TFontStyles()Name = tm;
}++;(callPos > 30)
{>Enabled = false;= MAINMENU;();
}
tmp;();
}
// -
void __fastcall TMainFm: TimerAlarmTimer (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;
Buf->Canvas->Font->Size = 8;
Buf->Canvas->Font->Style = TFontStyles()ExeName)+\\pic\\call.bmp))
{>TransparentColor = clBlack;
tmp->LoadFromFile (ExtractFilePath(Application->ExeName)+\\pic\\alarm_ + IntToStr (callPos% 4) +.bmp);>Canvas->Draw (Width / 2 - tmp->Width / 2, 180, tmp);
}++;(callPos > 80)
{>Enabled = false;= MAINMENU;
BuildImage();
}
tmp;
Repaint();
}
// -__fastcall TMainFm: TimerAlarm2Timer (TObject *Sender)
{(alarmEnabled &&! TimerAlarm->Enabled)
{t;(&t);(t.wHour == alarmTimeH && t.wMinute == alarmTimeM && t.wSecond < 5)
{= 0;>Enabled = true;
}
}
}
// -
.cpp
// -
#include
#pragma hdrstop
// -(UnitMainFm.cpp, MainFm);
// -WinMain (HINSTANCE, HINSTANCE, LPSTR, int)
{
{>Initialize();>Title = iPhone 3G;>CreateForm (__classid(TMainFm), &MainFm);>Run();
}(Exception &exception)
{>ShowException(&exception);
}(тАж)
{
{Exception();
}(Exception &exception)
{>ShowException(&exception);
}
}0;
}
// -