Poslední příspěvky

Stran: 1 [2] 3 4 ... 10
12
Obecné / Re:Témy Delphi versus TMS
« Poslední příspěvek od Stanislav Hruška kdy 23-10-2017, 10:35:50 »
Ak vyblokujem FMM4, tak mi to beží. Lenže mi tam ostávajú neuvoľnené bloky pamäte ???  Má to na svedomí TMS. Aj keď som programovo zničil všetky styler-y, tak tá chyba tam je.
13
Obecné / Vyhledani ICO podle DIC
« Poslední příspěvek od tanton kdy 23-10-2017, 10:00:38 »
nemuzete me nekdo nasmerovat na web services nebo nejaky script resici tonto problem. V ARES lze ledat jen dle IC, v registru platcu DPH IC neni. Diky za kazdy tip.
14
Obecné / Re:Text vyplněný vzorkem
« Poslední příspěvek od JaroB kdy 23-10-2017, 08:25:25 »
@Delphin

Děkuji! Tvoje řešení je přijatelné a použitelné i pro pootočený font. Jen jsem ho maličko upravil, aby to šlo vytisknout i na papír  ;)

Kód: Delphi [Vybrat]
  1. procedure Get2_Concept_Bitmap(const aCaption: string);
  2. var
  3.   B: TBitmap;
  4.   Brush: HBRUSH;
  5. begin
  6.   B := TBitmap.Create;
  7.   try
  8.     B.Canvas.Font.Name := 'Arial Narrow';
  9.     B.Canvas.Font.Color := clBlack;
  10.     B.Canvas.Font.Size := 120;
  11.     B.Width := B.Canvas.TextWidth(aCaption);
  12.     B.Height := B.Canvas.TextHeight(aCaption);
  13.     B.Canvas.Brush.Style := bsSolid;
  14.     B.Canvas.Brush.Color := clWhite;
  15.     B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
  16.  
  17.     if BeginPath(B.Canvas.Handle) then
  18.     try
  19.       B.Canvas.Brush.Style := bsClear; // timto se nastavi rezim pozadi na TRANSPARENT, cimz se vyber ktereho jsi dosahl invertuje
  20.       B.Canvas.TextOut(0, 0, aCaption);
  21.     finally
  22.       EndPath(B.Canvas.Handle);
  23.     end;
  24.     Brush := CreateHatchBrush(HS_DIAGCROSS, ColorToRGB(clSilver));
  25.     try
  26.       SelectObject(B.Canvas.Handle, Brush); // vyberu hatch brush
  27.       SetBkMode(B.Canvas.Handle, OPAQUE); // nastavim rezim zpet na vypln (z predchoziho nastaveni Brush.Style na bsClear)
  28.       SetBkColor(B.Canvas.Handle, ColorToRGB(clWhite)); // nastavim barvu pozadi
  29.       StrokeAndFillPath(B.Canvas.Handle);
  30.       //FillPath(B.Canvas.Handle); // a cestu vyplnim
  31.     finally
  32.       DeleteObject(Brush);
  33.     end;
  34.     B.SaveToFile('c:\concept.bmp');
  35.   finally
  36.     B.Free
  37.   end;
  38. end;
  39.  
15
Obecné / Re:Text vyplněný vzorkem
« Poslední příspěvek od Delfin kdy 22-10-2017, 23:03:06 »
Ne, rozdil by byt nemel. Nicmene, kdyz se tedy GDI vzdat nechces, chybi ti nastaveni rezimu pozadi na transparentni predtim nez TextOut zavolas. Jak pise TextOut reference:

Citace
When the TextOut function is placed inside a path bracket, the system generates a path for the TrueType text that includes each character plus its character box. The region generated is the character box minus the text, rather than the text itself. You can obtain the region enclosed by the outline of the TrueType text by setting the background mode to transparent before placing the TextOut function in the path bracket. Following is sample code that demonstrates this procedure.

A pak, zapomen na regiony, vykonostne se zasekas (kdyz uz tedy nekreslime bitmapu ale na platno kontrolky). Zkus tohle:

