pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbColorLib: Apply standard code formatting

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5503 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-15 11:27:12 +00:00
parent 72c76eb6d6
commit 2c43f4222c
19 changed files with 2429 additions and 2463 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
components/mbColorLib/SelPropUtils.pas
View File

@@ -23,58 +23,58 @@ implementation
procedure DrawSelCross(x, y: integer; Canvas: TCanvas; Color: TColor);
const
w = 5;
h = 3;
o = 8;
w = 5;
h = 3;
o = 8;
var
R: TRect;
R: TRect;
begin
R := Rect(x-10, y-10, x+9, y+9);
Canvas.Brush.Color := Color;
Canvas.FillRect(Rect(R.Left, R.Top + o, R.Left + w, R.Top + o + h));
Canvas.FillRect(Rect(R.Left + o, R.Top, R.Left + o + h, R.Top + w));
Canvas.FillRect(Rect(R.Right - w, R.Top + o, R.Right, R.Top + o + h));
Canvas.FillRect(Rect(R.Left + o, R.Bottom - w, R.Left + o + h, R.Bottom));
R := Rect(x-10, y-10, x+9, y+9);
Canvas.Brush.Color := Color;
Canvas.FillRect(Rect(R.Left, R.Top + o, R.Left + w, R.Top + o + h));
Canvas.FillRect(Rect(R.Left + o, R.Top, R.Left + o + h, R.Top + w));
Canvas.FillRect(Rect(R.Right - w, R.Top + o, R.Right, R.Top + o + h));
Canvas.FillRect(Rect(R.Left + o, R.Bottom - w, R.Left + o + h, R.Bottom));
end;
procedure DrawSelCrossCirc(x, y: integer; Canvas: TCanvas; Color: TColor);
var
R: TRect;
R: TRect;
begin
R := Rect(x - 6, y - 6, x + 6, y + 6);
ExcludeClipRect(Canvas.Handle, x - 6, y - 1, x + 6, y + 1);
ExcludeClipRect(Canvas.Handle, x - 1, y - 6, x + 1, y + 6);
Canvas.Pen.Color := Color;
Canvas.Brush.Style := bsClear;
InflateRect(R, -1, -1);
Canvas.Ellipse(R);
InflateRect(R, -1, -1);
Canvas.Ellipse(R);
Canvas.Brush.Style := bsSolid;
R := Rect(x - 6, y - 6, x + 6, y + 6);
ExcludeClipRect(Canvas.Handle, x - 6, y - 1, x + 6, y + 1);
ExcludeClipRect(Canvas.Handle, x - 1, y - 6, x + 1, y + 6);
Canvas.Pen.Color := Color;
Canvas.Brush.Style := bsClear;
InflateRect(R, -1, -1);
Canvas.Ellipse(R);
InflateRect(R, -1, -1);
Canvas.Ellipse(R);
Canvas.Brush.Style := bsSolid;
end;
procedure DrawSelCirc(x, y: integer; Canvas: TCanvas);
var
R: TRect;
R: TRect;
begin
R := Rect(x - 5, y - 5, x + 5, y + 5);
Canvas.Brush.Style := bsClear;
Canvas.Pen.Mode := pmNot;
Canvas.Ellipse(R);
Canvas.Pen.Mode := pmCopy;
Canvas.Brush.Style := bsSolid;
R := Rect(x - 5, y - 5, x + 5, y + 5);
Canvas.Brush.Style := bsClear;
Canvas.Pen.Mode := pmNot;
Canvas.Ellipse(R);
Canvas.Pen.Mode := pmCopy;
Canvas.Brush.Style := bsSolid;
end;
procedure DrawSelSquare(x, y: integer; Canvas: TCanvas);
var
R: TRect;
R: TRect;
begin
R := Rect(x - 5, y - 5, x + 5, y + 5);
Canvas.Brush.Style := bsClear;
Canvas.Pen.Mode := pmNot;
Canvas.Rectangle(R);
Canvas.Pen.Mode := pmCopy;
Canvas.Brush.Style := bsSolid;
R := Rect(x - 5, y - 5, x + 5, y + 5);
Canvas.Brush.Style := bsClear;
Canvas.Pen.Mode := pmNot;
Canvas.Rectangle(R);
Canvas.Pen.Mode := pmCopy;
Canvas.Brush.Style := bsSolid;
end;
end.