here is the code for allyhighlighting as shown in the screenshot above. i completely messed up my delphi installation, so i cant add this to 46 at the moment, perhaps satirik can do.
is there any easy way to get all this external stuff installed to make lobby compile without errors? took me hours to get it working and only a few clicks to destroy it completely...
battleformunit.pas
v45
line 3034
Code: Select all
//allyhighlighting team 1
with Canvas do
begin
if s = '1' then begin
Brush.Color := clBlue;
FillRect(R);
Font.Color := clWhite;
Pen.Color := clWhite;
end;
Canvas.TextOut(R.Left + Pos, R.Top, s);
end;
//allyhighlighting team 2
with Canvas do
begin
if s = '2' then begin
Brush.Color := clRed;
FillRect(R);
Font.Color := clWhite;
Pen.Color := clWhite;
end;
Canvas.TextOut(R.Left + Pos, R.Top, s);
end;
//allyhighlighting team 3
with Canvas do
begin
if s = '3' then begin
Brush.Color := clGreen;
FillRect(R);
Font.Color := clWhite;
Pen.Color := clWhite;
end;
Canvas.TextOut(R.Left + Pos, R.Top, s);
end;
//allyhighlighting team 4
with Canvas do
begin
if s = '4' then begin
Brush.Color := clYellow;
FillRect(R);
Font.Color := clBlack;
Pen.Color := clWhite;
end;
Canvas.TextOut(R.Left + Pos, R.Top, s);
end;