Axbor

void __fastcall TContentViewForm::WebBrowser1ShouldStartLoadWithRequest(TObject *ASender, const UnicodeString URL) { OpenURL(URL); WebBrowser1->Stop(); } //--------------------------------------------------------------------------- если на странице нет картинок, то этот вариант работает...

Я предлагаю создать свой собственный класс для таких целей. Обработаем свойство Resize и всё, никаких проблем не будет. http://fire-monkey.ru/topic/2280-sobstvennyi-tlistboxitem-na-c/ тут я описал как создать собственный класс для ListBoxItem там же есть ссылка и для Delphi. Ниже приведен класс который я создал, только на C++. Посмотрите там обработчик события ApplyStyleLookup() и Resize(). И еще предлагаю вместо TLabel использовать TText.
Если всё таки хотите своим путём тогда вычислите высоты с помощью TTextLayout, это делается так:
var L : TTextLayout; begin L := TTextLayoutManager.DefaultTextLayout.Create; L.BeginUpdate; L.Text := FtextType.Text; {Вместо FTextType будет ваш Label} L.MaxSize := TPointF(FtextType.Width, 1000); L.Font := FTextType.Font; {} L.WordWrap := FTextType.WordWrap; L.HorizontalAlign := FTextType.HorzTextAlign; L.VerticalAlign := FTextType.VertTextAlign; L.EndUpdate; height := L.Height; end; Я не силён в Delphi, но думаю вы поймете.
ListBoxItem.zip

Проблема решилась обновлением libmysql.dll
libmysql.zip

for(int i = 0; i < ListView1->Items->Count; i ++) { Memo1->Lines->Add(ListView1->Items->AppearanceItem[i]->Text); }

Вы посмотрите там сам APK файл сколько весит? Одинаково?! Скорее всего подсчет у всех устройствах по разному.

Сами задаем сами отвечаем.
Изменения высоты
Latifa1Layout->Height = Latifa1Caption->Height + Latifa1Text->Height + 20; сделал в Label(OnResize) и всё. Ошибка исчез.

void __fastcall TForm3::Rectangle1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseMove(TObject *Sender, TShiftState Shift, float X, float Y) { if(!isdown) return; 1) float dx = (Screen->MousePos().X - oldx); 2) float dy = (Screen->MousePos().Y - oldy); 3) if(dx > 5) 4) dx = 5; 5) if(dx < -5) 6) dx = -5; 7) if(dy > 5) 8) dy = 5; 9) if(dy < -5) 10) dy = -5; Rectangle1->Position->X = Rectangle1->Position->X + dx; Rectangle1->Position->Y = Rectangle1->Position->Y + dy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = false; } //--------------------------------------------------------------------------- Добавил отмеченные строки, прекрасно работает.

Сами задаем вопрос и сами отвечаем!
событие OnMouseDown() { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseMove() { if(!isdown) return; Object->Position->X = Object->Position->X + Screen->MousePos().X - oldx; Object->Position->Y = Object->Position->Y + Screen->MousePos().Y - oldy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseUp() { isdown = false; }

Извиняюсь, не посмотрел форум! нужно было всего лишь Screen->MousePos() использовать!

Bitmap->Width, Bitmap->Height, оригинальные размеры загруженного изображения. Размер компоненты изменяю так:
    double koefW = 200.0/(double)Bitmap->Width;     double koefH = 200.0/(double)Bitmap->Height;     double koefC = (koefW < koefH?koefW:koefH); Image->Width = Bitmap->Width * koefC; Image->Height = Bitmap->Height * koefC;