Apologies for asking something that might be answered by inspecting sources, this is just my 4th Lazarus project, so I am still pretty new to Object Pascal.
It's so fun to work with it I am not giving enough care to my C projects
...
Because I cannot get the normal cell editor control font color to change (something makes it white, which is the same color as the background and therefore the text is invisible), I am providing a custom TEdit through OnSelectEditor. Lots of stuff must be handled manually it seems, but here is what I have thus far just in case someone needs it:
procedure TMyStringGrid.onMyResize (Sender: TObject);
var
Grid: TStringGrid;
CR: TRect;
begin
Grid := Sender as TStringGrid;
if not Assigned(Grid.Editor) then Exit;
CR := Grid.CellRect(Grid.Col, Grid.Row);
//TEdit(Grid.Editor).BoundsRect := Grid.CellRect(Grid.Col, Grid.Row);
TEdit(Grid.Editor).BoundsRect := Rect(CR.Left, CR.Top+3, CR.Right, CR.Bottom+3);
end;
procedure TMyStringGrid.onMySelectEditor(Sender: TObject;
aCol: Integer;
aRow: Integer;
var Edit: TWinControl);
var
Grid: TStringGrid;
myEdit: TEdit;
CR: TRect;
begin
(* Get Grid *)
Grid := Sender as TStringGrid;
(* Create Editor *)
myEdit := TEdit.Create(Sender as TComponent);
myEdit.Hide;
CR := Grid.CellRect(aCol, aRow);
(* Configure Editor *)
myEdit.AutoSelect := false; // TCDEdit does not need this
myEdit.Parent := Sender as TWinControl;
myEdit.Text := Grid.Cells[aCol, aRow];
myEdit.Alignment := Grid.Columns.Items[aCol-1].Alignment;
(* Alignment *)
//myEdit.BoundsRect := CR
myEdit.BoundsRect := Rect(CR.Left, CR.Top+3, CR.Right, CR.Bottom+3);
(* Style *)
//myEdit.Brush.Color := clRed;
myEdit.Color := Grid.Columns[aCol-1].Color;
myEdit.Font.Color := clWhite;
myEdit.BorderStyle := bsNone;
myEdit.CaretPos := TPoint.Create(Length(myEdit.Text), 0);
(* Assign editor *)
Edit := myEdit;
myEdit.Show;
end;
The only problem I have is that the handler is signaled even with the goAlwaysShowEditor option not set.
If I don't attach a handler to this signal, the default edit appears after I focus and click/activate a particular cell, which is the expected behavior.
This means that some other wizardry is happening on the default edit control to behave like that, but I have no idea what.
Does it create some clickable canvas first?
What is the
correct easiest way to do that?
Recent
