Autor Téma: Generování dokumentace  (Přečteno 10 krát)

Offline rmaster

  • Nováček
  • *
  • Příspěvků: 5
  • Karma: 0
    • Verze Delphi: XE3
Generování dokumentace
« kdy: Dnes v 07:02:15 »
Dobrý den,
prosím, poradíte někdo, jak komponentu Button, ComboBox, CheckBox (a případně i jiné) převedu na Bitmap?
O co mi jde? Chtěl bych vygenerovat jednoduchou dokumentaci z mé aplikace například do HTML a dále ji ručně upravit.
V programu mám už stovky SpeedButton, kde je to jednoduché vygenerovat bitmap, ale u komponent, které uvádím, si s tím nevím rady.
Mám v programu u všech komponent HINT, takže bych tímto způsobem chtěl vygenerovat dokumentaci.
Nějak takto:
Kód: Delphi [Vybrat]
  1.   RXDoc1:=TMemo.Create(self);
  2.   RXDoc1.Visible:=False;
  3.   RXDoc1.Parent:=Self;
  4.   RXDoc1.WordWrap:=False;
  5.  
  6.   RXDoc1.Lines.Add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">');
  7.   RXDoc1.Lines.Add('<html>');
  8.   RXDoc1.Lines.Add('<head>');
  9.   RXDoc1.Lines.Add('<meta http-equiv="content-type" content="text/html; charset=utf-8">');
  10.   RXDoc1.Lines.Add('<meta name="generator" content="PSPad editor, www.pspad.com">');
  11.   RXDoc1.Lines.Add('<title></title>');
  12.   RXDoc1.Lines.Add('</head>');
  13.   RXDoc1.Lines.Add('<body>');
  14.  
  15.   for i := 0 to (ComponentCount - 1) do
  16.     begin
  17.       if (Components[i] is TSpeedButton) then
  18.         begin
  19.           S:=IntToStr(i);
  20.           TSpeedButton(Components[i]).Glyph.SaveToFile('c:\TEMP\Obr'+S+'.bmp');
  21.           PopisHint:=TSpeedButton(Components[i]).Hint;
  22.           RXDoc1.Lines.Add('<img src="'+'c:\TEMP\Obr'+S+'.bmp'+'" border="0">'+PopisHint+'<BR>');
  23.         end;
  24.     end;
  25.  
  26.   RXDoc1.Lines.Add('</body>');
  27.   RXDoc1.Lines.Add('</html>');
  28.   RXDoc1.Lines.SaveToFile('c:\TEMP\Dokumentace.html');
  29.  

Děkuji.