Перейти к содержанию
Fire Monkey от А до Я

Euvene

Пользователи
  • Постов

    12
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные Euvene

  1. Добрый день. Возникла такая проблема, нужно распечатать обычную таблицу, но при печати получается все очень мелкое, может кто подскажет как это исправить...

    вот код:

    TRectF SrcRect, DestRect;
    	int h = 40, w = 60, x0 = 50, y0 = 150, x, y;
    	TPrinter *Printer = Fmx::Printer::Printer();
    
    	Printer->ActivePrinter->SelectDPI(1200, 1200);
    
    	Printer->Canvas->Fill->Color = claBlack;
    	Printer->Canvas->Fill->Kind = TBrushKind(1);
    	Printer->Canvas->Stroke->Kind = TBrushKind::Solid;
    	Printer->Canvas->Stroke->Color = claBlack;
    
    	Printer->BeginDoc();
    	DestRect.SetHeight(h);
    	DestRect.SetWidth(w);
    
    	for (int i = 0; i < StringGrid1->RowCount; i++)
    	{
    		x = x0;
    		for (int j = 0; j < StringGrid1->ColumnCount; j++)
    		{
    			DestRect.SetLocation(x, y0);
    			Printer->Canvas->Font->Size = 14;
    			// Printer->Canvas->DrawRect(DestRect, 0, 0, AllCorners, 1);
    			// Printer->Canvas->Font->SetSettings(StringGrid1->TextSettings->Font->Family,StringGrid1->TextSettings->Font->Size,StringGrid1->TextSettings->Font->StyleExt);
    			Printer->Canvas->FillText(DestRect, StringGrid1->Cells[j][i], false,
    				100, TFillTextFlags(), TTextAlign::Center, TTextAlign::Center);
    			x += w;
    
    		}
    		y0 += h;
    
    	}
    
    	Printer->EndDoc();

     

  2. Добрый день, возникла такая проблемка: при добавлении в ListBoxItem компонента TEdit если поставить ему TControlType::Platform он вылазит за пределы ListBox но при Styled все норм, кто нибудь сталкивался и как с этим бороться?

    edit.png

    edit2.png

×
×
  • Создать...