Fórum Erro em função para alinhar labelEdit a diretia: #441935

erro: [DCC Error] U_LIB.PAS(2279): E2003 Undeclared identifier: 'GetDeviceContext'


função:

function AlinhaEdit(Edt: TLabeledEdit): TLabeledEdit;
var
n: Integer;
c: TCanvas;
h: HWND;

begin

c := TCanvas.Create;
c.Handle := GetDeviceContext(h);
c.Font := Edt.Font;
n := round((Edt.Width - c.TextWidth(Edt.Text) - 8) / c.TextWidth( ' '));
Edt.Text := stringofchar(' ', n) + Edt.Text;
Result := Edt;

end;