- 78 名前：デフォルトの名無しさん mailto:sage [2007/02/04(日) 10:20:49 ]
- >75
もうやっちゃったかもしれないけど、>76をBCBに書き直したソース
void __fastcall TfrmMain::pbxDrawMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if ( GetKeyState(VK_LBUTTON) < 0 ){
pbxDraw->Canvas->Pen->Mode = pmCopy;
pbxDraw->Canvas->Pen->Width = 5;
pbxDraw->Canvas->Pen->Color = clBlack;
pbxDraw->Canvas->MoveTo(preX, preY);
pbxDraw->Canvas->LineTo(X, Y);
bmpBuf->Canvas->Pen->Mode = pmCopy;
bmpBuf->Canvas->Pen->Width = 5;
bmpBuf->Canvas->Pen->Color = clBlack;
bmpBuf->Canvas->MoveTo(preX, preY);
bmpBuf->Canvas->LineTo(X, Y);
}
preX = X; preY = Y;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
bmpBuf = NULL;
bmpBuf = new Graphics::TBitmap;
bmpBuf->PixelFormat = pf32bit;
bmpBuf->SetSize(640,480);
preX = -1; preY = -1;
}
|
 |