Kód: Delphi [Vybrat]
  1. procedure TForm1.FormPaint(Sender: TObject);
  2. var
  3.   Brush: HBRUSH;
  4. begin
  5.   Canvas.Font.Name := 'Arial Narrow';
  6.   Canvas.Font.Color := clBlack;
  7.   Canvas.Font.Size := 120;
  8.  
  9.   if BeginPath(Canvas.Handle) then
  10.   try
  11.     Canvas.Brush.Style := bsClear; // timto se nastavi rezim pozadi na TRANSPARENT, cimz se vyber ktereho jsi dosahl invertuje
  12.     Canvas.TextOut(0, 0, '葉覧都髄土背条明説果差感');
  13.   finally
  14.     EndPath(Canvas.Handle);
  15.   end;
  16.  
  17.   // nemel jsem chut travit s Delphi vice casu (protoze nevim jak pro hatch brush nadefinovat barvu popredi a pozadi, Brush ma
  18.   // jen jeden Color), proto WinAPI (ono mi prijde ve vysledku prehlednejsi)
  19.   Brush := CreateHatchBrush(HS_DIAGCROSS, ColorToRGB(clSilver));
  20.   try
  21.     SelectObject(Canvas.Handle, Brush); // vyberu hatch brush
  22.     SetBkMode(Canvas.Handle, OPAQUE); // nastavim rezim zpet na vypln (z predchoziho nastaveni Brush.Style na bsClear)
  23.     SetBkColor(Canvas.Handle, ColorToRGB(clBlack)); // nastavim barvu pozadi
  24.     FillPath(Canvas.Handle); // a cestu vyplnim
  25.   finally
  26.     DeleteObject(Brush);
  27.   end;
  28. end;

A obrazek (je docela podobny tomu predchozimu, coz mu ale neodpira moznost stat se soucasti vyznamne sbirky moderniho umeni) :):

16
Obecné / Re:Text vyplněný vzorkem
« Poslední příspěvek od JaroB kdy 22-10-2017, 21:34:26 »
Ono mi to vcelku chodilo, pokud jsem to nekreslil do bitmapy ale na control... nemůže to být problém?
17
Obecné / Re:Témy Delphi versus TMS
« Poslední příspěvek od Stanislav Hruška kdy 22-10-2017, 21:00:53 »
Citace
To jo, ale jakem? VCL stylech Delphi? Nebo ma TMS nejaky vlastni skinovaci framework (komponentu)?
Jaj to som nepochopil. Bavíme sa o oboch. TMS má TxxxStyler pre rôzne druhy komponentov. Základné, pre mňa, sú TAdvPanelStyler, TAdvOfficePagerOfficeStyler, TAdvMenuStyler a TAdvFormStyler. Pri zmene témy im len zmením vlastnosť Style a o ostatné sa už automaticky postará TMS. Viac som sa o tento mechanizmus nezaujímal.
Akurát musím komponenty prepojiť sa patričným Styler-om.
18
Obecné / Re:Témy Delphi versus TMS
« Poslední příspěvek od Delfin kdy 22-10-2017, 20:23:38 »
Bavime se tady o nejakem skinovacim frameworku?
Vlastne áno. Používam len existujúce veci. Nič vlastné.

To jo, ale jakem? VCL stylech Delphi? Nebo ma TMS nejaky vlastni skinovaci framework (komponentu)? Pokud si dobre pamatuju, napr. Smooth controls mely vlastni vykreslovani pomoci GDI+ na nez by VCL styly Delphi (tou dobou) aplikovat nesly. Nevim jak zbytek toho baliku, porad jsou to stovky komponent.
19
Obecné / Re:Témy Delphi versus TMS
« Poslední příspěvek od Stanislav Hruška kdy 22-10-2017, 19:41:58 »
Citace
Bavime se tady o nejakem skinovacim frameworku?
Vlastne áno. Používam len existujúce veci. Nič vlastné.
Citace
Pokud ano, proc se s nim prat?
Len tak pre efekt. Byť za frajera :)  Momentálne len skúšam či je jednoduchá cesta mať obe veci naraz. Prednosť má TMS.
Citace
]Nebo co je to konkretne TMS (TMS Software ma stovky komponent a chaoticky web)?
Kúpil som celý balík VCL komponentov.
Poznámka: Väčšina Delphi tém sa mi aj tak nepáči. Hlavné tmavé. Ale poznám ľudí, čo chcú len čierne.
20
Obecné / Re:Témy Delphi versus TMS
« Poslední příspěvek od Delfin kdy 22-10-2017, 19:30:17 »
Bavime se tady o nejakem skinovacim frameworku? Pokud ano, proc se s nim prat? Nebo co je to konkretne TMS (TMS Software ma stovky komponent a chaoticky web)?
Stran: 1 [2] 3 4 ... 10