Closed hustbeef closed 10 months ago
It is strange now when running CanvasDraw.frm. It must set .DrawColor = clBlueViolet , Even set .Pen.Color = clRed. it is not ok, or the background will disappear. However, it is not working when switching to using GDI Plus.
Private Sub Form1Type.cmdGDIDraw_Click(ByRef Sender As Control) cmdSelection = 1 bUpdatePaint = True With PictureBK.Canvas .UsingGdip = chkGDIPlus.Checked .Scale(-100, 100, 100, -100) .BackColor = PictureBK.BackColor .DrawColor = clBlueViolet '.Pen.Mode = PenMode.pmNotXor '.Pen.Color = clRed '.Font.Size= 14
It is strange now when running CanvasDraw.frm. It must set .DrawColor = clBlueViolet , Even set .Pen.Color = clRed. it is not ok, or the background will disappear. However, it is not working when switching to using GDI Plus.
Private Sub Form1Type.cmdGDIDraw_Click(ByRef Sender As Control) cmdSelection = 1 bUpdatePaint = True With PictureBK.Canvas .UsingGdip = chkGDIPlus.Checked .Scale(-100, 100, 100, -100) .BackColor = PictureBK.BackColor .DrawColor = clBlueViolet '.Pen.Mode = PenMode.pmNotXor '.Pen.Color = clRed '.Font.Size= 14