Лидеры

Можно сделать маску, содержащую ту часть футболки, которую нужно закрашивать. А далее по маске попиксельно менять цвет.

function DistanceMeters(const Crd1,Crd2:TLocationCoord2D):Double; begin try result := (1609.344*3958.75 * arccos(sin(Crd1.Latitude/57.2958) * sin(Crd1.Latitude/57.2958) + cos(Crd1.Latitude/57.2958) * cos(Crd2.Latitude/57.2958) * cos(Crd2.Longitude/57.2958 - Crd1.Longitude/57.2958))); except result := 0; end; end;

Извините, уже сам разобрался. http://stackoverflow.com/questions/11433934/change-text-size-in-firemonkey-stringgrid

То же самое можно получить проще: uses System.Devices; TDeviceInfo.ThisDevice

DPI для Android uses FMX.Helpers.Android, Androidapi.JNI.Util; procedure TForm1.Button1Click(Sender: TObject); var Disp: JDisplayMetrics; NativeClientHeight, NativeClientWidth: Single; begin Disp := GetJDisplayMetrics; NativeClientWidth := ClientWidth * Disp.density; NativeClientHeight := ClientHeight * Disp.density; //Label1.Text := 'Width: ' + FloatToStr(NativeClientWidth); //Label2.Text := 'Height: ' + FloatToStr(NativeClientHeight); Label1.Text := FloatToStr( Disp.xdpi ); Label2.Text := FloatToStr( Disp.ydpi ); Label3.Text := IntToStr( Disp.densityDpi ); end; Для IOS облом, рассчитывай сам http://www.dpi.nu/, http://www.sven.de/dpi/, http://www.pxcalc.com/, http://www.pixelcalculator.com/ и т.п.