Hallo,
ich würde die Darstellung von der Abbildungsfunktion trennen wollen:
Delphi-Quellcode:
function MapWordToFloat(x, xRange: Word; yRange: Extended;
negative: Boolean = False): Extended;
begin
if not negative then
x := xRange - x;
Result := x * yRange / xRange;
end;
// -----
procedure TForm2.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
with Sender as TPaintBox do
Label7.Caption := Format('%.1f °C', [MapWordToFloat(Y, Height, 50, True)]));
end;
Freundliche Grüße