dhtmled i problemy .

0

ok, gdy mam w delphi cos takiego :

  VarClear(vo);
 if ((FontSizeStatus and OleCmdf_Enabled) <> 0) then begin
    HrExecCommand(IDM_FONTSIZE, NullVariant, vo, False, False);
    if (vartype(vo) = VarInteger) then
      cmbFontSize.ItemIndex := cmbFontSize.Items.IndexOf(vo);
  end;

delphi mi sie wykrzacza z komunikatem ze vartype is undeclared czy cos takiego, w ogóle nie wiem jak to obejsc, jest to obsluga kontrolki dhtmled w trybie do edycji, jesli nie wiecie jak to obejsc, to napiszcie chociaz jak zmianic czcionke w tym dhtmled i rozmiar czcionki.

pozdrawiam i licze na jakas pomoc (pomysly, linki - cokolwiek).

pozdr
Ramzess

0

Wiem jedno, zmień temat bo do kosza poleci

0

a usesujesz Variants ?

0

ok ruszylo :)

a teraz cosik takie :

function TFGlowna.GetCommandStatus(ucmdID: Cardinal; bTriEditCmdGroup: boolean): DWORD;
var
  FMsoCmd: TOleCmd;
begin
  result := 0;
  if (not Assigned(CommandTarget)) then
    Exit;
  FMsoCmd.CmdID := ucmdID;
  FMsoCmd.cmdf := 0;
  if (bTriEditCmdGroup) then
    CommandTarget.QueryStatus(@GUID_TriEditCommandGroup, 1, @FMsoCmd, nil)
  else
    CommandTarget.QueryStatus(@CMDSETID_Forms3, 1, @FMsoCmd, nil);

  result := FMsoCmd.cmdf;
end;

wykrzzacza sei przy : undeclared identifier @CMDSETID_Forms3
0

a gdzie masz taką zmienną zadeklarowaną? Bo nie w tej funkcji.

0

chyba nie ma ;/

wlasciwie to nie jest wazne, ale jaka mam funkcje napisac zeby zmianic w dhtmled zaznaczony tekst na rozmiar czcionki nap 40. ??

0

chyba nie ma ;/

wlasciwie to nie jest wazne,

Aaaa, no to sorry :]

ale jaka mam funkcje napisac zeby zmianic w dhtmled zaznaczony tekst na rozmiar czcionki nap 40. ??

Mnie nie pytaj, ja tu tylko sprzątam :]

0

to sa komendy typu :

ExecCommand(pCmd, OLECMDEXECOPT_DONTPROMPTUSER, true) - pogrubianie tekstu
itd....

a co na zmiane rozmiaru czcionki i stylu ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0