一种设置文字边框的方法。
Canvas.Font.Size := 20;
Canvas.Font.Color := Color2;
Canvas.Brush.Style := bsClear;
Canvas.TextOut( 50,49, '这是一个测试' );
Canvas.TextOut( 50,51, '这是一个测试' );
Canvas.TextOut( 49,50, '这是一个测试' );
Canvas.TextOut( 51,50, '这是一个测试' );
Canvas.Font.Color := Color1;
Canvas.TextOut( 50,50, '这是一个测试' );