opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #945: give id column in table editor slightly more width to let the text fit in

Browse Source
This commit is contained in:
Ansgar Becker
2022-04-22 10:10:11 +02:00
parent 0c3b6f9deb
commit e48fcf2d0c
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/table_editor.pas
View File

@ -1109,18 +1109,19 @@ end;
procedure TfrmTableEditor.CalcMinColWidth;
var
i, j, MinWidthThisCol, MinWidthAllCols: Integer;
i, MinWidthThisCol, MinWidthAllCols: Integer;
ImageIndexes: TList<Integer>;
begin
// Find maximum width for first column so the index icons have enough room after auto-fitting
// Find maximum width for first column so both the index icons and the text have enough room
MinWidthAllCols := 0;
for i:=0 to FColumns.Count-1 do begin
ImageIndexes := GetKeyImageIndexes(FColumns[i]);
MinWidthThisCol := ImageIndexes.Count * listColumns.Images.Width;
MinWidthAllCols := Max(MinWidthAllCols, MinWidthThisCol);
end;
// Add space for number
Inc(MinWidthAllCols, listColumns.Canvas.TextWidth(IntToStr(FColumns.Count+1)) + listColumns.TextMargin*4);
// Add room for text and extra spacing
Inc(MinWidthAllCols, listColumns.GetMaxColumnWidth(0));
Inc(MinWidthAllCols, listColumns.TextMargin);
listColumns.Header.Columns[0].Width := MinWidthAllCols;
end;
@ -1141,7 +1142,6 @@ begin
// Paint one icon per index type of which this column is part of
if Column = 0 then begin
ImageIndexes := TList<Integer>.Create;
X := 0;
ImageIndexes := GetKeyImageIndexes(Col^);
for i in ImageIndexes do begin