Отправлено Bill 20 июля 2004 г. 09:07 В ответ на: На код хотелось бы взглянуть, но если это то мелькание, о котором я думаю то (+) отправлено DASM 19 июля 2004 г. 22:46

void __fastcall TForm1::FormPaint(TObject *Sender)
	{
	int	x, y;
        HDC	_hdl = _canvas->Handle;
        HGDIOBJ	_pen;
	TPenMode	_mode;
//	char	_str[128];
//	_canvas->Pen->Color	= clWhite;		// Draw the PaintBox frame
//	_canvas->Pen->Width	= 3;			//
//	_canvas->Polygon(_points, 3);			//
//	_canvas->Pen->Width	= 1;			//
	SelectObject(_hdl, _penR);		// Set red pen
	SelectObject(_hdl, _brushR);		// and brush
//	_canvas->Polygon(GraphData1, NPoints+1);
	Polygon(_hdl, GraphData1, NPoints+2);
	SelectObject(_hdl, _penG);		// Set green pen
	SelectObject(_hdl, _brushG);		// and brush
	Polygon(_hdl, GraphData2, NPoints+2);
//
//		Draw the grid
//
	_canvas->Brush->Color	= clSilver;
	for (x = START_X; x <= END_X; x += GRID_SIZE)	// Draw the vertical lines
		{					//
		SelectObject(_hdl, !((x-START_X)%(GRID_SIZE*2))?
                		_penW :_penWD);		// Set white pen
		MoveToEx(_hdl, x, START_Y, 0);		//
		LineTo(_hdl, x, END_Y);		//
		}					//
	for (y = START_Y; y <= END_Y; y += GRID_SIZE)	// Draw the horozontal lines
		{					//
//		_canvas->MoveTo(START_X, y);		//
//		_canvas->LineTo( END_X, y);		//
		MoveToEx(_hdl, START_X, y, 0);		//
		LineTo(_hdl, END_X, y);		//
		}					//
//
//		Draw the axes
//
	SelectObject(_hdl, _penB);		// Set black pen
	MoveToEx(_hdl, T1_AXIS, START_Y, 0);	// Draw the T-axis
	LineTo(_hdl, T1_AXIS, END_Y);		//
	MoveToEx(_hdl, T2_AXIS, START_Y, 0);	//
	LineTo(_hdl, T2_AXIS, END_Y);		//
	MoveToEx(_hdl, T3_AXIS, START_Y, 0);	//
	LineTo(_hdl, T3_AXIS, END_Y);		//
	MoveToEx(_hdl, START_X, START_Y, 0);	// Draw the X-axis
	LineTo(_hdl, END_X, START_Y);		//
	if (Timer1->Enabled && 		// Draw the cursor position
		(CursorX>=START_X&&CursorX<=END_X) &&
		(CursorY>=START_Y&&CursorY<=END_Y))
		{
		_mode = _canvas->Pen->Mode;
		_canvas->Pen->Mode = pmNotXor;
		_canvas->Pen->Style = psDot;
		_canvas->Pen->Color = clBlue;
		_canvas->MoveTo(START_X, CursorY);
		_canvas->LineTo(END_X, CursorY);
		_canvas->MoveTo(CursorX, START_Y);
		_canvas->LineTo(CursorX, END_Y);
		_canvas->Pen->Mode = _mode;
		}
	}

• а когда мерцает ? при выводе или изменении размера окна — DASM   (20.07.2004 09:17, пустое)
  • При выводе. Размеры окна фиксированы. Опять же, мерцает при перерисовке (период 0.5с) — Bill   (20.07.2004 09:40, 311 байт)
    • попробуй у окна OnEraseBkg обработать. А что инициирует WM_PAINT ? шлешь Invalidate ? С параметром false ? — DASM   (20.07.2004 09:46, пустое)
      • Я в обработчике события от таймера вызываю Invalidate(), правда без параметра. — Bill   (20.07.2004 10:01, 67 байт)
        • без параметра будет по умолчанию true то есть со стиранием бекграунда. Пиши Invalidate (false); — DASM   (20.07.2004 10:06, пустое)
          • Many thanks! Век живи - век учись! Все равно неученым помрешь :( — Bill   (20.07.2004 10:16, пустое)
• Прошу прощения, не все закомментированные строки убрал. К тому же, при — Bill   (20.07.2004 09:13, 157 байт)