Náhodné výkřiky 32

vložil Radek Červinka 1. listopadu 2012 23:34

Ve zkratce několik novinek a poznámek.

Help update 1 pro XE3

Je dostupný help update 1 pro XE3 - downloads.embarcadero.com/Item/29134. Doporučuji ale spíše stáhnout přes oznámení Delphi o aktualizaci - nebude se stahovat 900M. read me

unicode Delphi Twain

Ondřej Pokorný (Kluug.net) publikoval verzi unicode Delphi Twain by Gustavo Daud, která se ztratila z internetu. Podporováno je Delphi 2009 - XE3, Lazarus atd. www.kluug.net/delphitwain.php. Děkujeme.

CheckForCycles

Pokud šmírujete ve zdrojácích Delphi, můžete narazit na roztodivné funkce. Např. složitou funkci CheckForCycles v Classes.


{ Utility functions useful for tracking down reference cycles }

procedure CheckForCycles(const Obj: TObject; 
  const PostFoundCycle: TPostFoundCycleProc); overload;
procedure CheckForCycles(const Intf: IInterface;
  const PostFoundCycle: TPostFoundCycleProc); overload;

Podle všeho se jedná o funkci, která umí odhalit kruhové reference (tj. objekt nebo interface odkazujete sám na sebe), což je u automatického uvolňování ARC problém. Připomínám, že ARC je součástí (nejen) ARM kompilátoru (aka NextGen Delphi). Ale už nyní ji můžete používat pro testování interface.

Volání by mělo probíhat předáním doličného objektu nebo interface a anonymní metody která se bude vyvolávat při nalezení reference.

  TPostFoundCycleProc = reference to procedure (const ClassName: string; 
     Reference: IntPtr; const Stack: TStack<IntPtr>);

Firemonkey defaultní styly

V XE3 jsou součástí Firemonkey defaultní styly, které ale nejsou dostupné jako soubor a linkují se pouze při překladu. Následující kód z delphihaven je umí extrahovat. Užitečné to je pro příklad, když tento styl chcete upravit a vůbec.

    program Project1;
     
    {$R *.res}
     
{$R 'C:\Program Files\Embarcadero\RAD Studio\10.0\lib\win32\release\FMX.Platform.Win.res'}
{$R 'C:\Program Files\Embarcadero\RAD Studio\10.0\lib\osx32\release\FMX.Platform.Mac.res'}
     
    uses
      System.Types, System.SysUtils, System.Classes;
     
    procedure ExtractStyle(const ResName, DestFileName: string);
    var
      Input: TResourceStream;
      Output: TFileStream;
    begin
      Output := nil;
      Input := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
      try
        Input.Seek(13, soCurrent);
        Output := TFileStream.Create(DestFileName, fmCreate);
        ObjectBinaryToText(Input, Output);
      finally
        Input.Free;
        Output.Free;
      end;
    end;
     
    begin
      ExtractStyle('win7style', 'C:\Users\CCR\Documents\Win7.style');
      ExtractStyle('win8style', 'C:\Users\CCR\Documents\Win8.style');
      ExtractStyle('lionstyle', 'C:\Users\CCR\Documents\Lion.style');
      ExtractStyle('lion2xstyle', 'C:\Users\CCR\Documents\Lion2x.style');
    end.   

<code>

UniGui web down

Web unigui je dole. Autor na fóru píše, že brzo něco oznámí. Hmm. Buďto dostal přes prsty (čti nějaký patent), nebo ho někdo koupil, nebo jen chystá nový web :-).

P.S.: vpravo mám nově logo MVP (může být včetně produktu -Delphi, Interbase, C++Builder- nebo bez) - je to oficiální logo, takže až ho někde uvidíte tak Vám bude jasné vocogo.


Nabízíme Delphi školení a konzultace na různá témata, primárně ve Vaší firmě.

Tagy: , , , , , ,

Novinky

Komentáře

8.11.2012 11:46:05 #

bullhead

...add Unigui. Aktuálně ve foru příspěvek autora, že má probléímy z licencováním Sencha a projekt (beta testing) již NEbude public:

http://forums.unigui.com/index.php?/topic/2467-latest-status-in-development-and-future-of-unigui/

...:
Sencha license issue will be resolved
We will switch from "Open Beta" to "Closed Beta" mode.
Automatic registration for forums will be disabled.
Public downloads no longer will be available.
Forum members will be asked to sign a NDA in order to be able to have access to new beta releases.
Forum content will remain as private and will not be shared publicly.
Support model will change.
Bug reporting will take a new format.
Development will be accelerated.
Support requests through private messages and emails will not be accepted.
Other things that I will announce in a new thread.

B.

bullhead

Komentování ukončeno

Naše nabídka

Partial English version.

MVP
Ing. Radek Červinka - Embarcadero MVP
profil na linkedin, Twitter:@delphicz

Nabízím placené poradenství a konzultace v oblasti programování a vývoje SW.
Dále nabízíme i vývoj speciálního software na zakázku.

Neváhejte nás kontaktovat (i ohledně reklamy nebo burzy práce).

Pokud chcete podpořit tento server libovolnou částkou, můžete použít PayPal. Moc děkuji.

Delphi Certified Developer

O Delphi.cz

Delphi je jediný moderní RAD nástroj podporující tvorbu nativních aplikací pro platformu Win32, Win64 , Mac OSX a na iPhone a Android (s výhledem na další platformy díky FireMonkey) na současném trhu (včetně Windows 8.1).

V současnosti je světová komunita přes dva miliónů vývojářů.

Delphi.cz je nezávislý portál pro uživatele Delphi. Portál není koncipován pro úplné začátečníky, i když i ti se zde nebudou nudit, ale spíše na programátory, kteří již něco znají a chtějí své znalosti dále rozvíjet a sledovat novinky.

Anketa

Poslední komentáře

Comment RSS