#12 OnTBCustomDraw в wince

closed-fixed
nobody
None
5
2007-10-22
2007-10-22
mdw
No

Юрий, еще исправление. В mckCtrls.pas добавить условную компиляцию для OnTBCustomDraw в wince:

procedure TKOLToolbar.SetupFirst(SL: TStringList; const AName, AParent,
....
if not Assigned( OnTBCustomDraw ) and
(tboCustomErase in Options) OR
FixFlatXP and (tboFlat in Options) then
begin
SL.Add(Prefix + '{$IFNDEF wince}' +AName + '.OnTBCustomDraw := nil; ' + '{$ENDIF}');
end;
....

Discussion

  • jura
    jura
    2007-10-22

    • status: open --> closed-fixed
     
  • jura
    jura
    2007-10-22

    Logged In: YES
    user_id=1226674
    Originator: NO

    Поправил. Спасибо.