Changeset 352 for trunk/LocalPlayer


Ignore:
Timestamp:
Apr 6, 2021, 10:16:55 PM (4 years ago)
Author:
chronos
Message:
  • Modified: TTexture changed from record to class.
  • Modified: Code cleanup.
Location:
trunk/LocalPlayer
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/Battle.pas

    r350 r352  
    243243  end;
    244244  Frame(Canvas, Border + 1, Border + 1, ClientWidth - (2 + Border),
    245     ClientHeight - (2 + Border), MainTexture.clBevelLight,
    246     MainTexture.clBevelShade);
     245    ClientHeight - (2 + Border), MainTexture.ColorBevelLight,
     246    MainTexture.ColorBevelShade);
    247247  Frame(Canvas, 2 + Border, 2 + Border, ClientWidth - (3 + Border),
    248     ClientHeight - (3 + Border), MainTexture.clBevelLight,
    249     MainTexture.clBevelShade);
     248    ClientHeight - (3 + Border), MainTexture.ColorBevelLight,
     249    MainTexture.ColorBevelShade);
    250250
    251251  if IsSuicideQuery then

  • trunk/LocalPlayer/CityScreen.pas

    r350 r352  
    8282    ProdHint: Boolean;
    8383    AllowChange: Boolean;
     84    RedTex: TTexture;
     85    BarTex: TTexture;
    8486    procedure InitSmallCityMap;
    8587    procedure InitZoomCityMap;
    … …  
    197199begin
    198200  inherited;
     201  RedTex := TTexture.Create;
     202  BarTex := TTexture.Create;
    199203  AreaMap := TIsoMap.Create;
    200204  AreaMap.SetOutput(offscreen);
    … …  
    259263  FreeAndNil(Template);
    260264  FreeAndNil(Back);
     265  FreeAndNil(RedTex);
     266  FreeAndNil(BarTex);
    261267end;
    262268
    … …  
    269275procedure TCityDlg.CheckAge;
    270276begin
    271   if MainTextureAge <> AgePrepared then
    272   begin
    273     AgePrepared := MainTextureAge;
     277  if MainTexture.Age <> AgePrepared then begin
     278    AgePrepared := MainTexture.Age;
    274279
    275280    UnshareBitmap(Back);
    … …  
    388393  procedure FillBar(x, y, pos, Growth, max, Kind: integer;
    389394    IndicateComplete: boolean);
    390   var
    391     Tex: TTexture;
    392   begin
    393     Tex := MainTexture;
    394     if Kind = 3 then
    395     begin
    396       Tex.clBevelLight := HGrSystem.Data.Canvas.Pixels[104, 36];
    397       Tex.clBevelShade := Tex.clBevelLight;
     395  begin
     396    BarTex.Assign(MainTexture);
     397    if Kind = 3 then begin
     398      BarTex.ColorBevelLight := HGrSystem.Data.Canvas.Pixels[104, 36];
     399      BarTex.ColorBevelShade := BarTex.ColorBevelLight;
    398400    end;
    399401    PaintRelativeProgressBar(offscreen.Canvas, Kind, x - 3, y, wBar - 4, pos,
    400       Growth, max, IndicateComplete, Tex);
     402      Growth, max, IndicateComplete, BarTex);
    401403  end;
    402404
    … …  
    492494  UnitInfo: TUnitInfo;
    493495  UnitReport: TUnitReport;
    494   RedTex: TTexture;
    495496  IsCityAlive, CanGrow: boolean;
    496497begin
    … …  
    524525    Report.Working := c.Size;
    525526
    526   RedTex := MainTexture;
    527   RedTex.clBevelLight := $0000FF;
    528   RedTex.clBevelShade := $000000;
    529   RedTex.clTextLight := $000000;
    530   RedTex.clTextShade := $0000FF;
     527  RedTex.Assign(MainTexture);
     528  RedTex.ColorBevelLight := $0000FF;
     529  RedTex.ColorBevelShade := $000000;
     530  RedTex.ColorTextLight := $000000;
     531  RedTex.ColorTextShade := $0000FF;
    531532
    532533  BitBltCanvas(offscreen.Canvas, 0, 0, 640, 480, Back.Canvas, 0, 0);
    … …  
    797798    Frame(offscreen.Canvas, xSmallMap + 48 * (ZoomArea div 3),
    798799      ySmallMap + 24 * (ZoomArea mod 3), xSmallMap + 48 * (ZoomArea div 3) + 49,
    799       ySmallMap + 24 * (ZoomArea mod 3) + 25, MainTexture.clMark,
    800       MainTexture.clMark);
     800      ySmallMap + 24 * (ZoomArea mod 3) + 25, MainTexture.ColorMark,
     801      MainTexture.ColorMark);
    801802  Frame(offscreen.Canvas, xSmallMap - 1, ySmallMap - 1, xSmallMap + wSmallMap,
    802803    ySmallMap + hSmallMap, $B0B0B0, $FFFFFF);
    … …  
    812813  if Mode = mSupp then
    813814  begin
    814     offscreen.Canvas.brush.Color := MainTexture.clMark;
     815    offscreen.Canvas.brush.Color := MainTexture.ColorMark;
    815816    offscreen.Canvas.FillRect(Rect(x - 27, y - 6, x + 27, y + 6));
    816817    offscreen.Canvas.brush.style := bsClear;

  • trunk/LocalPlayer/CityType.pas

    r350 r352  
    9393
    9494  Frame(offscreen.Canvas, 0, yList + 32 * nListRow, InnerWidth - 255,
    95     yPool - 23, MainTexture.clBevelLight, MainTexture.clBevelShade);
     95    yPool - 23, MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    9696  Frame(offscreen.Canvas, InnerWidth - 254, yList + 32 * nListRow,
    97     InnerWidth - 89, yPool - 23, MainTexture.clBevelLight,
    98     MainTexture.clBevelShade);
     97    InnerWidth - 89, yPool - 23, MainTexture.ColorBevelLight,
     98    MainTexture.ColorBevelShade);
    9999  Frame(offscreen.Canvas, InnerWidth - 88, yList + 32 * nListRow,
    100     InnerWidth - 1, yPool - 23, MainTexture.clBevelLight,
    101     MainTexture.clBevelShade);
     100    InnerWidth - 1, yPool - 23, MainTexture.ColorBevelLight,
     101    MainTexture.ColorBevelShade);
    102102  Frame(offscreen.Canvas, 0, yPool - 22, InnerWidth - 1, yPool - 1,
    103     MainTexture.clBevelLight, MainTexture.clBevelShade);
     103    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    104104  for i := 0 to nCityType - 1 do
    105105  begin
    106106    RFrame(offscreen.Canvas, xSwitch + i * 42, ySwitch, xSwitch + 39 + i * 42,
    107       ySwitch + 23, MainTexture.clBevelShade, MainTexture.clBevelLight);
     107      ySwitch + 23, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    108108    if i = ctype then
    109109      Frame(offscreen.Canvas, xSwitch + 1 + i * 42, ySwitch + 1,
    110         xSwitch + 38 + i * 42, ySwitch + 22, MainTexture.clBevelShade,
    111         MainTexture.clBevelLight)
     110        xSwitch + 38 + i * 42, ySwitch + 22, MainTexture.ColorBevelShade,
     111        MainTexture.ColorBevelLight)
    112112    else
    113113      Frame(offscreen.Canvas, xSwitch + 1 + i * 42, ySwitch + 1,
    114         xSwitch + 38 + i * 42, ySwitch + 22, MainTexture.clBevelLight,
    115         MainTexture.clBevelShade);
     114        xSwitch + 38 + i * 42, ySwitch + 22, MainTexture.ColorBevelLight,
     115        MainTexture.ColorBevelShade);
    116116    BitBltCanvas(offscreen.Canvas, xSwitch + 2 + i * 42, ySwitch + 2,
    117117      xSizeSmall, ySizeSmall, SmallImp.Canvas, (i + 3) * xSizeSmall, 0);
    … …  
    130130    for i := 1 to nListRow - 1 do
    131131      DLine(offscreen.Canvas, xList - 5, xList + 4 + 42 * nListCol,
    132         yList - 1 + 32 * i, MainTexture.clBevelLight, MainTexture.clBevelShade);
     132        yList - 1 + 32 * i, MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    133133    for i := 0 to nListCol * nListRow - 1 do
    134134    begin
    135135      s := IntToStr(i + 1);
    136       Font.Color := MainTexture.clTextLight;
     136      Font.Color := MainTexture.ColorTextLight;
    137137      Textout(xList + 20 + i mod nListCol * 42 - TextWidth(s) div 2,
    138138        yList + 15 + i div nListCol * 32 - TextHeight(s) div 2, s);
    … …  
    147147      xList + 21 + xSizeSmall div 2 + i mod nListCol * 42,
    148148      yList + 16 + ySizeSmall div 2 + i div nListCol * 32,
    149       MainTexture.clBevelLight, MainTexture.clBevelShade);
     149      MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    150150    BitBltCanvas(offscreen.Canvas, xList + 21 - xSizeSmall div 2 +
    151151      i mod nListCol * 42, yList + 16 - ySizeSmall div 2 + i div nListCol * 32,
    … …  
    169169        nPool div nPoolCol * 32, xPool + 21 + xSizeSmall div 2 +
    170170        nPool mod nPoolCol * 42, yPool + 16 + ySizeSmall div 2 +
    171         nPool div nPoolCol * 32, MainTexture.clBevelLight,
    172         MainTexture.clBevelShade);
     171        nPool div nPoolCol * 32, MainTexture.ColorBevelLight,
     172        MainTexture.ColorBevelShade);
    173173      BitBltCanvas(offscreen.Canvas, xPool + 21 - xSizeSmall div 2 +
    174174        nPool mod nPoolCol * 42, yPool + 16 - ySizeSmall div 2 +

  • trunk/LocalPlayer/ClientTools.pas

    r328 r352  
    201201  i: integer;
    202202begin
    203   if p = me then
    204   begin
     203  if p = me then begin
    205204    Result := 0;
    206205    for i := 1 to 3 do
    207206      if MyRO.Tech[AgePreq[i]] >= tsApplicable then
    208207        Result := i;
    209   end
    210   else
    211   begin
     208  end else begin
    212209    Result := 0;
    213210    for i := 1 to 3 do

  • trunk/LocalPlayer/Diagram.pas

    r350 r352  
    6363  Canvas.Brush.Style := bsClear;
    6464    ScreenTools.Frame(canvas, Left - 1, Top - 1, Left + Width, Top + 200,
    65       MainTexture.clBevelShade, MainTexture.clBevelLight);
     65      MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    6666    RFrame(canvas, Left - 2, Top - 2, Left + Width + 1, Top + 200 + 1,
    67       MainTexture.clBevelShade, MainTexture.clBevelLight);
     67      MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    6868
    6969    // stars
    … …  
    163163  begin
    164164    LoweredTextOut(offscreen.canvas, -1, MainTexture, x - 2, y, Cap);
    165     DLine(offscreen.canvas, x - 2, x + 169, y + 16, MainTexture.clTextShade,
    166       MainTexture.clTextLight);
     165    DLine(offscreen.canvas, x - 2, x + 169, y + 16, MainTexture.ColorTextShade,
     166      MainTexture.ColorTextLight);
    167167    if val0 > 0 then
    168168      s := Format(Phrases.Lookup('SHARE'), [val0, val1])

  • trunk/LocalPlayer/Draft.pas

    r350 r352  
    183183        Phrases.Lookup('UNITSPEED'));
    184184      DLine(offscreen.Canvas, xTotal - 2, xTotal + 174, y + 16,
    185         MainTexture.clBevelShade, MainTexture.clBevelLight);
     185        MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    186186      DLine(offscreen.Canvas, xTotal2 + 176, xTotal2 + 263, y + 16,
    187         MainTexture.clBevelShade, MainTexture.clBevelLight);
     187        MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    188188      s := MovementToString(MyRO.DevModel.Speed);
    189189      RisedTextOut(offscreen.Canvas, xTotal2 + 170 + 64 + 30 -
    … …  
    199199        xTotal2 + 148 + 30, y, '=');
    200200      DLine(offscreen.Canvas, xTotal - 2, xTotal + 174, y + 16,
    201         MainTexture.clBevelShade, MainTexture.clBevelLight);
     201        MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    202202      DLine(offscreen.Canvas, xTotal2 + 176, xTotal2 + 263, y + 16,
    203         MainTexture.clBevelShade, MainTexture.clBevelLight);
     203        MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    204204      s := IntToStr(MyRO.DevModel.Cost);
    205205      RisedTextOut(offscreen.Canvas, xTotal2 + 170 + 64 + 30 - 12 -
    … …  
    216216          xTotal2 + 148 + 30, y, '=');
    217217        DLine(offscreen.Canvas, xTotal - 2, xTotal + 174, y + 16,
    218           MainTexture.clBevelShade, MainTexture.clBevelLight);
     218          MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    219219        DLine(offscreen.Canvas, xTotal2 + 176, xTotal2 + 263, y + 16,
    220           MainTexture.clBevelShade, MainTexture.clBevelLight);
     220          MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    221221        s := IntToStr(MyRO.DevModel.Cost * BuildCostMod
    222222          [G.Difficulty[me]] div 12);
    … …  
    236236
    237237  ClientHeight := Template.Height - Cut;
    238   if ClientHeight > hMainTexture then
     238  if ClientHeight > MainTexture.Height then
    239239  // assemble background from 2 texture tiles
    240240  begin
    241241    BitBltCanvas(Back.Canvas, 0, 0, ClientWidth, 64,
    242       MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
    243       hMainTexture - 64);
     242      MainTexture.Image.Canvas, (MainTexture.Width - ClientWidth) div 2,
     243      MainTexture.Height - 64);
    244244    BitBltCanvas(Back.Canvas, 0, 64, ClientWidth, ClientHeight - 64,
    245       MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
     245      MainTexture.Image.Canvas, (MainTexture.Width - ClientWidth) div 2,
    246246      0);
    247247  end
    248248  else
    249249    BitBltCanvas(Back.Canvas, 0, 0, ClientWidth, ClientHeight,
    250       MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
    251       (hMainTexture - ClientHeight) div 2);
     250      MainTexture.Image.Canvas, (MainTexture.Width - ClientWidth) div 2,
     251      (MainTexture.Height - ClientHeight) div 2);
    252252  ImageOp_B(Back, Template, 0, 0, 0, 0, Template.Width, 64);
    253253  ImageOp_B(Back, Template, 0, 64, 0, 64 + Cut, Template.Width,
    … …  
    320320            RFrame(offscreen.Canvas, xFeature - (21 + 1),
    321321              yFeature + 2 + LinePitch * i - 1, xFeature - (21 - 24),
    322               yFeature + 2 + LinePitch * i + 12, MainTexture.clBevelShade,
    323               MainTexture.clBevelLight);
     322              yFeature + 2 + LinePitch * i + 12, MainTexture.ColorBevelShade,
     323              MainTexture.ColorBevelLight);
    324324          end
    325325          else
    … …  
    329329            RFrame(offscreen.Canvas, xFeature - (9 + 1),
    330330              yFeature + 2 + LinePitch * i - 1, xFeature - (21 - 24),
    331               yFeature + 2 + LinePitch * i + 12, MainTexture.clBevelShade,
    332               MainTexture.clBevelLight);
     331              yFeature + 2 + LinePitch * i + 12, MainTexture.ColorBevelShade,
     332              MainTexture.ColorBevelLight);
    333333          end;
    334334
    … …  
    362362
    363363        if MyRO.DevModel.Cap[code[i]] > 0 then
    364           TextColor := MainTexture.clLitText
     364          TextColor := MainTexture.ColorLitText
    365365        else
    366366          TextColor := -1;

  • trunk/LocalPlayer/MessgEx.pas

    r323 r352  
    357357  if (IconKind = mikImp) and (IconIndex = 27) then
    358358  begin // "YOU WIN" message
    359     clSaveTextLight := MainTexture.clTextLight;
    360     clSaveTextShade := MainTexture.clTextShade;
    361     MainTexture.clTextLight := $000000; // gold
    362     MainTexture.clTextShade := $0FDBFF;
     359    clSaveTextLight := MainTexture.ColorTextLight;
     360    clSaveTextShade := MainTexture.ColorTextShade;
     361    MainTexture.ColorTextLight := $000000; // gold
     362    MainTexture.ColorTextShade := $0FDBFF;
    363363    inherited;
    364     MainTexture.clTextLight := clSaveTextLight;
    365     MainTexture.clTextShade := clSaveTextShade;
     364    MainTexture.ColorTextLight := clSaveTextLight;
     365    MainTexture.ColorTextShade := clSaveTextShade;
    366366  end
    367367  else
    … …  
    411411      end;
    412412    mikBook:
    413       PaintBook(Canvas, ClientWidth div 2, 24, MainTexture.clPage,
    414         MainTexture.clCover);
     413      PaintBook(Canvas, ClientWidth div 2, 24, MainTexture.ColorPage,
     414        MainTexture.ColorCover);
    415415    mikTribe:
    416416      if Assigned(Tribe[IconIndex].faceHGr) then

  • trunk/LocalPlayer/NatStat.pas

    r350 r352  
    107107procedure TNatStatDlg.CheckAge;
    108108begin
    109   if MainTextureAge <> AgePrepared then
    110   begin
    111     AgePrepared := MainTextureAge;
     109  if MainTexture.Age <> AgePrepared then begin
     110    AgePrepared := MainTexture.Age;
    112111    BitBltCanvas(Back.Canvas, 0, 0, ClientWidth, ClientHeight,
    113       MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
    114       (hMainTexture - ClientHeight) div 2);
     112      MainTexture.Image.Canvas, (MainTexture.Width - ClientWidth) div 2,
     113      (MainTexture.Height - ClientHeight) div 2);
    115114    ImageOp_B(Back, Template, 0, 0, 0, 0, ClientWidth, ClientHeight);
    116115  end;
    … …  
    358357      with Canvas do
    359358      begin
    360         Brush.Color := MainTexture.clBevelShade;
     359        Brush.Color := MainTexture.ColorBevelShade;
    361360        FillRect(Rect(xReport + wReport, yReport + PaperShade,
    362361          xReport + wReport + PaperShade, yReport + hReport + PaperShade));

  • trunk/LocalPlayer/Nego.pas

    r350 r352  
    510510
    511511  Fill(Offscreen.Canvas, 3, 3, ClientWidth - 6, ClientHeight - 6,
    512     (wMaintexture - ClientWidth) div 2, (hMaintexture - ClientHeight) div 2);
     512    (Maintexture.Width - ClientWidth) div 2, (Maintexture.Height - ClientHeight) div 2);
    513513  Frame(Offscreen.Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
    514514  Frame(Offscreen.Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,
    515     MainTexture.clBevelLight, MainTexture.clBevelShade);
     515    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    516516  Frame(Offscreen.Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
    517     MainTexture.clBevelLight, MainTexture.clBevelShade);
     517    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    518518  Corner(Offscreen.Canvas, 1, 1, 0, MainTexture);
    519519  Corner(Offscreen.Canvas, ClientWidth - 9, 1, 1, MainTexture);
    … …  
    565565  with Offscreen.Canvas do
    566566  begin
    567     Brush.Color := MainTexture.clBevelShade;
     567    Brush.Color := MainTexture.ColorBevelShade;
    568568    if History[me].Text[Page - 1] <> '' then
    569569    begin

  • trunk/LocalPlayer/Rates.pas

    r350 r352  
    5656
    5757  Fill(Offscreen.Canvas, 0, 0, ClientWidth, ClientHeight,
    58     (wMaintexture - ClientWidth) div 2, (hMaintexture - ClientHeight) div 2);
     58    (Maintexture.Width - ClientWidth) div 2, (Maintexture.Height - ClientHeight) div 2);
    5959  Frame(Offscreen.Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
    6060  Frame(Offscreen.Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,
    61     MainTexture.clBevelLight, MainTexture.clBevelShade);
     61    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    6262  Frame(Offscreen.Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
    63     MainTexture.clBevelLight, MainTexture.clBevelShade);
     63    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    6464
    6565  BtnFrame(Offscreen.Canvas, CloseBtn.BoundsRect, MainTexture);
    … …  
    118118    Frame(Offscreen.Canvas, x - 1, y - 1, x + max, y + 7, $000000, $000000);
    119119    RFrame(Offscreen.Canvas, x - 2, y - 2, x + max + 1, y + 8,
    120       MainTexture.clBevelShade, MainTexture.clBevelLight);
     120      MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    121121    with Offscreen.Canvas do
    122122    begin
    … …  
    138138      MyRO.LuxRate * 120 div 100, 0, 120, MainTexture);
    139139    RFrame(Offscreen.Canvas, ScienceBtn.Left - 1, LuxBtn.Top - 1,
    140       LuxBtn.Left + 12, LuxBtn.Top + 12, MainTexture.clBevelShade,
    141       MainTexture.clBevelLight);
    142   end;
    143 
    144   DLine(Offscreen.Canvas, 1, ClientWidth - 2, 154, MainTexture.clBevelShade,
    145     MainTexture.clBevelLight);
     140      LuxBtn.Left + 12, LuxBtn.Top + 12, MainTexture.ColorBevelShade,
     141      MainTexture.ColorBevelLight);
     142  end;
     143
     144  DLine(Offscreen.Canvas, 1, ClientWidth - 2, 154, MainTexture.ColorBevelShade,
     145    MainTexture.ColorBevelLight);
    146146  RisedTextOut(Offscreen.Canvas, 16 + 80, 164, Phrases.Lookup('TAXRATE'));
    147147  s := Format('%d%%', [MyRO.TaxRate]);
    … …  
    151151    MyRO.TaxRate * 120 div 100, 0, 120, MainTexture);
    152152  RFrame(Offscreen.Canvas, TaxUpBtn.Left - 1, TaxUpBtn.Top - 1,
    153     TaxUpBtn.Left + 12, TaxDownBtn.Top + 12, MainTexture.clBevelShade,
    154     MainTexture.clBevelLight);
     153    TaxUpBtn.Left + 12, TaxDownBtn.Top + 12, MainTexture.ColorBevelShade,
     154    MainTexture.ColorBevelLight);
    155155
    156156  MarkUsedOffscreen(ClientWidth, ClientHeight);

  • trunk/LocalPlayer/Select.pas

    r350 r352  
    202202    begin
    203203      Frame(offscreen.Canvas, x + (16 - 1), y + (16 - 2), x + (16 + xSizeSmall),
    204         y + (16 - 1 + ySizeSmall), MainTexture.clBevelLight,
    205         MainTexture.clBevelShade);
     204        y + (16 - 1 + ySizeSmall), MainTexture.ColorBevelLight,
     205        MainTexture.ColorBevelShade);
    206206      if pix and cpType = 0 then
    207207        if (pix and cpIndex = imPalace) and (MyRO.Government <> gAnarchy) then
    … …  
    231231      if y + TextSize.cy >= TitleHeight + InnerHeight then
    232232        TextSize.cy := TitleHeight + InnerHeight - y;
    233       Fill(ca, x, y, TextSize.cx, TextSize.cy, (wMaintexture - ClientWidth)
    234         div 2, (hMaintexture - ClientHeight) div 2);
     233      Fill(ca, x, y, TextSize.cx, TextSize.cy, (Maintexture.Width - ClientWidth)
     234        div 2, (Maintexture.Height - ClientHeight) div 2);
    235235    end;
    236236    LoweredTextOut(ca, Color, MainTexture, x, y, s);
    … …  
    260260      begin
    261261        x := x + SideFrame;
    262         y := y + TitleHeight
     262        y := y + TitleHeight;
    263263      end;
    264264      if lit then
    265         TextColor := MainTexture.clLitText
     265        TextColor := MainTexture.ColorLitText
    266266      else
    267267        TextColor := -1;
    … …  
    434434    end;
    435435    if lit then
    436       TextColor := MainTexture.clLitText
     436      TextColor := MainTexture.ColorLitText
    437437    else
    438438      TextColor := -1;
    … …  
    556556              begin
    557557                Frame(offscreen.Canvas, (8 + 16 - 1), y0 - 1, (8 + 16 + 36),
    558                   y0 + 20, MainTexture.clBevelLight, MainTexture.clBevelShade);
     558                  y0 + 20, MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    559559                Dump(offscreen, HGrSystem, (8 + 16), y0, 36, 20, 223, 295)
    560560              end
    … …  
    562562              begin
    563563                Frame(offscreen.Canvas, (8 + 16 - 1), y0 - 1, (8 + 16 + 36),
    564                   y0 + 20, MainTexture.clBevelLight, MainTexture.clBevelShade);
     564                  y0 + 20, MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    565565                Dump(offscreen, HGrSystem, (8 + 16), y0, 36, 20, 260, 295)
    566566              end
    … …  
    568568              begin
    569569                Frame(offscreen.Canvas, (8 + 16 - 1), y0 - 1, (8 + 16 + 36),
    570                   y0 + 20, MainTexture.clBevelLight, MainTexture.clBevelShade);
     570                  y0 + 20, MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    571571                Dump(offscreen, HGrSystem, (8 + 16), y0, 36, 20, 38, 295)
    572572              end
    … …  
    575575                Frame(offscreen.Canvas, (8 + 16 - 1), y0 - 1,
    576576                  (8 + 16 + xSizeSmall), y0 + ySizeSmall,
    577                   MainTexture.clBevelLight, MainTexture.clBevelShade);
     577                  MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    578578                if AdvIcon[lix] < 84 then
    579579                  BitBltCanvas(offscreen.Canvas, (8 + 16), y0, xSizeSmall,
    … …  
    681681            Frame(offscreen.Canvas, 8 + 16 - 1, y0 - 15 + (16 - 2),
    682682              8 + 16 + xSizeSmall, y0 - 15 + (16 - 1 + ySizeSmall),
    683               MainTexture.clBevelLight, MainTexture.clBevelShade);
     683              MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    684684            BitBltCanvas(offscreen.Canvas, 8 + 16, y0 - 15 + (16 - 1),
    685685              xSizeSmall, ySizeSmall, SmallImp.Canvas,
    … …  
    712712    end;
    713713    if lit then
    714       TextColor := MainTexture.clLitText
     714      TextColor := MainTexture.ColorLitText
    715715    else
    716716      TextColor := -1;
    … …  
    812812    begin
    813813      Fill(Canvas, 9, ClientHeight - 29, ClientWidth - 18, 24,
    814         (wMaintexture - ClientWidth) div 2,
    815         (hMaintexture - ClientHeight) div 2);
     814        (Maintexture.Width - ClientWidth) div 2,
     815        (Maintexture.Height - ClientHeight) div 2);
    816816      if ScienceNation >= 0 then
    817817      begin
    … …  
    829829          ScienceNationDot.Height, Canvas, xScreen - 10, ClientHeight - 27);
    830830        ImageOp_BCC(ScienceNationDotBuffer, Templates.Data, Point(0, 0),
    831           ScienceNationDot.BoundsRect, MainTexture.clBevelShade, Tribe[ScienceNation].Color);
     831          ScienceNationDot.BoundsRect, MainTexture.ColorBevelShade, Tribe[ScienceNation].Color);
    832832        BitBltCanvas(Canvas, xScreen - 10, ClientHeight - 27, ScienceNationDot.Width,
    833833          ScienceNationDot.Height, ScienceNationDotBuffer.Canvas, 0, 0);
    … …  
    15321532  begin
    15331533    LineDistance := 21; // looks ugly with scrollbar
    1534     MaxLines := (hMaintexture - (24 + TitleHeight + NarrowFrame))
     1534    MaxLines := (Maintexture.Height - (24 + TitleHeight + NarrowFrame))
    15351535      div LineDistance - 1;
    15361536  end
    … …  
    15381538  begin
    15391539    LineDistance := 24;
    1540     MaxLines := (hMaintexture - (24 + TitleHeight + WideFrame))
     1540    MaxLines := (Maintexture.Height - (24 + TitleHeight + WideFrame))
    15411541      div LineDistance - 1;
    15421542  end;
    … …  
    15741574    ClientHeight := InnerHeight + TitleHeight + NarrowFrame;
    15751575  end;
    1576   assert(ClientHeight <= hMaintexture);
     1576  assert(ClientHeight <= Maintexture.Height);
    15771577
    15781578  TechNameSpace := 224;

  • trunk/LocalPlayer/Term.pas

    r346 r352  
    16911691        Controls[i].Visible := false;
    16921692    me := -1;
    1693     SetMainTextureByAge(-1);
     1693    MainTexture.Age := -1;
    16941694    with Panel.Canvas do
    16951695    begin
    … …  
    17281728    { if MyRO.Happened and phGameEnd<>0 then
    17291729      begin
    1730       Age:=3;
    1731       SetMainTextureByAge(-1);
     1730      Age := 3;
     1731      MainTexture.Age := -1;
    17321732      end
    17331733      else }
    17341734    begin
    17351735      Age := GetAge(me);
    1736       if SetMainTextureByAge(Age) then
     1736      if MainTexture.Age <> Age then begin
     1737        MainTexture.Age := Age;
    17371738        EOT.Invalidate; // has visible background parts in its bounds
     1739      end;
    17381740    end;
    17391741    // age:=MyRO.Turn mod 4; //!!!
    … …  
    17481750  begin
    17491751    Age := 0;
    1750     SetMainTextureByAge(-1);
     1752    MainTexture.Age := -1;
    17511753    if ClientMode = cMovieTurn then
    17521754      EOT.ButtonIndex := eotCancel
    … …  
    25382540        Age := 0;
    25392541        if Command = cHelpOnly then
    2540           SetMainTextureByAge(-1);
     2542          MainTexture.Age := -1;
    25412543        Tribes.Init;
    25422544        HelpDlg.UserLeft := (Screen.width - HelpDlg.width) div 2;
    … …  
    42654267        xMini + 2 + G.lx - MapWidth div (xxt * 2), yMini + 2,
    42664268        xMini + 1 + G.lx + MapWidth div (xxt * 2), yMini + 2 + G.ly - 1,
    4267         MainTexture.clMark, MainTexture.clMark)
     4269        MainTexture.ColorMark, MainTexture.ColorMark)
    42684270    else
    42694271      Frame(Panel.Canvas,
    42704272        xMini + 2 + G.lx - MapWidth div (xxt * 2), yMini + 2 + yw,
    42714273        xMini + 1 + G.lx + MapWidth div (xxt * 2), yMini + yw + MapHeight div yyt,
    4272         MainTexture.clMark, MainTexture.clMark);
     4274        MainTexture.ColorMark, MainTexture.ColorMark);
    42734275  end;
    42744276end;
    … …  
    43014303  begin
    43024304    Fill(Panel.Canvas, 0, 3, xMidPanel + 7 - 10, PanelHeight - 3,
    4303       wMainTexture - (xMidPanel + 7 - 10), hMainTexture - PanelHeight);
     4305      MainTexture.Width - (xMidPanel + 7 - 10), MainTexture.Height - PanelHeight);
    43044306    Fill(Panel.Canvas, xRightPanel + 10 - 7, 3, Panel.width - xRightPanel - 10 +
    4305       7, PanelHeight - 3, -(xRightPanel + 10 - 7), hMainTexture - PanelHeight);
     4307      7, PanelHeight - 3, -(xRightPanel + 10 - 7), MainTexture.Height - PanelHeight);
    43064308    FillLarge(Panel.Canvas, xMidPanel - 2, PanelHeight - MidPanelHeight,
    43074309      xRightPanel + 2, PanelHeight, ClientWidth div 2);
    … …  
    43154317    LineTo(xRightPanel, 0);
    43164318    LineTo(ClientWidth, 0);
    4317     Pen.Color := MainTexture.clBevelLight;
     4319    Pen.Color := MainTexture.ColorBevelLight;
    43184320    MoveTo(xMidPanel + 7 - 9, PanelHeight - MidPanelHeight + 2);
    43194321    LineTo(xRightPanel + 10 - 8, PanelHeight - MidPanelHeight + 2);
    4320     Pen.Color := MainTexture.clBevelLight;
     4322    Pen.Color := MainTexture.ColorBevelLight;
    43214323    MoveTo(0, 1);
    43224324    LineTo(xMidPanel + 7 - 9, 1);
    4323     Pen.Color := MainTexture.clBevelShade;
     4325    Pen.Color := MainTexture.ColorBevelShade;
    43244326    LineTo(xMidPanel + 7 - 9, PanelHeight - MidPanelHeight + 1);
    4325     Pen.Color := MainTexture.clBevelLight;
     4327    Pen.Color := MainTexture.ColorBevelLight;
    43264328    LineTo(xRightPanel + 10 - 9, PanelHeight - MidPanelHeight + 1);
    4327     Pen.Color := MainTexture.clBevelLight;
     4329    Pen.Color := MainTexture.ColorBevelLight;
    43284330    LineTo(xRightPanel + 10 - 9, 1);
    43294331    LineTo(ClientWidth, 1);
    … …  
    43334335    MoveTo(0, 2);
    43344336    LineTo(xMidPanel + 7 - 10, 2);
    4335     Pen.Color := MainTexture.clBevelShade;
     4337    Pen.Color := MainTexture.ColorBevelShade;
    43364338    LineTo(xMidPanel + 7 - 10, PanelHeight);
    43374339    Corner(Panel.Canvas, xMidPanel + 7 - 16, 1, 1, MainTexture);
    … …  
    44724474              ScreenTools.Frame(Panel.Canvas, xTroop + 1 + x,
    44734475                yTroop + 6 - yyt div 2, xTroop + 2 * xxt - 1 + x,
    4474                 yTroop + 2 * yyt + 10, MainTexture.clMark, MainTexture.clMark);
     4476                yTroop + 2 * yyt + 10, MainTexture.ColorMark, MainTexture.ColorMark);
    44754477            end;
    44764478          end;
    … …  
    45904592        else
    45914593          x := xTroop - 152;
    4592         Pen.Color := MainTexture.clBevelShade;
     4594        Pen.Color := MainTexture.ColorBevelShade;
    45934595        MoveTo(x - 1, PanelHeight - MidPanelHeight + 2);
    45944596        LineTo(x - 1, PanelHeight);
    4595         Pen.Color := MainTexture.clBevelLight;
     4597        Pen.Color := MainTexture.ColorBevelLight;
    45964598        MoveTo(x, PanelHeight - MidPanelHeight + 2);
    45974599        LineTo(x, PanelHeight);
    … …  
    46314633                        ScreenTools.Frame(Panel.Canvas, xTroop + 3 + x,
    46324634                          yTroop + 2, xTroop + 63 + x, yTroop + 46,
    4633                           MainTexture.clMark, MainTexture.clMark);
     4635                          MainTexture.ColorMark, MainTexture.ColorMark);
    46344636                      end
    46354637                      else if (unx.Master >= 0) and (unx.Master = UnFocus) then
    … …  
    46384640                          xTroop + 64 + x, yTroop + 47, 8, $000000);
    46394641                        CFrame(Panel.Canvas, xTroop + 3 + x, yTroop + 2,
    4640                           xTroop + 63 + x, yTroop + 46, 8, MainTexture.clMark);
     4642                          xTroop + 63 + x, yTroop + 46, 8, MainTexture.ColorMark);
    46414643                      end;
    46424644                      NoMapPanel.SetOutput(Panel);
    … …  
    47334735          RFrame(Panel.Canvas, Left - 1, Top - self.ClientHeight +
    47344736            (PanelHeight - 1), Left + width, Top + height - self.ClientHeight +
    4735             PanelHeight, MainTexture.clBevelShade, MainTexture.clBevelLight)
     4737            PanelHeight, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight)
    47364738    end; { if TroopLoc>=0 }
    47374739  end;
    … …  
    47494751          RFrame(Panel.Canvas, Left - 1, Top - self.ClientHeight +
    47504752            (PanelHeight - 1), Left + width, Top + height - self.ClientHeight +
    4751             PanelHeight, MainTexture.clBevelShade, MainTexture.clBevelLight);
     4753            PanelHeight, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    47524754        end;
    47534755      end;
    … …  
    47634765          RFrame(Panel.Canvas, Left - 1, Top - self.ClientHeight +
    47644766            (PanelHeight - 1), Left + width, Top + height - self.ClientHeight +
    4765             PanelHeight, MainTexture.clBevelShade, MainTexture.clBevelLight);
     4767            PanelHeight, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    47664768        end;
    47674769  end;
    … …  
    47804782    MoveTo(0, TopBarHeight - 1);
    47814783    LineTo(ClientWidth, TopBarHeight - 1);
    4782     Pen.Color := MainTexture.clBevelShade;
     4784    Pen.Color := MainTexture.ColorBevelShade;
    47834785    MoveTo(0, TopBarHeight - 2);
    47844786    LineTo(ClientWidth, TopBarHeight - 2);
    47854787    MoveTo(0, TopBarHeight - 3);
    47864788    LineTo(ClientWidth, TopBarHeight - 3);
    4787     Pen.Color := MainTexture.clBevelLight;
     4789    Pen.Color := MainTexture.ColorBevelLight;
    47884790    ScreenTools.Frame(TopBar.Canvas, 40, -1, xTreasurySection - 1,
    4789       TopBarHeight - 7, MainTexture.clBevelShade, MainTexture.clBevelLight);
     4791      TopBarHeight - 7, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    47904792    ScreenTools.Frame(TopBar.Canvas, xResearchSection + 332, -1, ClientWidth,
    4791       TopBarHeight - 7, MainTexture.clBevelShade, MainTexture.clBevelLight);
     4793      TopBarHeight - 7, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    47924794  end;
    47934795  if GameMode <> cMovie then
    … …  
    52245226          Frame(Panel.Canvas, xMini + 2 + G.lx - MapWidth div (2 * xxt),
    52255227            yMini + 2, xMini + 1 + G.lx + MapWidth div (2 * xxt),
    5226             yMini + 2 + G.ly - 1, MainTexture.clMark, MainTexture.clMark)
     5228            yMini + 2 + G.ly - 1, MainTexture.ColorMark, MainTexture.ColorMark)
    52275229        else
    52285230          Frame(Panel.Canvas, xMini + 2 + G.lx - MapWidth div (2 * xxt),
    52295231            yMini + 2 + yw, xMini + 2 + G.lx + MapWidth div (2 * xxt) - 1,
    5230             yMini + 2 + yw + MapHeight div yyt - 2, MainTexture.clMark,
    5231             MainTexture.clMark);
     5232            yMini + 2 + yw + MapHeight div yyt - 2, MainTexture.ColorMark,
     5233            MainTexture.ColorMark);
    52325234      end;
    52335235      RectInvalidate(xMini + 2, TopBarHeight + MapHeight - overlap + yMini + 2,
    … …  
    74927494        Frame(Buffer.Canvas, x - xMini - 2 - MapWidth div (xxt * 2), 0,
    74937495          x - xMini - 2 + MapWidth div (xxt * 2) - 1, G.ly - 1,
    7494           MainTexture.clMark, MainTexture.clMark)
     7496          MainTexture.ColorMark, MainTexture.ColorMark)
    74957497      else
    74967498        Frame(Buffer.Canvas, x - xMini - 2 - MapWidth div (xxt * 2), yw,
    74977499          x - xMini - 2 + MapWidth div (xxt * 2) - 1, yw + MapHeight div yyt -
    7498           2, MainTexture.clMark, MainTexture.clMark);
     7500          2, MainTexture.ColorMark, MainTexture.ColorMark);
    74997501      BitBltCanvas(Panel.Canvas, xMini + 2, yMini + 2, G.lx * 2, G.ly,
    75007502        Buffer.Canvas, 0, 0);

  • trunk/LocalPlayer/UnitStat.pas

    r350 r352  
    9898procedure TUnitStatDlg.CheckAge;
    9999begin
    100   if MainTextureAge <> AgePrepared then
    101   begin
    102     AgePrepared := MainTextureAge;
     100  if MainTexture.Age <> AgePrepared then begin
     101    AgePrepared := MainTexture.Age;
    103102    BitBltCanvas(Back.Canvas, 0, 0, wCommon, hOwnModel,
    104       MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
    105       (hMainTexture - hOwnModel) div 2);
     103      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
     104      (MainTexture.Height - hOwnModel) div 2);
    106105    BitBltCanvas(Back.Canvas, wCommon, 0, wCommon, hEnemyModel,
    107       MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
    108       (hMainTexture - hEnemyModel) div 2);
     106      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
     107      (MainTexture.Height - hEnemyModel) div 2);
    109108    BitBltCanvas(Back.Canvas, 2 * wCommon, 0, wCommon, hEnemyUnit,
    110       MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
    111       (hMainTexture - hEnemyUnit) div 2);
     109      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
     110      (MainTexture.Height - hEnemyUnit) div 2);
    112111    BitBltCanvas(Back.Canvas, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
    113       MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
    114       (hMainTexture - hEnemyCityDefense) div 2);
     112      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
     113      (MainTexture.Height - hEnemyCityDefense) div 2);
    115114    BitBltCanvas(Back.Canvas, 4 * wCommon, 0, wCommon, hEnemyCity,
    116       MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
    117       (hMainTexture - hEnemyCity) div 2);
     115      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
     116      (MainTexture.Height - hEnemyCity) div 2);
    118117    ImageOp_B(Back, Template, 0, 0, 0, 0, 5 * wCommon, hMax);
    119   end
     118  end;
    120119end;
    121120
    … …  
    305304
    306305  procedure FeatureBar(dst: TBitmap; x, y: integer; const mi: TModelInfo;
    307     const T: TTexture);
     306    T: TTexture);
    308307  var
    309308    i, w, dx, num: integer;
    … …  
    371370  end; { featurebar }
    372371
    373   procedure NumberBarS(dst: TBitmap; x, y: integer; Cap, s: string;
    374     const T: TTexture);
    375   begin
    376     DLine(dst.Canvas, x - 2, x + 170, y + 16, T.clBevelShade, T.clBevelLight);
     372  procedure NumberBarS(dst: TBitmap; x, y: integer; Cap, s: string; T: TTexture);
     373  begin
     374    DLine(dst.Canvas, x - 2, x + 170, y + 16, T.ColorBevelShade, T.ColorBevelLight);
    377375    LoweredTextOut(dst.Canvas, -1, T, x - 2, y, Cap);
    378376    RisedTextout(dst.Canvas, x + 170 - BiColorTextWidth(dst.Canvas, s), y, s);
    … …  
    447445        end;
    448446        Frame(offscreen.Canvas, x - 1, yImp - 1, x + xSizeSmall,
    449           yImp + ySizeSmall, MainTexture.clBevelLight,
    450           MainTexture.clBevelShade);
     447          yImp + ySizeSmall, MainTexture.ColorBevelLight,
     448          MainTexture.ColorBevelShade);
    451449        BitBltCanvas(offscreen.Canvas, x, yImp, xSizeSmall, ySizeSmall,
    452450          SmallImp.Canvas, j mod 7 * xSizeSmall,
    … …  
    527525        begin
    528526          { Frame(offscreen.canvas,xView-1,yView-1,xView+64,yView+48,
    529             MainTexture.clBevelShade,MainTexture.clBevelLight);
     527            MainTexture.ColorBevelShade,MainTexture.ColorBevelLight);
    530528            RFrame(offscreen.canvas,xView-2,yView-2,xView+65,yView+49,
    531             MainTexture.clBevelShade,MainTexture.clBevelLight); }
     529            MainTexture.ColorBevelShade,MainTexture.ColorBevelLight); }
    532530          with offscreen.Canvas do
    533531          begin
    … …  
    615613        Phrases.Lookup('UNITCOST'));
    616614      DLine(offscreen.Canvas, xTotal - 2, xTotal + 170, yTotal + 57 + 16,
    617         MainTexture.clBevelShade, MainTexture.clBevelLight);
     615        MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
    618616      if G.Difficulty[me] = 0 then
    619617        s := IntToStr(mi.cost)
    … …  
    636634              (yTotal + StatDown - 19), Phrases.Lookup('UNITINTRO'));
    637635          DLine(offscreen.Canvas, xTotal - 2, xTotal + 170,
    638             (yTotal + StatDown - 19) + 16, MainTexture.clTextShade,
    639             MainTexture.clTextLight);
     636            (yTotal + StatDown - 19) + 16, MainTexture.ColorTextShade,
     637            MainTexture.ColorTextLight);
    640638          s := TurnToString(MyModel[mixShow].IntroTurn);
    641639          RisedTextout(offscreen.Canvas,

  • trunk/LocalPlayer/Wonders.pas

    r319 r352  
    199199
    200200  Fill(Offscreen.Canvas, 3, 3, ClientWidth - 6, ClientHeight - 6,
    201     (wMaintexture - ClientWidth) div 2, (hMaintexture - ClientHeight) div 2);
     201    (Maintexture.Width - ClientWidth) div 2, (Maintexture.Height - ClientHeight) div 2);
    202202  Frame(Offscreen.Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
    203203  Frame(Offscreen.Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,
    204     MainTexture.clBevelLight, MainTexture.clBevelShade);
     204    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    205205  Frame(Offscreen.Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
    206     MainTexture.clBevelLight, MainTexture.clBevelShade);
     206    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
    207207  Corner(Offscreen.Canvas, 1, 1, 0, MainTexture);
    208208  Corner(Offscreen.Canvas, ClientWidth - 9, 1, 1, MainTexture);
    … …  
    230230          Fill(Offscreen.Canvas, Center.X - xSizeBig div 2 + RingPosition[I].X - 3,
    231231            Center.Y - ySizeBig div 2 + RingPosition[I].Y - 3, xSizeBig + 6,
    232             ySizeBig + 6, (wMaintexture - ClientWidth) div 2,
    233             (hMaintexture - ClientHeight) div 2);
     232            ySizeBig + 6, (Maintexture.Width - ClientWidth) div 2,
     233            (Maintexture.Height - ClientHeight) div 2);
    234234        end;
    235235        WonderDestroyed: begin
    … …  
    308308  begin
    309309    Fill(Canvas, 9, ClientHeight - 3 - 46, ClientWidth - 18, 44,
    310       (wMaintexture - ClientWidth) div 2, (hMaintexture - ClientHeight) div 2);
     310      (Maintexture.Width - ClientWidth) div 2, (Maintexture.Height - ClientHeight) div 2);
    311311    if Selection >= 0 then
    312312    begin
    … …  
    318318          (ClientWidth-BiColorTextWidth(Canvas,S)) div 2+1,
    319319          ClientHeight-3-36+1, S);
    320           Canvas.Font.Color:=MainTexture.clBevelLight;
     320          Canvas.Font.Color:=MainTexture.ColorBevelLight;
    321321          Canvas.TextOut(
    322322          (ClientWidth-BiColorTextWidth(Canvas,S)) div 2,
Note: See TracChangeset for help on using the changeset viewer.