Autor Téma: 2 x TImage - každý sa správa ináč  (Přečteno 591 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4574
  • Karma: 40
    • Verze Delphi: XE7 professional
2 x TImage - každý sa správa ináč
« kdy: 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.  
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4574
  • Karma: 40
    • Verze Delphi: XE7 professional
Re:2 x TImage - každý sa správa ináč
« Odpověď #1 kdy: 03-02-2019, 12:45:03 »
Pomohlo ak som nastavil Transparent := False
Snáď to už zvládnem.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline < z >

  • Administrátoři
  • Guru
  • *****
  • Příspěvků: 1134
  • Karma: 42
    • Verze Delphi: 7, 2010
Re:2 x TImage - každý sa správa ináč
« Odpověď #2 kdy: 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ží?

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4574
  • Karma: 40
    • Verze Delphi: XE7 professional
Re:2 x TImage - každý sa správa ináč
« Odpověď #3 kdy: 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.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2399
  • Karma: 103
    • Verze Delphi: D5,D2007, DXE, DXE2 + 2 poslední (Tokyo)
    • O Delphi v češtině
Re:2 x TImage - každý sa správa ináč
« Odpověď #4 kdy: 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)
Embarcadero MVP - Czech republic