设计器

优化继承和配色
2022-11-18 11:10:05 +08:00
parent 888ec1c7d9
commit c1a3ad1423
4 changed files with 42 additions and 16 deletions
@@ -788,11 +788,11 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
            it := flines[i];
            if it and it.FMarked then
            begin
-                dc.brush.Color := 0xFF00FF;
+                dc.brush.Color := 0x12a4f6;//0xFF00FF;
                tr := r;
                tr[0]+= 1;
-                tr[1]+= 1;
-                tr[3]-= 1;
+                tr[1]+= 2;
+                tr[3]-= 4;
                dc.FillRect(tr);
            end
            if i=Fecruningto then
@@ -4148,7 +4148,6 @@ function CreateATslMemoUndoItem(AReason,AStart,AEnd,ChangeText,SelMode);
 begin
    return new TTslMemoUndoItem(AReason,AStart,AEnd,ChangeText,SelMode);
 end
-
 InitialIzation
 end.