Changeset 245 for trunk


Ignore:
Timestamp:
Sep 22, 2018, 1:07:53 PM (6 years ago)
Author:
chronos
Message:
  • Added: Limit minimum and maximum map zoom.
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormClient.lfm

    r241 r245  
    77  ClientHeight = 621
    88  ClientWidth = 775
    9   DesignTimePPI = 120
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
     
    1717  object StatusBar1: TStatusBar
    1818    Left = 0
    19     Height = 28
    20     Top = 593
     19    Height = 30
     20    Top = 591
    2121    Width = 775
    2222    Panels = <   
     
    3434  object ToolBar1: TToolBar
    3535    Left = 0
    36     Height = 593
     36    Height = 591
    3737    Top = 0
    3838    Width = 32
     
    8080  object PaintBox1: TPaintBox
    8181    Left = 32
    82     Height = 593
     82    Height = 591
    8383    Top = 0
    8484    Width = 743
  • trunk/Forms/UFormClient.pas

    r243 r245  
    1212const
    1313  ZoomFactor = 1.5;
     14  MinZoom = 0.05;
     15  MaxZoom = 10;
    1416  MouseMinDiff = 0.1;
    1517
     
    447449begin
    448450  with Client do begin
    449     View.Zoom := View.Zoom * ZoomFactor;
     451    if View.Zoom * ZoomFactor < MaxZoom then
     452      View.Zoom := View.Zoom * ZoomFactor;
    450453  end;
    451454  Redraw;
     
    453456
    454457procedure TFormClient.AZoomOutExecute(Sender: TObject);
    455 //var
    456 //  D: TPoint;
    457458begin
    458459  with Client do begin
    459     //D := Point(Trunc(MousePos.X - View.Left / ViewZoom),
    460     //  Trunc(MousePos.Y - View.Top / ViewZoom));
    461     View.Zoom := View.Zoom / ZoomFactor;
    462     //View := Bounds(Trunc((D.X - MousePos.X) * ViewZoom),
    463     //  Trunc((D.Y - MousePos.Y) * ViewZoom),
    464     //  View.Right - View.Left,
    465     //  View.Bottom - View.Top);
     460    if View.Zoom / ZoomFactor > MinZoom then
     461      View.Zoom := View.Zoom / ZoomFactor;
    466462  end;
    467463  Redraw;
  • trunk/Forms/UFormHelp.pas

    r243 r245  
    5252    'In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. ' +
    5353    'This process is calculated automatically and for each planned attack win ' +
    54     'probability is displayed.';
     54    'probability is displayed.' +
     55    LineEnding + LineEnding +
     56    'Units can be moved by clicking on owned cell and then by clicking on target neutral ' +
     57    'or enemy cell. Moves can be set to be repeated every turn with defined number of units. ' +
     58    'Repeated unit moves can be set in Unit move dialog or simply by holding Control key while selecting target cell. ' +
     59    'If there are multiple unit moves from one cell to more other cells and ' +
     60    'you want to move all available cells to target cell, then you can do so by holding Shift key while selecting target cell.';
    5561
    5662{$R *.lfm}
  • trunk/Languages/xtactics.cs.po

    r244 r245  
    99"MIME-Version: 1.0\n"
    1010"Content-Transfer-Encoding: 8bit\n"
    11 "X-Generator: Poedit 1.8.8\n"
     11"X-Generator: Poedit 2.0.6\n"
    1212"Language: cs\n"
    1313
     
    350350
    351351#: tformnew.aplayermodify.caption
    352 #, fuzzy
    353 #| msgid "Modify player"
    354352msgctxt "tformnew.aplayermodify.caption"
    355353msgid "Modify"
    356 msgstr "Upravit hráče"
     354msgstr "Upravit"
    357355
    358356#: tformnew.aplayerremove.caption
     
    860858"\n"
    861859"Resolution of attack of units is determined by rule similar to one which is used in Risk game. Battle consist of several fights. Each fight attacker can use up to 3 units and defender up to 2 units. Number of units for each side determine number of dices. Both sides roll their dices and order them in descending order. Each side takes one dice with highest value. One who has dice with higher value wins. In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. This process is calculated automatically and for each planned attack win probability is displayed.\n"
     860"\n"
     861"Units can be moved by clicking on owned cell and then by clicking on target neutral or enemy cell. Moves can be set to be repeated every turn with defined number of units. Repeated unit moves can be set in Unit move dialog or simply by holding Control key while selecting target cell. If there are multiple unit moves from one cell to more other cells and you want to move all available cells to target cell, then you can do so by holding Shift key while selecting target cell.\n"
    862862msgstr ""
    863863"xTactics je strategická hra založena na hře Risk. Hlavní zaměření hry je nabídnout hráči různé možnosti k nastavení podmínek hry. Mapa hry je generována náhodně pro každou hru. Hra je pro více hráčů takže jeden hráč může hrát s dalšími lidskými protivníky nebo s mnoha počítačovými protivníky.\n"
     
    867867"\n"
    868868"Vyhodnocení útoku jednotek je určen pravidlem podobným tomu, které je použito u hry Risk. Bitva se skládá z několika bojů. Každá boj útočník může použít do 3 jednotek a obránce do 2 jednotek. Počet jednotek pro každou stranu určuje počet kostek. Obě strany házejí jejich kostkami a seřadí je v sestupném pořadí. Každá strana bere jednu kostku s nejvyšší hodnotou. Ten, který má kostku s vyšší hodnotou vyhrává. V případě remízy, vyhrává obránce. Prohrávající ztrácí své jednotky a další pár kostek je vyhodnocen. Tento proces je vypočítáván automaticky a pro každý plánovaný útok je zobrazena odhadovaná pravděpodobnost.\n"
     869"\n"
     870"Jednotky lze přesouvat kliknutím na vlastněnou buňku a pak kliknutím na cílovou neutrální nebo nepřátelskou buňku. Přesuny lze nastavit jako opakující se každá tak s určeným počtem jednotek. Opakující se přesuny jednotek lze nastavit v okně Přesun jednotek nebo jednoduše pomocí držení klávesy Control při výběru cílové buňky. Pokud je více přesunů z jedené buňky do více jiných a chcete přesunout všechny dostupné do cílové buňky, tak to můžete provést pomocí držení klávesy Shift a výběru cílové buňky.\n"
    869871
    870872#: uformkeyshortcuts.sglobal
     
    10541056msgid "64-bit UInt read overflow."
    10551057msgstr "Přetečení při čtení 64-bit UInt"
    1056 
  • trunk/Languages/xtactics.po

    r244 r245  
    843843"\n"
    844844"Resolution of attack of units is determined by rule similar to one which is used in Risk game. Battle consist of several fights. Each fight attacker can use up to 3 units and defender up to 2 units. Number of units for each side determine number of dices. Both sides roll their dices and order them in descending order. Each side takes one dice with highest value. One who has dice with higher value wins. In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. This process is calculated automatically and for each planned attack win probability is displayed.\n"
     845"\n"
     846"Units can be moved by clicking on owned cell and then by clicking on target neutral or enemy cell. Moves can be set to be repeated every turn with defined number of units. Repeated unit moves can be set in Unit move dialog or simply by holding Control key while selecting target cell. If there are multiple unit moves from one cell to more other cells and you want to move all available cells to target cell, then you can do so by holding Shift key while selecting target cell.\n"
    845847msgstr ""
    846848
Note: See TracChangeset for help on using the changeset viewer.