mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Left/right control spacing

Browse source
This commit is contained in:
Alexander Koblov 2017-09-24 09:27:15 +00:00
commit 64a1fb91ee
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
components/KASToolBar/kascdedit.pas
View file

@ -31,6 +31,7 @@ type
TKASCDDrawer = class(TCDDrawerCommon)
public
function GetMeasures(AMeasureID: Integer): Integer; override;
procedure DrawEditBackground(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
procedure DrawEdit(ADest: TCanvas; ASize: TSize;
@ -51,6 +52,15 @@ end;
{ TKASCDDrawer }
function TKASCDDrawer.GetMeasures(AMeasureID: Integer): Integer;
begin
case AMeasureID of
TCDEDIT_LEFT_TEXT_SPACING: Result := 0;
TCDEDIT_RIGHT_TEXT_SPACING: Result := 0;
else Result:= inherited GetMeasures(AMeasureID);
end;
end;
procedure TKASCDDrawer.DrawEditBackground(ADest: TCanvas; ADestPos: TPoint;
ASize: TSize; AState: TCDControlState; AStateEx: TCDEditStateEx);
begin