TZblok

Ja jetl fonkuv šokoláte 
Und sítil něco 
To ne šokoláte 
Ne kokos 
Ne ožech 
Ne burákmáslo 
Ne nugát 
Any marsipán 
Ne charamel 
Ne griliáš 
Ja udělal kuk und fidím das slatý kupon!

Reportér: Auguste, a jak jsi to oslavil? 
Další šokolátou

Denis Villeneuve (Sicario, Příchozí, Blade Runner 2049) točí novou adaptaci Duny 😉. Konečně!

Premiéra prý v prosinci 2020.

Chronologicky správné pořadí epizod Star Wars – tedy jiné pořadí, než v kterém byly filmy natočeny:

pořadí	název	rok	neoficiální název	český název
❶	Star Wars: Episode I – The Phantom Menace	1999		Skrytá hrozba
❷	Star Wars: Episode II – Attack of the Clones	2002		Klony útočí
❸	Star Wars: Episode III – Revenge of the Sith	2005		Pomsta Sithů
❹	Solo: A Star Wars Story	2018
❺	Rogue One: A Star Wars Story	2016
❻	Star Wars: Episode IV – A New Hope	1977		Nová naděje
❼	Star Wars: Episode V – The Empire Strikes Back	1980		Impérium vrací úder
❽	Star Wars: Episode VI – Return of the Jedi	1983		Návrat Jediho
❾	Star Wars: Episode VII – The Force Awakens	2015		Síla se probouzí
❿	Star Wars: Episode VIII – The Last Jedi	2017		Poslední z Jediů
⓫	Star Wars: The Rise of Skywalker	2019	Episode IX	Vzestup Skywalkera

2 div-y, které chci mít vedle sebe. 1fr 1fr znamená, že oba div-y okupují prostor stejným dílem (jednotka fr = fraction). 1fr auto by znamenalo, že 2. div bude mít šířku danou jeho obsahem a 1. div vyplní zbytek.

  <style>
    .grid-container {
      display: grid;
      grid-template-columns: 1fr 1fr; /* nebo např.: 1fr auto */
    }
  </style>

  <div class="grid-container">
    <div>Item 1</div>
    <div>Item 2</div>
  </div>

Štítky: CSS Grid

Simple Reduce() implementation for Delphi 2009+:

unit MapReduce;

interface

uses
  System.SysUtils, System.Generics.Collections;

type
  TMapReduce = record
  public
    class function Reduce<T, U>(const AFunc: TFunc<U, T, T>;
      const AList: TEnumerable<U>; AAcc: T): T; static;
  end;

implementation

class function TMapReduce.Reduce<T, U>(const AFunc: TFunc<U, T, T>;
  const AList: TEnumerable<U>; AAcc: T): T;
var
  Item: U;
begin
  for Item in AList do
    AAcc := AFunc(Item, AAcc);
  Result := AAcc;
end;

end.

Usage:

var
  List: TList<TButton>;
  ButtonCaptions: string;
begin
  List := TList<TButton>.Create;
  try
    List.Add(Button1);
    List.Add(Button2);
    List.Add(Button3);

    ButtonCaptions := TMapReduce.Reduce<string, TButton>(
      function(AButton: TButton; S: string): string
      begin
        Result := AButton.Caption;
        if S <> '' then
          Result := S + ',' + Result;
      end, List, '');

  finally
    List.Free;
  end;
end;

Štítky: Delphi

Méně známé klávesové zkratky Delphi IDE, které jsem se nově naučil:

Je jasné, že pro efektivní práci v IDE je potřeba používat klávesové zkratky. Mnohé jsou notoricky známé - viz např. zde: Delphi - klávesové zkratky v IDE. IDE má ale zkratek ještě mnohem více. A ne všechny jsem znal a používal.

Toto je seznam, které jsem nově zavedl do svého repertoáru:

• Ctrl+klik v Ctrl+Space dialogu mě pošle na implementaci metody aniž bych měnil kód

• Ctrl+Alt+F12 - otevře menu s aktuálně otevřenými unitamy (kde funguje inkrementální hledání a mohu případně rychle šipkami přepnout)

• Ctrl+Alt+Shift+↑ nebo ↓ - posouvá obsah aktuální řádky nahoru nebo dolů

• Alt+Shift+B - obalí označený text begin..end

• Alt+Shift+I - obalí označený text if..then begin..end

Docela rád bych používal Ctrl+Alt+↑ nebo ↓ na skákání mezi jednotlivými těly metod, ale funguje to jen někdy, jaksi pofidérně.

Zdroj:
Povětšinou http://stackoverflow.com/questions/102254/hidden-features-of-the-delphi-ide

Pozn.: jsem na Delphi XE3 a přecházím na XE6.

Štítky: hudba, úvahy