Forum Delphi.cz

Delphi => Obecné => Téma založeno: Stanislav Hruška 03-02-2019, 11:49:38

Název: 2 x TImage - každý sa správa ináč
Přispěvatel: Stanislav Hruška 03-02-2019, 11:49:38

Majú iné farby a podfarbenie textu.Hlava mi to neberie. Mám na formulári dva TImage. Vykresľujem na ne text a čiary = tabuľky.
Farbu (+ iné veci) nastavujem vo funkcii DoCenterText. Je jedna jediná a pri oboch TImage používam totožný postup.
TImage sú v riadkoch. V prvom stĺpci je stav Disable a v druhom Enable.
Pri dobrom postavení hviezd (voľba farieb) je obrázok vpravo dole bez podfarbenia textu. To ty som chcel všade.
Nefunguje mi ani kód, ktorý je OK v starej verzii. Používam TMS zásadne komponenty TMS + ich motívy.
Kód: Delphi [Vybrat]
  1.  
  2. procedure TDepictHelpingTables.DoCenterText(AImage: TImage; FRect: TRect; FTexts: array of string;
  3.   isEnable: Boolean; TextParameters: TTextParameters);
  4. begin
  5.   TheTSize := AImage.Canvas.TextExtent('X');
  6.   dy := ((FRect.Bottom - FRect.Top) - TheTSize.cy * (High(FTexts)+1)) div 2;
  7.   AImage.Canvas.Brush.Color := clBtnFace;
  8.   if  isEnable then
  9.   begin
  10.     AImage.Canvas.Font.Color := clBlack;
  11.   end
  12.   else
  13.   begin
  14.     AImage.Canvas.Font.Color := frmFormMain.sbfFiSe.advedtFiSeName.DisabledTextColor;
  15.   end;
  16.   for i:= Low(FTexts) to High(FTexts) do
  17.   begin
  18. //  Len nastavovanie rozmerov
  19.     if  isEnable then
  20.     begin
  21.       AImage.Canvas.Font.Color := clBlack;
  22.       AImage.Canvas.Brush.Color := clBtnFace;
  23.     end
  24.     else
  25.     begin
  26.       AImage.Canvas.Font.Color := frmFormMain.sbfFiSe.advedtFiSeName.DisabledTextColor;
  27.       AImage.Canvas.Brush.Color := frmFormMain.jstpnlTblBuildingBasic.Color;
  28.     end;
  29.     AImage.Canvas.TextOut(x, y, FTexts[i]);
  30.   end;
  31.   AImage.Canvas.Brush.Color := AImage.Canvas.Font.Color;
  32.   AImage.Canvas.FrameRect(FRect);
  33. end;
  34.  
Název: Re:2 x TImage - každý sa správa ináč
Přispěvatel: Stanislav Hruška 03-02-2019, 12:45:03
Pomohlo ak som nastavil Transparent := False
Snáď to už zvládnem.
Název: Re:2 x TImage - každý sa správa ináč
Přispěvatel: < z > 04-02-2019, 18:24:10
Nebylo by lepší počkat se zakládáním příspěvků např. 1 den, než se to uleží?
Název: Re:2 x TImage - každý sa správa ináč
Přispěvatel: Stanislav Hruška 04-02-2019, 20:42:15
Bolo. Len ja neviem kedy sa mi to uleží :) Riešil som to už nejaký čas. Asi 2-3 dni.
Název: Re:2 x TImage - každý sa správa ináč
Přispěvatel: Radek Červinka 04-02-2019, 22:40:12
Nebylo by lepší počkat se zakládáním příspěvků např. 1 den, než se to uleží?

+100

ano prosím, zkus se nad tím zamyslet (nad poznámkou, i nad problémy)