🚀 go-pugleaf

W dniu 19-06-2017 o 10:42, immo pisze:
> W dniu poniedziałek, 19 czerwca 2017 10:22:24 UTC+2 użytkownik kons...@wp.pl napisał:
>> Prowadzę na własne potrzeby pewien projekt do obsługi firm (głównie
>> księgowej) i chcę go rozszerzyć.
>> Coraz mniej czasu a projekt jednak ciekawy.
> amisty co nie jest ostateczne.
>>
>> Zależy mi na rozwoju systemu.
> 
> To czy ciekawy to zależy :) Osobiście nie widzę niczego ciekawego w pisaniu aplikacji księgowej/CRM/Magazynu itd itp. :P


Dla mnie jeszcze ciekawe kawałki:

var
   DC, MemDC: HDC;
   MemBitmap, OldBitmap: HBITMAP;
   PS: TPaintStruct;
begin
   if not FDoubleBuffered or (Message.DC <> 0) then
   begin
     if not (csCustomPaint in ControlState) and (ControlCount = 0) then
       inherited
     else
       PaintHandler(Message);
   end
   else
   begin
     DC := GetDC(0);
     MemBitmap := CreateCompatibleBitmap(DC, ClientRect.Right, 
ClientRect.Bottom);
     ReleaseDC(0, DC);
     MemDC := CreateCompatibleDC(0);
     OldBitmap := SelectObject(MemDC, MemBitmap);
     try
       DC := BeginPaint(Handle, PS);
       Perform(WM_ERASEBKGND, MemDC, MemDC);
       Message.DC := MemDC;
       WMPaint(Message);
       Message.DC := 0;
       BitBlt(DC, 0, 0, ClientRect.Right, ClientRect.Bottom, MemDC, 0, 
0, SRCCOPY);
       EndPaint(Handle, PS);
     finally
       SelectObject(MemDC, OldBitmap);
       DeleteDC(MemDC);
       DeleteObject(MemBitmap);
     end;
   end;
end;
rysowanie nisko poziomowe
wykorzystywane do rysowania deklaracji.
Dzięki Arivald


     FFile := TMemoryStream.Create();
     FFile.LoadFromFile(FFileName);
     PFile := PAnsiChar(FFile.Memory);
     pend  := PAnsiChar(FFile.Memory) + FFile.Size-5;


Przeglądanie PDF-A jak PAnsiCHAR
i rozpakowywanie strumieni PDF-a w celu obróbki e-deklaracji w swoim 
systemie.
Jest więcej takich rzeczy.
Mnie to interesuje nie wiem jak ciebie.